Question

fortran语言中 call一个子例行子程序，这个子程序的哑元表的第一项是*100,这个*100是什么意思？

代码 call pim(*100,LAST,OUT(1))

Answer 1

这是带转折的 return，相关内容较多。

简单概述：
call pim( *100
语句A
100 语句B
subroutine pim( * .... )
if 条件
return
else
return 1
end if
end subrouinte pim
pim 子程序中，虚参有一个 *，代表return后的语句。
当 pim 条件成立时，return，回到主程序，执行语句A
当 pim 条件不成立时，return 1 ，返回主程序后，跳转到100语句执行，即直接执行语句B。

具体细节，可参考彭国伦的《Fortran95程序设计》，第213页。