ETL 1110-2-365
31 Aug 94
100 FORMAT (I2)
IF (LIFT .EQ. 0) RETURN
C
C
Compute start time of lift based on 5 day placement intervals
C
START = FLOAT(LIFT-1) * 5.0
TREL = (TIME - START) * 24.
IF (TREL .LT. 0.0) RETURN
"TREL is the relative time of each lift in the analysis. START and TREL assume that concrete is placed at day
0 of the analysis."
C
C Find discrete flux value - no interpolation
C
DO 20 I=1,NQ1
IF (TREL .LE. T1(I)) THEN
"Convert fluxes to units of days"
FLUX = Q1(I) * 24.
GOTO 40
ENDIF
20 CONTINUE
C
C
Heat generation is zero if relative time is past T1(NQ1)
C
40 CONTINUE
CC
PRINT 9000, CMNAME,LIFT,TIME,TREL,FLUX
CC 9000 FORMAT (' MATERIAL,LIFT,TIME,TREL,FLUX = ',A8,I4,3(1X,1PG12.4))
RETURN
END
A3-4
Previous Page
