C	.....TRANS USED WITH REGRESSION SYSTEM.....
	SUBROUTINE TRANS
        COMMON IBUFF(255),DUMI(85),MANU,IBLK,CP,CV,CF
        COMMON/BLK1/VOLN(100),VOLX(100),FLON(110),FLOX(110),PRSN(100)
        COMMON/BLK2/ACCN(100),ACCX(100),PRSX(100)
        COMMON/BLK3/INEG,IPOS,IDIM,ITMP,IDIM1,IPAS,ISTOP,IREC
        COMMON/BLK4/HOLD(30),K,BUFF(1400),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