[求助]高手指点一下

pharaoh

如下两组程序在功能上是不是一样的啊？如果不一样，第二组应该怎么修改呢，谢谢了。
（1）
C      Property name: PRPT01                                                   
      IF(ISTEP.GE.1       .AND.ISTEP.LE.LSTEP   ) THEN                          
      IF(IZ.GE.1       .AND.IZ.LE.NZ      ) THEN                                
       LFDEN1 =L0F(AUX(DEN1  ))                                                
       DO 90101 IX=IXF     ,IXL                                                
        IADD=NY*(IX-1)                                                         
       DO 90101 IY=IYF     ,IYL                                                
        I=IY+IADD                                                               
       L0DEN1=LFDEN1+I                                                         
90101 F(L0DEN1  )=1                                                            
      ENDIF                                                                     
      ENDIF                                                                     
      RETURN                                                                    
   92 CONTINUE
（2）
C      Property name: PRPT01
      IF(RHO1.EQ.GRND) THEN
      CALL FN0(DEN1,1)                                                   
                                       
      ENDIF                                                                     
      RETURN                                                                    
   92
CONTINUE