C---------------------------------------- C subroutine read_pickup C---------------------------------------- CADJ SUBROUTINE read_pickup INPUT = 1,2 CADJ SUBROUTINE read_pickup OUTPUT = CADJ SUBROUTINE read_pickup DEPEND = 1,2 CADJ SUBROUTINE read_pickup REQUIRED C---------------------------------------- C subroutine do_write_pickup C---------------------------------------- CADJ SUBROUTINE do_write_pickup INPUT = 1,2,3,4 CADJ SUBROUTINE do_write_pickup OUTPUT = CADJ SUBROUTINE do_write_pickup DEPEND = 1,2,3,4 CADJ SUBROUTINE do_write_pickup REQUIRED C---------------------------------------- C subroutine write_pickup C---------------------------------------- CADJ SUBROUTINE write_pickup INPUT = 1,2,3,4 CADJ SUBROUTINE write_pickup OUTPUT = CADJ SUBROUTINE write_pickup DEPEND = 1,2,3,4 CADJ SUBROUTINE write_pickup REQUIRED C---------------------------------------- C subroutine packages_write_pickup C---------------------------------------- CADJ SUBROUTINE packages_write_pickup INPUT = 1,2,3,4 CADJ SUBROUTINE packages_write_pickup OUTPUT = CADJ SUBROUTINE packages_write_pickup DEPEND = 1,2,3,4 CADJ SUBROUTINE packages_write_pickup REQUIRED