Conversion of standardized ReadMe file for
file /./ftp/cats/J/AZh/78/922 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/AZh/78/922 Radio emission of SS433 (Trushkin+, 2001) *================================================================================ *Six-day modulation of the quiescent radio emission of SS 433 * Trushkin S.A., Bursov N.N., Smirnova Yu.V. * <Astron. Zh. 78, 922 (2001)> * =2001AZh....78..922T * =2001ARep...45..804T C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Flux density of SS433 in 1997 integer*4 nr__ parameter (nr__=70) ! Number of records character*34 ar__ ! Full-size record real*8 JD (nr__) ! (d) [2450569/2450687] Julian date integer*4 S11_2GHz (nr__) ! (mJy) ? Flux density at 11.2GHz (2.7cm) integer*4 S7_7GHz (nr__) ! (mJy) ? Flux density at 7.7GHz (3.9cm) integer*4 S3_9GHz (nr__) ! (mJy) ? Flux density at 3.9GHz (7.6cm) integer*4 S2_3GHz (nr__) ! (mJy) ? Flux density at 2.3GHz (13.0cm) c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Flux density of SS433 in 1999 integer*4 nr__1 parameter (nr__1=120) ! Number of records character*43 ar__1 ! Full-size record real*8 JD_1 (nr__1) ! (d) [2451291/2451422] Julian date integer*4 S21_7GHz (nr__1) ! (mJy) ? Flux density at 21.7GHz (1.38cm) integer*4 S11_2GHz_1 (nr__1) ! (mJy) ? Flux density at 11.2GHz (2.7cm) integer*4 S7_7GHz_1 (nr__1) ! (mJy) ? Flux density at 7.7GHz (3.9cm) integer*4 S3_9GHz_1 (nr__1) ! (mJy) ? Flux density at 3.9GHz (7.6cm) integer*4 S2_3GHz_1 (nr__1) ! (mJy) ? Flux density at 2.3GHz (13.0cm) integer*4 S0_96GHz (nr__1) ! (mJy) ? Flux density at 0.96GHz (31.2cm) C============================================================================= C Loading file 'table3.dat' ! Flux density of SS433 in 1997 C Format for file interpretation 1 format(F10.2,3X,I3,3X,I3,3X,I3,3X,I3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,70 read(1,'(A34)')ar__ read(ar__,1) + JD(i__),S11_2GHz(i__),S7_7GHz(i__),S3_9GHz(i__),S2_3GHz(i__) if(ar__(14:16) .EQ. '') S11_2GHz(i__) = iNULL__ if(ar__(20:22) .EQ. '') S7_7GHz(i__) = iNULL__ if(ar__(26:28) .EQ. '') S3_9GHz(i__) = iNULL__ if(ar__(32:34) .EQ. '') S2_3GHz(i__) = iNULL__ c ..............Just test output........... write(6,1) + JD(i__),S11_2GHz(i__),S7_7GHz(i__),S3_9GHz(i__),S2_3GHz(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Flux density of SS433 in 1999 C Format for file interpretation 2 format(F10.2,2X,I3,2X,I3,1X,I4,2X,I4,2X,I4,2X,I4) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,120 read(1,'(A43)')ar__1 read(ar__1,2) + JD_1(i__),S21_7GHz(i__),S11_2GHz_1(i__),S7_7GHz_1(i__), + S3_9GHz_1(i__),S2_3GHz_1(i__),S0_96GHz(i__) if(ar__1(13:15) .EQ. '') S21_7GHz(i__) = iNULL__ if(ar__1(18:20) .EQ. '') S11_2GHz_1(i__) = iNULL__ if(ar__1(22:25) .EQ. '') S7_7GHz_1(i__) = iNULL__ if(ar__1(28:31) .EQ. '') S3_9GHz_1(i__) = iNULL__ if(ar__1(34:37) .EQ. '') S2_3GHz_1(i__) = iNULL__ if(ar__1(40:43) .EQ. '') S0_96GHz(i__) = iNULL__ c ..............Just test output........... write(6,2) + JD_1(i__),S21_7GHz(i__),S11_2GHz_1(i__),S7_7GHz_1(i__), + S3_9GHz_1(i__),S2_3GHz_1(i__),S0_96GHz(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end