SUBROUTINE INITAL INCLUDE 'status' INCLUDE 'modelc' DOUBLE PRECISION VALALL,VALUE INTEGER NPARM,I,J,RMOD 5 CALL GETCMD IF (WORDS(1).EQ.'ALL') THEN INDENT=3 VALALL=VALUE(WORDS(3)) DO 10 I=1,NPAR 10 PAR(I)=VALALL ELSE IF (WORDS(1)(1:1).EQ.'S') THEN INDENT=3 I=NPARM(WORDS(1)) IF (point(I).GT.0) THEN PAR(POINT(I))=VALUE(WORDS(3)) ELSE CALL ERROR ('Attempt to assign value to fixed parameter'// 1 ' or bad index.') ENDIF ELSE IF (WORDS(1).EQ.'RETAIN') THEN IF (SIMULT) THEN CALL LINCHK(2) WRITE(UNIT=SYSOUT,FMT='(/5X,A)') 1 'RETAIN statement not valid for PROC SIMULATE usage.' ELSE IF (MODNUM.EQ.1) THEN WRITE(UNIT=SYSOUT,FMT='(6X,A)') 1 'ERROR on RETAIN statement -- No previous models to get' 2 //' initial values from.' DO 15 I=1,NPAR 15 PAR(I)=0.5 ELSE J=2 IF (WORDS(J).EQ.'=') J=3 RMOD=0 DO 20 I=1,MODNUM-1 IF (WORDS(J).EQ.MODNAM(I)) RMOD=I 20 CONTINUE IF (RMOD.EQ.0) THEN WRITE(UNIT=SYSOUT,FMT='(6X,A)') 1 'ERROR ON RETAIN STATEMENT -- PREVIOUS MODEL NAMED ' 2 //'WAS NOT FOUND.' WRITE(UNIT=SYSOUT,FMT='(6X,A)') 1 'MODEL ESTIMATES FROM LAST MODEL WILL BE USED' READ(UNIT=SYSTP2,REC=MODNUM-1,ERR=30) (PAR(I),I=1,NPAR) ELSE READ(UNIT=SYSTP2,REC=RMOD,ERR=30) (PAR(I),I=1,NPAR) ENDIF ENDIF ELSE IF (WORDS(1).EQ. 'PROC' .OR. WORDS(1).EQ.'CONSTRAINT') THEN RETURN ELSE CALL ERROR ('Unrecognized command after PROC ESTIMATE.') RETURN ENDIF GO TO 5 30 CALL ERROR('Attempt to read direct access file failed.') RETURN END