C----------------------------------------
C subroutine BLING_READ_PICKUP
C----------------------------------------
CADJ SUBROUTINE BLING_READ_PICKUP  INPUT  = 1,2,3
CADJ SUBROUTINE BLING_READ_PICKUP  OUTPUT = 1
