调用子程序的返回值

gengyan123456

主程序中CALL MULT22(HM1,BL77,HM7,NN,NN2,NG,2000,2000,4000) ，调用的子程序为：SUBROUTINE MULT22(X,Y,Z,N1,N2,N3,M1,M3,M5)，那么调用子程序后只返回HM1,BL77,HM7,NN,NN2,NG这几个值吗？

gengyan123456

chuxf 发表于 2014-7-16 20:03
NM 是通过 common 获得的，不一定在主程序里，只要使用了common的程序单元，都存在。（相同的拷贝） ...

哦，明白了，我是一个初学者，以后还请大神多多指点，谢谢了

楚香饭

gengyan123456 发表于 2014-7-16 19:16
谢谢！那你可不可以帮我看一下这个程序
SUBROUTINE MATRIX(norder)
      implicit real*8 (a-h,o-z)

NM 是通过 common 获得的，不一定在主程序里，只要使用了common的程序单元，都存在。（相同的拷贝）

楚香饭

程序单元之间共享数据，一般有几种方法：
1.实参虚参对应
2.common（不推荐）
3.module（推荐）
4.文件（极其大量数据）

既然你使用了实参虚参对应，就不必使用 common 了。或者你使用 common，而不要使用实参虚参对应。

gengyan123456

chuxf 发表于 2014-7-16 18:57
虚参的数值可以改变，同时会影响实参。但通常，这种情况不叫“返回值”，以便与 function 相区别。 ...

还是因为COMMON给它定义了全局变量，所以这个值继承了主程序里的值，执行完之后是变回主程序里的值，还是在主程序里用在子程序里执行后的值啊？

gengyan123456

chuxf 发表于 2014-7-16 18:57
虚参的数值可以改变，同时会影响实参。但通常，这种情况不叫“返回值”，以便与 function 相区别。 ...

谢谢！那你可不可以帮我看一下这个程序
SUBROUTINE MATRIX(norder)
      implicit real*8 (a-h,o-z)
      COMMON NG,NM,NM1,NNG,NN,NMS,BA,BB,NSVC,NMG,NTCSC,NMGS
      COMMON/COMC/NGIN(165),NGOUT(165),NMIN(420),NMOUT(420),NMM(420,3)
     +        /COMD/BK(420),BK1(165),BK2(165),TA(165),TB(165),NPSS(10,10)
        COMMON/PGV/PFSV(9,6),GBII(29,4),GBIJ(50,4),VGBI(28,7)
        COMMON/SVTC/KSVC(3,4),SVC(3),KTCSC(3,4),TCSC(3,2),
     1             NDSV(3,11),NDTC(3,11)
      real*8 D1(300,300),BL3(2000,3),BL7(2000,3),HL9(20000,3),
     1           DL7(6000,3),YC(2000,3),Y0(11,3)
      real*8 D2(210,210),HM1(2000,3),BL77(2000,3),HM7(4000,3)
      WRITE(3,*) NG,NM,NM1,NNG,NN,NMS,BA,BB
      OPEN(9,FILE='DVDX.DAT')
      DO 8 I=1,NM
        NMM(I,1)=0
        NMM(I,2)=0
8     CONTINUE
      Y0(1,1)=0.D0
      Y0(1,3)=0.D0
      Y0(1,2)=NNG+1
      DO 18 I=1,NNG
          NI=NN+NNG+I
          II=I*100
为什么有的参数在这里没有赋值还用了呢？如NM的值，它是主程序里的值吗？

楚香饭

虚参的数值可以改变，同时会影响实参。但通常，这种情况不叫“返回值”，以便与 function 相区别。

安靖

主程序中的参数也就HM1,BL77,HM7,NN,NN2,NG这几个
你觉得还要返回哪些值呢？