Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/127/24 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/AJ/127/24 Globular clusters in 4 cD galaxies (Jordan+, 2004) *================================================================================ *Hubble Space Telescope observations of cD galaxies and *their globular cluster systems. * Jordan A., Cote P., West M.J., Marzke R.O., Minniti D., Rejkuba M. * <Astron. J., 127, 24-47 (2004)> * =2004AJ....127...24J C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Globular cluster candidates photometry for NGC 541 integer*4 nr__ parameter (nr__=207) ! Number of records character*43 ar__ ! Full-size record integer*4 Seq ! Identification number (1) real*8 Rad ! (arcsec) Radial position real*8 oRA ! (arcsec) Right ascension offset from Galactic center (2) real*8 oDE ! (arcsec) Declination offset from Galactic center (2) real*4 Bmag ! (mag) The B-band magnitude real*4 B_I ! (mag) The (B-I) color index *Note (1): Designations: * table4: [JCW2004] NGC 541 NNN * table5: [JCW2004] NGC 2832 NNN * table6: [JCW2004] NGC 4839 NNN * table7: [JCW2004] NGC 7768 NNN *Note (2): Centers: * table4: NGC 541 : RA = 01:25:44.3 and DE = -01:22:46 (J2000) * table5: NGC 2832 : RA = 09:19:46.9 and DE = +33:44:59 (J2000) * table6: NGC 4839 : RA = 12:57:24.2 and DE = +27:29:54 (J2000) * table7: NGC 7768 : RA = 23:50:58.6 and DE = +27:08:51 (J2000) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Globular cluster candidates photometry for NGC 2832 integer*4 nr__1 parameter (nr__1=322) ! Number of records character*43 ar__1 ! Full-size record integer*4 Seq_1 ! Identification number (1) real*8 Rad_1 ! (arcsec) Radial position real*8 oRA_1 ! (arcsec) Right ascension offset from Galactic center (2) real*8 oDE_1 ! (arcsec) Declination offset from Galactic center (2) real*4 Bmag_1 ! (mag) The B-band magnitude real*4 B_I_1 ! (mag) The (B-I) color index *Note (1): Designations: * table4: [JCW2004] NGC 541 NNN * table5: [JCW2004] NGC 2832 NNN * table6: [JCW2004] NGC 4839 NNN * table7: [JCW2004] NGC 7768 NNN *Note (2): Centers: * table4: NGC 541 : RA = 01:25:44.3 and DE = -01:22:46 (J2000) * table5: NGC 2832 : RA = 09:19:46.9 and DE = +33:44:59 (J2000) * table6: NGC 4839 : RA = 12:57:24.2 and DE = +27:29:54 (J2000) * table7: NGC 7768 : RA = 23:50:58.6 and DE = +27:08:51 (J2000) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table6.dat' ! Globular cluster candidates photometry for NGC 4839 integer*4 nr__2 parameter (nr__2=359) ! Number of records character*43 ar__2 ! Full-size record integer*4 Seq_2 ! Identification number (1) real*8 Rad_2 ! (arcsec) Radial position real*8 oRA_2 ! (arcsec) Right ascension offset from Galactic center (2) real*8 oDE_2 ! (arcsec) Declination offset from Galactic center (2) real*4 Bmag_2 ! (mag) The B-band magnitude real*4 B_I_2 ! (mag) The (B-I) color index *Note (1): Designations: * table4: [JCW2004] NGC 541 NNN * table5: [JCW2004] NGC 2832 NNN * table6: [JCW2004] NGC 4839 NNN * table7: [JCW2004] NGC 7768 NNN *Note (2): Centers: * table4: NGC 541 : RA = 01:25:44.3 and DE = -01:22:46 (J2000) * table5: NGC 2832 : RA = 09:19:46.9 and DE = +33:44:59 (J2000) * table6: NGC 4839 : RA = 12:57:24.2 and DE = +27:29:54 (J2000) * table7: NGC 7768 : RA = 23:50:58.6 and DE = +27:08:51 (J2000) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Globular cluster candidates photometry for NGC 7768 integer*4 nr__3 parameter (nr__3=124) ! Number of records character*43 ar__3 ! Full-size record integer*4 Seq_3 ! Identification number (1) real*8 Rad_3 ! (arcsec) Radial position real*8 oRA_3 ! (arcsec) Right ascension offset from Galactic center (2) real*8 oDE_3 ! (arcsec) Declination offset from Galactic center (2) real*4 Bmag_3 ! (mag) The B-band magnitude real*4 B_I_3 ! (mag) The (B-I) color index *Note (1): Designations: * table4: [JCW2004] NGC 541 NNN * table5: [JCW2004] NGC 2832 NNN * table6: [JCW2004] NGC 4839 NNN * table7: [JCW2004] NGC 7768 NNN *Note (2): Centers: * table4: NGC 541 : RA = 01:25:44.3 and DE = -01:22:46 (J2000) * table5: NGC 2832 : RA = 09:19:46.9 and DE = +33:44:59 (J2000) * table6: NGC 4839 : RA = 12:57:24.2 and DE = +27:29:54 (J2000) * table7: NGC 7768 : RA = 23:50:58.6 and DE = +27:08:51 (J2000) C============================================================================= C Loading file 'table4.dat' ! Globular cluster candidates photometry for NGC 541 C Format for file interpretation 1 format(I3,1X,F7.3,1X,F8.3,1X,F8.3,1X,F6.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,207 read(1,'(A43)')ar__ read(ar__,1)Seq,Rad,oRA,oDE,Bmag,B_I c ..............Just test output........... write(6,1)Seq,Rad,oRA,oDE,Bmag,B_I c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Globular cluster candidates photometry for NGC 2832 C Format for file interpretation 2 format(I3,1X,F7.3,1X,F8.3,1X,F8.3,1X,F6.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,322 read(1,'(A43)')ar__1 read(ar__1,2)Seq_1,Rad_1,oRA_1,oDE_1,Bmag_1,B_I_1 c ..............Just test output........... write(6,2)Seq_1,Rad_1,oRA_1,oDE_1,Bmag_1,B_I_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table6.dat' ! Globular cluster candidates photometry for NGC 4839 C Format for file interpretation 3 format(I3,1X,F7.3,1X,F8.3,1X,F8.3,1X,F6.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table6.dat') write(6,*) '....Loading file: table6.dat' do i__=1,359 read(1,'(A43)')ar__2 read(ar__2,3)Seq_2,Rad_2,oRA_2,oDE_2,Bmag_2,B_I_2 c ..............Just test output........... write(6,3)Seq_2,Rad_2,oRA_2,oDE_2,Bmag_2,B_I_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table7.dat' ! Globular cluster candidates photometry for NGC 7768 C Format for file interpretation 4 format(I3,1X,F7.3,1X,F8.3,1X,F8.3,1X,F6.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,124 read(1,'(A43)')ar__3 read(ar__3,4)Seq_3,Rad_3,oRA_3,oDE_3,Bmag_3,B_I_3 c ..............Just test output........... write(6,4)Seq_3,Rad_3,oRA_3,oDE_3,Bmag_3,B_I_3 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end