“…) COMMON I BLOCl I NRE,Nl,N2 COMMON I BLOC2 I ZF,GO,PMM,ROP,POROS,CP,U,DT,RG,CSP02 COMMON I BLOC3 I PT,TI,TM,TW,PEM,PEC,CTM,CTC,ASE COMMON I BLOC4 I BETA1,BETA2,BETA3,POXI,PAFI,YOXI,YAFI,YTI COMMON I BLOCS I S(8),EA(8),DELTAH(8},CA(20,20),CB(20,20) REAL ITEMP OPEN(UNIT=7 ,FILE= 'HT3AC01.DAD' ,STATUS='OLD'} OPEN(UNIT=8,FILE='HT3AC02.DAD',STATUS='OLD'*)NI,NRE,ZF,NS,EX,AMOR,TI,TW,TM,POXI,PAFI,PT READ(8,*)GO,PMM,ROP,POROS,BETA1,BETA2,BETA3,RG,CP,U,DT,CSP02DO 15 L= 1 , NRE READ(8,*)S(L},EA(L},DELTAH(L} 15 CONTINUE READ(8,*)PEM,PEC,CTM,CTC,ASE,YOXI,YAFI,YTI,YOXSI,YAFSI,YTSI ITEMP = 1H,7X,'Z',7X,'POX',7X,'PAF',7X,'TEMP') DO 131 J=l ,N2 POX(J} = POXI*Y(J} PAF(J) = POXI*Y(J+N2) TEMP(J) = TM*Y(J+2*N2) Z(J) = ZF*XX(J) WRITE(*,22)Z(J},POX(J),PAF(J),TEMP(J) 22 FORMAT(1H,3X,F5.2,3X,F8.6,3X,F8.6,3X,F7.2ENTRADA DO REATOR IMPLICIT REAL*8 (A-H,O-Z) DOUBLE PRECISION Y(200),F(200),CT(8),DELTAQ(8) COMMON I BLOCl I NRE,Nl,N2 COMMON I BLOC2 I ZF,GO,PMM,ROP,POROS,CP,U,DT,RG,CSP02 COMMON I BLOC3 I PT,TI,TM,TW,PEM,PEC,CTM,CTC,ASE COMMON I BLOC4 I BETA1,BETA2,BETA3,POXI,PAFI,YOXI,YAFI,YTI COMMON I BLOC5 I S(8),EA(8),DELTAH(8),CA(20,20),CB(20,20) GAMAl = GOI(PMM*PT*ROP*(l.-POROS)= S(L)*DEXP(-EA(L)I(RG*TM*Y(J+5*N2))) DELTAQ(L) = (-DELTAH(L)*ROP*(l.-POROS))I(GO*CP) 36 CONTINUE DENOM = (POXI*Y(J+3*N2)*(BETAl*CT(l)+BETA2*CT(2))+POXI*Y(J+4*N2)* $CT(3)*BETA3+CSP02) RMOX = ((CT(l)+CT(2))*CSP02*POXI*Y(J+3*N2))1DENOM RMAF = ((CT(3)*Y(J+4*N2)-CT(l)*Y(J+3*N2))*POXI*CSP02)IDENOM R10X = (CT(l)*CSP02*POXI*Y(J+3*N2))1DENOM R20X = (CT(2)*CSP02*POXI*Y(J+3*N2))1DENOM R3AF = (CT(3)*CSP02*POXI*Y(J+4*N2))1DENOM SUM = DELTAQ(l)*RlOX + DELTAQ(2)*R20X + DELTAQ(3)*R3AF F(J)=SMBOX-PEM*SMA20X-((PEM*ZF)I(POXI*GAMA1))*RMOX F(J+N2)=SMBAF-PEM*SMA2AF-((PEM*ZF)I(POXI*GAMA1))*RMAF F(J+2*N2)=SMBT-PEC*SMA2T-((PEC*ZF)ITM)*(GAMA2*(Y(J+2*N2)*TM-TW),N2 SMAJOX = SMA30X + CA(N2,I)*Y(I) SMA3AF = SMA3AF + CA(N2,I)*Y(I+N2) SMA3T = SMA3T + CA(N2,I)*Y(I+2*N2) COMMON I BLOC1 I NRE, N 1, N2 COMMON I BLOC2 I ZF,GO,PMM,ROP,POROS,CP,U,DT,RG,CSP02 COMMON I BLOC3 I PT, TI, TM, TW, PEM, PEC, CTM, CTC, ASE COMMON I BLOC4 I BETA1,BETA2,BETA3,POXI,PAFI,YOXI,YAFI,YTI COMMON I BLOC5 I S(8) ,EA(8) ,DELTAH(8) ,CA(20,20) ,CB(20,20) GAMA1 = GOI(PMM*PT*ROP*(1.-POROS)) GAMA2 = ( 4. *U) I ( GO*CP*DT) C FUNÇÕES PARA J=l ,NPC DO 34 J= 1 , NPC SMBOX = CB(J+1,1)*YOXI SMA20X = CA(J+l, 1 )*YOXI SMBAF = CB(J+1,1)*YAFI SMA2AF = CA(J+l,l)*YAFI SMBT = CB(J+l, 1 )*YTI SMA2T = CA(J+1,1)*YTI DO 35 I=l ,N1 SMBOX = SMBOX + CB(J+1,I+1)*Y(I) SMA20X = SMA20X + CA(J+1,I+1)*Y(I) SMBAF = SMBAF + CB(J+1,I+1)*Y(I+N1) SMA2AF = SMA2AF + CA(J+l,I+l)*Y(I+Nl) SMBT = SMBT + CB(J+1,I+l)*Y(I+2*Nl) SMA2T = SMA2T + CA(J+1,I+l)*Y(I+2*Nl) 35 CONTINUE DO 36 L=1 ,NRE CT(L) = S(L)*DEXP(-EA(L)I(RG*TM*Y(J+5*N1))) DELTAQ(L) = (-DELTAH(L)*ROP*(1.-POROS))I(GO*CP) 36 CONTINUE DENOM = (POXI*Y(J+3*N1)*(BETA1*CT(1)+BETA2*CT(2))+POXI*Y(J+4*N1)* $CT(3)*BETA3+CSP02) RMOX = ((CT(1)+CT(2))*CSP02*POXI*Y(J+3*N1))1DENOM RMAF = ((CT(3)*Y(J+4*Nl)-CT(l)*Y(J+3*Nl))*POXI*CSP02)1DENOM R10X = (CT(1)*CSP02*POXI*Y(J+3*Nl))IDENOM R20X = (CT(2)*CSP02*POXI*Y(J+3*Nl))IDENOM R3AF = (CT(3)*CSP02*POXI*Y(J+4*Nl))IDENOM SUM = DELTAQ(l)*RlOX + DELTAQ(2)*R20X + DELTAQ(3)*R3AF F(J)=SMBOX-PEM*SMA20X-((PEM*ZF)I(POXI*GAMA1))*RMOX F(J+N1)=SMBAF-PEM*SMA2AF-((PEM*ZF)I(POXI*GAMA1))*RMAF F(J+2*Nl)=SMBT-PEC*SMA2T-((PEC*ZF)ITM)*(GAMA2*(Y(J+2*Nl)*TM-TW)+ CA(N2,I+l)*Y(I+Nl) SMA3T = SMA3T + CA(N2,I+l)*Y(l+2*N1) 37 CONTINUE F ( N 1 ) = SMA30X F( 2*Nl) = SMA3AF F(3*Nl) = SMA3T RETURN END ======================================================================= PROGRAMA M3DRCM.FOR ======================================================================= IMPLICIT REAL*8 (A-H,O-Z) DOUBLE PRECISION YV(200) ,YN(200) ,F(200) ,ERR(200) ,A(200,201) DOUBLE PRECI SION POX( 30), POTA( 30), PFI ( 30), PAF ( 30), T( ...…”