Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/155/34 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 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 (nr__) ! [1.1/1.9] Figure Set 1 element number
character*16 v2MASS (nr__) ! 2MASS identifier of optical L dwarf
* (HHMMSSss+DDMMSSs)
character*2 Comp (nr__) ! [AB ] Component designation
character*6 Tel (nr__) ! Telescope (Keck I, Clay)
character*6 Inst (nr__) ! Instrument (LRIS, LDSS-3)
character*11 Date (nr__) ! ("date") UT date of observation
character*11 SpType (nr__) ! Derived optical spectral type
character*19 r_SpType (nr__) ! Reference bibcode for SpType
character*4 SpType1 (nr__) ! Previous spectral type, no 1
character*19 r_SpType1 (nr__) ! Reference bibcode for SpType1
character*8 SpType2 (nr__) ! Previous spectral type, no 2
character*19 r_SpType2 (nr__) ! 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 (nr__1) ! Target name (2MASS identifier or other name)
character*10 Date_1 (nr__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 (nr__2) ! Target name (2MASS identifier or other name)
* (1)
character*25 OName (nr__2) ! Other name (not in Table 4)
real*4 Jmag (nr__2) ! (mag) [11.759/16.789] 2MASS J band magnitude
real*4 e_Jmag (nr__2) ! (mag) [0.019/0.15] Uncertainty in Jmag
real*4 J_Ks (nr__2) ! (mag) [0.912/2.483] 2MASS J-K_s_ color index
real*4 e_J_Ks (nr__2) ! (mag) [0.029/0.18] Uncertainty in J-Ks
character*11 SpType_1 (nr__2) ! Optical spectral type
character*1 n_SpType (nr__2) ! [bcd] Note on SpType (not in Table 5) (2)
character*32 r_SpType_1 (nr__2) ! Reference for SpType
character*19 Bibcode1 (nr__2) ! Bibcode of the reference for SpType
character*32 RefSpeX (nr__2) ! SpeX Prism reference
character*19 Bibcode2 (nr__2) ! Bibcode of the reference for SpeX Prism
character*48 Ref (nr__2) ! Other reference(s) (3)
character*40 Bibcode3 (nr__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 '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 (nr__3) ! Target name (2MASS identifier or other name)
* (1)
character*25 OName_1 (nr__3) ! Other name (not in Table 4)
real*4 Jmag_1 (nr__3) ! (mag) [11.759/16.789] 2MASS J band magnitude
real*4 e_Jmag_1 (nr__3) ! (mag) [0.019/0.15] Uncertainty in Jmag
real*4 J_Ks_1 (nr__3) ! (mag) [0.912/2.483] 2MASS J-K_s_ color index
real*4 e_J_Ks_1 (nr__3) ! (mag) [0.029/0.18] Uncertainty in J-Ks
character*11 SpType_2 (nr__3) ! Optical spectral type
character*1 n_SpType_1 (nr__3) ! [bcd] Note on SpType (not in Table 5) (2)
character*32 r_SpType_2 (nr__3) ! Reference for SpType
character*19 Bibcode1_1 (nr__3) ! Bibcode of the reference for SpType
character*32 RefSpeX_1 (nr__3) ! SpeX Prism reference
character*19 Bibcode2_1 (nr__3) ! Bibcode of the reference for SpeX Prism
character*48 Ref_1 (nr__3) ! Other reference(s) (3)
character*40 Bibcode3_1 (nr__3) ! 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 (nr__4) ! Target name (2MASS identifier or other name)
* (1)
character*25 OName_2 (nr__4) ! Other name (not in Table 4)
real*4 Jmag_2 (nr__4) ! (mag) [11.759/16.789] 2MASS J band magnitude
real*4 e_Jmag_2 (nr__4) ! (mag) [0.019/0.15] Uncertainty in Jmag
real*4 J_Ks_2 (nr__4) ! (mag) [0.912/2.483] 2MASS J-K_s_ color index
real*4 e_J_Ks_2 (nr__4) ! (mag) [0.029/0.18] Uncertainty in J-Ks
character*11 SpType_3 (nr__4) ! Optical spectral type
character*1 n_SpType_2 (nr__4) ! [bcd] Note on SpType (not in Table 5) (2)
character*32 r_SpType_3 (nr__4) ! Reference for SpType
character*19 Bibcode1_2 (nr__4) ! Bibcode of the reference for SpType
character*32 RefSpeX_2 (nr__4) ! SpeX Prism reference
character*19 Bibcode2_2 (nr__4) ! Bibcode of the reference for SpeX Prism
character*48 Ref_2 (nr__4) ! Other reference(s) (3)
character*40 Bibcode3_2 (nr__4) ! 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 (nr__5) ! Figure Set A1 element number (A1.1 to A1.17)
character*16 v2MASS_1 (nr__5) ! 2MASS identifier of likely galaxy (HHMMSSss+DDMMSSs)
character*11 Date_2 (nr__5) ! ("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(i__),v2MASS(i__),Comp(i__),Tel(i__),Inst(i__),Date(i__),
+ SpType(i__),r_SpType(i__),SpType1(i__),r_SpType1(i__),
+ SpType2(i__),r_SpType2(i__)
c ..............Just test output...........
write(6,1)
+ FS(i__),v2MASS(i__),Comp(i__),Tel(i__),Inst(i__),Date(i__),
+ SpType(i__),r_SpType(i__),SpType1(i__),r_SpType1(i__),
+ SpType2(i__),r_SpType2(i__)
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(i__),Date_1(i__)
c ..............Just test output...........
write(6,2)Name(i__),Date_1(i__)
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(i__),OName(i__),Jmag(i__),e_Jmag(i__),J_Ks(i__),
+ e_J_Ks(i__),SpType_1(i__),n_SpType(i__),r_SpType_1(i__),
+ Bibcode1(i__),RefSpeX(i__),Bibcode2(i__),Ref(i__),
+ Bibcode3(i__)
c ..............Just test output...........
write(6,3)
+ Name_1(i__),OName(i__),Jmag(i__),e_Jmag(i__),J_Ks(i__),
+ e_J_Ks(i__),SpType_1(i__),n_SpType(i__),r_SpType_1(i__),
+ Bibcode1(i__),RefSpeX(i__),Bibcode2(i__),Ref(i__),
+ Bibcode3(i__)
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(i__),OName_1(i__),Jmag_1(i__),e_Jmag_1(i__),
+ J_Ks_1(i__),e_J_Ks_1(i__),SpType_2(i__),n_SpType_1(i__),
+ r_SpType_2(i__),Bibcode1_1(i__),RefSpeX_1(i__),
+ Bibcode2_1(i__),Ref_1(i__),Bibcode3_1(i__)
c ..............Just test output...........
write(6,4)
+ Name_2(i__),OName_1(i__),Jmag_1(i__),e_Jmag_1(i__),
+ J_Ks_1(i__),e_J_Ks_1(i__),SpType_2(i__),n_SpType_1(i__),
+ r_SpType_2(i__),Bibcode1_1(i__),RefSpeX_1(i__),
+ Bibcode2_1(i__),Ref_1(i__),Bibcode3_1(i__)
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(i__),OName_2(i__),Jmag_2(i__),e_Jmag_2(i__),
+ J_Ks_2(i__),e_J_Ks_2(i__),SpType_3(i__),n_SpType_2(i__),
+ r_SpType_3(i__),Bibcode1_2(i__),RefSpeX_2(i__),
+ Bibcode2_2(i__),Ref_2(i__),Bibcode3_2(i__)
c ..............Just test output...........
write(6,5)
+ Name_3(i__),OName_2(i__),Jmag_2(i__),e_Jmag_2(i__),
+ J_Ks_2(i__),e_J_Ks_2(i__),SpType_3(i__),n_SpType_2(i__),
+ r_SpType_3(i__),Bibcode1_2(i__),RefSpeX_2(i__),
+ Bibcode2_2(i__),Ref_2(i__),Bibcode3_2(i__)
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(i__),v2MASS_1(i__),Date_2(i__)
c ..............Just test output...........
write(6,6)FS_1(i__),v2MASS_1(i__),Date_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end