?? algor.for
字號:
C$DEBUG
C$LARGE
SUBROUTINE ALGOR(FIXED,IINCS,IITER,KRESL,
. MTOTV,NALGO,NTOTV) !(Page 210)
c******************************************************************
C
C*** THIS SUBROUTINE SETS EQUATION RESOLUTION INDEX,KREST
C
C******************************************************************
DIMENSION FIXED(MTOTV)
KRESL=2
IF(NALGO.EQ.1.AND.IINCS.EQ.1.AND.IITER.EQ.1) KRESL=1
IF(NALGO.EQ.2) KRESL=1
IF(NALGO.EQ.3.AND.IITER.EQ.1) KRESL=1
IF(NALGO.EQ.4.AND.IINCS.EQ.1.AND.IITER.EQ.1) KRESL=1
IF(NALGO.EQ.4.AND.IITER.EQ.2) KRESL=1
IF(IITER.EQ.1) RETURN
DO 100 ITOTV=1,NTOTV
FIXED(ITOTV)=0.0
100 CONTINUE
RETURN
END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -