SUBROUTINE ZONES_TO_TP ( ZONES, NZONES, IDX_TP, NTP )
Argument Definitions (+ indicates altered content)
CHARACTER*4        ZONES(*)
INTEGER           +IDX_TP(*), +NTP,        NZONES
Description
convert CIRAF zones to Test Points
Source file:zones.f
Local Variables (+ indicates altered content)
CHARACTER*4       +ZONE
INTEGER           +I,         +IZ
Referenced Common Block Variables (+ indicates altered content)
CCIRAF             CHARACTER*4        CIRAF(911)
CCIRAF             INTEGER            NCIRAF_TP

SUBROUTINE PARSE_ZONES ( CIRAFZ, ZONES, NZONES )
Argument Definitions (+ indicates altered content)
CHARACTER*30       CIRAFZ
CHARACTER*4        ZONES(*)
INTEGER           +NZONES
Description
parse the CIRAF zone field into its parts
Source file:zones.f
External Functions and Subroutines Called
INTEGER            LENCHAR
SUBROUTINE         PZONES
Local Variables (+ indicates altered content)
CHARACTER*31      +TEMPZ
INTEGER           +I,         +LAST,      +NCHZ

SUBROUTINE PZONES ( ALF, NCH, ZONES, NZONES )
Argument Definitions (+ indicates altered content)
CHARACTER*(*)      ALF
CHARACTER*4       +ZONES(*)
INTEGER            NCH,       +NZONES
Source file:zones.f
Intrinsic Functions Called
INTEGER            INDEX
Local Variables (+ indicates altered content)
CHARACTER         +ICH
CHARACTER*2       +NUMB,      +NUMS(2),   +QUAD
INTEGER           +I,         +INUM,      +IZ,        +IZ1
INTEGER           +IZ2,       +N(2),      +NN,        +NNUMB
INTEGER           +NQUAD