Go to the source code of this file.
|
subroutine | xerrwd (MSG, NMES, NERR, LEVEL, NI, I1, I2, NR, R1, R2) |
|
◆ xerrwd()
subroutine xerrwd |
( |
character*(*) |
MSG, |
|
|
integer |
NMES, |
|
|
integer |
NERR, |
|
|
integer |
LEVEL, |
|
|
integer |
NI, |
|
|
integer |
I1, |
|
|
integer |
I2, |
|
|
integer |
NR, |
|
|
double precision |
R1, |
|
|
double precision |
R2 |
|
) |
| |