在没有公共块的情况下通过子例程将一组变量值传递给函数有哪些方法？

我不想在我的程序中使用公共块。我的主程序调用一个子例程，该子例程调用一个函数。该函数需要来自子例程的变量。

将信息集从子例程传递到函数有哪些方法？

program
...

call CONDAT(i,j)

end program

SUBROUTINE CONDAT(i,j)

common /contact/ iab11,iab22,xx2,yy2,zz2
common /ellip/ b1,c1,f1,g1,h1,d1,b2,c2,f2,g2,h2,p2,q2,r2,d2
call function f(x)
RETURN
END

function f(x)
common /contact/ iab11,iab22,xx2,yy2,zz2
common /ellip/ b1,c1,f1,g1,h1,d1,b2,c2,f2,g2,h2,p2,q2,r2,d2
end

这里你关心的是协会：您希望能够关联函数中的实体f与子程序中的那些condat。存储关联是实现此目的的一种方法，这就是公共块正在做的事情。

还有其他有用的关联形式。这些都是

• 使用关联
• 主办协会
• 论证关联

参数关联描述于哈拉尔德克尔的回答.

使用关联通过以下模块来实现

module global_variables
  implicit none     ! I'm guessing on declarations, but that's not important
  public   ! Which is the default
  real b1,c1,f1,g1,h1,d1,b2,c2,f2,g2,h2,p2,q2,r2,d2,xx2,yy2,zz2
  integer iab11,iab22
end module

subroutine condat(i,j)
  use global_variables   ! Those public things are use associated
  ...
end subroutine

function f(x)
  use global_variables   ! And the same entities are accessible here
  ...
end function

主机关联有权访问主机可访问的实体。这里的主机可以是一个模块或一个程序

module everything
  integer iab11,...
  real ...
 contains
  subroutine condat(i,j)
    ! iab11 available from the host module
  end subroutine

  function f(x)
    ! iab11 available from the host module
  end function
end module

甚至子程序本身

subroutine condat(i,j)
  integer iab11,...
  real ...
 contains
  function f(x)
    ! Host condat's iab11 is accessible here
  end function
 end subroutine