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