3 SUBROUTINE xerrwd (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2)
64 DOUBLE PRECISION R1, R2
65 INTEGER NMES, NERR, LEVEL, NI, I1, I2, NR
70 INTEGER LUNIT, IXSAV, MESFLG
75 lunit = ixsav(1, 0, .
false.)
76 mesflg = ixsav(2, 0, .
false.)
77 IF (mesflg .EQ. 0) go
to 100
81 WRITE (lunit,10) msg(1:nmes)
83 IF (ni .EQ. 1)
WRITE (lunit, 20) i1
84 20
FORMAT(6x,
'In above message, I1 =',i10)
85 IF (ni .EQ. 2)
WRITE (lunit, 30) i1,i2
86 30
FORMAT(6x,
'In above message, I1 =',i10,3x,
'I2 =',i10)
87 IF (nr .EQ. 1)
WRITE (lunit, 40) r1
88 40
FORMAT(6x,
'In above message, R1 =',d21.13)
89 IF (nr .EQ. 2)
WRITE (lunit, 50) r1,r2
90 50
FORMAT(6x,
'In above, R1 =',d21.13,3x,
'R2 =',d21.13)
94 100
IF (level .NE. 2)
RETURN
subroutine xerrwd(MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2)
may be zero for pure relative error test tem the relative tolerance must be greater than or equal to