ono noon non non
464
OUTPUT FILE
READ(*,8001) FILEN
8001 FORMAT(A)
WRITE(*,8001) FILEN
N0T=6
N0UT=2
OPEN(UNIT=NOT,FILE=FILEN,STATUS=NEW)
OPEN(UNIT=NOUT,FILE=1:BIS.TXT',STATUS=NEW)
ACCUR(l)=1.0E-04 BI
ACCUR(2)=1.0E-4 BI
ACCUR(3)1.0E-3 BI
ACC=ACCUR(1) BI
V2=l.414214 BI
WRITE(NOT,7001)
7001 FORMATC/,76(=),/,76 C ),/,2X,'DYNAFLECT EVALUATION OF LAYER
& MODULI IN ASPHALT PAVEMENT SYSTEMS ,/,76( ),/,76(=)///)
BI
READ TEXT AND DATE CARD BI
BI
WRITE(*,8002)
8002 FORMATC/,2X,ENTER NAME OF TEST SITE, MILEPOST AND TEST DATE ')
READ (* ,8003) SITE
8003 FORMAT(A80)
WRITE(*,8003)SITE
WRITE(NOT,8003) SITE
READ NUMBER OF SYSTEMS AND SET LOOP
READ DEFLECTIONS AND THICKNESSES
8004
8005
8006
8007
8008
NSYS = 1
ISMO = 0
IRED = 0
NPOS = 5
WRITE/*,8004)
FORMAT(/,2X,WHAT IS
READ(*,*)DISM(1)
WRITE/*,8005)
FORMATC/,2X,'WHAT IS
READ(*,*)DISM(2)
WRITE(*,8006)
FORMAT(/,2X,'WHAT IS
READ(*,*)DISM(3)
WRITE(*,8007)
FORMAT(/,2X,WHAT IS
READ(*,*)DISM(4)
WRITE/*,8008)
FORMAT(/,2X,'WHAT IS
READ(*,*)DISM(5)
SENSOR 1 DEFLECTION ,DISM(1),
SENSOR 2 DEFLECTION, DISM/2),
SENSOR 3 DEFLECTION, DISM/3),
SENSOR 4 DEFLECTION, DISM/4),
SENSOR 5 DEFLECTION, DISM/5),
IN MILS?)
IN MILS?)
IN MILS?)
IN MILS? )
IN MILS? )
BI
BI
BI
BI
CHECK DEFLECTION CRITERIA 1
IF/DISM/1).LT.0.56.OR.DISM/1).GT.2.92) WRITE(*,62)
IF(DISM/2).LT.0.56.OR.DISM/2).GT.2.92) WRITE/*,62)
IF(DISM/3).LT.0.27.OR.DISM/3).GT.2.07) WRITE/*,62)