Lines Matching refs:LUNIT

1240       INTEGER LUNIT, IXSAV, MESFLG  local
1245       LUNIT = IXSAV (1, 0, .FALSE.)
1251       WRITE (LUNIT,10)  MSG
1253       IF (NI .EQ. 1) WRITE (LUNIT, 20) I1
1255       IF (NI .EQ. 2) WRITE (LUNIT, 30) I1,I2
1257       IF (NR .EQ. 1) WRITE (LUNIT, 40) R1
1259       IF (NR .EQ. 2) WRITE (LUNIT, 50) R1,R2
1386       INTEGER IUMACH, LUNIT, MESFLG  local
1391       SAVE LUNIT, MESFLG
1392       DATA LUNIT/-1/, MESFLG/1/
1396         IF (LUNIT .EQ. -1) LUNIT = IUMACH()
1397         IXSAV = LUNIT
1398         IF (ISET) LUNIT = IVALUE