Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/442/1127 into FORTRAN code for reading data files line by line.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-16
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/A+A/442/1127 Library of 2500-10500{AA} synthetic spectra (Munari+, 2005)
*================================================================================
*An extensive library of 2500-10500 A synthetic spectra.
* Munari U., Sordo R., Castelli F., Zwitter T.
* <Astron. Astrophys., 442, 1127-1134 (2005)>
* =2005A&A...442.1127M (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'list.dat' ! List of resolving power/dispersion directories
integer*4 nr__
parameter (nr__=6) ! Number of records
character*64 ar__ ! Full-size record
character*9 Mod ! Name of the resolving power/dispersion directory (1)
character*4 Size ! Size of the directory
character*14 Wave ! Name of the file with wavelengths (2)
character*14 FS ! [fluxed_spectra] Name of the subdirectory with
* fluxed spectrum files (3)
character*18 NS ! [normalized_spectra] Name of the subdirectory
* with normalized spectrum files (3)
*Note (1): Each directory contains the wavelength file, and the 59 Teff
* subdirectories, T_03500 to T_47500.
*Note (2): To have the classic double-column spectrum file (wavelengths, flux),
* use "paste wavelengths_file flux_file > spectrum.txt"
*Note (3): Naming scheme for the spectra contained in the library.
*
* TtttttGggMmmVvvvK2AnnNVRRRF.ASC (example: T04000G45M05V015K2ANWNVR20F.ASC)
*
* characters meaning
* ------------------------------------------------
* 1- 6 Tttttt Effective temperature (K)
* (03500 03750 04000 04250 04500 04750 05000 05250 05500
* 05750 06000 06250 06500 06750 07000 07250 07500 07750
* 08000 08250 08500 08750 09000 09250 09500 09750 10000
* 10500 11000 11500 12000 13000 14000 15000 16000 17000
* 18000 19000 20000 21000 22000 23000 24000 25000 26000
* 27000 28000 29000 30000 31000 32000 33000 34000 35000
* 37500 40000 42500 45000 47500)
* 7- 9 Ggg 10xlogg (cgs units)
* (logg = 0.5, 1.0, 1.5, 2.0, 2.5, 3.0, 3.5, 4.0, 4.5, 5.0)
* 10 M [-+] sign for metallicity: M = "-" P = "+"
* 11-12 mm 10x[M/H] ([M/H] = -2.5, -2.0, -1.5, -1.0, -0.5, +0.0, +0.5)
* 13-16 Vvvv rotational velocity (km/s)
* (Vrot = 0, 10, 20, 30, 40, 50, 60, 75, 100, 150, 200,
* 250, 300, 400, 500)
* 17-18 K2 Microturbulent velocity (km/s), always 2km/s
* 19 A [{alpha}/Fe] enhancement: S=0.0, A=+0.4
* 20-21 nn NW = new ODF models, OD = old ODF models
* 22-23 NV no overshooting (always NV)
* 24-26 RRR Resolving power or dispersion
* R20 = resolving power 20000;
* RVS = resolving power 11500 (GAIA);
* RAV = resolving power 8500 (RAVE);
* SLN = resolving power 2000 (SLOAN);
* D01 = 1{AA}/pix dispersion;
* D10 = 10{AA}/pix dispersion
* 27 F [F/N] F = fluxed spectrum (erg/cm^2^/s/{AA})
* in subdirectory fluxed_spectra
* or N = normalized spectrum
* in subdirectory normalized_spectra
C=============================================================================
C Loading file 'list.dat' ! List of resolving power/dispersion directories
C Format for file interpretation
1 format(A9,2X,A4,1X,A14,1X,A14,1X,A18)
C Effective file loading
open(unit=1,status='old',file=
+'list.dat')
write(6,*) '....Loading file: list.dat'
do i__=1,6
read(1,'(A64)')ar__
read(ar__,1)Mod,Size,Wave,FS,NS
c ..............Just test output...........
write(6,1)Mod,Size,Wave,FS,NS
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end