1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
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
|
