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