Go to the documentation of this file.00001
00002
00003
00004
00005 subroutine print_message(output, times, has_printed)
00006
00007
00008
00009 integer counter,times,has_printed
00010
00011
00012
00013 character*128 output
00014
00015 do counter=1,times
00016 print *, counter, " ",output
00017 has_printed=counter
00018 end do
00019 end
00020
00021
00022
00023
00024 integer how_often,has_printed
00025
00026 character*128 message
00027
00028 message="Hello world"
00029 how_often = 3
00030
00031 call print_message(message,how_often,has_printed)
00032 print *, "The message was printed ",has_printed," times."
00033 end