fcn subroutine is a symbolic link? 1

[jiligeo]

Hi, I am working on a Fortran code. The code calls a subroutine ( call fcn )which is not defined in it.
I have asked the writer of code for more information about fcn subroutine and he answered me,

“The fcn subroutine is a symbolic link to a subroutine which is given in
a parameter list of another subroutine. Please referee to a Fortan
Handbook - this is standard Fortran.”

I could not understand that. Could somebody help me please? Where can I find some information about this command or method?

Regards
Jalil

 

[xwb]

Something like this

program indir
   external callee2
   external callee3

   call printer(callee2)
   call printer(callee3)
end

subroutine printer(subr)
   external subr
   integer ii

   ii = 10
   call subr(ii)
   print *, ii
end subroutine

subroutine callee2(ii)
   integer ii
   ii = ii + ii
end subroutine

subroutine callee3(ii)
   integer ii
   ii = ii + ii + ii
end subroutine

 

[jiligeo]

Dear XWB, thank you very much for your reply. Could you please introduce me a reference which explain this method?

Regards
Jalil

 

[xwb]

It is a technique I've used for years. I'll see if I can find a reference for it.

 

[xwb]

Try this

http://www.fortran.com/F77_std/rjcnf0001-sh-15.html#sh-15.6

Look at section 15.6.3.2 - this is parameter types 4 or 5.

 

[jiligeo]

Thank you very much for your valuable help.

Regards
Jalil