Subroutine DEBUG

subroutine DEBUG

        ! Variables
    integer (kind=4) :: IEVTYPE
    integer (kind=4) :: ICHAN
    integer (kind=4) :: IVERSION
    character (len=*) :: CNAME
    real (kind=4), dimension (1) :: VALUE
    integer (kind=4) :: INDEX

end subroutine DEBUG

Description of Variables

IEVTYPE

integer (kind=4) :: IEVTYPE

ICHAN

integer (kind=4) :: ICHAN

IVERSION

integer (kind=4) :: IVERSION

CNAME

character (len=*) :: CNAME

VALUE

real (kind=4), dimension (1) :: VALUE

INDEX

integer (kind=4) :: INDEX