这样的DO循环在GROUND里如何实现？谢谢！

ingrid

我现在自己手写ground，遇到这样一个循环：
DO 2222 L=1,4

C      Special calls name: SC0180                                             
      IF(ISTEP.GE.1       .AND.ISTEP.LE.LSTEP   ) THEN                          
       DO 19180  IZZ=1       ,NZ                                                
       LFDC2   =ABS(ANYZ(INAME(';DC2    ';),IZZ))                                   
       LFDC1 =ABS(ANYZ(INAME(';DC1   ';),IZZ))
       LFCI =ABS(ANYZ(INAME(';CI   ';),IZZ))                                          
       DO 19180  IX=1       ,NX                                                  
        IADD=NY*(IX-1)                                                         
       DO 19180  IY=1       ,NY                                                  
        I=IY+IADD                                                               
       L0DC2  =LFDC2  +I                                                         
       L0DC1 =LFDC1 +I
       L0CI =LFCI +I                                                              
19180 F(L0CI    )=F(L0CI)
      ENDIF
      Call Dec2(RAOS,CI,CRI,MNI,SII,NII,TT,WMI,QO2T,QO2S,Qsub,
     1                 DC2,DC2T,DC2S)
      IF(F(L0CI).GT.0.40.OR.F(L0DC1).GT.F(L0DC2))THEN
      Call Eqt1(RAOS,RAOT,RACO,Pco,CI,CRI,MNI,SII,NII,CROI,MNOI,
     1     SIOI,FEOI,ALOI,CAOI,MGOI,TT,WMI,WSI,QO2S,QO2T,Qsub,
     1    Xc,Xcr,Xmn,Xsi,dC1,dC1t,dC1s,dCr,dMn,dSi,DTT,Qlos,Q7)
C      Special calls name: SC0160                                             
      IF(ISTEP.GE.1       .AND.ISTEP.LE.LSTEP   ) THEN                          
       DO 19160  IZZ=1       ,NZ                                                
       LFDC   =ABS(ANYZ(INAME(';DC    ';),IZZ))                                   
       LFDC1 =ABS(ANYZ(INAME(';DC1   ';),IZZ))                                          
       DO 19160  IX=1       ,NX                                                  
        IADD=NY*(IX-1)                                                         
       DO 19160  IY=1       ,NY                                                  
        I=IY+IADD                                                               
       L0DC  =LFDC  +I                                                         
       L0DC1 =LFDC1 +I                                                               
19160 F(L0DC    )=F(L0DC1)
      ENDIF
      ELSE
      Call Eqt2(RAOS,RAOT,RACO,CI,CRI,MNI,SII,NII,CROI,MNOI,
     1     SIOI,FEOI,ALOI,CAOI,MGOI,TT,WMI,WSI,QO2S,QO2T,QSUB,
     1    dC2,Xc,Xcr,Xmn,Xsi,dCr,dMn,dSi,DTT,Qlos,Q7)
C      Special calls name: SC0182                                             
      IF(ISTEP.GE.1       .AND.ISTEP.LE.LSTEP   ) THEN                          
       DO 19182  IZZ=1       ,NZ                                                
       LFDC   =ABS(ANYZ(INAME(';DC    ';),IZZ))                                   
       LFDC2 =ABS(ANYZ(INAME(';DC2   ';),IZZ))                                          
       DO 19182  IX=1       ,NX                                                  
        IADD=NY*(IX-1)                                                         
       DO 19182  IY=1       ,NY                                                  
        I=IY+IADD                                                               
       L0DC  =LFDC  +I                                                         
       L0DC2 =LFDC2 +I                                                               
19182 F(L0DC    )=F(L0DC2)                                                
      ENDIF
      ENDIF
C      Special calls name: SC0159                                             
      IF(ISTEP.GE.1       .AND.ISTEP.LE.LSTEP    ) THEN                          
       DO 19159 IZZ=1       ,NZ                                                
       LFDC   =ABS(ANYZ(INAME(';DC    ';),IZZ))                  
       DO 19159 IX=1       ,NX                                                  
        IADD=NY*(IX-1)                                                         
       DO 19159 IY=1       ,NY
        I=IY+IADD                                                               
       L0DC  =LFDC  +I                                                            
      IF(L.EQ.1)THEN
      YU1=F(L0DC)
      ELSEIF(L.EQ.2)THEN
      YU2=F(L0DC)
      ELSEIF(L.EQ.3)THEN
      YU3=F(L0DC)
      ELSE
      YU4=F(L0DC)
      ENDIF
19159 CONTINUE
      ENDIF

2222  CONTINUE

说明中DO LOOPS结构为 DO <DO loop counter>=<low value>,<high value>,[<increment>]， 而<DO loop counter>不能自己定义，只能是II,JJ等，这个好像是跟位置有关的循环，而这里的L是自己定义的，跟这个还不一样。
请各位帮帮我！

ingrid

昨晚已经解决，呵呵！

phoenics

祝贺你