algor.for

来自「本程序是D.R.J.OWEN主编的FINITE ELEMENTS IN PLAS」· FOR 代码 · 共 22 行

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