Subroutine SLOW_SCALER

subroutine SLOW_SCALER

        ! Calls
    call BAD_SC_VERSION
    call NOBANK
    call USER_SLOW

        ! Variables
    integer (kind=4) :: istatus
    integer (kind=4) :: ind
    integer (kind=4) :: indat
    integer (kind=4) :: blocat
    integer (kind=4) :: IVERSION
    integer (kind=4) :: ICHAN
    integer (kind=4) :: I

end subroutine SLOW_SCALER

Description of Variables

istatus

integer (kind=4) :: istatus

ind

integer (kind=4) :: ind

indat

integer (kind=4) :: indat

blocat

integer (kind=4) :: blocat

IVERSION

integer (kind=4) :: IVERSION

ICHAN

integer (kind=4) :: ICHAN

I

integer (kind=4) :: I