# GET the defined units for the third defined IMOORBIT PIDF sensor

# INITIALIZE the UDF common variables

UDFInits

# GET the key for the UDF hierarchy IMAGE IMAGE1 OA ORBIT IMOORBIT

set KeY [GetDataKey IMAGE IMAGE1 OA ORBIT IMOORBIT]

# OPEN and read the PIDF file

ReadPIDF $KeY 0 

# MAKE sure there are 3 sensors

if { $Pidf0(NSens) > 3 } {

# IDENTIFY the measurement

   puts stderr "Third PIDF sensor:"
   puts stderr "    Name:   [lindex $Pidf0(SenName) 2]"
   puts stderr "    Comp:   [lindex $Pidf0(SenComp) 2]"

# THESE are the units defined for this sensor

   set Units [lindex $Pidf0(SenUnits) 2] 

# THIS is the number of units defined for this sensor

   set nU [llength $Units] 
   puts stderr "    $nU units defined" 

# LOOP over the defined units

   for { set I 0 } { $I < $nU } { incr I } { 

# THIS is the unit number

       set uN [lindex $Units $I] 

# PRINT out some information

       puts stderr "    Unit $I: [lindex $Pidf0(UnitLDes) $uN] \
                                ([lindex $Pidf0(UnitLab) $uN])" 
   }
} else { puts stderr "Only $Pidf0(NSens) defined" }

>Third PIDF sensor:
>    Name:   GCI Satellite Pos: Z
>    Comp:   Z
>    2 units defined
>    Unit 0: Distance  (km)
>    Unit 1: Distance  (Re)