FORTRAN Generation
(/./ftp/cats/J/A_A/512/A37)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/512/A37 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-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/512/A37       Velocities of 43 nearby L dwarfs         (Seifahrt+, 2010)
*================================================================================
*On the kinematic age of brown dwarfs:
*radial velocities and space motions of 43 nearby L dwarfs.
*     Seifahrt A., Reiners A., Almaghrbi K.A.M., Basri G.
*    <Astron. Astrophys. 512, A37 (2010)>
*    =2010A&A...512A..37S
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table2.dat'	! Radial velocities and space motions of our targets

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

      character*17  v2MASS      ! 2MASS designation (JHHMMSSss+DDMMSSs)
      character*4   SpT         ! MK spectral type
      real*4        Dist        ! (pc) Heliocentric distance
      real*4        e_Dist      ! (pc) rms uncertainty on Dist
      integer*4     pmRA        ! (mas/yr) Proper motion along RA (pmRA*cosDE)
      integer*4     e_pmRA      ! (mas/yr) rms uncertainty on pmRA
      integer*4     pmDE        ! (mas/yr) Proper motion along DE
      integer*4     e_pmDE      ! (mas/yr) rms uncertainty on pmDE
      real*4        RV          ! (km/s) Radial velocity
      real*4        e_RV        ! (km/s) rms uncertainty on RV
      real*4        Uvel        ! (km/s) U velocity in galactic frame
      real*4        e_Uvel      ! (km/s) rms uncertainty on Uvel
      real*4        Vvel        ! (km/s) V velocity in galactic frame
      real*4        e_Vvel      ! (km/s) rms uncertainty on Vvel
      real*4        Wvel        ! (km/s) W velocity in galactic frame
      real*4        e_Wvel      ! (km/s) rms uncertainty on Wvel
      integer*4     Ref         ! [1/5] References for distances and proper
*                                          motions (1)
      character*21  Com         ! Comments
*Note (1): References for distances and proper motions as follows:
*      1 = Faherty et al. (2009AJ....137....1F, and references therein)
*      2 = HIPPARCOS catalogue (Perryman et al., 1997, Cat. <I/239>)
*      3 = Lodieu et al. (2005, Cat. <J/A+A/440/1061>)
*      4 = Henry et al.  (2006AJ....132.2360H)
*      5 = Costa et al. (2006AJ....132.1234C)

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

C  Loading file 'table2.dat'	! Radial velocities and space motions of our targets

C  Format for file interpretation

    1 format(
     +  6X,A17,1X,A4,1X,F4.1,1X,F4.2,1X,I5,1X,I2,1X,I5,1X,I2,1X,F5.1,
     +  1X,F3.1,1X,F5.1,1X,F3.1,1X,F6.1,1X,F3.1,1X,F5.1,1X,F3.1,1X,I1,
     +  1X,A21)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,43
        read(1,'(A121)')ar__
        read(ar__,1)
     +  v2MASS,SpT,Dist,e_Dist,pmRA,e_pmRA,pmDE,e_pmDE,RV,e_RV,Uvel,
     +  e_Uvel,Vvel,e_Vvel,Wvel,e_Wvel,Ref,Com
c    ..............Just test output...........
        write(6,1)
     +  v2MASS,SpT,Dist,e_Dist,pmRA,e_pmRA,pmDE,e_pmDE,RV,e_RV,Uvel,
     +  e_Uvel,Vvel,e_Vvel,Wvel,e_Wvel,Ref,Com
c    .......End.of.Just test output...........
      end do
      close(1)

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