FORTRAN Generation
(/./ftp/cats/J/A_A/540/A132)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/540/A132 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-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/A+A/540/A132   Optical follow-up of Q0957+561 in 2005-2010  (Shalyapin+, 2012)
*================================================================================
*A 5.5-year robotic optical monitoring of Q0957+561: substructure in a non-local
*cD galaxy.
*    Shalyapin V.N., Goicoechea L.J., Gil-Merino R.
*   <Astron. Astrophys. 540, A132 (2012)>
*   =2012A&A...540A.132S
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1.dat'	! Fluxes in the g band (468.6nm)

      integer*4 nr__
      parameter (nr__=357)	! Number of records
      character*49 ar__   	! Full-size record

      real*8        MJD        (nr__) ! (d) Modified Julian Date
      real*4        SA         (nr__) ! (mJy) Flux of Q0957+561A
      real*4        e_SA       (nr__) ! (mJy) Error in the flux of Q0957+561A
      real*4        SB         (nr__) ! (mJy) Flux of Q0957+561B
      real*4        e_SB       (nr__) ! (mJy) Error in the flux of Q0957+561B

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2.dat'	! Fluxes in the r band (616.5nm)

      integer*4 nr__1
      parameter (nr__1=371)	! Number of records
      character*49 ar__1  	! Full-size record

      real*8        MJD_1      (nr__1) ! (d) Modified Julian Date
      real*4        SA_1       (nr__1) ! (mJy) Flux of Q0957+561A
      real*4        e_SA_1     (nr__1) ! (mJy) Error in the flux of Q0957+561A
      real*4        SB_1       (nr__1) ! (mJy) Flux of Q0957+561B
      real*4        e_SB_1     (nr__1) ! (mJy) Error in the flux of Q0957+561B

C=============================================================================

C  Loading file 'table1.dat'	! Fluxes in the g band (468.6nm)

C  Format for file interpretation

    1 format(F9.3,4X,F6.4,4X,F6.4,4X,F6.4,4X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,357
        read(1,'(A49)')ar__
        read(ar__,1)MJD(i__),SA(i__),e_SA(i__),SB(i__),e_SB(i__)
c    ..............Just test output...........
        write(6,1)MJD(i__),SA(i__),e_SA(i__),SB(i__),e_SB(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table2.dat'	! Fluxes in the r band (616.5nm)

C  Format for file interpretation

    2 format(F9.3,4X,F6.4,4X,F6.4,4X,F6.4,4X,F6.4)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,371
        read(1,'(A49)')ar__1
        read(ar__1,2)
     +  MJD_1(i__),SA_1(i__),e_SA_1(i__),SB_1(i__),e_SB_1(i__)
c    ..............Just test output...........
        write(6,2)
     +  MJD_1(i__),SA_1(i__),e_SA_1(i__),SB_1(i__),e_SB_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end