Hello all!
Decades ago I was busy with Fortran. Currently one question: Is it allow to call a subroutine in a function like:
Decades ago I was busy with Fortran. Currently one question: Is it allow to call a subroutine in a function like:
Code:
real function f(x)
real::x,t1misch
pa1=0.407
ha=-113.3
hd12=1330.
xd1hv=1350.
x1misch=x
call glgew(x1misch,xd1hv,t1misch,pa1,2)
call hflues(x1misch,t1misch,pa1,hneu1)
faktor=(x1misch-xa)/(1.-xa)
h1mischhv=(1.-faktor)*ha+faktor*hd12
f=h1mischhv-hneu1
return
end function