Sha256: 4d1bc4c8fe1cb1c0808a3702783da359a1c5526e4f67184cf66a9be60d32c48d
Contents?: true
Size: 524 Bytes
Versions: 213
Compression:
Stored size: 524 Bytes
Contents
module raindrops
contains
function convert(i)
implicit none
integer :: i
character(20) :: convert
convert = ''
if ( mod(i,3) .eq. 0 ) then
convert = 'Pling'
end if
if ( mod(i,5) .eq. 0 ) then
convert = trim(convert)//'Plang'
end if
if ( mod(i,7) .eq. 0 ) then
convert = trim(convert)//'Plong'
end if
if (convert .eq. '') then
write( convert, '(i20)' ) i
convert = trim(adjustl(convert))
end if
end function convert
end module raindrops
Version data entries
213 entries across 213 versions & 1 rubygems