SUBROUTINE WRCD(OM,LALO,FAK,ICHAN)
      DIMENSION OM(344),LALO(344,2),IBAD(17)
      DATA IBAD/9,12,15,33,63,182,183,209,247,248,253,264,274,295
     *,297,299,300/
      DO 10 ICD=1,344
      IFLAG=0
      DO 9 J=1,17
      IF (ICD.EQ.IBAD(J)) IFLAG=1
9     CONTINUE
      IF (IFLAG.EQ.1) GO TO 10
      IOM=FAK*OM(ICD)
      WRITE(ICHAN,100)IOM,LALO(ICD,1),LALO(ICD,2)
10    CONTINUE
100   FORMAT(3I8)
      RETURN
      END