Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/410/671 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-29 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/410/671 X-ray emission in cool main sequence stars (Messina+, 2003) *================================================================================ *Dependence of coronal X-ray emission on spot-induced brightness variations in *cool main sequence stars. * Messina S., Pizzolato N., Guinan E.F., Rodon M. * <Astron. Astrophys. 410, 671 (2003)> * =2003A&A...410..671M C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Photometry integer*4 nr__ parameter (nr__=264) ! Number of records character*79 ar__ ! Full-size record character*9 Cluster ! Cluster to which the star belongs character*1 n_Name ! [*] *: Stars for which the unpublished * Villanova photometry was used character*10 Name ! Name in the catalogue character*9 Oname ! Other name as variable star real*4 Vmax ! (mag) Brightest V-band magnitude real*4 B_V ! (mag) ?=99.00 B-V colour real*4 Per ! (d) Rotational period real*4 Amax ! (mag) Maximum V-band light curve amplitude character*3 r_Per ! Reference for rotational period, * in refs.dat file character*3 r_Amax ! Reference for light curve amplitude, * in refs.dat file integer*4 LC ! Number of light curve character*6 Flag ! Star used to define the upper envelope (1) *Note (1): Flags: * FS_fit means F-type star in the slow rotational regime * GS_fit means G-type star in the slow rotational regime * KS_fit means K-type star in the slow rotational regime * GF_fit means G-type star in the fast rotational regime * KF_fit means K-type star in the fast rotational regime * M0_fit means M-type stars in upper envelope 2 * M1_fit means M-type stars in upper envelope 1 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! X-ray data integer*4 nr__1 parameter (nr__1=228) ! Number of records character*50 ar__1 ! Full-size record character*9 Cluster_1 ! Cluster to which the star belongs character*10 Name_1 ! Name in the catalogue real*4 logLX ! ([10-7W]) X-ray luminosity real*4 logLX_Lbol ! X-to-bolometric luminosities ratio real*4 e_logLX_Lbol ! Uncertainty on logLX/Lbol character*3 r_logLX ! [a-h ] References for logLX, in refs.dat file c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__2 parameter (nr__2=93) ! Number of records character*161 ar__2 ! Full-size record character*3 Ref ! Reference number character*9 Cluster_2 ! Cluster to which the star belongs character*19 BibCode ! BibCode character*27 Aut ! Author's name character*100 Com ! Comments C============================================================================= C Loading file 'table1.dat' ! Photometry C Format for file interpretation 1 format( + A9,A1,1X,A10,1X,A9,1X,F5.2,2X,F5.2,1X,F6.3,1X,F5.3,2X,A3,2X, + A3,2X,I2,2X,A6) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,264 read(1,'(A79)')ar__ read(ar__,1) + Cluster,n_Name,Name,Oname,Vmax,B_V,Per,Amax,r_Per,r_Amax,LC, + Flag c ..............Just test output........... write(6,1) + Cluster,n_Name,Name,Oname,Vmax,B_V,Per,Amax,r_Per,r_Amax,LC, + Flag c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! X-ray data C Format for file interpretation 2 format(A9,2X,A10,2X,F6.3,3X,F6.3,3X,F5.3,1X,A3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,228 read(1,'(A50)')ar__1 read(ar__1,2) + Cluster_1,Name_1,logLX,logLX_Lbol,e_logLX_Lbol,r_logLX c ..............Just test output........... write(6,2) + Cluster_1,Name_1,logLX,logLX_Lbol,e_logLX_Lbol,r_logLX c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 3 format(A3,1X,A9,1X,A19,1X,A27,A100) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,93 read(1,'(A161)')ar__2 read(ar__2,3)Ref,Cluster_2,BibCode,Aut,Com c ..............Just test output........... write(6,3)Ref,Cluster_2,BibCode,Aut,Com c .......End.of.Just test output........... end do close(1) C============================================================================= stop end