我在试着破解一个fortran代码。它将一个指向函数的指针作为实际参数传递,而形式参数则是一个目标。它在主程序中定义并分配一个globalDATA类型的指针,然后调用一个传递该指针的函数:
module dataGLOBAL
type globalDATA
type (gl_1) , pointer :: gl1
type (gd_2) , pointer :: gd2
type (gdt_ok) , pointer :: gdtok
...
...
end type globalDATA
end module dataGLOBAL