Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJS/187/149 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-11
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/ApJS/187/149 StarCAT: STIS UV echelle spectra of stars (Ayres, 2010)
*================================================================================
*StarCAT: a catalog of space telescope imaging spectrograph ultraviolet echelle
*spectra of stars.
* Ayres T.R.
* <Astrophys. J. Suppl. Ser., 187, 149-171 (2010)>
* =2010ApJS..187..149A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! The StarCAT sample: star names
integer*4 nr__
parameter (nr__=544) ! Number of records
character*144 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*14 StarCAT ! StarCat name
character*8 m_StarCAT ! Sub-division (1)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
character*27 SIMBAD ! Simbad name
character*20 HST ! HST name
character*54 Notes ! Notes
*Note (1): Sub-division as POS-BP, POS-CEN, POS-D, POS-ECH1, POS-ECH2,
* POS-N, POS-NE, POS-OFFS, POS-S, POS-SW or SCAN.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! The StarCAT sample: stellar properties
integer*4 nr__1
parameter (nr__1=534) ! Number of records
character*48 ar__1 ! Full-size record
character*14 StarCAT_1 ! StarCAT name
character*3 OType ! Simbad object type
character*8 SpType ! Simbad spectral type
real*4 plx ! (arcsec) ? Simbad parallax
real*4 Vmag ! (mag) ? Simbad V band magnitude
real*4 B_V ! (mag) ? Simbad (B-V) color index
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'starcat.dat' ! Merged StarCAT sample: names and properties
integer*4 nr__2
parameter (nr__2=544) ! Number of records
character*178 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*14 StarCAT_2 ! StarCat name
character*8 m_StarCAT_1 ! Sub-division (1)
real*8 RAdeg_1 ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg_1 ! (deg) Declination in decimal degrees (J2000)
character*27 SIMBAD_1 ! Simbad name
character*20 HST_1 ! HST name
character*3 OType_1 ! Simbad object type
character*8 SpType_1 ! Simbad spectral type
real*4 plx_1 ! (arcsec) ? Simbad parallax
real*4 Vmag_1 ! (mag) ? Simbad V band magnitude
real*4 B_V_1 ! (mag) ? Simbad (B-V) color index
character*54 Notes_1 ! Notes
*Note (1): Sub-division as POS-BP, POS-CEN, POS-D, POS-ECH1, POS-ECH2,
* POS-N, POS-NE, POS-OFFS, POS-S, POS-SW or SCAN.
C=============================================================================
C Loading file 'table1.dat' ! The StarCAT sample: star names
C Format for file interpretation
1 format(A14,1X,A8,1X,F8.3,1X,F7.3,1X,A27,1X,A20,1X,A54)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,544
read(1,'(A144)')ar__
read(ar__,1)StarCAT,m_StarCAT,RAdeg,DEdeg,SIMBAD,HST,Notes
c ..............Just test output...........
write(6,1)StarCAT,m_StarCAT,RAdeg,DEdeg,SIMBAD,HST,Notes
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! The StarCAT sample: stellar properties
C Format for file interpretation
2 format(A14,1X,A3,1X,A8,1X,F6.3,1X,F6.2,1X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,534
read(1,'(A48)')ar__1
read(ar__1,2)StarCAT_1,OType,SpType,plx,Vmag,B_V
if(ar__1(29:34) .EQ. '') plx = rNULL__
if(ar__1(36:41) .EQ. '') Vmag = rNULL__
if(ar__1(43:48) .EQ. '') B_V = rNULL__
c ..............Just test output...........
write(6,2)StarCAT_1,OType,SpType,plx,Vmag,B_V
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'starcat.dat' ! Merged StarCAT sample: names and properties
C Format for file interpretation
3 format(
+ A14,1X,A8,1X,F8.3,1X,F7.3,1X,A27,1X,A20,1X,A3,1X,A8,1X,F6.3,
+ 1X,F6.2,1X,F6.2,1X,A54)
C Effective file loading
open(unit=1,status='old',file=
+'starcat.dat')
write(6,*) '....Loading file: starcat.dat'
do i__=1,544
read(1,'(A178)')ar__2
read(ar__2,3)
+ StarCAT_2,m_StarCAT_1,RAdeg_1,DEdeg_1,SIMBAD_1,HST_1,OType_1,
+ SpType_1,plx_1,Vmag_1,B_V_1,Notes_1
if(ar__2(104:109) .EQ. '') plx_1 = rNULL__
if(ar__2(111:116) .EQ. '') Vmag_1 = rNULL__
if(ar__2(118:123) .EQ. '') B_V_1 = rNULL__
c ..............Just test output...........
write(6,3)
+ StarCAT_2,m_StarCAT_1,RAdeg_1,DEdeg_1,SIMBAD_1,HST_1,OType_1,
+ SpType_1,plx_1,Vmag_1,B_V_1,Notes_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end