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