45 IF (n.LT.1 .OR. n.GT.5)
THEN
46 WRITE (xern1,
'(I8)') n
47 CALL
xermsg(
'SLATEC',
'XSETUA',
48 *
'INVALID NUMBER OF UNITS, N = ' // xern1, 1, 2)
subroutine xsetua(IUNITA, N)
std::string dimension(void) const
subroutine xermsg(LIBRAR, SUBROU, MESSG, NERR, LEVEL)
void index(const T *src, T *dest) const
function j4save(IWHICH, IVALUE, ISET)