Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/601/485 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-Apr-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/ApJ/601/485 Synthetic Lick indices of alpha-enhanced stars (Franchini+, 2004)
*================================================================================
*Synthetic Lick indices and detection of {alpha}-enhanced stars.
* Franchini M., Morossi C., Di Marcantonio P., Malagnini M.L., Chavez M.,
* Rodriguez-Merino L.
* <Astrophys. J., 601, 485-499 (2004)>
* =2004ApJ...601..485F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1a.dat' ! The {alpha} enhanced candidate stars from the
four panels of Figure 8 (Ca4227)
integer*4 nr__
parameter (nr__=56) ! Number of records
character*69 ar__ ! Full-size record
integer*4 HD (nr__) ! ? HD number
character*3 m_HD (nr__) ! Multiplicity index on HD
character*14 OID1 (nr__) ! First other identifier
character*17 OID2 (nr__) ! Second other identifier
real*4 Ca4227 (nr__) ! (0.1nm) The Lick Ca4227 index in Angstroms
real*4 NaD (nr__) ! (0.1nm) The Lick NaD index in Angstroms
real*4 da (nr__) ! Dimensionless distance (G1)
real*4 v_Fe_H_ (nr__) ! ([Sun]) ? Log of the iron to hydrogen abundance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1b.dat' ! The {alpha} enhanced candidate stars from the
four panels of Figure 8 (Mg2)
integer*4 nr__1
parameter (nr__1=47) ! Number of records
character*69 ar__1 ! Full-size record
integer*4 HD_1 (nr__1) ! ? HD number
character*3 m_HD_1 (nr__1) ! Multiplicity index on HD
character*14 OID1_1 (nr__1) ! First other identifier
character*17 OID2_1 (nr__1) ! Second other identifier
real*4 Mg2 (nr__1) ! (0.1nm) The Lick Mg2 index in Angstroms
real*4 NaD_1 (nr__1) ! (0.1nm) The Lick NaD index in Angstroms
real*4 db (nr__1) ! Dimensionless distance (G1)
real*4 v_Fe_H__1 (nr__1) ! ([Sun]) ? Log of the iron to hydrogen abundance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1c.dat' ! The {alpha} enhanced candidate stars from the
four panels of Figure 8 (Mgb)
integer*4 nr__2
parameter (nr__2=17) ! Number of records
character*69 ar__2 ! Full-size record
integer*4 HD_2 (nr__2) ! ? HD number
character*3 m_HD_2 (nr__2) ! Multiplicity index on HD
character*14 OID1_2 (nr__2) ! First other identifier
character*17 OID2_2 (nr__2) ! Second other identifier
real*4 Mgb (nr__2) ! (0.1nm) The Lick Mgb index in Angstroms
real*4 NaD_2 (nr__2) ! (0.1nm) The Lick NaD index in Angstroms
real*4 dc (nr__2) ! Dimensionless distance (G1)
real*4 v_Fe_H__2 (nr__2) ! ([Sun]) ? Log of the iron to hydrogen abundance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1d.dat' ! The {alpha} enhanced candidate stars from the
four panels of Figure 8 (CaMg)
integer*4 nr__3
parameter (nr__3=59) ! Number of records
character*69 ar__3 ! Full-size record
integer*4 HD_3 (nr__3) ! ? HD number
character*3 m_HD_3 (nr__3) ! Multiplicity index on HD
character*14 OID1_3 (nr__3) ! First other identifier
character*17 OID2_3 (nr__3) ! Second other identifier
real*4 CaMg (nr__3) ! (0.1nm) The Lick CaMg index in Angstroms
real*4 NaD_3 (nr__3) ! (0.1nm) The Lick NaD index in Angstroms
real*4 dd (nr__3) ! Dimensionless distance (G1)
real*4 v_Fe_H__3 (nr__3) ! ([Sun]) ? Log of the iron to hydrogen abundance
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! {alpha}-Enhanced Candidate Stars Discussed
in the Text
integer*4 nr__4
parameter (nr__4=34) ! Number of records
character*62 ar__4 ! Full-size record
integer*4 HD_4 (nr__4) ! HD number
character*1 m_HD_4 (nr__4) ! Multiplicity index on HD
real*4 v_Fe_H__4 (nr__4) ! Metallicity
real*4 NaD_4 (nr__4) ! (0.1nm) NaD index
real*4 Ca4227_1 (nr__4) ! (0.1nm) ? Ca4227 index
real*4 da_1 (nr__4) ! ? Distance of the corresponding point from the
* boundary line of NaD-Ca4227 diagram (1)
real*4 Mg2_1 (nr__4) ! (0.1nm) ? Mg2 Index
real*4 db_1 (nr__4) ! ? Distance of the corresponding point from the
* boundary line of NaD-Mg2 diagram (1)
real*4 Mgb_1 (nr__4) ! (0.1nm) ? Mgb index
real*4 dc_1 (nr__4) ! ? Distance of the corresponding point from the
* boundary line of NaD-Mgb diagram (1)
real*4 CaMg_1 (nr__4) ! (0.1nm) ? CaMg index
real*4 dd_1 (nr__4) ! ? Distance of the corresponding point from the
* boundary line of NaD-CaMg diagram (1)
*Note (1): Subscripts a, b, c, and d correspond to (a), (b), (c), and (d)
* in Fig. 8, respectively.
C=============================================================================
C Loading file 'table1a.dat' ! The {alpha} enhanced candidate stars from the
* four panels of Figure 8 (Ca4227)
C Format for file interpretation
1 format(I6,A3,1X,A14,1X,A17,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1a.dat')
write(6,*) '....Loading file: table1a.dat'
do i__=1,56
read(1,'(A69)')ar__
read(ar__,1)
+ HD(i__),m_HD(i__),OID1(i__),OID2(i__),Ca4227(i__),NaD(i__),
+ da(i__),v_Fe_H_(i__)
if(ar__(1:6) .EQ. '') HD(i__) = iNULL__
if(ar__(64:69) .EQ. '') v_Fe_H_(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ HD(i__),m_HD(i__),OID1(i__),OID2(i__),Ca4227(i__),NaD(i__),
+ da(i__),v_Fe_H_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1b.dat' ! The {alpha} enhanced candidate stars from the
* four panels of Figure 8 (Mg2)
C Format for file interpretation
2 format(I6,A3,1X,A14,1X,A17,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1b.dat')
write(6,*) '....Loading file: table1b.dat'
do i__=1,47
read(1,'(A69)')ar__1
read(ar__1,2)
+ HD_1(i__),m_HD_1(i__),OID1_1(i__),OID2_1(i__),Mg2(i__),
+ NaD_1(i__),db(i__),v_Fe_H__1(i__)
if(ar__1(1:6) .EQ. '') HD_1(i__) = iNULL__
if(ar__1(64:69) .EQ. '') v_Fe_H__1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ HD_1(i__),m_HD_1(i__),OID1_1(i__),OID2_1(i__),Mg2(i__),
+ NaD_1(i__),db(i__),v_Fe_H__1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1c.dat' ! The {alpha} enhanced candidate stars from the
* four panels of Figure 8 (Mgb)
C Format for file interpretation
3 format(I6,A3,1X,A14,1X,A17,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1c.dat')
write(6,*) '....Loading file: table1c.dat'
do i__=1,17
read(1,'(A69)')ar__2
read(ar__2,3)
+ HD_2(i__),m_HD_2(i__),OID1_2(i__),OID2_2(i__),Mgb(i__),
+ NaD_2(i__),dc(i__),v_Fe_H__2(i__)
if(ar__2(1:6) .EQ. '') HD_2(i__) = iNULL__
if(ar__2(64:69) .EQ. '') v_Fe_H__2(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ HD_2(i__),m_HD_2(i__),OID1_2(i__),OID2_2(i__),Mgb(i__),
+ NaD_2(i__),dc(i__),v_Fe_H__2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1d.dat' ! The {alpha} enhanced candidate stars from the
* four panels of Figure 8 (CaMg)
C Format for file interpretation
4 format(I6,A3,1X,A14,1X,A17,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1d.dat')
write(6,*) '....Loading file: table1d.dat'
do i__=1,59
read(1,'(A69)')ar__3
read(ar__3,4)
+ HD_3(i__),m_HD_3(i__),OID1_3(i__),OID2_3(i__),CaMg(i__),
+ NaD_3(i__),dd(i__),v_Fe_H__3(i__)
if(ar__3(1:6) .EQ. '') HD_3(i__) = iNULL__
if(ar__3(64:69) .EQ. '') v_Fe_H__3(i__) = rNULL__
c ..............Just test output...........
write(6,4)
+ HD_3(i__),m_HD_3(i__),OID1_3(i__),OID2_3(i__),CaMg(i__),
+ NaD_3(i__),dd(i__),v_Fe_H__3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! {alpha}-Enhanced Candidate Stars Discussed
* in the Text
C Format for file interpretation
5 format(
+ I6,A1,1X,F6.3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.3,1X,F4.2,1X,F4.2,
+ 1X,F4.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,34
read(1,'(A62)')ar__4
read(ar__4,5)
+ HD_4(i__),m_HD_4(i__),v_Fe_H__4(i__),NaD_4(i__),Ca4227_1(i__),
+ da_1(i__),Mg2_1(i__),db_1(i__),Mgb_1(i__),dc_1(i__),
+ CaMg_1(i__),dd_1(i__)
if(ar__4(21:24) .EQ. '') Ca4227_1(i__) = rNULL__
if(ar__4(26:29) .EQ. '') da_1(i__) = rNULL__
if(ar__4(31:35) .EQ. '') Mg2_1(i__) = rNULL__
if(ar__4(37:40) .EQ. '') db_1(i__) = rNULL__
if(ar__4(42:45) .EQ. '') Mgb_1(i__) = rNULL__
if(ar__4(47:50) .EQ. '') dc_1(i__) = rNULL__
if(ar__4(52:55) .EQ. '') CaMg_1(i__) = rNULL__
if(ar__4(57:60) .EQ. '') dd_1(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ HD_4(i__),m_HD_4(i__),v_Fe_H__4(i__),NaD_4(i__),Ca4227_1(i__),
+ da_1(i__),Mg2_1(i__),db_1(i__),Mgb_1(i__),dc_1(i__),
+ CaMg_1(i__),dd_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end