C	.....TRANS USED WITH DSPL BRTHX ONLY
	SUBROUTINE TRANSX
        COMMON IBUFF(255),DUMI(85),MANU,IBLK
        COMMON/BLK1/VOLN(250),VOLX(250),FLON(260),FLOX(260),PRSN(250)
        COMMON/BLK2/PRSX(250)
        COMMON/BLK3/INEG,IPOS,IDIM,ITMP,IDIM1,IPAS,ISTOP,IREC
        COMMON/BLK4/HOLD(30),K,X,Y,APOS,J
C               TRANS
        DEFINE FILE 5(730,85,U,IREC)
        ISTOP=0
        DO 10 I=1,255
        IBUFF(I)=-99999
  10    CONTINUE
	IBLK=IBLK+1
        IREC=16*MANU+IBLK
        READ(5'IREC)(DUMI(I),I=1,85)
        CALL PFTRNS
        DO 20 I=1,255
        IF(IBUFF(I).EQ.-99999)RETURN
	IF(MOD(I,3).EQ.0)GO TO 18
	IBUFF(I)=-1*IBUFF(I)
  18	ISTOP=ISTOP+1
  20    CONTINUE
        RETURN
        END