anchor.diff:            NQIOCH(1) = LQ(KQS+IQLN)
             GO TO 49
           ELSE
  -          CALL UCOPY (LQ(KQS+IQLN),NQIOCH,NQNIO+1)
  +          CALL UCOPYI (LQ(KQS+IQLN),NQIOCH,NQNIO+1)
             NQIOSV(1) = 0
             GO TO 49
           ENDIF
  
positive.code:       ENDIF
        IQUEST(14)=IDTIME
        IQUEST(12)=IDNW
        IF(IOPTN.NE.0)CALL UCOPY(IQK ,IQUEST(41),10)
        IF(IOPTS.NE.0)CALL UCOPY(IQKS,IQUEST(20),10)
    99  RETURN
        END
  
  
negative.code:       IFOCON(1) = -2
        IFOCON(2) = JMT
        IFOCON(3) = NWDO
        IRMT(JMT) = 0
        GO TO 801
    501 CONTINUE
        CALL VXINVC (MS(JMS+1),IRMT(JMT+1),NWDO)
        JMT = JMT + NWDO
        JMS = JMS + NWDO
        GO TO 801
    301 CONTINUE
    201 CONTINUE
    101 CONTINUE
        CALL UCOPYI (MS(JMS+1),IRMT(JMT+1),NWDO)
        JMT = JMT + NWDO
        JMS = JMS + NWDO
    801 NWFORE = NWFOTT - JMT
  