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