Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/128/1570 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/AJ/128/1570 8.4GHz VLBA observations of scintillating sources (Ojha+, 2004) *================================================================================ *VLBA snapshot imaging survey of scintillating sources. * Ojha R., Fey A.L., Lovell J.E.J., Jauncey D.L., Johnston K.J. * <Astron. J., 128, 1570-1587 (2004)> * =2004AJ....128.1570O C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Parameters of naturally weighted total intensity images integer*4 nr__ parameter (nr__=75) ! Number of records character*55 ar__ ! Full-size record character*10 v_OFL2004_ (nr__) ! Source name (based on J2000 position) real*4 MajAxis (nr__) ! (mas) Restoring-beam major axis real*4 MinAxis (nr__) ! (mas) Restoring-beam minor axis integer*4 PA (nr__) ! (deg) [-23/51] Restoring-beam position angle (1) real*4 Sp8_4GHz (nr__) ! (mJy) Peak flux density at 8.4GHz(2) real*4 RMS (nr__) ! (mJy) Final hybrid image rms residual (2) character*20 Levels (nr__) ! Contour levels (3) *Note (1): Measured north through east. *Note (2): In units of mJy/beam. *Note (3): Represented by the geometric series 1, ..., 2^n^, e.g., * for n = 5 the contour levels would be {+/-} 1, 2, 4, 8, 16, 32. * When n = 0, only the single contour level is given. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Parameters of naturally weighted linear polarization images integer*4 nr__1 parameter (nr__1=75) ! Number of records character*55 ar__1 ! Full-size record character*10 v_OFL2004__1(nr__1) ! Source name (based on J2000 position) real*4 MajAxis_1 (nr__1) ! (mas) Restoring-beam major axis real*4 MinAxis_1 (nr__1) ! (mas) Restoring-beam minor axis integer*4 PA_1 (nr__1) ! (deg) [-23/51] Restoring-beam position angle (1) real*4 Sp8_4GHz_1 (nr__1) ! (mJy) Peak flux density at 8.4GHz(2) real*4 RMS_1 (nr__1) ! (mJy) Final hybrid image rms residual (2) character*20 Levels_1 (nr__1) ! Contour levels (3) *Note (1): Measured north through east. *Note (2): In units of mJy/beam. *Note (3): Represented by the geometric series 1, ..., 2^n^, e.g., * for n = 5 the contour levels would be {+/-} 1, 2, 4, 8, 16, 32. * When n = 0, only the single contour level is given. C============================================================================= C Loading file 'table1.dat' ! Parameters of naturally weighted total intensity * images C Format for file interpretation 1 format(A10,1X,F3.1,1X,F3.1,1X,I3,1X,F6.2,1X,F4.2,1X,A20) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,75 read(1,'(A55)')ar__ read(ar__,1) + v_OFL2004_(i__),MajAxis(i__),MinAxis(i__),PA(i__), + Sp8_4GHz(i__),RMS(i__),Levels(i__) c ..............Just test output........... write(6,1) + v_OFL2004_(i__),MajAxis(i__),MinAxis(i__),PA(i__), + Sp8_4GHz(i__),RMS(i__),Levels(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Parameters of naturally weighted linear * polarization images C Format for file interpretation 2 format(A10,1X,F3.1,1X,F3.1,1X,I3,1X,F6.2,1X,F4.2,1X,A20) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,75 read(1,'(A55)')ar__1 read(ar__1,2) + v_OFL2004__1(i__),MajAxis_1(i__),MinAxis_1(i__),PA_1(i__), + Sp8_4GHz_1(i__),RMS_1(i__),Levels_1(i__) c ..............Just test output........... write(6,2) + v_OFL2004__1(i__),MajAxis_1(i__),MinAxis_1(i__),PA_1(i__), + Sp8_4GHz_1(i__),RMS_1(i__),Levels_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end