anchor.diff:     44 LNEW = IQGAP(2,JQGAPR)
         NSH = LNEW - LQRTA
         NW = LQTE+4 - LQRTA
  -      CALL UCOPY (LQ(LQRTA),LQ(LNEW),NW)
  +      CALL UCOPYI (LQ(LQRTA),LQ(LNEW),NW)
         GO TO 999
         END
   
  
positive.code:                        CALL UCOPY2(IQ(KQSP+LRIN+1),IQ(KQSP+LRIN+2),LREC)
                         IQ(KQSP+LRIN+1)=IDOUB1
                         NWFOAV=NL+1
                         CALL FZICV(IQ(KQSP+LRIN+1),V)
                         CALL UCOPY2(IQ(KQSP+LRIN+2),IQ(KQSP+LRIN+1),LREC)
                       ELSE
                         NWFOAV=NL
                         CALL FZICV(IQ(KQSP+LRIN+1),V)
                       ENDIF
                       IF(NWFOAV.GT.0.OR.IFOCON(1).LT.0)GO TO 95
                       IF(NWFOAV.LT.0)IDOUB1=IQ(KQSP+LRIN+NL)
                       IQUEST(1)=0
                    ELSE
                       CALL UCOPY(IQ(KQSP+LRIN+1),V(NP1+1),NL)
                    ENDIF
                    IQ(KQSP+LTOP+KIRIN)=IRIN
                 ELSE
  
negative.code:       EQUIVALENCE (JSTOV(1),IQUEST(31)), (JPV(1), IQUEST(41))
        DIMENSION NQGAPV(2)
        EQUIVALENCE (NQGAPV(1),NQGAPN)
        CALL VZEROI (IQGAP,20)
     15 DO 17 J=1,6
     17 NGAPV(J) = 0
        IF (JQSTMV.LT.0) GO TO 19
  