hello.f
Go to the documentation of this file.
00001 c program hello 00002 00003 c> @param output defines the message to be print 00004 c> @param times specifies how many times the message is printed 00005 subroutine print_message(output, times, has_printed) 00006 00007 c> @var counter keeps the number of times already printed 00008 c> @var times is the number of outputs 00009 integer counter,times,has_printed 00010 00011 c> @var output defines the message to be print 00012 c> @var character*128 output 00013 character*128 output 00014 00015 do counter=1,times 00016 print *, counter, " ",output 00017 has_printed=counter 00018 end do 00019 end 00020 c end of subroutine 00021 00022 c> @var how_often defines how often the message should be printed 00023 c> @var has_printed states how often the message was really printed 00024 integer how_often,has_printed 00025 c> @var message gives the message 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
