anchor.diff:        DATA  INKEYS / 4HEBRA, 4HINIT, 4HDONE /
      12 NQSTOR = -1
         JQSTOR = -99
  -      CALL VZERO (NQOFFT,66)
  +      CALL VZEROI (NQOFFT,66)
         CALL MZINCO (LIST)
         NQDCUT = 201
         NQWCUT = 500
  -      CALL UCOPY (INKEYS,MQKEYS,3)
  -      CALL VZERO (NQLN, 28)
  -      CALL VZERO (LQJZ, 16)
  -      CALL VZERO (NSTRIP, MAXFILES)
  +      CALL UCOPYI (INKEYS,MQKEYS,3)
  +      CALL VZEROI (NQLN, 28)
  +      CALL VZEROI (LQJZ, 16)
  +      CALL VZEROI (NSTRIP, MAXFILES)
         JQLEV = -1
         RZXIO(1) = 0.
         RZXIO(2) = 0.
  
positive.code:       EQUIVALENCE (JSTOV(1),IQUEST(31)), (JPV(1), IQUEST(41))
        DIMENSION NQGAPV(2)
        EQUIVALENCE (NQGAPV(1),NQGAPN)
        CALL VZERO (IQGAP,20)
     15 DO 17 J=1,6
     17 NGAPV(J) = 0
        IF (JQSTMV.LT.0) GO TO 19
  
negative.code: 
  *-------------------------------------------------------------------------------
  
        SUBROUTINE FZICV (MS,IRMT)
        COMMON /QUEST/ IQUEST(100)
        COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3)
       +,              MFOSAV(2),  JFOEND,JFOREP,JFOCUR,MFO(200)
        DIMENSION    MS(99), IRMT(99)
        DOUBLE PRECISION   THDB
        DIMENSION    THIS(2)
        EQUIVALENCE  (THDB,THIS)
  