Subroutine NOBANK

subroutine NOBANK

        ! Calls
    call KERROR

        ! Variables
    character (len=*) :: CNAME
    integer (kind=4) :: ITYPE
    character (len=80) :: MESSAGE

end subroutine NOBANK

Description of Variables

character (len=*) :: CNAME

integer (kind=4) :: ITYPE

character (len=80) :: MESSAGE