191           INTEGER :: IERR, CPT  local
200           CPT = 1
203           DO WHILE ( ( CPT .LT. POS ) .AND.
207               CPT = CPT + 1
314           INTEGER :: CPT  local
323           CPT = 1
325           DO WHILE ( ( CPT .LT. POS ) .AND. ( associated ( AUX ) ) )
326               CPT = CPT + 1
346           INTEGER :: CPT  local
351           CPT = 1
354      &               ( CPT .LT. POS ) )
355               CPT = CPT + 1
394           INTEGER :: CPT  local
399           CPT = 1
403               CPT = CPT + 1
424               POS = CPT
705           INTEGER :: IERR, CPT  local
714           CPT = 1
717           DO WHILE ( ( CPT .LT. POS ) .AND.
721               CPT = CPT + 1
828           INTEGER :: CPT  local
837           CPT = 1
839           DO WHILE ( ( CPT .LT. POS ) .AND. ( associated ( AUX ) ) )
840               CPT = CPT + 1
860           INTEGER :: CPT  local
865           CPT = 1
868      &               ( CPT .LT. POS ) )
869               CPT = CPT + 1
908           INTEGER :: CPT  local
913           CPT = 1
917               CPT = CPT + 1
938               POS = CPT