SYNSPEC54.F 提取摘要 ============================================================ 源文件: tlusty/tlusty208.f 总单元数: 304 总行数: 50011 名称 类型 文件 行数 ------------------------------------------------------------ TLUSTY PROGRAM tlusty.f 61 _UNNAMED_BLOCK_DATA_ BLOCK DATA _unnamed_block_data_.f 40 START SUBROUTINE start.f 18 INITIA SUBROUTINE initia.f 879 RDATA SUBROUTINE rdata.f 628 NSTPAR SUBROUTINE nstpar.f 373 NSTOUT SUBROUTINE nstout.f 123 GETWRD SUBROUTINE getwrd.f 47 STATE SUBROUTINE state.f 809 INPMOD SUBROUTINE inpmod.f 170 KURUCZ SUBROUTINE kurucz.f 143 INCLDY SUBROUTINE incldy.f 74 CHANGE SUBROUTINE change.f 286 RESOLV SUBROUTINE resolv.f 227 INILAM SUBROUTINE inilam.f 341 OSCCOR SUBROUTINE osccor.f 64 ROSSTD SUBROUTINE rosstd.f 131 NEWPOP SUBROUTINE newpop.f 42 SWITCH SUBROUTINE switch.f 87 SABOLF SUBROUTINE sabolf.f 144 OPACF1 SUBROUTINE opacf1.f 382 LEVSOL SUBROUTINE levsol.f 54 STEQEQ SUBROUTINE steqeq.f 112 PZERT SUBROUTINE pzert.f 86 RATMAT SUBROUTINE ratmat.f 206 RATMAL SUBROUTINE ratmal.f 38 ELCOR SUBROUTINE elcor.f 93 REFLEV SUBROUTINE reflev.f 276 LEVGRP SUBROUTINE levgrp.f 82 RATES1 SUBROUTINE rates1.f 188 RATSP1 SUBROUTINE ratsp1.f 247 ALIST1 SUBROUTINE alist1.f 253 ALIST2 SUBROUTINE alist2.f 785 ALISK1 SUBROUTINE alisk1.f 162 ALISK2 SUBROUTINE alisk2.f 204 DOPGAM SUBROUTINE dopgam.f 120 GAMSP SUBROUTINE gamsp.f 14 PROFIL FUNCTION profil.f 74 VOIGT FUNCTION voigt.f 64 VOIGTE FUNCTION voigte.f 92 PROFSP FUNCTION profsp.f 86 UBETA FUNCTION ubeta.f 40 LAGRAN SUBROUTINE lagran.f 16 LINSET SUBROUTINE linset.f 272 LINSPL SUBROUTINE linspl.f 45 LINPRO SUBROUTINE linpro.f 215 SIGK FUNCTION sigk.f 195 VERNER FUNCTION verner.f 237 VERN26 FUNCTION vern26.f 94 VERN16 FUNCTION vern16.f 74 VERN18 FUNCTION vern18.f 77 VERN20 FUNCTION vern20.f 85 GAUNT FUNCTION gaunt.f 45 GNTK FUNCTION gntk.f 17 SPSIGK SUBROUTINE spsigk.f 33 HIDALG FUNCTION hidalg.f 79 REIMAN FUNCTION reiman.f 68 CARBON SUBROUTINE carbon.f 53 SGHE12 FUNCTION sghe12.f 18 SBFHE1 FUNCTION sbfhe1.f 157 HEPHOT FUNCTION hephot.f 163 CKOEST FUNCTION ckoest.f 59 TOPBAS FUNCTION topbas.f 51 OPDATA SUBROUTINE opdata.f 66 YLINTP FUNCTION ylintp.f 31 GFREE0 SUBROUTINE gfree0.f 62 GFREE1 FUNCTION gfree1.f 21 GFREED SUBROUTINE gfreed.f 26 FFCROS FUNCTION ffcros.f 13 SBFHMI_OLD FUNCTION sbfhmi_old.f 22 SBFHMI FUNCTION sbfhmi.f 42 SFFHMI FUNCTION sffhmi.f 73 COLIS SUBROUTINE colis.f 443 HCTRECOM FUNCTION hctrecom.f 36 HCTION FUNCTION hction.f 28 CTDATA BLOCK DATA ctdata.f 234 COLH SUBROUTINE colh.f 522 BUTLER SUBROUTINE butler.f 141 COLHE SUBROUTINE colhe.f 355 CEH12 FUNCTION ceh12.f 25 CSPEC SUBROUTINE cspec.f 89 COLLHE SUBROUTINE collhe.f 314 CHEAV FUNCTION cheav.f 148 CHEAVJ FUNCTION cheavj.f 111 MATINV SUBROUTINE matinv.f 90 MINV3 SUBROUTINE minv3.f 36 LINEQS SUBROUTINE lineqs.f 87 EXPINT FUNCTION expint.f 30 INTERP SUBROUTINE interp.f 94 OUTPUT SUBROUTINE output.f 117 OUTPRI SUBROUTINE outpri.f 257 SOLVE SUBROUTINE solve.f 314 SOLVES SUBROUTINE solves.f 341 MATGEN SUBROUTINE matgen.f 178 BRTE SUBROUTINE brte.f 618 BRTEZ SUBROUTINE brtez.f 574 BHE SUBROUTINE bhe.f 174 BHED SUBROUTINE bhed.f 342 BHEZ SUBROUTINE bhez.f 283 BRE SUBROUTINE bre.f 301 BREZ SUBROUTINE brez.f 273 BPOP SUBROUTINE bpop.f 79 BPOPE SUBROUTINE bpope.f 187 BPOPF SUBROUTINE bpopf.f 106 BPOPT SUBROUTINE bpopt.f 200 BPOPC SUBROUTINE bpopc.f 109 OPACFD SUBROUTINE opacfd.f 521 ALIFR1 SUBROUTINE alifr1.f 1134 ALIFR3 SUBROUTINE alifr3.f 1127 ALIFR6 SUBROUTINE alifr6.f 653 ALIFRK SUBROUTINE alifrk.f 51 EMAT SUBROUTINE emat.f 39 RHSGEN SUBROUTINE rhsgen.f 722 PRCHAN SUBROUTINE prchan.f 86 OPADD SUBROUTINE opadd.f 274 OPADD0 SUBROUTINE opadd0.f 110 PARTF SUBROUTINE partf.f 983 PFCNO SUBROUTINE pfcno.f 165 PFSPEC SUBROUTINE pfspec.f 44 PFFE SUBROUTINE pffe.f 306 PFNI SUBROUTINE pfni.f 326 OPFRAC SUBROUTINE opfrac.f 293 PFHEAV SUBROUTINE pfheav.f 365 XK2DOP FUNCTION xk2dop.f 32 LTEGR SUBROUTINE ltegr.f 294 ROSSOP SUBROUTINE rossop.f 97 CONTMP SUBROUTINE contmp.f 222 CONTMD SUBROUTINE contmd.f 144 ELDENS SUBROUTINE eldens.f 259 ENTENE SUBROUTINE entene.f 59 MEANOP SUBROUTINE meanop.f 43 MEANOPT SUBROUTINE meanopt.f 38 CONVEC SUBROUTINE convec.f 66 CONVC1 SUBROUTINE convc1.f 67 TRMDER SUBROUTINE trmder.f 79 CUBIC SUBROUTINE cubic.f 62 CONOUT SUBROUTINE conout.f 130 ERFCX FUNCTION erfcx.f 20 MATCON SUBROUTINE matcon.f 224 TEMCOR SUBROUTINE temcor.f 99 CONCOR SUBROUTINE concor.f 48 CONREF SUBROUTINE conref.f 328 PZEVAL SUBROUTINE pzeval.f 49 PZEVLD SUBROUTINE pzevld.f 176 LEMINI SUBROUTINE lemini.f 85 INTLEM SUBROUTINE intlem.f 33 INTHYD SUBROUTINE inthyd.f 90 YINT FUNCTION yint.f 18 STARK0 SUBROUTINE stark0.f 51 STARKA FUNCTION starka.f 55 DIVSTR SUBROUTINE divstr.f 41 OPAHST SUBROUTINE opahst.f 131 WNSTOR SUBROUTINE wnstor.f 64 WN FUNCTION wn.f 41 DWNFR SUBROUTINE dwnfr.f 44 ODF1 SUBROUTINE odf1.f 179 ODFHST SUBROUTINE odfhst.f 54 ODFFR SUBROUTINE odffr.f 97 CHCKSE SUBROUTINE chckse.f 86 ACCEL2 SUBROUTINE accel2.f 110 ACCELP SUBROUTINE accelp.f 103 TIMING SUBROUTINE timing.f 24 QUIT SUBROUTINE quit.f 10 ODFSET SUBROUTINE odfset.f 224 ODFHYS SUBROUTINE odfhys.f 136 ODFMER SUBROUTINE odfmer.f 22 ODFHYD SUBROUTINE odfhyd.f 96 INDEXX SUBROUTINE indexx.f 45 SIGAVE SUBROUTINE sigave.f 93 READBF SUBROUTINE readbf.f 29 CORRWM SUBROUTINE corrwm.f 125 IJALIS SUBROUTINE ijalis.f 78 IJALI2 SUBROUTINE ijali2.f 131 LEVSET SUBROUTINE levset.f 177 DWNFR0 SUBROUTINE dwnfr0.f 25 DWNFR1 SUBROUTINE dwnfr1.f 31 SGMER0 SUBROUTINE sgmer0.f 45 SGMER1 SUBROUTINE sgmer1.f 14 SGMERD SUBROUTINE sgmerd.f 15 TDPINI SUBROUTINE tdpini.f 38 OPAINI SUBROUTINE opaini.f 155 TRAINI SUBROUTINE traini.f 46 RTEDF1 SUBROUTINE rtedf1.f 405 RTEDF2 SUBROUTINE rtedf2.f 256 RTEFR1 SUBROUTINE rtefr1.f 752 RTEINT SUBROUTINE rteint.f 357 OPACF0 SUBROUTINE opacf0.f 358 SRTFRQ SUBROUTINE srtfrq.f 263 INIFRC SUBROUTINE inifrc.f 360 INIFRS SUBROUTINE inifrs.f 503 INIFRT SUBROUTINE inifrt.f 263 CROSS FUNCTION cross.f 18 CROSSD FUNCTION crossd.f 31 DIETOT SUBROUTINE dietot.f 28 RADPRE SUBROUTINE radpre.f 223 LINSEL SUBROUTINE linsel.f 343 PRINC SUBROUTINE princ.f 156 LUCY SUBROUTINE lucy.f 268 IROSET SUBROUTINE iroset.f 203 LEVCD SUBROUTINE levcd.f 249 INKUL SUBROUTINE inkul.f 168 OPACFL SUBROUTINE opacfl.f 280 RDATAX SUBROUTINE rdatax.f 120 BKHSGO SUBROUTINE bkhsgo.f 66 CION FUNCTION cion.f 93 DIELRC SUBROUTINE dielrc.f 379 EXPO FUNCTION expo.f 10 IRC SUBROUTINE irc.f 48 SZIRC SUBROUTINE szirc.f 41 EXPINX SUBROUTINE expinx.f 38 EINT SUBROUTINE eint.f 18 COMSET SUBROUTINE comset.f 164 ANGSET SUBROUTINE angset.f 44 GAULEG SUBROUTINE gauleg.f 34 RTE_SC SUBROUTINE rte_sc.f 53 RTESOL SUBROUTINE rtesol.f 87 RTEFE2 SUBROUTINE rtefe2.f 75 RTECF0 SUBROUTINE rtecf0.f 171 INICOM SUBROUTINE inicom.f 29 RTECOM SUBROUTINE rtecom.f 171 RTECF1 SUBROUTINE rtecf1.f 451 RTECMC SUBROUTINE rtecmc.f 178 COMPT0 SUBROUTINE compt0.f 107 TAUFR1 SUBROUTINE taufr1.f 90 RTECMU SUBROUTINE rtecmu.f 206 RTEANG SUBROUTINE rteang.f 64 PRD SUBROUTINE prd.f 144 PRDINI SUBROUTINE prdini.f 54 GAMI FUNCTION gami.f 45 INPDIS SUBROUTINE inpdis.f 189 COLUMN SUBROUTINE column.f 50 GRCOR SUBROUTINE grcor.f 123 DMDER SUBROUTINE dmder.f 39 SIGMAR FUNCTION sigmar.f 91 LAGUER SUBROUTINE laguer.f 58 LTEGRD SUBROUTINE ltegrd.f 513 TEMPER SUBROUTINE temper.f 164 TLOCAL SUBROUTINE tlocal.f 52 QUARTC SUBROUTINE quartc.f 35 NEWDM SUBROUTINE newdm.f 205 NEWDMT SUBROUTINE newdmt.f 115 GRIDP SUBROUTINE gridp.f 54 HESOLV SUBROUTINE hesolv.f 212 HESOL6 SUBROUTINE hesol6.f 378 PSOLVE SUBROUTINE psolve.f 45 ZMRHO SUBROUTINE zmrho.f 107 BETAH FUNCTION betah.f 33 ERFCIN FUNCTION erfcin.f 20 RADTOT SUBROUTINE radtot.f 105 COOLRT SUBROUTINE coolrt.f 103 OPACFA SUBROUTINE opacfa.f 323 VISINI SUBROUTINE visini.f 107 DMEVAL SUBROUTINE dmeval.f 69 GREYD SUBROUTINE greyd.f 66 RHONEN SUBROUTINE rhonen.f 42 QUASIM SUBROUTINE quasim.f 57 GETLAL SUBROUTINE getlal.f 107 ALLARD SUBROUTINE allard.f 217 ALLARDT SUBROUTINE allardt.f 158 HEDIF SUBROUTINE hedif.f 92 RAPH FUNCTION raph.f 17 TABINI SUBROUTINE tabini.f 326 RAYINI SUBROUTINE rayini.f 42 TABINT SUBROUTINE tabint.f 89 CHCTAB SUBROUTINE chctab.f 171 RAYSET SUBROUTINE rayset.f 68 RAYLEIGH SUBROUTINE rayleigh.f 46 OPCTAB SUBROUTINE opctab.f 116 OPACT1 SUBROUTINE opact1.f 39 OPACTD SUBROUTINE opactd.f 95 SETTRM SUBROUTINE settrm.f 84 RHOEOS FUNCTION rhoeos.f 38 SETDRT SUBROUTINE setdrt.f 18 TRMDRT SUBROUTINE trmdrt.f 65 PRSENT SUBROUTINE prsent.f 59 MOLEQ SUBROUTINE moleq.f 318 RUSSEL SUBROUTINE russel.f 217 MPARTF SUBROUTINE mpartf.f 138 TIOPF SUBROUTINE tiopf.f 148 RYBSOL SUBROUTINE rybsol.f 202 RYBMAT SUBROUTINE rybmat.f 390 RYBENE SUBROUTINE rybene.f 203 RYBCHN SUBROUTINE rybchn.f 161 TRIDAG SUBROUTINE tridag.f 22 OPACTR SUBROUTINE opactr.f 180 RYBHEQ SUBROUTINE rybheq.f 142 PGSET SUBROUTINE pgset.f 92 LOCATE SUBROUTINE locate.f 26 XENINI SUBROUTINE xenini.f 104 INTXEN SUBROUTINE intxen.f 51 GOMINI SUBROUTINE gomini.f 104 GHYDOP SUBROUTINE ghydop.f 56 SBFCH FUNCTION sbfch.f 278 SBFOH FUNCTION sbfoh.f 327 ELDENC SUBROUTINE eldenc.f 150 SFFHMI_ADD FUNCTION sffhmi_add.f 72 CIA_H2H2 SUBROUTINE cia_h2h2.f 89 CIA_H2HE SUBROUTINE cia_h2he.f 90 CIA_H2H SUBROUTINE cia_h2h.f 89 CIA_HHE SUBROUTINE cia_hhe.f 89 H2MINUS SUBROUTINE h2minus.f 100 PRNT SUBROUTINE prnt.f 73 RECHCK SUBROUTINE rechck.f 35 LYMLIN SUBROUTINE lymlin.f 115 按类型统计: PROGRAM: 1 BLOCK DATA: 2 SUBROUTINE: 251 FUNCTION: 50