      SUBROUTINE A
B*CALL,FCOM
B*CALL,HRDCOM
      INCLUDE @FCOM.FTN@
P     INCLUDE @HRDCOM.FTN@
P     INTEGER PAD
      END
      SUBROUTINE B
C     DISPLAY X
B     DATA RMK/54B/
P     DATA NFIRST/0/
      DATA NCHB/0/
      NN=LCSL*NBIT
 511  FORMAT (9XI1)
      END
B     SUBROUTINE C
      I=C
      J=C
      K=C
      END
      SUBROUTINE D
P  30 CONTINUE
      IF (I)40,40,50
B  40 KOMP=I3(1)-I1(J)
      END
