Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/718/L97 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/718/L97 Early asteroseismic results from Kepler (Van Grootel+, 2010) *================================================================================ *Early asteroseismic results from Kepler: structural and core parameters of the *hot b subdwarf KPD 1943+4058 as inferred from g-mode oscillations. * Van Grootel V., Charpinet S., Fontaine G., Brassard P., Green E.M., * Randall S.K., Silvotti R., Ostensen R.H., Kjeldsen H., * Christensen-Dalsgaard J., Borucki W.J., Koch D. * <Astrophys. J., 718, L97-L101 (2010)> * =2010ApJ...718L..97V C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! List of frequencies f_n_ (n is by order of decreasing amplitude) detected in KPD 1943+4058 integer*4 nr__ parameter (nr__=35) ! Number of records character*50 ar__ ! Full-size record character*5 ID (nr__) ! Mode identification (f_1_-f_27_, u_1_-u_14_) character*1 f_ID (nr__) ! [*] *: pulsation period safely assumed to be * independent (18 periods used in the analysis) real*8 Per (nr__) ! (s) Period real*8 Freq (nr__) ! (uHz) Frequency real*4 S_N (nr__) ! Signal to noise ratio character*21 Comm (nr__) ! Comments c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Mode identification and other properties integer*4 nr__1 parameter (nr__1=79) ! Number of records character*80 ar__1 ! Full-size record integer*4 l (nr__1) ! [1/4] Degree integer*4 k (nr__1) ! [-63/-3] Radial order real*8 nuObs (nr__1) ! (uHz) ? Observed frequency real*8 nuTh (nr__1) ! (uHz) Theoretical frequency real*8 PObs (nr__1) ! (s) ? Observed period real*8 PTh (nr__1) ! (s) Theoretical period real*4 logE (nr__1) ! ([10-7J]) Log of the energy; in erg real*4 Ckl (nr__1) ! Ledoux coefficient real*4 DelX_X (nr__1) ! (%) ? Relative dispersion (on P or {nu}) real*4 DelP (nr__1) ! (s) ? Period dispersion {Delta}P real*4 Delnu (nr__1) ! (uHz) ? Frequency dispersion {Delta}{nu} character*5 ID_1 (nr__1) ! Mode identification (f_1_-f_27_, u_1_-u_14_) character*1 f_ID_1 (nr__1) ! [1/2] Flag on ID (1) *Note (1): Flag as follows: * 1 = Additional frequencies (see Table 1; u_n_). * 2 = Left-aside frequencies (see section 3.2 and Table 1). C============================================================================= C Loading file 'table1.dat' ! List of frequencies f_n_ (n is by order of * decreasing amplitude) detected in KPD 1943+4058 C Format for file interpretation 1 format(A5,1X,A1,1X,F7.2,1X,F7.3,1X,F4.1,1X,A21) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,35 read(1,'(A50)')ar__ read(ar__,1) + ID(i__),f_ID(i__),Per(i__),Freq(i__),S_N(i__),Comm(i__) c ..............Just test output........... write(6,1) + ID(i__),f_ID(i__),Per(i__),Freq(i__),S_N(i__),Comm(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Mode identification and other properties C Format for file interpretation 2 format( + I1,1X,I3,1X,F7.3,1X,F8.3,1X,F7.2,1X,F7.2,1X,F6.3,1X,F6.4,1X, + F5.2,1X,F6.2,1X,F6.3,1X,A5,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,79 read(1,'(A80)')ar__1 read(ar__1,2) + l(i__),k(i__),nuObs(i__),nuTh(i__),PObs(i__),PTh(i__), + logE(i__),Ckl(i__),DelX_X(i__),DelP(i__),Delnu(i__),ID_1(i__), + f_ID_1(i__) if(ar__1(7:13) .EQ. '') nuObs(i__) = rNULL__ if(ar__1(24:30) .EQ. '') PObs(i__) = rNULL__ if(ar__1(54:58) .EQ. '') DelX_X(i__) = rNULL__ if(ar__1(60:65) .EQ. '') DelP(i__) = rNULL__ if(ar__1(67:72) .EQ. '') Delnu(i__) = rNULL__ c ..............Just test output........... write(6,2) + l(i__),k(i__),nuObs(i__),nuTh(i__),PObs(i__),PTh(i__), + logE(i__),Ckl(i__),DelX_X(i__),DelP(i__),Delnu(i__),ID_1(i__), + f_ID_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end