Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/150/455 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.5, on 2013-Jun-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__
parame++++Column 'RAdeg' at line 125: Right Ascension in decimal degrees (J2000) (G1)
'and' can't be interpreted as Epoch column or value
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/ApJS/150/455 New HIP-based parallaxes for 424 faint stars (Gould+, 2004)
*================================================================================
*New HIPPARCOS-based parallaxes for 424 faint stars.
* Gould A., Chaname J.
* <Astrophys. J. Suppl. Ser., 150, 455-464 (2004)>
* =2004ApJS..150..455G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! New parallaxes for Hipparcos Companions
integer*4 nr__
parameter (nr__=424) ! Number of records
character*157 ar__ ! Full-size record
integer*4 NLTT ! Companion NLTT (<I/98>) number
real*8 RAdeg ! (deg) Companion right Ascension in decimal degrees
* (J2000, Ep=J2000) (G1)
real*8 DEdeg ! (deg) Companion declination in decimal degrees
* (J2000, Ep=J2000) (G1)
integer*4 pmRA ! (mas/yr) Companion east proper-motion component
integer*4 pmDE ! (mas/yr) Companion north proper-motion component
real*4 Vmag ! (mag) Companion V band magnitude
real*4 v_V_J ! (mag) ?=-9.00 Companion (V-J) color index
real*4 VMAG_1 ! (mag) Companion absolute V band magnitude
integer*4 Code ! Companion source code (2)
integer*4 NLTT1 ! Primary NLTT (<I/98>) number
real*8 RA1deg ! (deg) Primary Right Ascension in decimal
* degrees (2000) (G1)
real*8 DE1deg ! (deg) Primary Declination in decimal
* degrees (J2000) (G1)
integer*4 pmRA1 ! (mas/yr) Primary East proper-motion component
integer*4 pmDE1 ! (mas/yr) Primary North proper-motion component
real*4 Vmag1 ! (mag) Primary V band magnitude
real*4 v_V_J_1 ! (mag) ?=-9.00 Primary (V-J) color index
real*4 VMAG1_1 ! (mag) Primary absolute V band magnitude
integer*4 Code1 ! Primary source code (2)
real*4 Sep ! (arcsec) Separation of the companion with respect
* to the primary
real*4 PA ! (deg) Position angle of the companion with respect
* to the primary, north through east
integer*4 HIP1 ! Primary Hipparcos (<I/239>) number
real*4 plx1 ! (mas) Primary Hipparcos parallax
real*4 e_plx1 ! (mas) Error in plx
integer*4 Dpm ! Adopted proper-motion difference
integer*4 Bin ! [0/1] Binarity flag (3)
*Note (2): The three-digit source code is an expanded version of the source
* code used in rNLTT, Cat. <J/ApJ/582/1011>. There, the three digits
* refer to the sources of the position, proper motion, and V photometry.
* 1 = Hipparcos, Cat. <I/239>
* 2 = Tycho-2, Cat. <I/259>
* 3 = TDSC, Cat. <I/276>
* 4 = Starnet, Cat. <I/253>
* 5 = USNO/2MASS, Cat. <II/246>
* 6 = NLTT, Cat. <I/98>
* 7 = USNO-A, Cat. <I/252>, (for position) or common proper motion
* companion (for proper motion).
* 8 = USNO-B, Cat. <I/284> (position and proper motion)
* 9 = no actual detection in any catalog (position is inferred from
* the separation vector given in the NLTT Notes)
* More specifically, "555" means 2MASS based position, USNO-A based V
* photometry, and USNO/2MASS based proper motion. The "8" and "9" notes
* are an addition to the rNLTT codes. USNO-A photometry and NLTT
* photometry are transformed to V photometry using the prescriptions
* of Salim & Gould (2003, Cat. <J/ApJ/582/1011>).
*Note (3): Binary flag:
* 0 = binary certain
* 1 = binary "somewhat uncertain"
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Hipparcos doubles
integer*4 nr__1
parameter (nr__1=84) ! Number of records
character*85 ar__1 ! Full-size record
integer*4 HIP1_1 ! Brighter component Hipparcos (<I/239>) number
integer*4 NLTT1_1 ! Brighter component rNLTT (<J/ApJ/582/1011>)
* number
real*4 plx1_1 ! (mas) Brighter component parallax
real*4 e_plx1_1 ! (mas) Error in plx1
real*4 Vmag1_2 ! (mag) Brighter component V band magnitude
real*4 v_V_J_1_1 ! (mag) Brighter component (V-J) color
integer*4 HIP2 ! Fainter component Hipparcos number
integer*4 NLTT2 ! Fainter component rNLTT number
real*4 plx2 ! (mas) Fainter component parallax
real*4 e_plx2 ! (mas) Error in plx2
real*4 Vmag2 ! (mag) Fainter component V band magnitude
real*4 v_V_J_2 ! (mag) Fainter component (V-J) color
real*4 Sep_1 ! (arcsec) Separation between fainter and brighter
* components
real*4 PA_1 ! (deg) Position angle between fainter and brighter
* components
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! White Dwarf Companions to Hipparcos Stars
integer*4 nr__2
parameter (nr__2=20) ! Number of records
character*105 ar__2 ! Full-size record
integer*4 NLTT_1 ! Companion NLTT (<I/98>) number
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000) (G1)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000) (G1)
real*4 Vmag_2 ! (mag) V band magnitude
real*4 V_J ! (mag) ?=-9.00 (V-J) color index
real*4 VMAG_3 ! (mag) Absolute V band magnitude
real*4 Sep_2 ! (arcsec) Separation relative to the primary star
real*4 PA_2 ! (deg) Position angle relative to the primary star,
* north through east
integer*4 HIP1_2 ! Primary Hipparcos (<I/239>) number
real*4 plx1_2 ! (mas) Hipparcos parallax of the primary
real*4 e_plx1_2 ! (mas) Error in plx
real*4 plxOld ! (mas) ? Previously tabulated parallax of the companion
real*4 e_plxOld ! (mas) ? Error in plxOld
character*10 Name ! Name of the companion
character*6 SpType ! Spectral type of the companion
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! M_V_>14 Companions to Hipparcos Stars
integer*4 nr__3
parameter (nr__3=29) ! Number of records
character*105 ar__3 ! Full-size record
integer*4 NLTT_2 ! Companion NLTT (<I/98>) number
real*8 RAdeg_2 ! (deg) Right Ascension in decimal degrees (J2000) (G1)
real*8 DEdeg_2 ! (deg) Declination in decimal degrees (J2000) (G1)
real*4 Vmag_4 ! (mag) V band magnitude
real*4 V_J_1 ! (mag) ?=-9.00 (V-J) color index
real*4 VMAG_5 ! (mag) Absolute V band magnitude
real*4 Sep_3 ! (arcsec) Separation relative to the primary star
real*4 PA_3 ! (deg) Position angle relative to the primary star,
* north through east
integer*4 HIP1_3 ! Primary Hipparcos (<I/239>) number
real*4 plx1_3 ! (mas) Hipparcos parallax of the primary
real*4 e_plx1_3 ! (mas) Error in plx
real*4 plxOld_1 ! (mas) ? Previously tabulated parallax of the companion
real*4 e_plxOld_1 ! (mas) ? Error in plxOld
character*10 Name_1 ! Name of the companion
character*6 SpType_1 ! Spectral type of the companion
C=============================================================================
C Loading file 'table1.dat' ! New parallaxes for Hipparcos Companions
C Format for file interpretation
1 format(
+ I5,1X,F9.5,1X,F9.5,1X,I5,1X,I5,1X,F5.2,1X,F5.2,1X,F5.2,1X,I3,
+ 1X,I5,1X,F9.5,1X,F9.5,1X,I5,1X,I5,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ I3,1X,F5.1,1X,F5.1,1X,I6,1X,F6.2,1X,F5.2,1X,I3,1X,I1)
C Effective file loading
open(unit=1,file='table1.dat', status='old')
write(6,*) '....Loading file: table1.dat'
do i__=1,424
read(1,'(A157)')ar__
read(ar__,1)
+ NLTT,RAdeg,DEdeg,pmRA,pmDE,Vmag,v_V_J,VMAG_1,Code,NLTT1,
+ RA1deg,DE1deg,pmRA1,pmDE1,Vmag1,v_V_J_1,VMAG1_1,Code1,Sep,PA,
+ HIP1,plx1,e_plx1,Dpm,Bin
c ..............Just test output...........
write(6,1)
+ NLTT,RAdeg,DEdeg,pmRA,pmDE,Vmag,v_V_J,VMAG_1,Code,NLTT1,
+ RA1deg,DE1deg,pmRA1,pmDE1,Vmag1,v_V_J_1,VMAG1_1,Code1,Sep,PA,
+ HIP1,plx1,e_plx1,Dpm,Bin
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Hipparcos doubles
C Format for file interpretation
2 format(
+ I6,1X,I5,1X,F6.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,I6,1X,I5,1X,F6.2,
+ 1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.1,1X,F5.1)
C Effective file loading
open(unit=1,file='table2.dat', status='old')
write(6,*) '....Loading file: table2.dat'
do i__=1,84
read(1,'(A85)')ar__1
read(ar__1,2)
+ HIP1_1,NLTT1_1,plx1_1,e_plx1_1,Vmag1_2,v_V_J_1_1,HIP2,NLTT2,
+ plx2,e_plx2,Vmag2,v_V_J_2,Sep_1,PA_1
c ..............Just test output...........
write(6,2)
+ HIP1_1,NLTT1_1,plx1_1,e_plx1_1,Vmag1_2,v_V_J_1_1,HIP2,NLTT2,
+ plx2,e_plx2,Vmag2,v_V_J_2,Sep_1,PA_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! White Dwarf Companions to Hipparcos Stars
C Format for file interpretation
3 format(
+ I5,1X,F9.5,1X,F9.5,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.1,1X,F5.1,1X,
+ I6,1X,F6.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,A10,1X,A6)
C Effective file loading
open(unit=1,file='table3.dat', status='old')
write(6,*) '....Loading file: table3.dat'
do i__=1,20
read(1,'(A105)')ar__2
read(ar__2,3)
+ NLTT_1,RAdeg_1,DEdeg_1,Vmag_2,V_J,VMAG_3,Sep_2,PA_2,HIP1_2,
+ plx1_2,e_plx1_2,plxOld,e_plxOld,Name,SpType
if(ar__2(76:81) .EQ. '') plxOld = rNULL__
if(ar__2(83:87) .EQ. '') e_plxOld = rNULL__
c ..............Just test output...........
write(6,3)
+ NLTT_1,RAdeg_1,DEdeg_1,Vmag_2,V_J,VMAG_3,Sep_2,PA_2,HIP1_2,
+ plx1_2,e_plx1_2,plxOld,e_plxOld,Name,SpType
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! M_V_>14 Companions to Hipparcos Stars
C Format for file interpretation
4 format(
+ I5,1X,F9.5,1X,F9.5,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.1,1X,F5.1,1X,
+ I6,1X,F6.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,A10,1X,A6)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,29
read(1,'(A105)')ar__3
read(ar__3,4)
+ NLTT_2,RAdeg_2,DEdeg_2,Vmag_4,V_J_1,VMAG_5,Sep_3,PA_3,HIP1_3,
+ plx1_3,e_plx1_3,plxOld_1,e_plxOld_1,Name_1,SpType_1
if(ar__3(76:81) .EQ. '') plxOld_1 = rNULL__
if(ar__3(83:87) .EQ. '') e_plxOld_1 = rNULL__
c ..............Just test output...........
write(6,4)
+ NLTT_2,RAdeg_2,DEdeg_2,Vmag_4,V_J_1,VMAG_5,Sep_3,PA_3,HIP1_3,
+ plx1_3,e_plx1_3,plxOld_1,e_plxOld_1,Name_1,SpType_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end