PROGRAM XTRANS
C
C     16 Dec 87. From FDAT, makes direct-access binary file UDAT.
C
      DIMENSION IDG(14),EDGEN(14),E(108),SCATCO(108),SCATIN(108),
     1 PHOT(108),PAIRAT(108),PAIREL(108),PHC(35,14) 
      CHARACTER ADG(14)*2
      OPEN (UNIT=7,FILE='FDAT')
      OPEN (UNIT=8,FILE='UDAT',FORM='UNFORMATTED',
     1 ACCESS='DIRECT',RECL=4740)
      MAXEP=0
      DO 10 I=1,14
      IDG(I)=0
      ADG(I)='AA'
      EDGEN(I)=0.0
      DO 10 M=1,35
   10 PHC(M,I)=0.0 
      DO 220 K=1,100
      READ (7,100) IZ,ATWT
  100 FORMAT(I6,F12.6)
      READ (7,110) MAXEDG,MAXE
  110 FORMAT(2I6)
      IF(MAXEDG)160,160,120
  120 READ (7,130) (IDG(I),I=1,MAXEDG)
  130 FORMAT(12I6)
      READ (7,140) (ADG(I),I=1,MAXEDG)
  140 FORMAT(14(1X,A2))
      READ (7,150) (EDGEN(I),I=1,MAXEDG)
  150 FORMAT(8F9.1)
  160 READ (7,170) (E(M),M=1,MAXE)
  170 FORMAT(1P6E13.6)
      READ (7,180) (SCATCO(M),M=1,MAXE)
  180 FORMAT(1P8E10.3)
      READ (7,180) (SCATIN(M),M=1,MAXE)
      READ (7,180) (PHOT(M),M=1,MAXE)
      READ (7,180) (PAIRAT(M),M=1,MAXE)
      READ (7,180) (PAIREL(M),M=1,MAXE)
      IF(MAXEDG)210,210,190
  190 READ (7,110) MAXEP
      DO 200 M=1,MAXEP
      READ (7,180) (PHC(M,I),I=1,MAXEDG)
  200 CONTINUE
  210 KR=K
      WRITE (8,REC=KR) IZ,ATWT,MAXEDG,MAXE,IDG,ADG,EDGEN,E,
     1 SCATCO,SCATIN,PHOT,PAIRAT,PAIREL,MAXEP,PHC
  220 CONTINUE
      STOP
      END