Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/441/451 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/441/451 UBVRIJHK photometry of E-type galaxies (Michard+, 2005) *================================================================================ *Near infra-red and optical colour gradients in E-type galaxies. *Inferences on dust content. * Michard R. * <Astron. Astrophys., 441, 451-464 (2005)> * =2005A&A...441..451M C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'photom.dat' ! Data compiled and derived for this work integer*4 nr__ parameter (nr__=54) ! Number of records character*164 ar__ ! Full-size record character*7 Name ! NGC or IC designation character*4 MType ! E, S0 type, and subtype for E (1) integer*4 sigma ! (km/s) Central velocity dispersion (1) integer*4 F100um ! (Jy) ? IRAS 100um flux normalized to Virgo * distance (1) real*4 logre ! ([arcsec]) Adopted de Vaucouleurs radius , r_e_ real*4 U_B ! (mag) ?=9.99 U-B colour zero-point at r_e_/2 (2) real*4 e_U_B ! (mag) ?=.00 Probable error on U-B colour real*4 logdU_B ! ([-]) ?=0.999 Logarithmic radial gradient of U-B (2) real*4 e_logdU_B ! ([-]) ?=.000 Probable error on dU-B colour gradient real*4 B_V ! (mag) ?=9.99 B-V colour zero-point at r_e_/2 (2) real*4 e_B_V ! (mag) ?=.00 Probable error on B-V colour real*4 logdB_V ! ([-]) ?=0.999 Logarithmic radial gradient of B-V (2) real*4 e_logdB_V ! ([-]) ?=.000 Probable error on dB-V colour gradient real*4 B_R ! (mag) ?=9.99 B-R colour zero-point at r_e_/2 (2) real*4 e_B_R ! (mag) ?=.00 Probable error on B-R colour real*4 logdB_R ! ([-]) ?=0.999 Logarithmic radial gradient of B-R (2) real*4 e_logdB_R ! ([-]) ?=.000 Probable error on dB-R colour gradient real*4 V_I ! (mag) ?=9.99 V-I colour zero-point at r_e_/2 (2) real*4 e_V_I ! (mag) ?=.00 Probable error on V-I colour real*4 logdV_I ! ([-]) ?=0.999 Logarithmic radial gradient of V-I (2) real*4 e_logdV_I ! ([-]) ?=.000 Probable error on dV-I colour gradient real*4 V_J ! (mag) ?=9.99 V-J colour zero-point at r_e_/2 real*4 logdV_J ! ([-]) ?=0.999 Logarithmic radial gradient of V-J (3) real*4 V_K ! (mag) ?=9.99 V-K colour zero-point at r_e_/2 real*4 logdV_K ! ([-]) ?=0.999 Logarithmic radial gradient of V-K (3) real*4 J_H ! (mag) ?=9.99 J-H colour zero-point at r_e_/2 real*4 logdJ_H ! ([-]) ?=0.999 Logarithmic radial gradient of J-H (3) real*4 J_K ! (mag) ?=9.99 J-K colour zero-point at r_e_/2 real*4 logdJ_K ! ([-]) Logarithmic radial gradient of J-K (3) real*4 S2 ! Peculiarity index (1) *Note (1): Galaxy types and subtypes, central velocity dispersion, IRAs fluxes * and the S_2_ index are repeated from Michard & Prugniel, 2004, * Cat. <J/A+A/423/833> *Note (2): U-B, B-V, B-R and V-I colours and gradients are taken and/or * remeasured from several sources, hence the derivation of errors * for each object. *Note (3): V-J, V-K, J-H, J-K colours and gradients are new measurements * deemed homogeneous: probable errors should be nearly the same * for all objects. * Errors on zero-point colours: 0.025 in V-J, V-K, 0.013 in J-H, J-K * Errors on gradients: 0.032 in dV-J, 0.035 in dV-K, 0.017 in dJ-H, dJ-K C============================================================================= C Loading file 'photom.dat' ! Data compiled and derived for this work C Format for file interpretation 1 format( + A7,1X,A4,1X,I3,1X,I5,1X,F4.2,1X,F4.2,1X,F3.2,1X,F6.3,1X,F4.3, + 1X,F4.2,1X,F3.2,1X,F6.3,1X,F4.3,1X,F4.2,1X,F3.2,1X,F6.3,1X, + F4.3,1X,F4.2,1X,F3.2,1X,F6.3,1X,F4.3,1X,F4.2,1X,F6.3,1X,F4.2, + 1X,F6.3,1X,F4.2,1X,F6.3,1X,F4.2,1X,F6.3,2X,F3.1) C Effective file loading open(unit=1,status='old',file= +'photom.dat') write(6,*) '....Loading file: photom.dat' do i__=1,54 read(1,'(A164)')ar__ read(ar__,1) + Name,MType,sigma,F100um,logre,U_B,e_U_B,logdU_B,e_logdU_B,B_V, + e_B_V,logdB_V,e_logdB_V,B_R,e_B_R,logdB_R,e_logdB_R,V_I,e_V_I, + logdV_I,e_logdV_I,V_J,logdV_J,V_K,logdV_K,J_H,logdJ_H,J_K, + logdJ_K,S2 if(ar__(18:22) .EQ. '') F100um = iNULL__ c ..............Just test output........... write(6,1) + Name,MType,sigma,F100um,logre,U_B,e_U_B,logdU_B,e_logdU_B,B_V, + e_B_V,logdB_V,e_logdB_V,B_R,e_B_R,logdB_R,e_logdB_R,V_I,e_V_I, + logdV_I,e_logdV_I,V_J,logdV_J,V_K,logdV_K,J_H,logdJ_H,J_K, + logdJ_K,S2 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end