ETL 1110-2-365
31 Aug 94
DATA Q/0.00716817,0.01285477,0.01651029,0.01342255,0.00867982,
$
0.00579574,.00414259,0.00369022,0.00264052,0.00238157,
$
0.00164695,0.00158670,0.00108267,0.00083101,0.00076965,
$
0.00067882,0.00051608,0.00057410,0.00043135,0.00023181/
"The card which elements are included into the model at which time. In this case, elements up through element
544 are included in the model at time 0.0. The next 96 elements are not included for 10 more days and the 96
elements after that are not included until 20 days later. This arrangement is good only for elements that are
sequentially ordered in the placement schedule."
DATA STTIME/544*0.,96*10.,96*20./
C
C
**************
C
ENTIME = END OF RELATIVE HEAT GENERATION TIME + SMALL TOLERANCE
C
C
NQ
= NO. OF HEAT GENERATION RATE POINTS
C
C
T
= RELATIVE HEAT GENERATION TIME POINTS
C
C
Q
= HEAT GENERATION POINT
C
C
STTIME = VECTOR CONTAINING PLACEMENT TIME FOR EACH ELEMENT
C
C
= HEAT GENERATION RATE RETURNED TO PROGRAM
C
C
C
********
"TREL is the relative time in the analysis for each lift."
TREL = TIME - STTIME(NOEL)
END = ENTIME
IF( TREL.GT.0.0.AND.TREL.LT.END ) GO TO 10
FLUX = 0.0
RETURN
C
10 CONTINUE
FLUX = 0.0
DO 20 I=1,NQ
J=I
TD = T(I)
IF( TREL.LE.TD ) GO TO 30
20 CONTINUE
C
WRITE(6,35) KSTEP,KINC,TIME,NOEL
35 FORMAT(/,' WARNING - PASSED THROUGH DFLUX WITHOUT ASSIGNING',
&
/,'
FLUX. STEP =',I5,' INC =',I5,
&
/,'
TIME =',F12.2,' ELEMENT =',I5)
RETURN
"Flux value is converted from units of hours to units of days."
30 FLUX=Q(J)*24.0
C
WRITE(6,99) FLUX,TIME,TEMP,KSTEP,KINC,NOEL,NPT
A3-2
Previous Page
