Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/511/A50 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. J/A+A/511/A50 JHks of GOODS-South field (Retzlaff+, 2010) *================================================================================ *The Great Observatories Origins Deep Survey. VLT/ISAAC near-infrared imaging of *the GOODS-South field. * Retzlaff J., Rosati P., Dickinson M., Vandame B., Rite C., Nonino M., * Cesarsky C., The GOODS Team * <Astron. Astrophys., 511, A50-50 (2010)> * =2010A&A...511A..50R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'catalog.dat' ! JHKs catalog integer*4 nr__ parameter (nr__=7079) ! Number of records character*319 ar__ ! Full-size record C J2000 position composed of: RAdeg DEdeg integer*4 Seq (nr__) ! [1/7079] Sequential number real*4 RAdeg (nr__) ! (deg) Right ascension in decimal degrees (J2000) real*4 DEdeg (nr__) ! (deg) Declination in decimal degrees (J2000) integer*4 Aiso (nr__) ! (pix) Isophotal area (ISOAREAF_IMAGE) real*4 rKron (nr__) ! Scaling of the automatic elliptical aperture * inspired by Kron (1980ApJS...43..305K) real*4 FWHM (nr__) ! (pix) Source radius (FWHM) real*4 Ell (nr__) ! Source ellipticity real*4 a (nr__) ! (deg) Ellipse semi-major axis (world coordinates) real*4 b (nr__) ! (deg) Ellipse semi-minor axis (world coordinates) real*4 theta (nr__) ! (deg) [-90,90] Ellipse orientation (world coordinates) integer*4 flg (nr__) ! SExtractor flags, possibly combined in a * logical OR fashion (1) real*4 Jmag (nr__) ! (mag) J magnitude real*4 e_Jmag (nr__) ! (mag) rms uncertainty on Jmag real*4 Hmag (nr__) ! (mag) H magnitude real*4 e_Hmag (nr__) ! (mag) rms uncertainty on Hmag real*4 Ksmag (nr__) ! (mag) Ks magnitude real*4 e_Ksmag (nr__) ! (mag) rms uncertainty on Ksmag real*4 Ktmag (nr__) ! (mag) Total Ks magnitude assuming a point source * profile real*4 e_Ktmag (nr__) ! (mag) rms uncertainty on KsmagTot real*4 J_Ks (nr__) ! (mag) J-Ks colour index, differentially corrected * for aperture losses real*4 e_J_Ks (nr__) ! (mag) rms uncertainty on J-Ks real*4 H_Ks (nr__) ! (mag) H-Ks colour index, differentially corrected * for aperture losses real*4 e_H_Ks (nr__) ! (mag) rms uncertainty on H-Ks character*6 Jframe (nr__) ! Original survey tile from which the J * measurement was extracted character*6 Hframe (nr__) ! Original survey tile from which the H * measurement was extracted character*7 Ksframe (nr__) ! Original survey tile from which the Ks * measurement was extracted *Note (1): SExtractor flags: * 1 = object has close neighbors * 2 = object was blended * 4 = object is saturated * 16 = aperture incomplete C============================================================================= C Loading file 'catalog.dat' ! JHKs catalog C Format for file interpretation 1 format( + I4,1X,E22.17,1X,E23.17,1X,I4,1X,E12.7,1X,E13.7,1X,E12.7,1X, + E12.8,1X,E12.8,1X,E13.8,1X,I2,1X,E12.7,1X,E12.7,1X,E12.7,1X, + E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E12.7,1X,E13.7,1X,E12.7, + 1X,E13.7,1X,E12.7,1X,A6,1X,A6,1X,A7) C Effective file loading open(unit=1,status='old',file= +'catalog.dat') write(6,*) '....Loading file: catalog.dat' do i__=1,7079 read(1,'(A319)')ar__ read(ar__,1) + Seq(i__),RAdeg(i__),DEdeg(i__),Aiso(i__),rKron(i__),FWHM(i__), + Ell(i__),a(i__),b(i__),theta(i__),flg(i__),Jmag(i__), + e_Jmag(i__),Hmag(i__),e_Hmag(i__),Ksmag(i__),e_Ksmag(i__), + Ktmag(i__),e_Ktmag(i__),J_Ks(i__),e_J_Ks(i__),H_Ks(i__), + e_H_Ks(i__),Jframe(i__),Hframe(i__),Ksframe(i__) c ..............Just test output........... write(6,1) + Seq(i__),RAdeg(i__),DEdeg(i__),Aiso(i__),rKron(i__),FWHM(i__), + Ell(i__),a(i__),b(i__),theta(i__),flg(i__),Jmag(i__), + e_Jmag(i__),Hmag(i__),e_Hmag(i__),Ksmag(i__),e_Ksmag(i__), + Ktmag(i__),e_Ktmag(i__),J_Ks(i__),e_J_Ks(i__),H_Ks(i__), + e_H_Ks(i__),Jframe(i__),Hframe(i__),Ksframe(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end