FORTRAN Generation
(/./ftp/cats/V/151)

Conversion of standardized ReadMe file for file /./ftp/cats/V/151 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. V/151               VANDELS High-Redshift Galaxy Evolution       (McLure+, 2017)
*================================================================================
*VANDELS High-Redshift Galaxy Evolution: Spectroscopic and Photometric
*Redshifts in the CANDELS UDS and CDFS Fields
*    McLure R., Pentericci L., VANDELS Team
*   <The Messenger, vol. 167, 31-35 (2017)>
*   =2017Msngr.167...31M
*   =2017yCat.5151....0M
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'cdfs.dat'	! VANDELS CDFS field

      integer*4 nr__
      parameter (nr__=415)	! Number of records
      character*162 ar__   	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*19  Id         (nr__) ! VANDELS object name (id) (1)
      real*8        RAdeg      (nr__) ! (deg) Right ascension (J2000) (alpha)
      real*8        DEdeg      (nr__) ! (deg) Declination (J2000) (delta)
      real*8        imag       (nr__) ! (mg) ? i (AB) selection magnitude (i_AB)
      character*12  iFilt      (nr__) ! i (AB) selection magnitude filter (i_FILTER)(2)
      real*8        zmag       (nr__) ! (mg) ? z (AB) selection magnitude (z_AB)
      character*10  zFilt      (nr__) ! z (AB) selection magnitude filter (z_FILTER)(3)
      real*8        Hmag       (nr__) ! (mg) ? H (AB) selection magnitude (H_AB)
      character*9   HFilt      (nr__) ! H (AB) selection magnitude filter (H_FILTER)(4)
      integer*4     Schedtime  (nr__) ! (s) Total requested exposure time (t_schedtime)
      real*8        Exptime    (nr__) ! (s) Current total exposure time (t_exptime)
      real*8        zph        (nr__) ! Photometric redshift (zphot)
      real*4        zsp        (nr__) ! ? Spectroscopic redshift (zspec)
      integer*4     q_zsp      (nr__) ! ? Spectroscopic redshift quality flag (zflg) (5)
      character*24  FileName   (nr__) ! FITS file name of the original spectrum
*                                  (FILENAME)
*Note (1): VANDELS_CDFS_NNNNNN for CDFS field, VANDELS_UDS_NNNNNN for UDF field.
*Note (2): HST_F775W and SUBARU_IA738 for CDFS field, SUBARU_i' for UDF field.
*Note (3): HST_F850LP for CDFS field, SUBARU_z' for CDFS field.
*Note (4): HST_F160W and VISTA_H for CDFS field,
*           HST_F160W and WFCAM_H for UDF field.
*Note (5): Spectroscopic redshift quality flag as follows:
*    0 = no redshift could be assigned
*    1 = 50% probability to be correct
*    2 = 75% probability to be correct
*    3 = 95% probability to be correct
*    4 = 100% probability to be correct
*    9 = spectrum with a single emission line. The redshift given is the most 
*         probable given the observed continuum, it has a >80% probability to 
*         be correct
*   14 = 100% probability to be correct from AGN spectrum

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'uds.dat'	! VANDELS UDS field

      integer*4 nr__1
      parameter (nr__1=464)	! Number of records
      character*162 ar__1  	! Full-size record

C  J2000 position composed of: RAdeg DEdeg
      character*19  Id_1       (nr__1) ! VANDELS object name (id) (1)
      real*8        RAdeg_1    (nr__1) ! (deg) Right ascension (J2000) (alpha)
      real*8        DEdeg_1    (nr__1) ! (deg) Declination (J2000) (delta)
      real*8        imag_1     (nr__1) ! (mg) ? i (AB) selection magnitude (i_AB)
      character*12  iFilt_1    (nr__1) ! i (AB) selection magnitude filter (i_FILTER)(2)
      real*8        zmag_1     (nr__1) ! (mg) ? z (AB) selection magnitude (z_AB)
      character*10  zFilt_1    (nr__1) ! z (AB) selection magnitude filter (z_FILTER)(3)
      real*8        Hmag_1     (nr__1) ! (mg) ? H (AB) selection magnitude (H_AB)
      character*9   HFilt_1    (nr__1) ! H (AB) selection magnitude filter (H_FILTER)(4)
      integer*4     Schedtime_1(nr__1) ! (s) Total requested exposure time (t_schedtime)
      real*8        Exptime_1  (nr__1) ! (s) Current total exposure time (t_exptime)
      real*8        zph_1      (nr__1) ! Photometric redshift (zphot)
      real*4        zsp_1      (nr__1) ! ? Spectroscopic redshift (zspec)
      integer*4     q_zsp_1    (nr__1) ! ? Spectroscopic redshift quality flag (zflg) (5)
      character*24  FileName_1 (nr__1) ! FITS file name of the original spectrum
