Subroutine kerror
subroutine kerror
! Calls
call exec_on_exit
! Variables
integer (kind=4) :: maxmessage
integer (kind=4) :: icode
integer (kind=4) :: maxerr
integer (kind=4) :: imess
integer (kind=4) :: i
integer (kind=4) :: lm
integer (kind=4) :: Lensig
character (len=*) :: routine
character (len=*) :: message
character (len=*) :: msg2
character (len=256) :: message2
character, dimension (5) :: severity
logical (kind=4) :: suppress
logical (kind=4) :: evdata
logical (kind=4) :: log
logical (kind=4) :: fatal
integer (kind=4), dimension (maxmessage) :: numerr
integer (kind=4) :: nmessage
integer (kind=4) :: code
integer (kind=4), dimension (maxmessage) :: severr
character (len=256) :: blanks
character (len=256), dimension (maxmessage) :: errors
character (len=24) :: fdate
end subroutine kerror
Description of Variables
maxmessage
integer (kind=4) :: maxmessage
icode
integer (kind=4) :: icode
maxerr
integer (kind=4) :: maxerr
imess
integer (kind=4) :: imess
i
integer (kind=4) :: i
lm
integer (kind=4) :: lm
Lensig
integer (kind=4) :: Lensig
routine
character (len=*) :: routine
message
character (len=*) :: message
msg2
character (len=*) :: msg2
message2
character (len=256) :: message2
severity
character, dimension (5) :: severity
suppress
logical (kind=4) :: suppress
evdata
logical (kind=4) :: evdata
log
logical (kind=4) :: log
fatal
logical (kind=4) :: fatal
numerr
integer (kind=4), dimension (maxmessage) :: numerr
nmessage
integer (kind=4) :: nmessage
code
integer (kind=4) :: code
severr
integer (kind=4), dimension (maxmessage) :: severr
blanks
character (len=256) :: blanks
errors
character (len=256), dimension (maxmessage) :: errors
fdate
character (len=24) :: fdate