subroutine SLOW_VALVE_FILL
        ! Calls
    call USER_SLOW
        ! Variables
    integer (kind=4) :: ICHAN
    integer (kind=4) :: IVERSION
    integer (kind=4), dimension  (*) :: IVEC
    integer (kind=4) :: I
end subroutine SLOW_VALVE_FILL
integer (kind=4) :: ICHAN
integer (kind=4) :: IVERSION
integer (kind=4), dimension (*) :: IVEC
integer (kind=4) :: I