Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/397/473 into FORTRAN code for loading all data files into arrays.
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/397/473 HST photometry of M51 cluster (Bik+, 2003) *================================================================================ *Clusters in the inner spiral arms of M51: *The cluster IMF and the formation history. * Bik A., Lamers H.J.G.L.M., Bastian N., Panagia N., Romaniello M. * <Astron. Astrophys. 397, 473 (2003)> * =2003A&A...397..473B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! *Coordinates and HST-WFPC2 broad-band photometry of 881 clusters in the inner regions of the M51 integer*4 nr__ parameter (nr__=881) ! Number of records character*99 ar__ ! Full-size record integer*4 Cl (nr__) ! Index number of all point sources * ([BLB2003] Cl NNN in Simbad) integer*4 Seq (nr__) ! Old index number real*8 Xpos (nr__) ! (pix) X-coordinate of the HST-WF2 chip (G1) real*8 Ypos (nr__) ! (pix) Y-coordinate of the HST-WF2 chip (G1) real*4 F255W (nr__) ! (mag) [0.00] F255W filter magnitude (not observed) real*4 e_F255W (nr__) ! (mag) [9.99] rms uncertainty on F255W (not observed) real*4 F336W (nr__) ! (mag) ?=99.99 or 0.00 F336W (U) filter magnitude (2) real*4 e_F336W (nr__) ! (mag) ?=9.99 rms uncertainty on F336W (2) real*4 F439W (nr__) ! (mag) ?=99.99 or 0.00 F439W (B) filter magnitude (2) real*4 e_F439W (nr__) ! (mag) ?=9.99 rms uncertainty on F439W (2) real*4 F555W (nr__) ! (mag) ?=0.00 F555W (V) filter magnitude (2) real*4 e_F555W (nr__) ! (mag) ?=9.99 rms uncertainty on F555W (2) real*4 F675W (nr__) ! (mag) ?=0.00 F675W (R) filter magnitude (2) real*4 e_F675W (nr__) ! (mag) ?=9.99 rms uncertainty on F675W (2) real*4 F814W (nr__) ! (mag) ?=99.99 or 0.00 F814W (I) filter magnitude (2) real*4 e_F814W (nr__) ! (mag) ?=9.99 rms uncertainty on F814W (2) character*1 q_F255W (nr__) ! Observation in F255W filter information (3) character*1 q_F336W (nr__) ! Observation in F336W filter information (3) character*1 q_F439W (nr__) ! Observation in F439W filter information (3) character*1 q_F555W (nr__) ! Observation in F555W filter information (3) character*1 q_F675W (nr__) ! Observation in F675W filter information (3) character*1 q_F814W (nr__) ! Observation in F814W filter information (3) *Note (2): Magnitudes in the VEGAMAG system, Holtzman et al., 1995PASP..107..156H * 0.00 means: not observed (outside the observed field) * 99.99 means: source too faint, only lower magnitude limit * Lower magnitude limits: * F336W=20.0, F439W=22.0, F555W=22.0, F675W=21.5, F814W=21.0 (see paper) *Note (3): Code that summarizes the observations * 0 = not observed (outside observed HST-field), * 1 = observed magnitude * 9 = lower magnitude limit only c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! *Coordinates and HST-WFPC2 narrow-band H{alpha} and [OIII] photometry of 114 sources in the inner regions of the M51. integer*4 nr__1 parameter (nr__1=114) ! Number of records character*61 ar__1 ! Full-size record integer*4 HA (nr__1) ! Sequential number of H{alpha} sources * ([BLB2003] HA NNN in Simbad) integer*4 Cl_1 (nr__1) ! Corresponding number in table4 real*8 Xpos_1 (nr__1) ! (pix) X-coordinate of H{alpha} source on * HST-WF2-chip (G1) real*8 Ypos_1 (nr__1) ! (pix) Y-coordinate of H{alpha} source on * HST-WF2-chip (G1) real*4 F656N (nr__1) ! (mag) F656N (H{alpha}) filter magnitude real*4 e_F656N (nr__1) ! (mag) rms uncertainty on F656N real*4 F502N (nr__1) ! (mag) ?=0.00 F502N ([OIII]) filter magnitude real*4 e_F502N (nr__1) ! (mag) ?=9.99 rms uncertainty on F502N real*4 F814W_1 (nr__1) ! (mag) F814W (I) filter magnitude real*4 e_F814W_1 (nr__1) ! (mag) rms uncertainty on F814W integer*4 OverHa (nr__1) ! [0/2] Position-overlap of H{alpha} source and * F814W-source (1) integer*4 OverOIII (nr__1) ! [0/2] Position-overlap of [OIII]-source and * F814W-source (1) *Note (1): Position-overlap codes: * 1 or 2: position overlap is okay ({Delta}x<1.5 and {Delta}y<1.5 pix) * 0: position overlap is suspect = * (1.5<{Delta}x<2.0 or 1.5<{Delta}y<2.0 pix) C============================================================================= C Loading file 'table4.dat' ! *Coordinates and HST-WFPC2 broad-band photometry * of 881 clusters in the inner regions of the M51 C Format for file interpretation 1 format( + I3,1X,I4,1X,F7.3,1X,F7.3,1X,F4.2,1X,F4.2,1X,F5.2,2X,F4.2,1X, + F5.2,2X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,2X,F4.2, + 1X,A1,A1,A1,A1,A1,A1) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,881 read(1,'(A99)')ar__ read(ar__,1) + Cl(i__),Seq(i__),Xpos(i__),Ypos(i__),F255W(i__),e_F255W(i__), + F336W(i__),e_F336W(i__),F439W(i__),e_F439W(i__),F555W(i__), + e_F555W(i__),F675W(i__),e_F675W(i__),F814W(i__),e_F814W(i__), + q_F255W(i__),q_F336W(i__),q_F439W(i__),q_F555W(i__), + q_F675W(i__),q_F814W(i__) c ..............Just test output........... write(6,1) + Cl(i__),Seq(i__),Xpos(i__),Ypos(i__),F255W(i__),e_F255W(i__), + F336W(i__),e_F336W(i__),F439W(i__),e_F439W(i__),F555W(i__), + e_F555W(i__),F675W(i__),e_F675W(i__),F814W(i__),e_F814W(i__), + q_F255W(i__),q_F336W(i__),q_F439W(i__),q_F555W(i__), + q_F675W(i__),q_F814W(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! *Coordinates and HST-WFPC2 narrow-band H{alpha} * and [OIII] photometry of 114 sources in the * inner regions of the M51. C Format for file interpretation 2 format( + I3,1X,I3,1X,F7.3,1X,F7.3,1X,F5.2,1X,F4.2,1X,F5.2,2X,F4.2,1X, + F5.2,1X,F4.2,1X,I1,1X,I1) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,114 read(1,'(A61)')ar__1 read(ar__1,2) + HA(i__),Cl_1(i__),Xpos_1(i__),Ypos_1(i__),F656N(i__), + e_F656N(i__),F502N(i__),e_F502N(i__),F814W_1(i__), + e_F814W_1(i__),OverHa(i__),OverOIII(i__) c ..............Just test output........... write(6,2) + HA(i__),Cl_1(i__),Xpos_1(i__),Ypos_1(i__),F656N(i__), + e_F656N(i__),F502N(i__),e_F502N(i__),F814W_1(i__), + e_F814W_1(i__),OverHa(i__),OverOIII(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end