subroutine call in a function

[virk24]

Hello all!

Decades ago I was busy with Fortran. Currently one question: Is it allow to call a subroutine in a function like:

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

 

[mikrom]

yes

 

[virk24]

Thank you, it works!

Greetings from Aachen, Germany