Program I1
PROGRAM I1
EXTERNAL FUN1
CALL ROMBRG(FUN1,0.,4380.,0.,1.E-7,PI1)
PVFH=9.077
PL=1000.
CH=3.4E-5
TS=120.
TM=6.4
TA=20.
TCINS=0.030
AT=8760
TGMTD=59.1608
A16=PVFH*PL*12.56637*TCINS*CH
RI1=A16*(((PI1*2.)*(TGMTD *2/(2*(TS-TA))))+((((TS+TA)/2)-TM)*AT))
PRINT 101,RI1
101 FORMAT(10X,E15.7)
STOP
END
91
Previous Page
