Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/612/437 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/ApJ/612/437 Low-luminosity hard X-ray binaries candidates (Suchkov+, 2004) *================================================================================ *ClassX detection of candidate low-luminosity hard X-ray binaries. * Suchkov A.A., Hanisch R.J. * <Astrophys. J., 612, 437-446 (2004)> * =2004ApJ...612..437S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! New Hard XRB Candidates Identified by ClassX integer*4 nr__ parameter (nr__=51) ! Number of records character*91 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg character*12 v1WGA ! WGACAT ID (1WGA JHHMM.m+DDMM in Simbad) real*8 RAdeg ! (deg) Right Ascension expressed in degrees (J2000) real*8 DEdeg ! (deg) Declination (J2000) real*4 mxtot ! (mag) X-ray brightness (G1) real*4 e_mxtot ! (mag) ? Error in mxtot real*4 R0 ! Hardness parameter (G2) real*4 e_R0 ! Error in R0 real*4 R1 ! Hardness parameter (G2) real*4 e_R1 ! Error in R1 real*4 R2 ! Hardness parameter (G2) real*4 e_R2 ! Error in R2 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! X-Ray Parameters and Sky Fields Associated with HXRB Candidates from the ClassX Classifier based on X-Ray and Radio Data integer*4 nr__1 parameter (nr__1=33) ! Number of records character*103 ar__1 ! Full-size record character*12 v1WGA_1 ! WGACAT ID (1WGA JHHMM.m+DDMM in Simbad) real*4 mxtot_1 ! (mag) X-ray brightness (G1) real*4 R1_1 ! Hardness parameter (G2) real*4 R2_1 ! Hardness parameter (G2) character*72 Desc ! Field description C============================================================================= C Loading file 'table2.dat' ! New Hard XRB Candidates Identified by ClassX C Format for file interpretation 1 format( + A12,2X,F8.4,1X,F8.4,1X,F5.2,2X,F4.2,2X,F4.2,2X,F4.2,2X,F5.2, + 2X,F5.2,2X,F5.2,2X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,51 read(1,'(A91)')ar__ read(ar__,1) + v1WGA,RAdeg,DEdeg,mxtot,e_mxtot,R0,e_R0,R1,e_R1,R2,e_R2 if(ar__(40:43) .EQ. '') e_mxtot = rNULL__ c ..............Just test output........... write(6,1) + v1WGA,RAdeg,DEdeg,mxtot,e_mxtot,R0,e_R0,R1,e_R1,R2,e_R2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! X-Ray Parameters and Sky Fields Associated with * HXRB Candidates from the ClassX Classifier based * on X-Ray and Radio Data C Format for file interpretation 2 format(A12,2X,F4.1,2X,F4.1,2X,F3.1,2X,A72) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,33 read(1,'(A103)')ar__1 read(ar__1,2)v1WGA_1,mxtot_1,R1_1,R2_1,Desc c ..............Just test output........... write(6,2)v1WGA_1,mxtot_1,R1_1,R2_1,Desc c .......End.of.Just test output........... end do close(1) C============================================================================= stop end