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 |
|
) |
| |