1c     program DRSMESS
2c>> 1998-11-02 DRSMESS Krogh  Typed all variables.
3c>> 1994-09-09 DRSMESS Krogh  Added CHGTYP code.
4c>> 1993-06-25 DRSMESS Krogh  Additions for Conversion to C.
5c>> 1992-03-24 DRSMESS Krogh -- Initial Code.
6c
7c--S replaces "?": DR?MESS, ?MESS
8c
9      integer          I, IDAT(3), ILOC(4), MACT(5), MACT1(3)
10      real             FDAT(2)
11      logical          LIN40
12c
13      integer MERET, MEEMES, MESTOP, MEELIN
14      parameter (MERET  =51)
15      parameter (MEEMES =52)
16      parameter (MESTOP =20)
17      parameter (MEELIN =14)
18      integer MLOC(4)
19c ********* Error message text ***************
20c[Last 2 letters of Param. name]  [Text generating message.]
21cAA DRSMESS$B
22cAB Description of error.  (With one real)  FDATA1 = $F.$E
23cAC Description of 2nd error.  (With no data)$E
24cAD Description of 3rd error.  (With one integer)  IDATA1 = $I.$E
25cAE Description of 4th error.  (With two integers and one real)$N
26c   IDATA1 = $I, IDATA2 = $I, FDATA2 = $F.$E
27      integer LTXTAA,LTXTAB,LTXTAC,LTXTAD,LTXTAE
28      parameter (LTXTAA=  1,LTXTAB= 10,LTXTAC= 64,LTXTAD=107,LTXTAE=168)
29      character MTXTAA(2) * (135)
30      data MTXTAA/'DRSMESS$BDescription of error.  (With one real)  FDAT
31     *A1 = $F.$EDescription of 2nd error.  (With no data)$EDescription o
32     *f 3rd error.  (W','ith one integer)  IDATA1 = $I.$EDescription of$
33     * 4th error.  (With two integers and one real)$NIDATA1 = $I, IDATA2
34     * = $I, FDATA2 = $F.$E '/
35c  --------- End of code generated by PMESS from DRSMESS.ERR -----------
36      data MLOC /LTXTAB,LTXTAC,LTXTAD,LTXTAE/
37c
38c                 1       2 3 4      5
39      data MACT / MEEMES,25,0,0, MERET /
40      data MACT1 / MEELIN, 40, MERET /
41      data FDAT / 1.7E-12, -12.3456789E0 /
42      data IDAT / 17, -178, 4 /
43      data ILOC / 1, 1, 2, 2 /
44c
45      LIN40 = .false.
46c                        Loop to print error messages.
47   10 do 100 I = 1, 4
48         MACT(3) = I
49         MACT(4) = MLOC(I)
50         call SMESS(MACT, MTXTAA, IDAT(ILOC(I)), FDAT(ILOC(I)))
51  100 continue
52      if (LIN40) stop
53c                        Change the line length to 40 and do it again.
54      call MESS(MACT1, MTXTAA, IDAT)
55      LIN40 = .true.
56      go to 10
57      end
58