C               MAIN
        COMMON IBUFF(255),DUMI(85),MANU,IBLK,CP,CV,CF
        COMMON/BLK1/VOLN(250),VOLX(250),FLON(260),FLOX(260),PRSN(250)
        COMMON/BLK2/ACCN(250),ACCX(250),PRSX(250)
        COMMON/BLK3/INEG,IPOS,IDIM,ITMP,IDIM1,IPAS,ISTOP,IREC
        COMMON/BLK4/HOLD(30),K,X,Y,APOS,J
	COMMON/BLK5/AMAT(5,5),COEF(4),COV(5,5),COR(5,5),A21(4)
	COMMON/BLK6/SD(5),A12(4),CEPT,DET,EPS,SX(5),SXY(5),SY,RATE,IBR
	IBR=0
        IBLK=0
        IPAS=0
  10    WRITE(4,20)
  20	FORMAT('  MANU,RATE,CP,CV,CF',$)
	READ(4,30)MANU,RATE,CP,CV,CF
  30    FORMAT(I2,4(1X,E13.4))
  40	CALL BRTH
	CALL DSPL
	IF(IPOS.EQ.0)GO TO 100
	CALL ACCEL(1,FLON,ACCN,ITMP)
	CALL ACCEL(2,FLOX,ACCX,IDIM)
	CALL REGRS(PRSN,VOLN,FLON,ACCN,ITMP)
	CALL SIMUL(4,EPS,0)
	CALL PRIN
	CALL REGRS(PRSX,VOLX,FLOX,ACCX,IDIM)
	CALL SIMUL(4,EPS,0)
	CALL PRIN
  100	IF(IBLK.LT.16)GO TO 40
        STOP
        END