31 Aug 94
100 FORMAT (I2)
IF (LIFT .EQ. 0) RETURN
Compute start time of lift based on 5 day placement intervals
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."
DO 20 I=1,NQ1
IF (TREL .LE. T1(I)) THEN
"Convert fluxes to units of days"
FLUX = Q1(I) * 24.
Heat generation is zero if relative time is past T1(NQ1)
PRINT 9000, CMNAME,LIFT,TIME,TREL,FLUX
CC 9000 FORMAT (' MATERIAL,LIFT,TIME,TREL,FLUX = ',A8,I4,3(1X,1PG12.4))