|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
x
如下两组程序在功能上是不是一样的啊?如果不一样,第二组应该怎么修改呢,谢谢了。
(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 |
|