FORTRAN Generation
(/./ftp/cats/J/A_A/609/L5)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/609/L5 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-29
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/609/L5        HD147379 b velocity curve                (Reiners+, 2018)
*================================================================================
*The CARMENES search for exoplanets around M dwarfs.
*HD147379 b: A nearby Neptune in an early-M dwarf's temperate zone.
*    Reiners A., Ribas I., Zechmeister M., Caballero J.A., Trifonov T.,
*    Dreizler S., Morales J.C., Tal-Or L., Lafarga M., Quirrenbach A.,
*    Amado P.J., Kaminski A., Jeffers S.V., Aceituno J., Bejar V.J.S.,
*    Guardia J., Guenther E.W., Hagen H.-J., Montes D., Passegger V.M.,
*    Seifert W., Schweitzer A., Cortes-Contreras M., Abril M.,
*    Alonso-Floriano F.J., Ammler-von Eiff M., Antona R., Anglada-Escude G.,
*    Anwand-Heerwart H., Arroyo-Torres B., Azzaro M., Baroch D., Barrado D.,
*    Bauer F.F., Becerril S., Benitez D., Berdinas Z.M., Bergond G.,
*    Bluemcke M., Brinkmoeller M., del Burgo C., Cano J., Cardenas Vazquez M.C.,
*    Casal E., Cifuentes C., Claret A., Colome J., Czesla S., Diez-Alonso E.,
*    Feiz C., Fernandez M., Ferro I.M., Fuhrmeister B., Galadi-Enriquez D.,
*    Garcia-Piquer A., Garcia Vargas M.L., Gesa L., Gomez Galera V.,
*    Gonzalez Hernandez J.I., Gonzalez-Peinado R., Groezinger U., Grohnert S.,
*    Guijarro A., de Guindos E., Gutierrez-Soto J., Hatzes A.P.,
*    Hauschildt P.H., Hedrosa R.P., Helmling J., Henning Th., Hermelo I.,
*    Hernandez Arabi R., Hernandez Castano L., Hernandez Hernando F.,
*    Herrero E., Huber A., Huke P., Johnson E.N., de Juan E., Kim M.,
*    Klein R., Klueter J., Klutsch A., Kuerster M., Labarga F., Lamert A.,
*    Lampon M., Lara L.M., Laun W., Lemke U., Lenzen R., Launhardt R.,
*    Lopez del Fresno M., Lopez-Gonzalez M.J., Lopez-Puertas M.,
*    Lopez Salas J.F., Lopez-Santiago J., Luque R., Magan Madinabeitia H.,
*    Mall U., Mancini L., Mandel H., Marfil E., Marin Molina J.A.,
*    Maroto Fernandez D., Martin E.L., Martin-Ruiz S., Marvin C.J., Mathar R.J.,
*    Mirabet E., Moreno-Raya M.E., Moya A., Mundt R., Nagel E., Naranjo V.,
*    Nortmann L., Nowak G., Ofir A., Oreiro R., Palle E., Panduro J.,
*    Pascual J., Pavlov A., Pedraz S., Perez-Calpena A., Perez Medialdea D.,
*    Perger M., Perryman M.A.C., Pluto M., Rabaza O., Ramon A., Rebolo R.,
*    Redondo P., Reffert S., Reinhart S., Rhode P., Rix H.-W., Rodler F.,
*    Rodriguez E., Rodriguez-Lopez C., Rodriguez Trinidad A., Rohloff R.-R.,
*    Rosich A., Sadegi S., Sanchez-Blanco E., Sanchez Carrasco M.A.,
*    Sanchez-Lopez A., Sanz-Forcada J., Sarkis P., Sarmiento L.F., Schaefer S.,
*    Schmitt J.H.M.M., Schiller J., Schoefer P., Solano E., Stahl O.,
*    Strachan J.B.P., Stuermer J., Suarez J.C., Tabernero H.M., Tala M.,
*    Tulloch S.M., Ulbrich R.-G., Veredas G., Vico Linares J.I., Vilardell F.,
*    Wagner K., Winkler J., Wolthoff V., Xu W., Yan F., Zapatero Osorio M.R.
*    <Astron. Astrophys. 609, L5 (2018)>
*    =2018A&A...609L...5R        (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! HD147379 radial velocities

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

      real*8        JD         (nr__) ! (d) Julian date of observation
      real*4        RV         (nr__) ! (m/s) Radial velocity
      real*4        e_RV       (nr__) ! (m/s) Radial velocity uncertainty

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

C  Loading file 'table1.dat'	! HD147379 radial velocities

C  Format for file interpretation

    1 format(F11.3,1X,F6.2,3X,F4.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,114
        read(1,'(A25)')ar__
        read(ar__,1)JD(i__),RV(i__),e_RV(i__)
c    ..............Just test output...........
        write(6,1)JD(i__),RV(i__),e_RV(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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