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