Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/501/949 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/501/949 Star cluster properties in five spiral galaxies (Mora+, 2009) *================================================================================ *Imaging of star clusters in unperturbed spiral galaxies with the Advanced Camera *for Surveys. *II. A comparison of star cluster systems in five late type spirals. * Mora M.D., Larsen S.S, Kissler-Patig M., Brodie J.P., Richtler T. * <Astron. Astrophys. 501, 949 (2009)> * =2009A&A...501..949M C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table.dat' ! Derived star cluster properties for all galaxies integer*4 nr__ parameter (nr__=580) ! Number of records character*251 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*13 Name ! Cluster ID (1) integer*4 RAh ! (h) Hour Right Ascension J2000 (hours) integer*4 RAm ! (min) Right Ascension J2000 (minutes) real*8 RAs ! (s) Right Ascension J2000 (seconds) character*1 DE_ ! Declination J2000 (sign) integer*4 DEd ! (deg) Declination J2000 (degrees) integer*4 DEm ! (arcmin) Declination J2000 (minutes) real*4 DEs ! (arcsec) Declination J2000 (seconds) real*8 Xpos ! (pix) X position on the CCD according to the image real*8 Ypos ! (pix) Y position on the CCD according to the image real*4 Bmag ! (mag) B(F435W) photometry real*4 e_Bmag ! (mag) Photometry error of F435W (Sigma_F435W) real*4 Vmag ! (mag) V(F555W) photometry real*4 e_Vmag ! (mag) Photometry error of F555W (Sigma_F555W) real*4 Imag ! (mag) I(F814W) photometry real*4 e_Imag ! (mag) Photometry error of F814W (Sigma_F814W) real*4 Umag ! (mag) U(F336W) photometry real*4 e_Umag ! (mag) Photometry error of F336W (Sigma_F336W) real*8 BfwhmS ! (pix) FWHM in pixels measured in the B(F435W) * images according to SExtractor real*8 Bfwhm ! (pix) FWHM in pixels measured in the B(F435W) * images according to ISHAPE real*8 Vfwhm ! (pix) FWHM in pixels measured in the V(F555W) * images according to ISHAPE real*8 Ifwhm ! (pix) FWHM in pixels measured in the I(F814W) * images according to ISHAPE real*4 E_B_V_1 ! (mag) Color excess calculated with Z=0.004 GALEV real*4 E_B_V_2 ! (mag) Color excess calculated with Z=0.008 GALEV real*4 E_B_V_3 ! (mag) Color excess calculated with Z=0.02 GALEV real*4 E_B_V_4 ! (mag) Color excess calculated with Z=0.05 GALEV real*4 E_B_V_5 ! (mag) Color excess calculated with Z=0.004 Girardi real*4 E_B_V_6 ! (mag) Color excess calculated with Z=0.019 Girardi real*4 Age1 ! ([yr]) log(Age) calculated with Z=0.004 GALEV real*4 Age2 ! ([yr]) log(Age) calculated with Z=0.008 GALEV real*4 Age3 ! ([yr]) log(Age) calculated with Z=0.02 GALEV real*4 Age4 ! ([yr]) log(Age) calculated with Z=0.05 GALEV real*4 Age5 ! ([yr]) log(Age) calculated with Z=0.004 Girardi real*4 Age6 ! ([yr]) log(Age) calculated with Z=0.019 Girardi real*4 Mass1 ! ([solMass]) log(Mass) calculated with Z=0.004 GALEV real*4 Mass2 ! ([solMass]) log(Mass) calculated with Z=0.008 GALEV real*4 Mass3 ! ([solMass]) log(Mass) calculated with Z=0.02 GALEV real*4 Mass4 ! ([solMass]) log(Mass) calculated with Z=0.05 GALEV real*4 Mass5 ! ([solMass]) log(Mass) calculated with Z=0.004 Girardi real*4 Mass6 ! ([solMass]) log(Mass) calculated with Z=0.019 Girardi *Note (1): Galaxy ID: Name_Field_N C============================================================================= C Loading file 'table.dat' ! Derived star cluster properties for all galaxies C Format for file interpretation 1 format( + A13,1X,I2,1X,I2,1X,F7.4,1X,A1,I2,1X,I2,1X,F6.3,1X,F8.3,1X, + F8.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F6.3, + 1X,F5.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F7.3,1X,F5.3,1X,F5.3,1X, + F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3, + 1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X, + F5.3) C Effective file loading open(unit=1,status='old',file= +'table.dat') write(6,*) '....Loading file: table.dat' do i__=1,580 read(1,'(A251)')ar__ read(ar__,1) + Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Xpos,Ypos,Bmag,e_Bmag,Vmag, + e_Vmag,Imag,e_Imag,Umag,e_Umag,BfwhmS,Bfwhm,Vfwhm,Ifwhm, + E_B_V_1,E_B_V_2,E_B_V_3,E_B_V_4,E_B_V_5,E_B_V_6,Age1,Age2, + Age3,Age4,Age5,Age6,Mass1,Mass2,Mass3,Mass4,Mass5,Mass6 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) + Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Xpos,Ypos,Bmag,e_Bmag,Vmag, + e_Vmag,Imag,e_Imag,Umag,e_Umag,BfwhmS,Bfwhm,Vfwhm,Ifwhm, + E_B_V_1,E_B_V_2,E_B_V_3,E_B_V_4,E_B_V_5,E_B_V_6,Age1,Age2, + Age3,Age4,Age5,Age6,Mass1,Mass2,Mass3,Mass4,Mass5,Mass6 write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= stop end