$!Because of the primitive file naming limitation in ISO9660, some file $!names on this CD are incomprehensible. $ $!ATLAS9 model atmosphere program $!for arbitrary Vturb uses 5 big or 5 lit df files 0,1,2,4,8 km/s $RENAME ATLAS9.FOR ATLAS9.FOR $! $!for one constant Vturb uses 1 big or 1 lit df file $RENAME ATLAS9V.FOR ATLAS9V.FOR $! $!for one constant Vturb uses 1 big df file stored in memory $RENAME ATLAS9ME.FOR ATLAS9MEM.FOR $! $!same as ATLAS9MEM but dimensioned for 999 depths $RENAME ATLAS999.FOR ATLAS999MEM.FOR $! $!Rosseland opacity tables for [+1.0],[+0.5],[+0.3],[+0.2],[+0.1],[+0.0], $![-0.1],[-0.2],[-0.3],[-0.5],[-1.0],[-1.5],[-2.0],[-2.5].[-3.0],[-3.5]. $![-4.0],[-4.5].[-5.0] and [+0.0 no He],[-0.5 no He] $!alpha-enhanced as follows $!first line Anders and Grevesse, $!second line alpha plus 0.4 and new Fe $!ABUNDANCE CHANGE 3 -10.88 4 -10.89 5 -9.44 6 -3.48 7 -3.99 8 -3.11 $!ABUNDANCE CHANGE 3 -10.88 4 -10.89 5 -9.44 6 -3.48 7 -3.99 8 -2.71 $!ABUNDANCE CHANGE 9 -7.48 10 -3.95 11 -5.71 12 -4.46 13 -5.57 14 -4.49 $!ABUNDANCE CHANGE 9 -7.48 10 -3.55 11 -5.71 12 -4.06 13 -5.57 14 -4.09 $!ABUNDANCE CHANGE 15 -6.59 16 -4.83 17 -6.54 18 -5.48 19 -6.82 20 -5.68 $!ABUNDANCE CHANGE 15 -6.59 16 -4.43 17 -6.54 18 -5.08 19 -6.82 20 -5.28 $!ABUNDANCE CHANGE 21 -8.94 22 -7.05 23 -8.04 24 -6.37 25 -6.65 26 -4.37 $!ABUNDANCE CHANGE 21 -8.94 22 -6.65 23 -8.04 24 -6.37 25 -6.65 26 -4.53 $![+0.5a],[+0.0a],[-0.5a],[-1.0a],[-1.5a],[-2.0a],[-2.5a],[-3.0a],[-3.5a], $![-4.0a],[-4.5a],[-5.0a] $RENAME KAP*.ROS *.ROSS $! $!molecular equilibrium constants $RENAME MOLEC.DAT MOLECULES.DAT $! $!interpolate distribution functions in abundance or Vturb $RENAME DFINTERP.COM DFINTERP.COM $RENAME DFINTERP.FOR DFINTERP.FOR $! $!interpolate Rosseland opacities in abundance or Vturb $RENAME ROSSINT.COM KAPROSSINTERP.COM $RENAME ROSSINT.FOR KAPROSSINTERP.FOR $! $!pack F*.DAT files to F*.PCK files $RENAME FLUXPACK.COM FLUXPACK.COM $RENAME FLUXPACK.FOR FLUXPACK.FOR $! $!pack I*.DAT files to I*.PCK files $RENAME INTPACK.COM INTENSITYPACK.COM $RENAME INTPACK.FOR INTENSITYPACK.COM $! $!ATLAS9 subroutine for synthesizing a small section of spectrum $RENAME XLINOP9.COM XLINOP.COM $RENAME XLINOP9.FOR XLINOP.FOR $RENAME XLINTEST.COM XLINTEST.COM $RENAME XLINTEST.LOG XLINTEST.LOG $! $!sample model and flux files $!prefix A = model atmosphere $!prefix F = flux $!prefix I = intensity $!prefix B = balmer lines $!marker T followed by Teff $!marker G followed by log g $!marker K followed by microturbulent velocity $!marker C followed by convective mixing-length-to-scale-height ratio $RENAME A10000.COM AP00T10000G40K2.COM $RENAME A10000.DAT AP00T10000G40K2.DAT $RENAME A10000.NEW AP00T10000G40K2.NEW $RENAME A10000.LOG AP00T10000G40K2.LOG $RENAME F10000.COM FP00T10000G40K2.COM $RENAME F10000.DAT FP00T10000G40K2.DAT $RENAME F10000.LOG FP00T10000G40K2.LOG $RENAME I10000.COM IP00T10000G40K2.COM $RENAME I10000.DAT IP00T10000G40K2.DAT $RENAME I10000.LOG IP00T10000G40K2.LOG $RENAME A5000.COM AP00T5000G45K2C125.COM $RENAME A5000.DAT AP00T5000G45K2C125.DAT $RENAME A5000.NEW AP00T5000G45K2C125.NEW $RENAME A5000.LOG AP00T5000G45K2C125.LOG $RENAME F5000.COM FP00T5000G45K2C125.COM $RENAME F5000.DAT FP00T5000G45K2C125.DAT $RENAME F5000.LOG FP00T5000G45K2C125.LOG $RENAME A5500.COM AP01T5500G40K2C125.COM $RENAME A5500.NEW AP01T5500G40K2C125.NEW $RENAME A5500.LOG AP01T5500G40K2C125.LOG $! $!WIDTH9 abundance analysis program $RENAME WIDTH9.COM WIDTH9.COM $RENAME WIDTH9.FOR WIDTH9.FOR $!sample run with grid model ASUN.DAT $RENAME WIDTH9T.COM WIDTH9TEST.COM $RENAME WIDTH9T.LOG WIDTH9TEST.LOG $!sample run with empirical model MODC.DAT $RENAME WIDTH9TM.COM WIDTH9TESTMODC.COM $RENAME WIDTH9TM.LOG WIDTH9TESTMODC.LOG $! $!Computing balmer line profiles $RENAME BALMER9.COM BALMER9.COM $RENAME BALMER9.FOR BALMER9.FOR $RENAME VCSBALM.DAT VCSBALMER.DAT $sample run $RENAME BALMER9T.COM BALMER9TEST.COM $RENAME BALMER9T.DAT BALMER9TEST.DAT $RENAME BALMER9T.LOG BALMER9TEST.LOG