tesis_uam/Codigos para el manejo de un reactor ... - cedip

12345678910111213141516171819202122232'4252627282s30313233343s3637383940414243444s464748495051523354555657$CONTROL NULISTC ROOTS: A CODE Tri CALCULATE THE ROOTS OF T:iE REACTIVITY EOüATIíJi\,C (S.5. FEH 24,L981)CDTMENSI~~~J ~d~(7)COMWPJ XLAM(6),BETA(6) ,XtP,FdGRUATA DATU/'tJ'/605 WRITE(6,lO)10FOHi4AT(/7Y, 'kilOT4 EL tJUVEH0 DE GHUP;J DE iJEUTROI"JES RETAHUAULC: '1RFIAr) (S, *I iJGH11FIiRMAT (I 5)WRITE(6,20)20FORMAT (7X, "ANOTTAfJTES DE DESINTEGRACION 'I,*"EMPEZANDO POR LANA:")READ (5,*) (XLAM( I H 121 F OR f.14 T ( b t 15 . 7 )fiRITE(6r¿?S)25FORMAT(ÍX," A LA FRACCIQN DE NEUTRONES RETARDADOS",*Ic PARA CADA G 'I 1REAE)(T,*? (BETAII)rf=lrNGRIWKI TE (6 30)30FORllAT(7X, 'ANUTA EL TIE:IPQ DE GEr!JEI4ACIOiI DE NE'JTtiUiJ: '1REAb(S,*) XLPWRITE (6,35135FORMAT(7X~"AMOTA O PARA CALCULAR LAS RAICES; 1 " I*"PARA CALCULAR LA REACTIVIDAOn)HEAL) (S, *) NXNRITE(6,SZ)52F~HtlAT(/,¿!OX,'DATOS DE ENTRADA YWRITE(6153) NDE S/iLIDA',/)53FQRIYAT(?X, "ELWRITE (6rS4)IMERQ DE GRUPOS DE MEUTWONES RETARDADOS ES:',Il54FORtiAT (?OX, 'LAMBDA', lox, 'BFTA')DO 56 I=l,rJSH5657),BETA(IIX,E11.41159WRITE (brhc?) THETA62FORtlAT (/, 7X, 'LA FR4CCIdF.l TOTAL DE PJEUTK$~:JE~ dETAHGAPnS =*,3E11.4)WRITE(b,43) XLP63FORMAT(7Xr'EL TIEMPO DE GENERACION DE NEUTR3Pd ES: ',7X,E11.4,/]IF(EJX.NE.1)GO TO 813600 FnRi.1AT (7X, "SE EVALUARAM LAS HAICES", /I'A R I TE ( 6 , b 0 1 )601 F OR PI A T I 7 X , I' SE CLILARA LA REACTIVIDAD:",/)823 WRITE (6,602)602 FOHi'iAT (7X, "TIIS DATOS StJN CDRRECTifS(S/N) 3")READ (5,603) DATIIJ603 FORMAT (AI)IF(DATIN.EQ,DATU) TU 605IF(NXoEQo1) GUT0Ct