Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/470/281 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/470/281 WFI optical photometry in Cha II dark cloud (Spezzi+, 2007) *================================================================================ *A WFI survey in the Chamaeleon II dark cloud. * Spezzi L., Alcala J.M., Frasca A., Covino E., Gandolfi D. * <Astron. Astrophys. 470, 281 (2007)> * =2007A&A...470..281S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table7.dat' ! Optical photometry of objects in the ChaII dark cloud integer*4 nr__ parameter (nr__=74) ! Number of records character*149 ar__ ! Full-size record C J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg (nr__) ! (deg) Right Ascension J2000 real*8 DEdeg (nr__) ! (deg) Declination J2000 C ---------------------------------- ! (position vector(s) in degrees) character*21 Name (nr__) ! Object name integer*4 RAh (nr__) ! (h) Right ascension (J2000) (1) integer*4 RAm (nr__) ! (min) Right ascension (J2000) (1) real*4 RAs (nr__) ! (s) Right ascension (J2000) (1) character*1 DE_ (nr__) ! Declination sign (J2000) (1) integer*4 DEd (nr__) ! (deg) Declination (J2000) (1) integer*4 DEm (nr__) ! (arcmin) Declination (J2000) (1) real*4 DEs (nr__) ! (arcsec) Declination (J2000) (1) real*4 Rcmag (nr__) ! (mag) ? Cousins R magnitude real*4 e_Rcmag (nr__) ! (mag) ? rms uncertainty on Rcmag character*1 n_Rcmag (nr__) ! [*] * when magnitude from literature (2) character*2 f_Rcmag (nr__) ! [S ] Flag when no value (3) real*4 Icmag (nr__) ! (mag) ? Cousins I magnitude real*4 e_Icmag (nr__) ! (mag) ? rms uncertainty on Icmag character*1 n_Icmag (nr__) ! [*] * when magnitude from literature (2) character*2 f_Icmag (nr__) ! [S ] Flag when no value (3) real*4 zmag (nr__) ! (mag) ? z magnitude in the WFI z+/61 filter * (central wavelength at 964.819nm) real*4 e_zmag (nr__) ! (mag) ? rms uncertainty on zmag character*2 f_zmag (nr__) ! [S ND] Flag when no value (3) real*4 Ha7mag (nr__) ! (mag) ? Halpha7 magnitude in the WFI Halpha/7 filter * (central wavelength at 658.827nm) real*4 e_Ha7mag (nr__) ! (mag) ? rms uncertainty on Ha7mag character*2 f_Ha7mag (nr__) ! [ND NO] Flag when no value (3) real*4 Ha12mag (nr__) ! (mag) ? Halpha12 magnitude in the WFI 665/12 filter * (central wavelength at 665nm) real*4 e_Ha12mag (nr__) ! (mag) ? rms uncertainty on Ha12mag character*2 f_Ha12mag (nr__) ! [ND NO] Flag when no value (3) real*4 m856mag (nr__) ! (mag) ? m856 magnitude in the WFI 856/12 filter * (central wavelength at 856nm) real*4 e_m856mag (nr__) ! (mag) ? rms uncertainty on m856mag character*2 f_m856mag (nr__) ! [S NO] Flag when no value (3) real*4 m914mag (nr__) ! (mag) ? m914 magnitude in the WFI 914/12 filter * (central wavelength at 914nm) real*4 e_m914mag (nr__) ! (mag) ? rms uncertainty on m914mag character*2 n_m914mag (nr__) ! [S NO] Flag when no value (3) character*3 Refs (nr__) ! [a-m ,] Reference for the object, in refs.dat character*5 Notes (nr__) ! Note for the object (4) *Note (1): The positions for most objects are from the R-band images. * For saturated objects in the R-band the positions are from the * H{alpha}_12_ images; the coordinates of Sz 62, not observed in * H{alpha}, are from the z-band image. *Note (2): Magnitudes marked with an asterisk are taken from the the * literature (see the relative references) and correspond to * objects saturated in our images. Comments about some of * these objects are given in Appendix C. *Note (3): Flag as follows: * S = Saturated object * ND = Object not detected * NO = Object not observed *Note (4): Notes as follows: * * = Confirmed member * o = Previously known candidate * a = Object recovered by our selection criteria * N = Member candidate firstly identified in this work * b = Object rejected on the basis of our selection criteria * c = Veiled object * d = Embedded object * e = Component of a visual binary or multiple system c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__1 parameter (nr__1=13) ! Number of records character*81 ar__1 ! Full-size record character*1 Ref (nr__1) ! Reference code character*19 BibCode (nr__1) ! BibCode character*34 Aut (nr__1) ! Author's name character*21 Com (nr__1) ! Comments C============================================================================= C Loading file 'table7.dat' ! Optical photometry of objects in the ChaII dark cloud C Format for file interpretation 1 format( + A21,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X, + F4.2,A1,A2,1X,F5.2,1X,F4.2,A1,A2,1X,F5.2,1X,F4.2,A2,1X,F5.2, + 1X,F4.2,A2,1X,F5.2,1X,F4.2,A2,1X,F5.2,1X,F4.2,A2,1X,F5.2,1X, + F4.2,A2,1X,A3,1X,A5) C Effective file loading open(unit=1,status='old',file= +'table7.dat') write(6,*) '....Loading file: table7.dat' do i__=1,74 read(1,'(A149)')ar__ read(ar__,1) + Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__), + DEm(i__),DEs(i__),Rcmag(i__),e_Rcmag(i__),n_Rcmag(i__), + f_Rcmag(i__),Icmag(i__),e_Icmag(i__),n_Icmag(i__), + f_Icmag(i__),zmag(i__),e_zmag(i__),f_zmag(i__),Ha7mag(i__), + e_Ha7mag(i__),f_Ha7mag(i__),Ha12mag(i__),e_Ha12mag(i__), + f_Ha12mag(i__),m856mag(i__),e_m856mag(i__),f_m856mag(i__), + m914mag(i__),e_m914mag(i__),n_m914mag(i__),Refs(i__), + Notes(i__) if(ar__(48:52) .EQ. '') Rcmag(i__) = rNULL__ if(ar__(54:57) .EQ. '') e_Rcmag(i__) = rNULL__ if(ar__(62:66) .EQ. '') Icmag(i__) = rNULL__ if(ar__(68:71) .EQ. '') e_Icmag(i__) = rNULL__ if(ar__(76:80) .EQ. '') zmag(i__) = rNULL__ if(ar__(82:85) .EQ. '') e_zmag(i__) = rNULL__ if(ar__(89:93) .EQ. '') Ha7mag(i__) = rNULL__ if(ar__(95:98) .EQ. '') e_Ha7mag(i__) = rNULL__ if(ar__(102:106) .EQ. '') Ha12mag(i__) = rNULL__ if(ar__(108:111) .EQ. '') e_Ha12mag(i__) = rNULL__ if(ar__(115:119) .EQ. '') m856mag(i__) = rNULL__ if(ar__(121:124) .EQ. '') e_m856mag(i__) = rNULL__ if(ar__(128:132) .EQ. '') m914mag(i__) = rNULL__ if(ar__(134:137) .EQ. '') e_m914mag(i__) = rNULL__ RAdeg(i__) = rNULL__ DEdeg(i__) = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15. if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4. if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240. if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__) if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60. if(DEs(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEs(i__)/3600. if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__) c ..............Just test output........... write(6,1) + Name(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__), + DEm(i__),DEs(i__),Rcmag(i__),e_Rcmag(i__),n_Rcmag(i__), + f_Rcmag(i__),Icmag(i__),e_Icmag(i__),n_Icmag(i__), + f_Icmag(i__),zmag(i__),e_zmag(i__),f_zmag(i__),Ha7mag(i__), + e_Ha7mag(i__),f_Ha7mag(i__),Ha12mag(i__),e_Ha12mag(i__), + f_Ha12mag(i__),m856mag(i__),e_m856mag(i__),f_m856mag(i__), + m914mag(i__),e_m914mag(i__),n_m914mag(i__),Refs(i__), + Notes(i__) write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'refs.dat' ! References C Format for file interpretation 2 format(A1,1X,A19,1X,A34,4X,A21) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,13 read(1,'(A81)')ar__1 read(ar__1,2)Ref(i__),BibCode(i__),Aut(i__),Com(i__) c ..............Just test output........... write(6,2)Ref(i__),BibCode(i__),Aut(i__),Com(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end