Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/416/917 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/A+A/416/917 Revised Bologna Catalog of M31 globular clusters (Galleti+, 2004) *================================================================================ *2MASS NIR photometry for 693 candidate globular clusters in M31 and the *Revised Bologna Catalogue. * Galleti S., Federici L., Bellazzini M., Fusi Pecci F., Macrina S. * <Astron. Astrophys. 416, 917 (2004)> * =2004A&A...416..917G C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Revised Bologna Catalog for M31 globular clusters candidates (positions) integer*4 nr__ parameter (nr__=1164) ! Number of records character*161 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000 real*8 DEdeg ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*14 M31 ! Name JHHMMSS+DDMMSS character*7 Name ! Designation character*4 Bol ! Identification from Battistini et al., * 1987A&AS...67..447B, Bol NNN or Bol DNNN character*4 SKHB ! Identification from Sargent et al., * 1977AJ.....82..947S, SKHB NNN character*4 v_V62_ ! Identification from Vetesnik, * 1962BAICz..13..180V, [V62] NNN integer*4 NBol ! ? Identification from Battistini et al., * 1993A&A...272...77B, NBol NNN integer*4 ACH ! ? Identification from Auriere et al., * 1992A&A...256...95A, ACH NN integer*4 v_CCS85_ ! ? Identification from Crampton et al., * 1985ApJ...288..494C integer*4 BA3 ! ? Identification from Baade & Arp, * 1964ApJ...139.1027B, BA 3-NNN integer*4 SH ! ? Identification from Sharov & Lyutyj, * 1985PAZh...11..590S integer*4 v_MKK98_ ! ? Identification from Mochejska et al., 1998, * Cat. <J/AcA/48/455>, [MKK98] M 31 NNN integer*4 BH ! ? Identification from Barmby & Huchra, * 2001AJ....122.2458B integer*4 f ! Global classification flag (G1) character*3 C ! Classification from the original paper character*1 S ! Spectroscopic confirmation (2) character*1 V ! Confirmation via high resolution imaging (2) character*37 Com ! Comment and reference (3) integer*4 RAh ! (h) Right ascension (J2000) integer*4 RAm ! (min) Right ascension (J2000) real*4 RAs ! (s) Right ascension (J2000) character*1 DE_ ! Sign of Declination (J2000) integer*4 DEd ! (deg) Declination (J2000) integer*4 DEm ! (arcmin) Declination (J2000) real*4 DEs ! (arcsec) Declination (J2000) character*12 Source ! Source of the coordinates (4) *Note (2): Confirmation flags: * [C] - Cluster; * [G] - Galaxy; * [S] - Star; * [H] - H II Region. *Note (3): References (see refs.dat file), comments and/or HST archive * frame file name. *Note (4): Source of the coordinates: * [*] DSS-II; * [#] HST-WCS; HST archive frame file name. * [1] (B005) - * [3] (B208) - * [6] (B453) - * [7] (B472) - * [11] (B257D) - coordinates from Perrett et al., 2002AJ....123.2490P; * [2] (B064) - coordinates from Barmby et al., 2000AJ....119..727B; * [4] (B284) - coordinates from Battistini et al., 1980A&AS...42..357B. * The corresponding object identified in the finding chart in * Battistini et al., 1980A&AS...42..357B has however different * coordinates, i.e. 00:44:56.69 +41:00:56.6; * [5] (B288) - the coordinates in Battistini et al., * 1980A&AS...42..357B are incorrect; * [8] (B190D) - coordinates from Sargent et al., 1977AJ.....82..947S, * but the corresponding object identified on the finding chart in * HD81 has different coordinates, i.e. 00:40:17.54 +41:39:19.97; * [9] (G083) - coordinates from SG77, but the corresponding object * identified on the finding chart in HD81 has different * coordinates, i.e. 00:41:08.89 +41:09:50.15; * [10] (B142) - coordinates from the finding chart in Battistini et al., * 1980A&AS...42..357B, but the corresponding object in tab. III * has different coordinates, i.e. 00:42:59.29 +41:20:41.78. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Photometry data for M31 globular clusters and candidates integer*4 nr__1 parameter (nr__1=1035) ! Number of records character*128 ar__1 ! Full-size record character*7 Name_1 ! Designation integer*4 f_1 ! Flag of the real nature of the entry (G1) real*8 Umag ! (mag) ? U magnitude character*1 f_Umag ! [* +] Indicates a F300W instead of standard * U-band magnitudes (2) real*8 Bmag ! (mag) ? B magnitude character*1 f_Bmag ! [#*] Flag of B magnitudes (2) real*8 Vmag ! (mag) ? V magnitude character*1 f_Vmag ! [#'"*] Flag of V magnitudes (2) character*1 u_Vmag ! Uncertainty flag on Vmag real*8 Rmag ! (mag) ? R magnitude character*1 f_Rmag ! [*] Flag of R magnitudes (2) real*8 Imag ! (mag) ? I magnitude character*1 f_Imag ! [*] Flag of I magnitudes (2) real*8 Jmag ! (mag) ? J magnitude real*8 Hmag ! (mag) ? H magnitude real*8 Kmag ! (mag) ? K magnitude character*37 Source_1 ! Optical source and NIR pre-2MASS (3) *Note (2): Flags for magnitude: * [*] U,B,V,R photographic magnitudes (Battistini et al., * 1987A&AS...67..447B) transformed to the CCD U,B, V,R magnitudes * of Barmby et al., 2000AJ....119..727B; unpublished I * photographic magnitudes measured on a Tautenburg plate as in * Battistini et al., 1987A&AS...67..447B (FFP), reported to the * Barmby et al., 2000AJ....119..727B I magnitudes; * [#] B,V photographic magnitudes, Buonanno et al., * 1982A&AS...47..451B, (tab. II); * ['] V magnitude obtained by eye, Battistini et al., * 1980A&AS...42..357B, (tab. V); * ["] (B109D) - Reed et al. (1994AJ....107..555R): B=15.473, V=15.131, * R=14.666, they probably measured a near brightest star. *Note (3): See refs.dat file for reference codes. * "p2" indicates objects with significant differences between 2MASS * photometry and pre-2MASS photometry (in a few case there are another * source near the object). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Photometry data for objects that are not clusters integer*4 nr__2 parameter (nr__2=129) ! Number of records character*128 ar__2 ! Full-size record character*7 Name_2 ! Designation integer*4 f_2 ! Flag of the real nature of the entry (G1) real*8 Umag_1 ! (mag) ? U magnitude character*1 f_Umag_1 ! [* +] Indicates a F300W instead of standard * U-band magnitudes (2) real*8 Bmag_1 ! (mag) ? B magnitude character*1 f_Bmag_1 ! [#*] Flag of B magnitudes (2) real*8 Vmag_1 ! (mag) ? V magnitude character*1 f_Vmag_1 ! [#'"*] Flag of V magnitudes (2) character*1 u_Vmag_1 ! Uncertainty flag on Vmag real*8 Rmag_1 ! (mag) ? R magnitude character*1 f_Rmag_1 ! [*] Flag of R magnitudes (2) real*8 Imag_1 ! (mag) ? I magnitude character*1 f_Imag_1 ! [*] Flag of I magnitudes (2) real*8 Jmag_1 ! (mag) ? J magnitude real*8 Hmag_1 ! (mag) ? H magnitude real*8 Kmag_1 ! (mag) ? K magnitude character*37 Source_2 ! Optical source and NIR pre-2MASS (3) *Note (2): Flags for magnitude: * [*] U,B,V,R photographic magnitudes (Battistini et al., * 1987A&AS...67..447B) transformed to the CCD U,B, V,R magnitudes * of Barmby et al., 2000AJ....119..727B; unpublished I * photographic magnitudes measured on a Tautenburg plate as in * Battistini et al., 1987A&AS...67..447B (FFP), reported to the * Barmby et al., 2000AJ....119..727B I magnitudes; * [#] B,V photographic magnitudes, Buonanno et al., * 1982A&AS...47..451B, (tab. II); * ['] V magnitude obtained by eye, Battistini et al., * 1980A&AS...42..357B, (tab. V); * ["] (B109D) - Reed et al. (1994AJ....107..555R): B=15.473, V=15.131, * R=14.666, they probably measured a near brightest star. *Note (3): See refs.dat file for reference codes. * "p2" indicates objects with significant differences between 2MASS * photometry and pre-2MASS photometry (in a few case there are another * source near the object). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__3 parameter (nr__3=56) ! Number of records character*72 ar__3 ! Full-size record character*5 Ref ! Reference code (1) character*19 BibCode ! Bibcode character*19 Aut ! Author's name character*25 Com_1 ! Comments *Note (1): B87: tabVII contains objects that are probably non-clusters C============================================================================= C Loading file 'table2.dat' ! Revised Bologna Catalog for M31 globular * clusters candidates (positions) C Format for file interpretation 1 format( + 3X,A14,1X,A7,2X,A4,1X,A4,1X,A4,1X,I4,2X,I3,1X,I4,I3,I3,I4,I3, + 2X,I1,1X,A3,A1,1X,A1,4X,A37,3X,I2,1X,I2,1X,F6.3,1X,A1,I2,1X, + I2,1X,F5.2,1X,A12) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,1164 read(1,'(A161)')ar__ read(ar__,1) + M31,Name,Bol,SKHB,v_V62_,NBol,ACH,v_CCS85_,BA3,SH,v_MKK98_,BH, + f,C,S,V,Com,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Source if(ar__(43:46) .EQ. '') NBol = iNULL__ if(ar__(49:51) .EQ. '') ACH = iNULL__ if(ar__(53:56) .EQ. '') v_CCS85_ = iNULL__ if(ar__(57:59) .EQ. '') BA3 = iNULL__ if(ar__(60:62) .EQ. '') SH = iNULL__ if(ar__(63:66) .EQ. '') v_MKK98_ = iNULL__ if(ar__(67:69) .EQ. '') BH = iNULL__ RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1) + M31,Name,Bol,SKHB,v_V62_,NBol,ACH,v_CCS85_,BA3,SH,v_MKK98_,BH, + f,C,S,V,Com,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Source write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Photometry data for M31 globular clusters and * candidates C Format for file interpretation 2 format( + A7,1X,I2,2X,F7.3,A1,1X,F7.3,A1,2X,F7.3,A1,A1,1X,F7.3,A1,2X, + F7.3,A1,2X,F7.3,2X,F7.3,2X,F7.3,5X,A37) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,1035 read(1,'(A128)')ar__1 read(ar__1,2) + Name_1,f_1,Umag,f_Umag,Bmag,f_Bmag,Vmag,f_Vmag,u_Vmag,Rmag, + f_Rmag,Imag,f_Imag,Jmag,Hmag,Kmag,Source_1 if(ar__1(13:19) .EQ. '') Umag = rNULL__ if(ar__1(22:28) .EQ. '') Bmag = rNULL__ if(ar__1(32:38) .EQ. '') Vmag = rNULL__ if(ar__1(42:48) .EQ. '') Rmag = rNULL__ if(ar__1(52:58) .EQ. '') Imag = rNULL__ if(ar__1(62:68) .EQ. '') Jmag = rNULL__ if(ar__1(71:77) .EQ. '') Hmag = rNULL__ if(ar__1(80:86) .EQ. '') Kmag = rNULL__ c ..............Just test output........... write(6,2) + Name_1,f_1,Umag,f_Umag,Bmag,f_Bmag,Vmag,f_Vmag,u_Vmag,Rmag, + f_Rmag,Imag,f_Imag,Jmag,Hmag,Kmag,Source_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Photometry data for objects that are not clusters C Format for file interpretation 3 format( + A7,1X,I2,2X,F7.3,A1,1X,F7.3,A1,2X,F7.3,A1,A1,1X,F7.3,A1,2X, + F7.3,A1,2X,F7.3,2X,F7.3,2X,F7.3,5X,A37) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,129 read(1,'(A128)')ar__2 read(ar__2,3) + Name_2,f_2,Umag_1,f_Umag_1,Bmag_1,f_Bmag_1,Vmag_1,f_Vmag_1, + u_Vmag_1,Rmag_1,f_Rmag_1,Imag_1,f_Imag_1,Jmag_1,Hmag_1,Kmag_1, + Source_2 if(ar__2(13:19) .EQ. '') Umag_1 = rNULL__ if(ar__2(22:28) .EQ. '') Bmag_1 = rNULL__ if(ar__2(32:38) .EQ. '') Vmag_1 = rNULL__ if(ar__2(42:48) .EQ. '') Rmag_1 = rNULL__ if(ar__2(52:58) .EQ. '') Imag_1 = rNULL__ if(ar__2(62:68) .EQ. '') Jmag_1 = rNULL__ if(ar__2(71:77) .EQ. '') Hmag_1 = rNULL__ if(ar__2(80:86) .EQ. '') Kmag_1 = rNULL__ c ..............Just test output........... write(6,3) + Name_2,f_2,Umag_1,f_Umag_1,Bmag_1,f_Bmag_1,Vmag_1,f_Vmag_1, + u_Vmag_1,Rmag_1,f_Rmag_1,Imag_1,f_Imag_1,Jmag_1,Hmag_1,Kmag_1, + Source_2 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 4 format(A5,2X,A19,A19,2X,A25) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,56 read(1,'(A72)')ar__3 read(ar__3,4)Ref,BibCode,Aut,Com_1 c ..............Just test output........... write(6,4)Ref,BibCode,Aut,Com_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end