Mercurial > hg > forks > UniversalIndentGUI
view indenters/example.f90 @ 796:0eee433d0084
new readme for a new age, also added a gitignore
author | Daniel Blakemore <DanBlakemore@gmail.com> |
---|---|
date | Tue, 17 Mar 2015 11:02:47 -0600 |
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