Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/155/34 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 2026-Oct-13
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/AJ/155/34 Analysis of the NIR spectra of neighboring L dwarfs (Cruz+, 2018)
*================================================================================
*Meeting the cool neighbors.
*XII. An optically anchored analysis of the near-infrared spectra of L dwarfs.
* Cruz K.L., Nunez A., Burgasser A.J., Abrahams E., Rice E.L., Reid I.N.,
* Looper D.
* <Astron. J., 155, 34 (2018)>
* =2018AJ....155...34C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! New Far-Red Optical Observations
integer*4 nr__
parameter (nr__=19) ! Number of records
character*135 ar__ ! Full-size record
real*4 FS ! [1.1/1.9] Figure Set 1 element number
character*16 v2MASS ! 2MASS identifier of optical L dwarf
* (HHMMSSss+DDMMSSs)
character*2 Comp ! [AB ] Component designation
character*6 Tel ! Telescope (Keck I, Clay)
character*6 Inst ! Instrument (LRIS, LDSS-3)
character*11 Date ! ("date") UT date of observation
character*11 SpType ! Derived optical spectral type
character*19 r_SpType ! Reference bibcode for SpType
character*4 SpType1 ! Previous spectral type, no 1
character*19 r_SpType1 ! Reference bibcode for SpType1
character*8 SpType2 ! Previous spectral type, no 2
character*19 r_SpType2 ! Reference bibcode for SpType2
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! New Near-Infrared IRTF SpeX Prism Observations
integer*4 nr__1
parameter (nr__1=155) ! Number of records
character*35 ar__1 ! Full-size record
character*24 Name ! Target name (2MASS identifier or other name)
character*10 Date_1 ! ("date") UT date of observation
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! L Dwarfs Included in the Field Gravity Template
Sample
integer*4 nr__2
parameter (nr__2=101) ! Number of records
character*286 ar__2 ! Full-size record
character*25 Name_1 ! Target name (2MASS identifier or other name)
* (1)
character*25 OName ! Other name (not in Table 4)
real*4 Jmag ! (mag) [11.759/16.789] 2MASS J band magnitude
real*4 e_Jmag ! (mag) [0.019/0.15] Uncertainty in Jmag
real*4 J_Ks ! (mag) [0.912/2.483] 2MASS J-K_s_ color index
real*4 e_J_Ks ! (mag) [0.029/0.18] Uncertainty in J-Ks
character*11 SpType_1 ! Optical spectral type
character*1 n_SpType ! [bcd] Note on SpType (not in Table 5) (2)
character*32 r_SpType_1 ! Reference for SpType
character*19 Bibcode1 ! Bibcode of the reference for SpType
character*32 RefSpeX ! SpeX Prism reference
character*19 Bibcode2 ! Bibcode of the reference for SpeX Prism
character*48 Ref ! Other reference(s) (3)
character*40 Bibcode3 ! Bibcode of the other reference(s)
*Note (1): Templates generated using spectra of objects in Table 3 are shown in
* Figure 6. Objects in Table 4 were excluded from the templates and are shown
* in Figure 7. Templates generated using spectra of objects in Table 5 are shown
* in Figures 8 and 9.
* These data are available as data behind the figures and from the BDNYC
* Database.
*Note (2): Note as follows:
* b = Originally typed as L3 in Cruz et al. (2007, J/AJ/133/439) but reanalysis
* of same data resulted in a revised type of L4;
* c = Originally typed as L6: in Reid et al. (2008, J/AJ/136/1290) but
* reanalysis of the same slightly noisy spectrum resulted in a revised type
* of L7:;
* d = Spectral type based on analysis of spectrum from Scholz et al.
* (2009A&A...494..949S).
*Note (3): References listed are not exhaustive and pertain to discovery and
* spectral data not listed in previous columns.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Normal L Dwarfs Excluded from the Field Gravity
Template Sample
integer*4 nr__3
parameter (nr__3=41) ! Number of records
character*286 ar__3 ! Full-size record
character*25 Name_2 ! Target name (2MASS identifier or other name)
* (1)
character*25 OName_1 ! Other name (not in Table 4)
real*4 Jmag_1 ! (mag) [11.759/16.789] 2MASS J band magnitude
real*4 e_Jmag_1 ! (mag) [0.019/0.15] Uncertainty in Jmag
real*4 J_Ks_1 ! (mag) [0.912/2.483] 2MASS J-K_s_ color index
real*4 e_J_Ks_1 ! (mag) [0.029/0.18] Uncertainty in J-Ks
character*11 SpType_2 ! Optical spectral type
character*1 n_SpType_1 ! [bcd] Note on SpType (not in Table 5) (2)
character*32 r_SpType_2 ! Reference for SpType
character*19 Bibcode1_1 ! Bibcode of the reference for SpType
character*32 RefSpeX_1 ! SpeX Prism reference
character*19 Bibcode2_1 ! Bibcode of the reference for SpeX Prism
character*48 Ref_1 ! Other reference(s) (3)
character*40 Bibcode3_1 ! Bibcode of the other reference(s)
*Note (1): Templates generated using spectra of objects in Table 3 are shown in
* Figure 6. Objects in Table 4 were excluded from the templates and are shown
* in Figure 7. Templates generated using spectra of objects in Table 5 are shown
* in Figures 8 and 9.
* These data are available as data behind the figures and from the BDNYC
* Database.
*Note (2): Note as follows:
* b = Originally typed as L3 in Cruz et al. (2007, J/AJ/133/439) but reanalysis
* of same data resulted in a revised type of L4;
* c = Originally typed as L6: in Reid et al. (2008, J/AJ/136/1290) but
* reanalysis of the same slightly noisy spectrum resulted in a revised type
* of L7:;
* d = Spectral type based on analysis of spectrum from Scholz et al.
* (2009A&A...494..949S).
*Note (3): References listed are not exhaustive and pertain to discovery and
* spectral data not listed in previous columns.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Low-gravity L Dwarfs Included in the Low-gravity
Template Sample
integer*4 nr__4
parameter (nr__4=26) ! Number of records
character*286 ar__4 ! Full-size record
character*25 Name_3 ! Target name (2MASS identifier or other name)
* (1)
character*25 OName_2 ! Other name (not in Table 4)
real*4 Jmag_2 ! (mag) [11.759/16.789] 2MASS J band magnitude
real*4 e_Jmag_2 ! (mag) [0.019/0.15] Uncertainty in Jmag
real*4 J_Ks_2 ! (mag) [0.912/2.483] 2MASS J-K_s_ color index
real*4 e_J_Ks_2 ! (mag) [0.029/0.18] Uncertainty in J-Ks
character*11 SpType_3 ! Optical spectral type
character*1 n_SpType_2 ! [bcd] Note on SpType (not in Table 5) (2)
character*32 r_SpType_3 ! Reference for SpType
character*19 Bibcode1_2 ! Bibcode of the reference for SpType
character*32 RefSpeX_2 ! SpeX Prism reference
character*19 Bibcode2_2 ! Bibcode of the reference for SpeX Prism
character*48 Ref_2 ! Other reference(s) (3)
character*40 Bibcode3_2 ! Bibcode of the other reference(s)
*Note (1): Templates generated using spectra of objects in Table 3 are shown in
* Figure 6. Objects in Table 4 were excluded from the templates and are shown
* in Figure 7. Templates generated using spectra of objects in Table 5 are shown
* in Figures 8 and 9.
* These data are available as data behind the figures and from the BDNYC
* Database.
*Note (2): Note as follows:
* b = Originally typed as L3 in Cruz et al. (2007, J/AJ/133/439) but reanalysis
* of same data resulted in a revised type of L4;
* c = Originally typed as L6: in Reid et al. (2008, J/AJ/136/1290) but
* reanalysis of the same slightly noisy spectrum resulted in a revised type
* of L7:;
* d = Spectral type based on analysis of spectrum from Scholz et al.
* (2009A&A...494..949S).
*Note (3): References listed are not exhaustive and pertain to discovery and
* spectral data not listed in previous columns.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10.dat' ! Near-Infrared IRTF SpeX Prism Spectra of
Galaxies
integer*4 nr__5
parameter (nr__5=17) ! Number of records
character*34 ar__5 ! Full-size record
character*5 FS_1 ! Figure Set A1 element number (A1.1 to A1.17)
character*16 v2MASS_1 ! 2MASS identifier of likely galaxy (HHMMSSss+DDMMSSs)
character*11 Date_2 ! ("date") UT date of observation
C=============================================================================
C Loading file 'table1.dat' ! New Far-Red Optical Observations
C Format for file interpretation
1 format(
+ F4.2,1X,A16,A2,1X,A6,1X,A6,1X,A11,1X,A11,1X,A19,1X,A4,1X,A19,
+ 1X,A8,1X,A19)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,19
read(1,'(A135)')ar__
read(ar__,1)
+ FS,v2MASS,Comp,Tel,Inst,Date,SpType,r_SpType,SpType1,
+ r_SpType1,SpType2,r_SpType2
c ..............Just test output...........
write(6,1)
+ FS,v2MASS,Comp,Tel,Inst,Date,SpType,r_SpType,SpType1,
+ r_SpType1,SpType2,r_SpType2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! New Near-Infrared IRTF SpeX Prism Observations
C Format for file interpretation
2 format(A24,1X,A10)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,155
read(1,'(A35)')ar__1
read(ar__1,2)Name,Date_1
c ..............Just test output...........
write(6,2)Name,Date_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! L Dwarfs Included in the Field Gravity Template
* Sample
C Format for file interpretation
3 format(
+ A25,1X,A25,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,A11,1X,A1,1X,
+ A32,1X,A19,1X,A32,1X,A19,1X,A48,1X,A40)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,101
read(1,'(A286)')ar__2
read(ar__2,3)
+ Name_1,OName,Jmag,e_Jmag,J_Ks,e_J_Ks,SpType_1,n_SpType,
+ r_SpType_1,Bibcode1,RefSpeX,Bibcode2,Ref,Bibcode3
c ..............Just test output...........
write(6,3)
+ Name_1,OName,Jmag,e_Jmag,J_Ks,e_J_Ks,SpType_1,n_SpType,
+ r_SpType_1,Bibcode1,RefSpeX,Bibcode2,Ref,Bibcode3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Normal L Dwarfs Excluded from the Field Gravity
* Template Sample
C Format for file interpretation
4 format(
+ A25,1X,A25,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,A11,1X,A1,1X,
+ A32,1X,A19,1X,A32,1X,A19,1X,A48,1X,A40)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,41
read(1,'(A286)')ar__3
read(ar__3,4)
+ Name_2,OName_1,Jmag_1,e_Jmag_1,J_Ks_1,e_J_Ks_1,SpType_2,
+ n_SpType_1,r_SpType_2,Bibcode1_1,RefSpeX_1,Bibcode2_1,Ref_1,
+ Bibcode3_1
c ..............Just test output...........
write(6,4)
+ Name_2,OName_1,Jmag_1,e_Jmag_1,J_Ks_1,e_J_Ks_1,SpType_2,
+ n_SpType_1,r_SpType_2,Bibcode1_1,RefSpeX_1,Bibcode2_1,Ref_1,
+ Bibcode3_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Low-gravity L Dwarfs Included in the Low-gravity
* Template Sample
C Format for file interpretation
5 format(
+ A25,1X,A25,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,A11,1X,A1,1X,
+ A32,1X,A19,1X,A32,1X,A19,1X,A48,1X,A40)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,26
read(1,'(A286)')ar__4
read(ar__4,5)
+ Name_3,OName_2,Jmag_2,e_Jmag_2,J_Ks_2,e_J_Ks_2,SpType_3,
+ n_SpType_2,r_SpType_3,Bibcode1_2,RefSpeX_2,Bibcode2_2,Ref_2,
+ Bibcode3_2
c ..............Just test output...........
write(6,5)
+ Name_3,OName_2,Jmag_2,e_Jmag_2,J_Ks_2,e_J_Ks_2,SpType_3,
+ n_SpType_2,r_SpType_3,Bibcode1_2,RefSpeX_2,Bibcode2_2,Ref_2,
+ Bibcode3_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10.dat' ! Near-Infrared IRTF SpeX Prism Spectra of
* Galaxies
C Format for file interpretation
6 format(A5,1X,A16,1X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'table10.dat')
write(6,*) '....Loading file: table10.dat'
do i__=1,17
read(1,'(A34)')ar__5
read(ar__5,6)FS_1,v2MASS_1,Date_2
c ..............Just test output...........
write(6,6)FS_1,v2MASS_1,Date_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end