Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/506/1341 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/506/1341 Magnetic fields in white dwarfs (Kuelebi+, 2009) *================================================================================ *Analysis of hydrogen-rich magnetic white dwarfs detected in the *Sloan Digital Sky Survey. * Kuelebi B., Jordan S., Euchner F., Gaensicke B.T., Hirsch H. * <Astron. Astrophys., 506, 1341-1350 (2009)> * =2009A&A...506.1341K C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Model fits with centered dipole and offset dipole models with comparison to literature values integer*4 nr__ parameter (nr__=137) ! Number of records character*133 ar__ ! Full-size record character*19 MWD (nr__) ! SDSS name of the object, JHHMMSS.ss+DDMMSS.s integer*4 Plate (nr__) ! Plate number of SDSS observation integer*4 MJD (nr__) ! Modified Julian Date of SDSS observation integer*4 Fiber (nr__) ! Fiber number of SDSS observation real*4 Bp (nr__) ! (hT) Dipole magnetic field strength of the * centered dipole (in 10^6^Gauss) real*4 e_Bp (nr__) ! (hT) ? rms uncertainty on Bp integer*4 n_Bp (nr__) ! [1/2]? very large (1) or very small (2) errors real*4 i (nr__) ! (deg) Inclination with respect to the line of sight * of the centered dipole real*4 e_i (nr__) ! (deg) rms uncertainty on i integer*4 n_i (nr__) ! [1/2]? very large (1) or very small (2) errors real*8 Boff (nr__) ! (hT) ? Dipole magnetic field strength of the * offset dipole (in 10^6^Gauss) real*8 e_Boff (nr__) ! (hT) ? rms uncertainty on Boff integer*4 n_Boff (nr__) ! [1/2]? very large (1) or very small (2) errors real*4 zoff_R (nr__) ! ? Offset along the axis of the magnetic field * in terms of the stellar radius real*4 e_zoff_R (nr__) ! ? rms uncertainty on zoff/rWD character*1 n_zoff_R (nr__) ! [i] i for 1e+99 real*4 ioff (nr__) ! (deg) ? Inclination with respect to the line of * sight of the offset dipole real*4 e_ioff (nr__) ! (deg) ? rms uncertainty on ioff integer*4 n_ioff (nr__) ! [1/2]? very large (1) or very small (2) errors character*18 fits (nr__) ! Comments indicate the model parameters, * field strength and inclination (1) *Note (1): From the literature, i.e. Gaensicke et al. (2002A&A...394..957G), * Schmidt et al. (2003ApJ...595.1101S), Vanlandingham et al. (2005, Cat. * J/AJ/130/734). Asterisks indicate field strengths or inclinations with * uncertainties greater than 10% in Vanlandingham et al. C============================================================================= C Loading file 'table3.dat' ! Model fits with centered dipole and offset dipole * models with comparison to literature values C Format for file interpretation 1 format( + A19,1X,I4,1X,I5,1X,I3,1X,F6.2,2X,F6.2,1X,I1,1X,F5.2,1X,F6.2, + 1X,I1,1X,F7.3,F7.3,1X,I1,1X,F5.2,2X,F6.3,A1,1X,F6.3,1X,F6.2, + 1X,I1,1X,A18) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,137 read(1,'(A133)')ar__ read(ar__,1) + MWD(i__),Plate(i__),MJD(i__),Fiber(i__),Bp(i__),e_Bp(i__), + n_Bp(i__),i(i__),e_i(i__),n_i(i__),Boff(i__),e_Boff(i__), + n_Boff(i__),zoff_R(i__),e_zoff_R(i__),n_zoff_R(i__),ioff(i__), + e_ioff(i__),n_ioff(i__),fits(i__) if(ar__(44:49) .EQ. '') e_Bp(i__) = rNULL__ if(ar__(51:51) .EQ. '') n_Bp(i__) = iNULL__ if(ar__(66:66) .EQ. '') n_i(i__) = iNULL__ if(ar__(68:74) .EQ. '') Boff(i__) = rNULL__ if(ar__(75:81) .EQ. '') e_Boff(i__) = rNULL__ if(ar__(83:83) .EQ. '') n_Boff(i__) = iNULL__ if(ar__(85:89) .EQ. '') zoff_R(i__) = rNULL__ if(ar__(92:97) .EQ. '') e_zoff_R(i__) = rNULL__ if(ar__(100:105) .EQ. '') ioff(i__) = rNULL__ if(ar__(107:112) .EQ. '') e_ioff(i__) = rNULL__ if(ar__(114:114) .EQ. '') n_ioff(i__) = iNULL__ c ..............Just test output........... write(6,1) + MWD(i__),Plate(i__),MJD(i__),Fiber(i__),Bp(i__),e_Bp(i__), + n_Bp(i__),i(i__),e_i(i__),n_i(i__),Boff(i__),e_Boff(i__), + n_Boff(i__),zoff_R(i__),e_zoff_R(i__),n_zoff_R(i__),ioff(i__), + e_ioff(i__),n_ioff(i__),fits(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end