subroutine SLOW_PACTRL_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_PACTRL_FILL
integer (kind=4) :: ICHAN
integer (kind=4) :: IVERSION
integer (kind=4), dimension (*) :: IVEC
integer (kind=4) :: I