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
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