MINICERN/packlib/zebra/rz/rzver2.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/24 17:27:17  mclareni
   6 * Extend the include file cleanup to dzebra, rz and tq, and also add
   7 * dependencies in some cases.
   8 *
   9 * Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
  10 * Zebra
  11 *
  12 *
  13 #include "zebra/pilot.h"
  14       SUBROUTINE RZVER2(IW1,IW2,IRET)
  15 *
  16 *          Check if words between IW1 and IW2 are already used
  17 *
  18 #include "zebra/rzbmap.inc"
  19 *...............................................................
  20
  21 #include "zebra/q_jbyt.inc"
  22
  23       IRET=0
  24       IF(IW2.GT.32*KDMAX)GO TO 999
  25       IWORD1=(IW1-1)/32+1
  26       IWORDL=(IW2-1)/32+1
  27       IBIT1=MOD(IW1,32)
  28       IBIT2=MOD(IW2,32)
  29       IF(IBIT1.EQ.0)IBIT1=32
  30       IF(IBIT2.EQ.0)IBIT2=32
  31       IF(IWORD1.EQ.IWORDL)THEN
  32          NB=IBIT2-IBIT1+1
  33          JB1=JBYT(IDATA(IWORD1),IBIT1,NB)
  34          IF(JB1.EQ.0)GO TO 20
  35          CALL SBYT(0,IDATA(IWORD1),IBIT1,NB)
  36          GO TO 999
  37       ELSE
  38          NB=33-IBIT1
  39          JB1=JBYT(IDATA(IWORD1),IBIT1,NB)
  40          IF(JB1.EQ.0)GO TO 20
  41          CALL SBYT(0,IDATA(IWORD1),IBIT1,NB)
  42       ENDIF
  43       JB2=JBYT(IDATA(IWORDL),1,IBIT2)
  44       IF(JB2.EQ.0)GO TO 20
  45       CALL SBYT(0,IDATA(IWORDL),1,IBIT2)
  46       DO 10 I=IWORD1+1,IWORDL-1
  47          IF(IDATA(I).EQ.0)GO TO 20
  48          IDATA(I)=0
  49    10 CONTINUE
  50       GO TO 999
  51    20 IRET=1
  52   999 END