program functioncalling | |
print *, 'This is the Fortran program; I am going to call some functions now...' | |
call sum(1.0,2.0,3.0) | |
call factorial(3) | |
print *, 'Done' | |
contains | |
subroutine sum(x,y,z) | |
x = x+y+z | |
print *, x | |
end subroutine sum | |
subroutine factorial(j) | |
p=1 | |
i=1 | |
do i=1,j | |
p=p*i | |
end do | |
print *, j, "! = ", p | |
end subroutine factorial | |
subroutine sum2(x,y) | |
p = x+y | |
end subroutine sum2 | |
end |