Conversion of standardized ReadMe file for
file /./ftp/cats/J/PASP/121/1326 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-Mar-28 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/PASP/121/1326 uvby{beta} photometry in Norma (Kaltcheva+, 2009) *================================================================================ *Stroemgren H{beta} photometry of O and B stars in Norma. * Kaltcheva N. * <Publ. Astron. Soc. Pac., 121, 1326-1333 (2009)> * =2009PASP..121.1326K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! The sample organized according to the subgroups identified in Fig. 1 integer*4 nr__ parameter (nr__=130) ! Number of records character*124 ar__ ! Full-size record C Position composed of: GLON GLAT character*12 Name ! Star name character*5 LC ! Luminosity class real*4 Vmag ! (mag) V magnitude real*4 b_y ! (mag) Stroemgren b-y colour index real*4 m1 ! (mag) Stroemgren m1 index real*4 c1 ! (mag) Stroemgren c1 index real*4 beta ! (mag) Stroemgren beta index real*4 E_b_y ! (mag) Colour excess in b-y real*4 V0mag ! (mag) Dereddened V magnitude real*4 v_b_y_0 ! (mag) Dereddened b-y colour index real*4 c0 ! (mag) Stroemgren c0 index real*4 m0 ! (mag) Stroemgren m0 index real*4 VMAG_1 ! (mag) Calibrated absolute V magnitude integer*4 r ! (pc) Distance from Sun character*1 u_r ! Uncertainty flag on r real*4 GLON ! (deg) Galactic longitude real*4 GLAT ! (deg) Galactic latitude character*2 src ! [HM K] Source of photometry (1) character*11 Group ! Group name, or "Field stars" (2) *Note (1): Source as follows: * HM = Hauck & Mermilliod, Cat II/215 * K = new data *Note (2): groups are: * Ly 6 (Lynga 1964MeLu2.141....1L); * Lod 2158 (Loden 1979A&AS...36...83L); * NGC 6087 (Schmidt 1980AJ.....85..158S); * R 103 = RCW 103 (1960MNRAS.121..103R); * R 105 = RCW 105 (1960MNRAS.121..103R); * Nor OB1 = Norma OB1 grouping C============================================================================= C Loading file 'table1.dat' ! The sample organized according to the subgroups * identified in Fig. 1 C Format for file interpretation 1 format( + A12,1X,A5,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F5.3,1X, + F6.3,1X,F6.3,1X,F6.3,1X,F5.3,1X,F4.1,1X,I4,A1,1X,F6.2,1X,F5.2, + 1X,A2,1X,A11) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,130 read(1,'(A124)')ar__ read(ar__,1) + Name,LC,Vmag,b_y,m1,c1,beta,E_b_y,V0mag,v_b_y_0,c0,m0,VMAG_1, + r,u_r,GLON,GLAT,src,Group c ..............Just test output........... write(6,1) + Name,LC,Vmag,b_y,m1,c1,beta,E_b_y,V0mag,v_b_y_0,c0,m0,VMAG_1, + r,u_r,GLON,GLAT,src,Group c .......End.of.Just test output........... end do close(1) C============================================================================= stop end