Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/788/77 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-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/ApJ/788/77 Milky Way L/T/M-dwarfs identified in BoRG survey (Holwerda+, 2014) *================================================================================ *Milky Way red dwarfs in the BoRG survey: galactic scale-height and *the distribution of dwarf stars in WFC3 imaging. * Holwerda B.W., Trenti M., Clarkson W., Sahu K., Bradley L., Stiavelli M., * Pirzkal N., De Marchi G., Andersen M., Bouwens R., Ryan R. * <Astrophys. J., 788, 77 (2014)> * =2014ApJ...788...77H (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! The M-dwarfs Identified by PEARS in the CANDELS Field integer*4 nr__ parameter (nr__=24) ! Number of records character*67 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 ID (nr__) ! Identification number, NNNNNN, * [PBM2009] sNNNNNN in Simbad real*4 SpType (nr__) ! Sub M spectral type real*8 RAdeg (nr__) ! (deg) Rigth ascension (J2000) real*8 DEdeg (nr__) ! (deg) Declination (J2000) real*4 F435Wmag (nr__) ! (mag) F435W magnitude (1) real*4 F606Wmag (nr__) ! (mag) F606W magnitude (1) real*4 F775Wmag (nr__) ! (mag) F775W magnitude (1) real*4 F850Wmag (nr__) ! (mag) F850W magnitude (1) real*4 F125Wmag (nr__) ! (mag) F125W magnitude (2) real*4 F160Wmag (nr__) ! (mag) F160W magnitude (2) *Note (1): Optical magnitudes are from Pirzkal et al. (2009, Cat. J/ApJ/695/1591) *Note (2): F125W and F160W magnitudes from our sextractor catalog of the * CANDELS field (table 4) or ERS mosaic (table 5). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! The M-dwarfs Identified by PEARS in the ERS Mosaic integer*4 nr__1 parameter (nr__1=22) ! Number of records character*67 ar__1 ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 ID_1 (nr__1) ! Identification number, NNNNNN, * [PBM2009] sNNNNNN in Simbad real*4 SpType_1 (nr__1) ! Sub M spectral type real*8 RAdeg_1 (nr__1) ! (deg) Rigth ascension (J2000) real*8 DEdeg_1 (nr__1) ! (deg) Declination (J2000) real*4 F435Wmag_1 (nr__1) ! (mag) F435W magnitude (1) real*4 F606Wmag_1 (nr__1) ! (mag) F606W magnitude (1) real*4 F775Wmag_1 (nr__1) ! (mag) F775W magnitude (1) real*4 F850Wmag_1 (nr__1) ! (mag) F850W magnitude (1) real*4 F125Wmag_1 (nr__1) ! (mag) F125W magnitude (2) real*4 F160Wmag_1 (nr__1) ! (mag) F160W magnitude (2) *Note (1): Optical magnitudes are from Pirzkal et al. (2009, Cat. J/ApJ/695/1591) *Note (2): F125W and F160W magnitudes from our sextractor catalog of the * CANDELS field (table 4) or ERS mosaic (table 5). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table14.dat' ! The 30 L-dwarfs Identified in BoRG integer*4 nr__2 parameter (nr__2=30) ! Number of records character*137 ar__2 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 borg (nr__2) ! Source identifier (borg_HHMM+DDMM.NNNN.N) real*8 RAdeg_2 (nr__2) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_2 (nr__2) ! (deg) Declination in decimal degrees (J2000) real*8 GLON (nr__2) ! (deg) Galactic longitude real*8 GLAT (nr__2) ! (deg) Galactic latitude real*4 F098Mmag (nr__2) ! (mag) HST/WFC3 F098M filter magnitude real*4 e_F098Mmag (nr__2) ! (mag) Uncertainty in F098Mmag real*4 F125Wmag_2 (nr__2) ! (mag) HST/WFC3 F125W filter magnitude real*4 e_F125Wmag (nr__2) ! (mag) Uncertainty in F125Wmag real*4 F160Wmag_2 (nr__2) ! (mag) HST/WFC3 F160W filter magnitude real*4 e_F160Wmag (nr__2) ! (mag) Uncertainty in F160Wmag real*4 F606Wmag_2 (nr__2) ! (mag) HST/WFC3 F606W filter magnitude real*4 e_F606Wmag (nr__2) ! (mag) Uncertainty in F606Wmag real*4 Mtype (nr__2) ! ? M-dwarf type; see Equ. 4. real*4 e_Mtype (nr__2) ! ? Uncertainty in Mtype real*4 DM (nr__2) ! (mag) ? Distance modulus real*4 Dist (nr__2) ! (kpc) ? Distance real*4 Z (nr__2) ! (kpc) ? Milky Way scale height real*4 Rad (nr__2) ! (kpc) []? Galactic radius c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table15.dat' ! The 1 T-dwarfs Identified in BoRG integer*4 nr__3 parameter (nr__3=1) ! Number of records character*137 ar__3 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 borg_1 (nr__3) ! Source identifier (borg_HHMM+DDMM.NNNN.N) real*8 RAdeg_3 (nr__3) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_3 (nr__3) ! (deg) Declination in decimal degrees (J2000) real*8 GLON_1 (nr__3) ! (deg) Galactic longitude real*8 GLAT_1 (nr__3) ! (deg) Galactic latitude real*4 F098Mmag_1 (nr__3) ! (mag) HST/WFC3 F098M filter magnitude real*4 e_F098Mmag_1(nr__3) ! (mag) Uncertainty in F098Mmag real*4 F125Wmag_3 (nr__3) ! (mag) HST/WFC3 F125W filter magnitude real*4 e_F125Wmag_1(nr__3) ! (mag) Uncertainty in F125Wmag real*4 F160Wmag_3 (nr__3) ! (mag) HST/WFC3 F160W filter magnitude real*4 e_F160Wmag_1(nr__3) ! (mag) Uncertainty in F160Wmag real*4 F606Wmag_3 (nr__3) ! (mag) HST/WFC3 F606W filter magnitude real*4 e_F606Wmag_1(nr__3) ! (mag) Uncertainty in F606Wmag real*4 Mtype_1 (nr__3) ! ? M-dwarf type; see Equ. 4. real*4 e_Mtype_1 (nr__3) ! ? Uncertainty in Mtype real*4 DM_1 (nr__3) ! (mag) ? Distance modulus real*4 Dist_1 (nr__3) ! (kpc) ? Distance real*4 Z_1 (nr__3) ! (kpc) ? Milky Way scale height real*4 Rad_1 (nr__3) ! (kpc) []? Galactic radius c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table16.dat' ! The 274 M-dwarfs identified in BoRG integer*4 nr__4 parameter (nr__4=274) ! Number of records character*137 ar__4 ! Full-size record C J2000 position composed of: RAdeg DEdeg character*16 borg_2 (nr__4) ! Source identifier (borg_HHMM+DDMM.NNNN.N) real*8 RAdeg_4 (nr__4) ! (deg) Right Ascension in decimal degrees (J2000) real*8 DEdeg_4 (nr__4) ! (deg) Declination in decimal degrees (J2000) real*8 GLON_2 (nr__4) ! (deg) Galactic longitude real*8 GLAT_2 (nr__4) ! (deg) Galactic latitude real*4 F098Mmag_2 (nr__4) ! (mag) HST/WFC3 F098M filter magnitude real*4 e_F098Mmag_2(nr__4) ! (mag) Uncertainty in F098Mmag real*4 F125Wmag_4 (nr__4) ! (mag) HST/WFC3 F125W filter magnitude real*4 e_F125Wmag_2(nr__4) ! (mag) Uncertainty in F125Wmag real*4 F160Wmag_4 (nr__4) ! (mag) HST/WFC3 F160W filter magnitude real*4 e_F160Wmag_2(nr__4) ! (mag) Uncertainty in F160Wmag real*4 F606Wmag_4 (nr__4) ! (mag) HST/WFC3 F606W filter magnitude real*4 e_F606Wmag_2(nr__4) ! (mag) Uncertainty in F606Wmag real*4 Mtype_2 (nr__4) ! ? M-dwarf type; see Equ. 4. real*4 e_Mtype_2 (nr__4) ! ? Uncertainty in Mtype real*4 DM_2 (nr__4) ! (mag) ? Distance modulus real*4 Dist_2 (nr__4) ! (kpc) ? Distance real*4 Z_2 (nr__4) ! (kpc) ? Milky Way scale height real*4 Rad_2 (nr__4) ! (kpc) []? Galactic radius C============================================================================= C Loading file 'table4.dat' ! The M-dwarfs Identified by PEARS in the CANDELS * Field C Format for file interpretation 1 format( + I6,1X,F3.1,1X,F9.6,1X,F10.6,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2, + 1X,F5.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,24 read(1,'(A67)')ar__ read(ar__,1) + ID(i__),SpType(i__),RAdeg(i__),DEdeg(i__),F435Wmag(i__), + F606Wmag(i__),F775Wmag(i__),F850Wmag(i__),F125Wmag(i__), + F160Wmag(i__) c ..............Just test output........... write(6,1) + ID(i__),SpType(i__),RAdeg(i__),DEdeg(i__),F435Wmag(i__), + F606Wmag(i__),F775Wmag(i__),F850Wmag(i__),F125Wmag(i__), + F160Wmag(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! The M-dwarfs Identified by PEARS in the ERS Mosaic C Format for file interpretation 2 format( + I6,1X,F3.1,1X,F9.6,1X,F10.6,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2, + 1X,F5.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,22 read(1,'(A67)')ar__1 read(ar__1,2) + ID_1(i__),SpType_1(i__),RAdeg_1(i__),DEdeg_1(i__), + F435Wmag_1(i__),F606Wmag_1(i__),F775Wmag_1(i__), + F850Wmag_1(i__),F125Wmag_1(i__),F160Wmag_1(i__) c ..............Just test output........... write(6,2) + ID_1(i__),SpType_1(i__),RAdeg_1(i__),DEdeg_1(i__), + F435Wmag_1(i__),F606Wmag_1(i__),F775Wmag_1(i__), + F850Wmag_1(i__),F125Wmag_1(i__),F160Wmag_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table14.dat' ! The 30 L-dwarfs Identified in BoRG C Format for file interpretation 3 format( + 5X,A16,1X,F10.6,1X,F10.6,1X,F10.6,1X,F10.6,1X,F4.1,1X,F3.1,1X, + F4.1,1X,F3.1,1X,F4.1,1X,F3.1,1X,F4.1,1X,F4.1,1X,F4.1,1X,F3.1, + 1X,F5.2,1X,F5.2,1X,F6.2,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table14.dat') write(6,*) '....Loading file: table14.dat' do i__=1,30 read(1,'(A137)')ar__2 read(ar__2,3) + borg(i__),RAdeg_2(i__),DEdeg_2(i__),GLON(i__),GLAT(i__), + F098Mmag(i__),e_F098Mmag(i__),F125Wmag_2(i__),e_F125Wmag(i__), + F160Wmag_2(i__),e_F160Wmag(i__),F606Wmag_2(i__), + e_F606Wmag(i__),Mtype(i__),e_Mtype(i__),DM(i__),Dist(i__), + Z(i__),Rad(i__) if(ar__2(104:107) .EQ. '') Mtype(i__) = rNULL__ if(ar__2(109:111) .EQ. '') e_Mtype(i__) = rNULL__ if(ar__2(113:117) .EQ. '') DM(i__) = rNULL__ if(ar__2(119:123) .EQ. '') Dist(i__) = rNULL__ if(ar__2(125:130) .EQ. '') Z(i__) = rNULL__ if(ar__2(132:137) .EQ. '') Rad(i__) = rNULL__ c ..............Just test output........... write(6,3) + borg(i__),RAdeg_2(i__),DEdeg_2(i__),GLON(i__),GLAT(i__), + F098Mmag(i__),e_F098Mmag(i__),F125Wmag_2(i__),e_F125Wmag(i__), + F160Wmag_2(i__),e_F160Wmag(i__),F606Wmag_2(i__), + e_F606Wmag(i__),Mtype(i__),e_Mtype(i__),DM(i__),Dist(i__), + Z(i__),Rad(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table15.dat' ! The 1 T-dwarfs Identified in BoRG C Format for file interpretation 4 format( + 5X,A16,1X,F10.6,1X,F10.6,1X,F10.6,1X,F10.6,1X,F4.1,1X,F3.1,1X, + F4.1,1X,F3.1,1X,F4.1,1X,F3.1,1X,F4.1,1X,F4.1,1X,F4.1,1X,F3.1, + 1X,F5.2,1X,F5.2,1X,F6.2,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table15.dat') write(6,*) '....Loading file: table15.dat' do i__=1,1 read(1,'(A137)')ar__3 read(ar__3,4) + borg_1(i__),RAdeg_3(i__),DEdeg_3(i__),GLON_1(i__),GLAT_1(i__), + F098Mmag_1(i__),e_F098Mmag_1(i__),F125Wmag_3(i__), + e_F125Wmag_1(i__),F160Wmag_3(i__),e_F160Wmag_1(i__), + F606Wmag_3(i__),e_F606Wmag_1(i__),Mtype_1(i__),e_Mtype_1(i__), + DM_1(i__),Dist_1(i__),Z_1(i__),Rad_1(i__) if(ar__3(104:107) .EQ. '') Mtype_1(i__) = rNULL__ if(ar__3(109:111) .EQ. '') e_Mtype_1(i__) = rNULL__ if(ar__3(113:117) .EQ. '') DM_1(i__) = rNULL__ if(ar__3(119:123) .EQ. '') Dist_1(i__) = rNULL__ if(ar__3(125:130) .EQ. '') Z_1(i__) = rNULL__ if(ar__3(132:137) .EQ. '') Rad_1(i__) = rNULL__ c ..............Just test output........... write(6,4) + borg_1(i__),RAdeg_3(i__),DEdeg_3(i__),GLON_1(i__),GLAT_1(i__), + F098Mmag_1(i__),e_F098Mmag_1(i__),F125Wmag_3(i__), + e_F125Wmag_1(i__),F160Wmag_3(i__),e_F160Wmag_1(i__), + F606Wmag_3(i__),e_F606Wmag_1(i__),Mtype_1(i__),e_Mtype_1(i__), + DM_1(i__),Dist_1(i__),Z_1(i__),Rad_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table16.dat' ! The 274 M-dwarfs identified in BoRG C Format for file interpretation 5 format( + 5X,A16,1X,F10.6,1X,F10.6,1X,F10.6,1X,F10.6,1X,F4.1,1X,F3.1,1X, + F4.1,1X,F3.1,1X,F4.1,1X,F3.1,1X,F4.1,1X,F4.1,1X,F4.1,1X,F3.1, + 1X,F5.2,1X,F5.2,1X,F6.2,1X,F6.2) C Effective file loading open(unit=1,status='old',file= +'table16.dat') write(6,*) '....Loading file: table16.dat' do i__=1,274 read(1,'(A137)')ar__4 read(ar__4,5) + borg_2(i__),RAdeg_4(i__),DEdeg_4(i__),GLON_2(i__),GLAT_2(i__), + F098Mmag_2(i__),e_F098Mmag_2(i__),F125Wmag_4(i__), + e_F125Wmag_2(i__),F160Wmag_4(i__),e_F160Wmag_2(i__), + F606Wmag_4(i__),e_F606Wmag_2(i__),Mtype_2(i__),e_Mtype_2(i__), + DM_2(i__),Dist_2(i__),Z_2(i__),Rad_2(i__) if(ar__4(104:107) .EQ. '') Mtype_2(i__) = rNULL__ if(ar__4(109:111) .EQ. '') e_Mtype_2(i__) = rNULL__ if(ar__4(113:117) .EQ. '') DM_2(i__) = rNULL__ if(ar__4(119:123) .EQ. '') Dist_2(i__) = rNULL__ if(ar__4(125:130) .EQ. '') Z_2(i__) = rNULL__ if(ar__4(132:137) .EQ. '') Rad_2(i__) = rNULL__ c ..............Just test output........... write(6,5) + borg_2(i__),RAdeg_4(i__),DEdeg_4(i__),GLON_2(i__),GLAT_2(i__), + F098Mmag_2(i__),e_F098Mmag_2(i__),F125Wmag_4(i__), + e_F125Wmag_2(i__),F160Wmag_4(i__),e_F160Wmag_2(i__), + F606Wmag_4(i__),e_F606Wmag_2(i__),Mtype_2(i__),e_Mtype_2(i__), + DM_2(i__),Dist_2(i__),Z_2(i__),Rad_2(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end