blob: 3e34117ec693d058569bb9b98568a8f720191d0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
program test
double precision a,b,c
data a,b/1.0d-46,1.0d0/
c=fun(a,b)
print*,'in main: fun=',c
end
double precision function fun(a,b)
double precision a,b
print*,'in sub: a,b=',a,b
fun=a*b
print*,'in sub: fun=',fun
return
end
|