Conversion of standardized ReadMe file for
file /./ftp/cats/J/AZh/73/67 into FORTRAN code for loading all data files into arrays.
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-Mar-30 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/AZh/73/67 Energy distribution of G,K and M stars (Knyazeva+, 1996) *================================================================================ *On the normal spectral energy distribution of stars: G, K, and M stars. * Knyazeva L.N., Kharitonov A.V. * <Astron. Zh. 73, 67 (1996)> * =1996AZh....73...67K * =1996ARep...40...57K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Normal energy distributions integer*4 nr__ parameter (nr__=84) ! Number of records character*125 ar__ ! Full-size record integer*4 Lambda (nr__) ! (0.1nm) Wavelength real*4 G7III (nr__) ! Spectral energy for G7III stars normalized * to 1.0 at 5475 A real*4 G8III (nr__) ! Spectral energy for G8III stars normalized * to 1.0 at 5475 A real*4 G9III (nr__) ! Spectral energy for G9III stars normalized * to 1.0 at 5475 A real*4 K0III (nr__) ! Spectral energy for K0III stars * normalized to 1.0 at 5475 A real*4 K1III (nr__) ! Spectral energy for K1III stars normalized * to 1.0 at 5475 A real*4 K2III (nr__) ! Spectral energy for K2III stars normalized * to 1.0 at 5475 A real*4 K3III (nr__) ! Spectral energy for K3III stars normalized * to 1.0 at 5475 A real*4 K4III (nr__) ! Spectral energy for K4III stars normalized * to 1.0 at 5475 A real*4 K5III (nr__) ! Spectral energy for K5III stars normalized * to 1.0 at 5475 A real*4 M0III (nr__) ! Spectral energy for M0III stars normalized * to 1.0 at 5475 A real*4 M1III (nr__) ! Spectral energy for M1III stars normalized * to 1.0 at 5475 A real*4 M2III (nr__) ! Spectral energy for M2III stars normalized * to 1.0 at 5475 A real*4 M3III (nr__) ! Spectral energy for M3III stars normalized * to 1.0 at 5475 A real*4 M4III (nr__) ! Spectral energy for M4III stars normalized * to 1.0 at 5475 A real*4 M5III (nr__) ! Spectral energy for M5III stars normalized * to 1.0 at 5475 A C============================================================================= C Loading file 'table2.dat' ! Normal energy distributions C Format for file interpretation 1 format( + I4,4X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X, + F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3,3X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,84 read(1,'(A125)')ar__ read(ar__,1) + Lambda(i__),G7III(i__),G8III(i__),G9III(i__),K0III(i__), + K1III(i__),K2III(i__),K3III(i__),K4III(i__),K5III(i__), + M0III(i__),M1III(i__),M2III(i__),M3III(i__),M4III(i__), + M5III(i__) c ..............Just test output........... write(6,1) + Lambda(i__),G7III(i__),G8III(i__),G9III(i__),K0III(i__), + K1III(i__),K2III(i__),K3III(i__),K4III(i__),K5III(i__), + M0III(i__),M1III(i__),M2III(i__),M3III(i__),M4III(i__), + M5III(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end