Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/805/53 into FORTRAN code for reading data files line by line.
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/ApJ/805/53 H2O masers in W43A monitored with VLBA (Chong+, 2015) *================================================================================ *Water masers in W43A: early morphological changes of a future planetary nebula. * Chong S.-N., Imai H., Diamond P.J. * <Astrophys. J., 805, 53 (2015)> * =2015ApJ...805...53C C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Maser features detected in all thirteen epochs integer*4 nr__ parameter (nr__=525) ! Number of records character*46 ar__ ! Full-size record integer*4 Epoch ! [1/13] Epoch number (1) real*8 oRA ! (mas) [-377/455] Right Ascension offset (2) real*4 e_oRA ! (mas) [0/0.6] Error in oRA (3) real*8 oDE ! (mas) [-155/213] Declination offset (2) real*4 e_oDE ! (mas) [0/0.5] Error in oDE (3) real*4 VLSR ! (km/s) [-63/129] Local Standard of Rest velocity real*4 dV ! (km/s) [0/8] Velocity width of feature {Delta}V (4) real*4 Int ! (Jy) [0.04/53] Intensity; Jy/beam *Note (1): Epochs are defined in table 1 as follows: * ------------------------------------------------------------ * Ep Code Date JD tint Vref rms N * -2400000 (min) (km/s) * ------------------------------------------------------------ * 1 BD03 1994-Jun-25 49528.8 273 123.9 18 24 * 2 BD17H 1994-Oct-11 49636.5 274 121.6 10 36 * 3 BD20 1995-Mar-17 49794.1 233 124.3 14 27 * 4 BI24B 2002-Apr-03 52368.1 223 119.3 6 52 * 5 BI24C 2002-Jul-26 52481.8 223 121.6 9 37 * 6 BI24F 2002-Nov-04 52583.4 222 122.7 7 38 * 7 BI27A 2003-Apr-03 52733.1 221 126.2 5 32 * 8 BI27B 2003-Aug-16 52867.7 224 125.6 8 50 * 9 BI27C 2003-Sep-06 52918.6 224 125.8 8 18 * 10 BI30A 2004-Aug-25 53242.9 198 125.8 8 94 * 11 BI30B 2004-Dec-04 53344.4 198 125.8 9 61 * 12 BI30C 2005-Feb-04 53406.1 165 126.0 4 21 * 13 BI30D 2005-Apr-06 53467.1 168 126.0 5 35 * ------------------------------------------------------------ * -- tint is the integration time. * -- Vref is the LSR velocity channel used for phase referencing. * -- rms is the rms noise in mJy/beam. * -- N is the number of features. * ------------------------------------------------------------ *Note (2): Of the brightest point in the feature from the geometric center. *Note (3): See Imai et al. (2002ApJ...567..971I) for the evaluation method. * 0.00 means a value <0.005, for which only one spot is found in the * feature, and observed with a very narrow beam aligned almost * perpendicular to that direction. *Note (4): The corresponding width of one channel is 0.11km/s. C============================================================================= C Loading file 'table2.dat' ! Maser features detected in all thirteen epochs C Format for file interpretation 1 format( + I2,1X,F7.2,1X,F4.2,1X,F7.2,1X,F4.2,1X,F6.2,1X,F4.2,1X,F5.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,525 read(1,'(A46)')ar__ read(ar__,1)Epoch,oRA,e_oRA,oDE,e_oDE,VLSR,dV,Int c ..............Just test output........... write(6,1)Epoch,oRA,e_oRA,oDE,e_oDE,VLSR,dV,Int c .......End.of.Just test output........... end do close(1) C============================================================================= stop end