Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/620/1010 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-19 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/620/1010 Spitzer 24{mu}m photometry of A dwarfs (Rieke+, 2005) *================================================================================ *Decay of planetary debris disks. * Rieke G.H., Su K.Y.L., Stansberry J.A., Trilling D., Bryden G., * Muzerolle J., White B., Gorlova N., Young E.T., Beichman C.A., * Stapelfeldt K.R., Hines D.C. * <Astrophys. J., 620, 1010-1026 (2005)> * =2005ApJ...620.1010R C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Sample of stars integer*4 nr__ parameter (nr__=266) ! Number of records character*101 ar__ ! Full-size record character*15 Name (nr__) ! Star name (1) character*3 n_Name (nr__) ! Notes on Name (2) real*4 Kmag (nr__) ! (mag) The K band magnitude character*2 r_Kmag (nr__) ! Reference for Kmag real*8 F24um (nr__) ! (Jy) Flux density at 24{mu}m character*2 r_F24um (nr__) ! Reference for Flux real*4 Ratio (nr__) ! Excess ratio (3) integer*4 Age1 (nr__) ! (Myr) First age estimate character*2 r_Age1 (nr__) ! Reference for Age1 integer*4 Age2 (nr__) ! (Myr) ? Second age estimate character*2 r_Age2 (nr__) ! Reference for Age2 integer*4 Age3 (nr__) ! (Myr) ? Third age estimate character*2 r_Age3 (nr__) ! Reference for Age3 character*9 SpType (nr__) ! MK spectral type from SIMBAD character*1 n_SpType (nr__) ! Reference for non-SIMBAD SpType (4) real*4 J_K (nr__) ! (mag) ? The (J-K) color real*4 plx (nr__) ! (mas) ? SIMBAD parallax character*1 n_plx (nr__) ! Reference for plx (5) integer*4 vsini (nr__) ! (km/s) ? SIMBAD rotational velocity character*1 u_vsini (nr__) ! Uncertainty flag on vsini *Note (1): Alphabetical and numerical order. *Note (2): Flag on Name, defined as follows: * a = spectroscopic binary; * b = visible double; * c = Algol-type; * d = {lambda} Boo-type; * e = {zeta} Lep; * f = {beta} Pic; * g = HR 4796A; * h = Vega; * j = Fomalhaut. *Note (3): Normalized ratio of 24{mu}m flux density to expected photospheric * flux density. *Note (4): Reference for non-SIMBAD SpType, defined as follows: * a = Gray et al. (2004, NStars Spectra (Booue: Appalachian State Univ. * Dark Star Obs.)); * b = Hauck & North (1993A&A...269..403H). *Note (5): A "a" indicates that a value of 6mas was used in calculating * luminosity, because it is consistent with the measured value and * more in line with the moving group membership. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'refs.dat' ! References integer*4 nr__1 parameter (nr__1=34) ! Number of records character*111 ar__1 ! Full-size record character*2 Ref (nr__1) ! Reference character*19 Bibcode (nr__1) ! Bibcode character*27 Aut (nr__1) ! Author's name character*60 Com (nr__1) ! Comments C============================================================================= C Loading file 'table1.dat' ! Sample of stars C Format for file interpretation 1 format( + A15,1X,A3,1X,F5.2,1X,A2,1X,F8.5,1X,A2,1X,F5.2,1X,I3,1X,A2,1X, + I3,1X,A2,1X,I3,1X,A2,1X,A9,1X,A1,1X,F6.3,1X,F6.2,1X,A1,2X,I3, + A1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,266 read(1,'(A101)')ar__ read(ar__,1) + Name(i__),n_Name(i__),Kmag(i__),r_Kmag(i__),F24um(i__), + r_F24um(i__),Ratio(i__),Age1(i__),r_Age1(i__),Age2(i__), + r_Age2(i__),Age3(i__),r_Age3(i__),SpType(i__),n_SpType(i__), + J_K(i__),plx(i__),n_plx(i__),vsini(i__),u_vsini(i__) if(ar__(55:57) .EQ. '') Age2(i__) = iNULL__ if(ar__(62:64) .EQ. '') Age3(i__) = iNULL__ if(ar__(81:86) .EQ. '') J_K(i__) = rNULL__ if(ar__(88:93) .EQ. '') plx(i__) = rNULL__ if(ar__(98:100) .EQ. '') vsini(i__) = iNULL__ c ..............Just test output........... write(6,1) + Name(i__),n_Name(i__),Kmag(i__),r_Kmag(i__),F24um(i__), + r_F24um(i__),Ratio(i__),Age1(i__),r_Age1(i__),Age2(i__), + r_Age2(i__),Age3(i__),r_Age3(i__),SpType(i__),n_SpType(i__), + J_K(i__),plx(i__),n_plx(i__),vsini(i__),u_vsini(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(A2,1X,A19,1X,A27,1X,A60) C Effective file loading open(unit=1,status='old',file= +'refs.dat') write(6,*) '....Loading file: refs.dat' do i__=1,34 read(1,'(A111)')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