Mercurial > hg > forks > UniversalIndentGUI
view indenters/example.f90 @ 793:c6942de51c7c
Updated the version and release date.
git-svn-id: svn://svn.code.sf.net/p/universalindent/code/trunk@1070 59b1889a-e5ac-428c-b0c7-476e01d41282
author | thomas_-_s <thomas_-_s@59b1889a-e5ac-428c-b0c7-476e01d41282> |
---|---|
date | Sun, 01 Jan 2012 15:30:46 +0000 |
parents | 36c10a09ad84 |
children |
line wrap: on
line source
module module1 ! Identity of a utility ! ____________________________________________________________________ character (len=*), parameter :: xyz = & "I am just a more or less long string." character (len=*), parameter :: zhlp = '( & &"This program is free software; you can redistribute it and/or modify"/& &"____________________________________________________________________")' integer:: n contains recursive subroutine sub1(x) integer,intent(inout):: x integer:: y y=0 if (x<n) then x= x + 1 y =x**2 print *, 'x = ', x,', y = ', y call sub1(x) print *, 'x = ', x,', y = ', y end if end subroutine sub1 end module module1 program main use module1 integer:: x = 0 print *, 'Enter number of repeats' read (*,*) n call sub1(x) end program main