subroutine BAD_SC_CHAN ! Calls call KERROR ! Variables integer (kind=4) :: ICHAN integer (kind=4) :: ITYPE character (len=80) :: MESSAGE end subroutine BAD_SC_CHAN
integer (kind=4) :: ICHAN
integer (kind=4) :: ITYPE
character (len=80) :: MESSAGE