有没有办法从字符变量（包含子程序的名称）而不是实际子程序的名称调用Fortran子程序

Question

我有一个Fortran子例程Sample。我在另一个程序中调用它。我正在寻找一种方法来使用字符变量来调用它，而不是像call sample()，而是像下面的

Program calculate
  character(97) :: ii='Sample'
  call ii() ! So it call Sample subroutine
End program

Subroutine Sample
  print 'something'
End Subroutine Sample