Subroutine MY_SLOW

subroutine MY_SLOW

        ! Calls
    call KERROR
    call SLOW_CHAMBER
    call SLOW_DAQ
    call SLOW_EPICS
    call SLOW_GAS
    call SLOW_HV
    call SLOW_LAS
    call SLOW_NMR
    call SLOW_PBEAM
    call SLOW_POSTAMP
    call SLOW_SCALER
    call SLOW_SOLENOID
    call SLOW_UBEAM
    call SLOW_pEPICS
    call SLOW_uDEGRADER
    call SLOW_uEPICS

        ! Variables
    character (len=80) :: MESSAGE
    integer (kind=4) :: istatus
    integer (kind=4) :: ind
    integer (kind=4) :: indat
    integer (kind=4) :: blocat
    real :: aIntToFloat

end subroutine MY_SLOW

Description of Variables

MESSAGE

character (len=80) :: MESSAGE

istatus

integer (kind=4) :: istatus

ind

integer (kind=4) :: ind

indat

integer (kind=4) :: indat

blocat

integer (kind=4) :: blocat

aIntToFloat

real :: aIntToFloat