2 SUBROUTINE xersve (LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL,
62 CHARACTER*(*) LIBRAR, SUBROU, MESSG
63 CHARACTER*8 LIBTAB(lentab), SUBTAB(lentab), LIB, SUB
64 CHARACTER*20 MESTAB(lentab), MES
65 dimension nertab(lentab), levtab(lentab), kount(lentab)
66 SAVE libtab, subtab, mestab, nertab, levtab, kount, kountx, nmsg
67 DATA kountx/0/, nmsg/0/
81 IF (iunit.EQ.0) iunit = i1mach(4)
90 WRITE (iunit,9010) libtab(i), subtab(i), mestab(i),
91 * nertab(i),levtab(i),kount(i)
96 IF (kountx.NE.0)
WRITE (iunit,9020) kountx
116 IF (lib.EQ.libtab(i) .AND. sub.EQ.subtab(i) .AND.
117 * mes.EQ.mestab(i) .AND. nerr.EQ.nertab(i) .AND.
118 * level.EQ.levtab(i))
THEN
119 kount(i) = kount(i) + 1
125 IF (nmsg.LT.lentab)
THEN
149 9000
FORMAT (
'0 ERROR MESSAGE SUMMARY' /
150 +
' LIBRARY SUBROUTINE MESSAGE START NERR',
152 9010
FORMAT (1x,a,3x,a,3x,a,3i10)
153 9020
FORMAT (
'0OTHER ERRORS NOT INDIVIDUALLY TABULATED = ', i10)
std::string dimension(void) const
subroutine xersve(LIBRAR, SUBROU, MESSG, KFLAG, NERR, LEVEL, ICOUNT)
subroutine xgetua(IUNITA, N)