*                                  (FILENAME)
*Note (1): VANDELS_CDFS_NNNNNN for CDFS field, VANDELS_UDS_NNNNNN for UDF field.
*Note (2): HST_F775W and SUBARU_IA738 for CDFS field, SUBARU_i' for UDF field.
*Note (3): HST_F850LP for CDFS field, SUBARU_z' for CDFS field.
*Note (4): HST_F160W and VISTA_H for CDFS field,
*           HST_F160W and WFCAM_H for UDF field.
*Note (5): Spectroscopic redshift quality flag as follows:
*    0 = no redshift could be assigned
*    1 = 50% probability to be correct
*    2 = 75% probability to be correct
*    3 = 95% probability to be correct
*    4 = 100% probability to be correct
*    9 = spectrum with a single emission line. The redshift given is the most 
*         probable given the observed continuum, it has a >80% probability to 
*         be correct
*   14 = 100% probability to be correct from AGN spectrum

C=============================================================================

C  Loading file 'cdfs.dat'	! VANDELS CDFS field

C  Format for file interpretation

    1 format(
     +  A19,1X,F9.5,1X,F9.5,1X,F7.4,1X,A12,1X,F7.4,1X,A10,1X,F7.4,1X,
     +  A9,1X,I6,1X,F14.7,1X,F7.5,1X,F6.4,1X,I2,1X,A24)

C  Effective file loading

      open(unit=1,status='old',file=
     +'cdfs.dat')
      write(6,*) '....Loading file: cdfs.dat'
      do i__=1,415
        read(1,'(A162)')ar__
        read(ar__,1)
     +  Id(i__),RAdeg(i__),DEdeg(i__),imag(i__),iFilt(i__),zmag(i__),
     +  zFilt(i__),Hmag(i__),HFilt(i__),Schedtime(i__),Exptime(i__),
     +  zph(i__),zsp(i__),q_zsp(i__),FileName(i__)
        if(ar__(41:47) .EQ. '') imag(i__) = rNULL__
        if(ar__(62:68) .EQ. '') zmag(i__) = rNULL__
        if(ar__(81:87) .EQ. '') Hmag(i__) = rNULL__
        if(ar__(129:134) .EQ. '') zsp(i__) = rNULL__
        if(ar__(136:137) .EQ. '') q_zsp(i__) = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  Id(i__),RAdeg(i__),DEdeg(i__),imag(i__),iFilt(i__),zmag(i__),
     +  zFilt(i__),Hmag(i__),HFilt(i__),Schedtime(i__),Exptime(i__),
     +  zph(i__),zsp(i__),q_zsp(i__),FileName(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'uds.dat'	! VANDELS UDS field

C  Format for file interpretation

    2 format(
     +  A19,1X,F9.5,1X,F9.5,1X,F7.4,1X,A12,1X,F7.4,1X,A10,1X,F7.4,1X,
     +  A9,1X,I6,1X,F14.7,1X,F7.5,1X,F6.4,1X,I2,1X,A24)

C  Effective file loading

      open(unit=1,status='old',file=
     +'uds.dat')
      write(6,*) '....Loading file: uds.dat'
      do i__=1,464
        read(1,'(A162)')ar__1
        read(ar__1,2)
     +  Id_1(i__),RAdeg_1(i__),DEdeg_1(i__),imag_1(i__),iFilt_1(i__),
     +  zmag_1(i__),zFilt_1(i__),Hmag_1(i__),HFilt_1(i__),
     +  Schedtime_1(i__),Exptime_1(i__),zph_1(i__),zsp_1(i__),
     +  q_zsp_1(i__),FileName_1(i__)
        if(ar__1(41:47) .EQ. '') imag_1(i__) = rNULL__
        if(ar__1(62:68) .EQ. '') zmag_1(i__) = rNULL__
        if(ar__1(81:87) .EQ. '') Hmag_1(i__) = rNULL__
        if(ar__1(129:134) .EQ. '') zsp_1(i__) = rNULL__
        if(ar__1(136:137) .EQ. '') q_zsp_1(i__) = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  Id_1(i__),RAdeg_1(i__),DEdeg_1(i__),imag_1(i__),iFilt_1(i__),
     +  zmag_1(i__),zFilt_1(i__),Hmag_1(i__),HFilt_1(i__),
     +  Schedtime_1(i__),Exptime_1(i__),zph_1(i__),zsp_1(i__),
     +  q_zsp_1(i__),FileName_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end