FORTRAN Generation
(/./ftp/cats/J/A_A/441/451)

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