抽一段东西放入子程序,例如 c=a+b:PROGRAM abcINTEGER*4 a,b,c....CALL f1(3,4,c) // 调用子程序f1() ....END ! 主程序结束 SUBROUTINE f1(a,b,c)INTEGER*4 a,b,cc = a + breturnEND ! 子程序f1() 结束