| 1 | 
mmazloff | 
1.1 | 
C $Header:  $ | 
| 2 | 
  | 
  | 
C $Name:  $ | 
| 3 | 
  | 
  | 
 | 
| 4 | 
  | 
  | 
C---------------------------------------- | 
| 5 | 
  | 
  | 
C subroutine BLING_READ_PICKUP | 
| 6 | 
  | 
  | 
C---------------------------------------- | 
| 7 | 
  | 
  | 
CADJ SUBROUTINE BLING_READ_PICKUP  INPUT  = 1,2,3 | 
| 8 | 
  | 
  | 
CADJ SUBROUTINE BLING_READ_PICKUP  OUTPUT = 1 | 
| 9 | 
  | 
  | 
 | 
| 10 | 
  | 
  | 
C---------------------------------------- | 
| 11 | 
mmazloff | 
1.2 | 
C subroutine TRACER_MIN_VAL | 
| 12 | 
mmazloff | 
1.1 | 
C---------------------------------------- | 
| 13 | 
mmazloff | 
1.2 | 
CADJ SUBROUTINE TRACER_MIN_VAL  INPUT  = 1,2 | 
| 14 | 
  | 
  | 
CADJ SUBROUTINE TRACER_MIN_VAL  OUTPUT =  | 
| 15 | 
mmazloff | 
1.1 | 
 |