Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/380/347 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/A+A/380/347 BVRI photometry of 27 Kuiper Belt Objects (Delsanti+, 2001) *================================================================================ *BVRI photometry of 27 Kuiper Belt Objects with ESO/ Very Large Telescope * Delsanti A.C., Boehnhardt H., Barrera L., Meech K.J, Sekiguchi T., * Hainaut O.R. * <Astron. Astrophys. 380, 347 (2001)> * =2001A&A...380..347D C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Magnitudes obtained for Run 1 and 2 using a fixed aperture diameter integer*4 nr__ parameter (nr__=52) ! Number of records character*74 ar__ ! Full-size record character*9 Object (nr__) ! Object designation character*10 Date (nr__) ! ("YYYY/MM/DD") UT date of observation real*4 r (nr__) ! (AU) Heliocentric distance at the epoch of * observation real*4 Bmag (nr__) ! (mag) ? B magnitude real*4 e_Bmag (nr__) ! (mag) ? rms uncertainty on Bmag real*4 Vmag (nr__) ! (mag) ? V magnitude real*4 e_Vmag (nr__) ! (mag) ? rms uncertainty on Vmag real*4 Rmag (nr__) ! (mag) ? R magnitude real*4 e_Rmag (nr__) ! (mag) ? rms uncertainty on Rmag real*4 Imag (nr__) ! (mag) ? I magnitude real*4 e_Imag (nr__) ! (mag) ? rms uncertainty on Imag character*3 Notes (nr__) ! Individual notes, separated by comma (1) *Note (1): Individual notes: * 1: Contamination by a nearby star. The magnitudes presented in this * table have been corrected for this effect. * 2: Possible variability. * 3: Aperture diameter of 3 FWHM * 4: Object weak in B frame * 5: Bad seeing for some of the frames c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Absolute magnitude and colors for all objects, obtained from the photometric measurement presented in table2 integer*4 nr__1 parameter (nr__1=32) ! Number of records character*82 ar__1 ! Full-size record character*9 Object_1 (nr__1) ! Object designation character*4 Class (nr__1) ! Class (1) character*3 Run (nr__1) ! [12ab (*)] Run of observation (2) real*4 M11 (nr__1) ! (mag) ? Absolute magnitude real*4 e_M11 (nr__1) ! (mag) ? rms uncertainty on M11 real*4 R_1 (nr__1) ! (km) Estimation of the object radius using * Russell (1916ApJ....43..173R) real*4 e_R (nr__1) ! (km) rms uncertainty on R real*4 S (nr__1) ! (10-4nm-1) ? Spectral reddening gradient (in %/100nm) real*4 e_S (nr__1) ! (10-4nm-1) ? rms uncertainty on S (in %/100nm) real*4 B_V (nr__1) ! (mag) ? B-V colour index real*4 e_B_V (nr__1) ! (mag) ? rms uncertainty on B-V real*4 V_R (nr__1) ! (mag) ? V-R colour index real*4 e_V_R (nr__1) ! (mag) ? rms uncertainty on V-R real*4 R_I (nr__1) ! (mag) ? R-I colour index real*4 e_R_I (nr__1) ! (mag) ? rms uncertainty on R-I *Note (1): Class: * QB1: Cubewano * Plut: Plutino * Scat: Scaterred Disk Object * Cent: Centaur *Note (2): Run (UT date): * 1a=2000 Sep 04 * 1b=2000 Sep 05 * 2a=2000 Nov 29 * 2b=2000 Nov 30 * (*)=compilation of Run 2a & 2b (29 and 30 Nov 2000) * For objects measured during both runs, we present one value per run, * in order to highlight any intrinsic change. C============================================================================= C Loading file 'table2.dat' ! Magnitudes obtained for Run 1 and 2 using a * fixed aperture diameter C Format for file interpretation 1 format( + A9,1X,A10,1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X, + F4.2,1X,F5.2,1X,F4.2,1X,A3) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,52 read(1,'(A74)')ar__ read(ar__,1) + Object(i__),Date(i__),r(i__),Bmag(i__),e_Bmag(i__),Vmag(i__), + e_Vmag(i__),Rmag(i__),e_Rmag(i__),Imag(i__),e_Imag(i__), + Notes(i__) if(ar__(28:32) .EQ. '') Bmag(i__) = rNULL__ if(ar__(34:37) .EQ. '') e_Bmag(i__) = rNULL__ if(ar__(39:43) .EQ. '') Vmag(i__) = rNULL__ if(ar__(45:48) .EQ. '') e_Vmag(i__) = rNULL__ if(ar__(50:54) .EQ. '') Rmag(i__) = rNULL__ if(ar__(56:59) .EQ. '') e_Rmag(i__) = rNULL__ if(ar__(61:65) .EQ. '') Imag(i__) = rNULL__ if(ar__(67:70) .EQ. '') e_Imag(i__) = rNULL__ c ..............Just test output........... write(6,1) + Object(i__),Date(i__),r(i__),Bmag(i__),e_Bmag(i__),Vmag(i__), + e_Vmag(i__),Rmag(i__),e_Rmag(i__),Imag(i__),e_Imag(i__), + Notes(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Absolute magnitude and colors for all objects, * obtained from the photometric measurement * presented in table2 C Format for file interpretation 2 format( + A9,1X,A4,1X,A3,1X,F5.2,1X,F4.2,1X,F5.1,1X,F4.1,1X,F5.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,32 read(1,'(A82)')ar__1 read(ar__1,2) + Object_1(i__),Class(i__),Run(i__),M11(i__),e_M11(i__), + R_1(i__),e_R(i__),S(i__),e_S(i__),B_V(i__),e_B_V(i__), + V_R(i__),e_V_R(i__),R_I(i__),e_R_I(i__) if(ar__1(20:24) .EQ. '') M11(i__) = rNULL__ if(ar__1(26:29) .EQ. '') e_M11(i__) = rNULL__ if(ar__1(42:46) .EQ. '') S(i__) = rNULL__ if(ar__1(48:51) .EQ. '') e_S(i__) = rNULL__ if(ar__1(53:56) .EQ. '') B_V(i__) = rNULL__ if(ar__1(58:61) .EQ. '') e_B_V(i__) = rNULL__ if(ar__1(63:66) .EQ. '') V_R(i__) = rNULL__ if(ar__1(68:71) .EQ. '') e_V_R(i__) = rNULL__ if(ar__1(73:76) .EQ. '') R_I(i__) = rNULL__ if(ar__1(78:81) .EQ. '') e_R_I(i__) = rNULL__ c ..............Just test output........... write(6,2) + Object_1(i__),Class(i__),Run(i__),M11(i__),e_M11(i__), + R_1(i__),e_R(i__),S(i__),e_S(i__),B_V(i__),e_B_V(i__), + V_R(i__),e_V_R(i__),R_I(i__),e_R_I(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end