1 SUBROUTINE MESSGE(ROUT,MESS,X1,X2,X3,X4,MSSCL) 2C 3C ----THIS SUBROUTINE WRITES TO UNIT 12 WHEN EXTRAPOLATION IS 4C REQUIRED IN THE TABLE LOOKUP SUBROUTINES. 5C 6 COMMON /OVERLY/ NN(5),NF,NM(2),IOVLY 7 DIMENSION ROUT(2),MESS(1),X1(1),X2(1),X3(1),X4(1),MSSCL(21), 8 1 RL(21),ML(13) 9 EQUIVALENCE (RL(1),ML(1)) 10 IF(NF .LT. 0) RETURN 11 NSTQ=MSSCL(3) 12 ML(1)=MSSCL(4) 13 NSTP=MSSCL(5) 14 ML(2)=MSSCL(6) 15 II=MSSCL(7) 16 RL(6)=X1(1) 17 RL(10)=X1(II) 18 IF(NSTP.EQ.1)GO TO 1000 19 ML(3)=MSSCL(10) 20 II=MSSCL(11) 21 RL(7)=X2(1) 22 RL(11)=X2(II) 23 IF(NSTP.EQ.2)GO TO 1000 24 ML(4)=MSSCL(14) 25 II=MSSCL(15) 26 RL(8)=X3(1) 27 RL(12)=X3(II) 28 IF(NSTP.EQ.3)GO TO 1000 29 ML(5)=MSSCL(18) 30 II=MSSCL(19) 31 RL(9)=X4(1) 32 RL(13)=X4(II) 33 1000 WRITE(12,1020) IOVLY,NSTQ,NSTP 34 WRITE(12,1030)MSSCL(1),MSSCL(2),ROUT(1),ROUT(2),(MESS(L),L=1,NSTQ) 35 DO 1010 L=1,NSTP 36 WRITE(12,1040)RL(L+1),RL(L+5),RL(L+9),MSSCL(4*L+4), 37 1 MSSCL(4*L+5) 38 1010 CONTINUE 39 WRITE(12,1050) RL(1) 40 1020 FORMAT(3I3) 41 1030 FORMAT(24A4) 42 1040 FORMAT(3E12.5,2I2) 43 1050 FORMAT(E12.5) 44 RETURN 45 END 46