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