Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/378/116 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 2024-Apr-20
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/A+A/378/116 Classification and vsini of Vega-type and PMS stars (Mora+, 2001)
*================================================================================
*EXPORT: spectral classification and projected rotational velocities of
*Vega-type and pre-main sequence stars.
* Mora A., Merin B., Solano E., Montesinos B., de Winter D., Eiroa C.,
* Ferlet R., Grady C.A., Davies J.K., Miranda L.F., Oudmaijer R.D.,
* Palacios J., Quirrenbach A., Harris A.W., Rauer H., Cameron A., Deeg H.J.,
* Garzon F., Penny A., Schneider J., Tsapras Y., Wesselius P.R..
* <Astron. Astrophys. 378, 116 (2001)>
* =2001A&A...378..116M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Log of the observations taken with the INT
integer*4 nr__
parameter (nr__=70) ! Number of records
character*73 ar__ ! Full-size record
character*14 Star ! Name of the star
integer*4 N14_05_98 ! ? Number of spectra taken on 14 May 98
integer*4 N15_05_98 ! ? Number of spectra taken on 15 May 98
integer*4 N16_05_98 ! ? Number of spectra taken on 16 May 98
integer*4 N17_05_98 ! ? Number of spectra taken on 17 May 98
integer*4 N28_07_98 ! ? Number of spectra taken on 28 July 98
integer*4 N29_07_98 ! ? Number of spectra taken on 29 July 98
integer*4 N30_07_98 ! ? Number of spectra taken on 30 July 98
integer*4 N31_07_98 ! ? Number of spectra taken on 31 July 98
integer*4 N23_10_98 ! ? Number of spectra taken on 23 October 98
integer*4 N24_10_98 ! ? Number of spectra taken on 24 October 98
integer*4 N25_10_98 ! ? Number of spectra taken on 25 October 98
integer*4 N26_10_98 ! ? Number of spectra taken on 26 October 98
integer*4 N27_10_98 ! ? Number of spectra taken on 27 October 98
integer*4 N28_10_98 ! ? Number of spectra taken on 28 October 98
integer*4 N28_01_99 ! ? Number of spectra taken on 28 January 99
integer*4 N29_01_99 ! ? Number of spectra taken on 29 January 99
integer*4 N30_01_99 ! ? Number of spectra taken on 30 January 99
integer*4 N31_01_99 ! ? Number of spectra taken on 31 January 99
integer*4 NTotal ! Total number of spectra for each star
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Log of the observations taken with the WHT
integer*4 nr__1
parameter (nr__1=47) ! Number of records
character*73 ar__1 ! Full-size record
character*14 Star_1 ! Name of the star
integer*4 N14_05_98_1 ! ? Number of spectra taken on 14 May 98
integer*4 N15_05_98_1 ! ? Number of spectra taken on 15 May 98
integer*4 N16_05_98_1 ! ? Number of spectra taken on 16 May 98
integer*4 N17_05_98_1 ! ? Number of spectra taken on 17 May 98
integer*4 N28_07_98_1 ! ? Number of spectra taken on 28 July 98
integer*4 N29_07_98_1 ! ? Number of spectra taken on 29 July 98
integer*4 N30_07_98_1 ! ? Number of spectra taken on 30 July 98
integer*4 N31_07_98_1 ! ? Number of spectra taken on 31 July 98
integer*4 N23_10_98_1 ! ? Number of spectra taken on 23 October 98
integer*4 N24_10_98_1 ! ? Number of spectra taken on 24 October 98
integer*4 N25_10_98_1 ! ? Number of spectra taken on 25 October 98
integer*4 N26_10_98_1 ! ? Number of spectra taken on 26 October 98
integer*4 N27_10_98_1 ! ? Number of spectra taken on 27 October 98
integer*4 N28_10_98_1 ! ? Number of spectra taken on 28 October 98
integer*4 N28_01_99_1 ! ? Number of spectra taken on 28 January 99
integer*4 N29_01_99_1 ! ? Number of spectra taken on 29 January 99
integer*4 N30_01_99_1 ! ? Number of spectra taken on 30 January 99
integer*4 N31_01_99_1 ! ? Number of spectra taken on 31 January 99
integer*4 NTotal_1 ! Total number of spectra for each star
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Spectral types and vsini values
integer*4 nr__2
parameter (nr__2=72) ! Number of records
character*94 ar__2 ! Full-size record
character*14 Star_2 ! Name of the star
character*1 n_Star ! [*] Note on Star (1)
character*5 Class ! Class of star (Vega, HAeBe, etc) (2)
character*9 SpType ! Spectral type from this work (3)
character*26 SpTypes ! Spectral type from previous works
real*4 vsini ! (km/s) ? Rotational velocity vsini from this work (4)
real*4 e_vsini ! (km/s) ? rms uncertainty on vsini
character*1 n_vsini ! [x] Note on vsini (5)
integer*4 vsini1 ! (km/s) ? Rotational velocity from previous work
integer*4 e_vsini1 ! (km/s) ? rms uncertainty on vsini1
integer*4 r_vsini1 ! ? Reference for vsini1, in refs.dat file
real*4 vsini2 ! (km/s) ? Rotational velocity from previous work
integer*4 e_vsini2 ! (km/s) ? rms uncertainty on vsini2
integer*4 r_vsini2 ! ? Reference for vsini2, in refs.dat file
*Note (1): The stars marked with an asterisk (*) have been classified with an
* error of about five spectral subtypes because they present peculiar
* spectra, too many diffuse interstellar bands or veiling
*Note (2): Abbreviations:
* CTT: classical T Tauri
* ETT: early T Tauri
* HAeBe: Herbig Ae/Be
* MS: main sequence
* PTT: Post-T Tauri
* Ash: A-shell star
*Note (3): The meanings of the lower case suffixes are:
* `e' emission lines
* `v' variable spectrum
* `p' peculiar spectrum (presence of non-standard components)
* `n' broad or weak lines in the spectrum
* `m' unexpected lines from metals or metal lines with unusually large
* strengths
*Note (4): A blank in this column means that the star was not observed
* with the WHT, furthermore no determination of vsini was feasible
*Note (5): The symbol `x' indicates that vsini has been obtained using
* only the Mg II 4481{AA} line
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References to table6.dat
integer*4 nr__3
parameter (nr__3=19) ! Number of records
character*53 ar__3 ! Full-size record
integer*4 Ref ! References number
character*19 BibCode ! BibCode
character*30 Aut ! Author's name
C=============================================================================
C Loading file 'table1.dat' ! Log of the observations taken with the INT
C Format for file interpretation
1 format(
+ A14,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,
+ I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,3X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,70
read(1,'(A73)')ar__
read(ar__,1)
+ Star,N14_05_98,N15_05_98,N16_05_98,N17_05_98,N28_07_98,
+ N29_07_98,N30_07_98,N31_07_98,N23_10_98,N24_10_98,N25_10_98,
+ N26_10_98,N27_10_98,N28_10_98,N28_01_99,N29_01_99,N30_01_99,
+ N31_01_99,NTotal
if(ar__(17:17) .EQ. '') N14_05_98 = iNULL__
if(ar__(20:20) .EQ. '') N15_05_98 = iNULL__
if(ar__(23:23) .EQ. '') N16_05_98 = iNULL__
if(ar__(26:26) .EQ. '') N17_05_98 = iNULL__
if(ar__(29:29) .EQ. '') N28_07_98 = iNULL__
if(ar__(32:32) .EQ. '') N29_07_98 = iNULL__
if(ar__(35:35) .EQ. '') N30_07_98 = iNULL__
if(ar__(38:38) .EQ. '') N31_07_98 = iNULL__
if(ar__(41:41) .EQ. '') N23_10_98 = iNULL__
if(ar__(44:44) .EQ. '') N24_10_98 = iNULL__
if(ar__(47:47) .EQ. '') N25_10_98 = iNULL__
if(ar__(50:50) .EQ. '') N26_10_98 = iNULL__
if(ar__(53:53) .EQ. '') N27_10_98 = iNULL__
if(ar__(56:56) .EQ. '') N28_10_98 = iNULL__
if(ar__(59:59) .EQ. '') N28_01_99 = iNULL__
if(ar__(62:62) .EQ. '') N29_01_99 = iNULL__
if(ar__(65:65) .EQ. '') N30_01_99 = iNULL__
if(ar__(68:68) .EQ. '') N31_01_99 = iNULL__
c ..............Just test output...........
write(6,1)
+ Star,N14_05_98,N15_05_98,N16_05_98,N17_05_98,N28_07_98,
+ N29_07_98,N30_07_98,N31_07_98,N23_10_98,N24_10_98,N25_10_98,
+ N26_10_98,N27_10_98,N28_10_98,N28_01_99,N29_01_99,N30_01_99,
+ N31_01_99,NTotal
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Log of the observations taken with the WHT
C Format for file interpretation
2 format(
+ A14,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,
+ I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,3X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,47
read(1,'(A73)')ar__1
read(ar__1,2)
+ Star_1,N14_05_98_1,N15_05_98_1,N16_05_98_1,N17_05_98_1,
+ N28_07_98_1,N29_07_98_1,N30_07_98_1,N31_07_98_1,N23_10_98_1,
+ N24_10_98_1,N25_10_98_1,N26_10_98_1,N27_10_98_1,N28_10_98_1,
+ N28_01_99_1,N29_01_99_1,N30_01_99_1,N31_01_99_1,NTotal_1
if(ar__1(17:17) .EQ. '') N14_05_98_1 = iNULL__
if(ar__1(20:20) .EQ. '') N15_05_98_1 = iNULL__
if(ar__1(23:23) .EQ. '') N16_05_98_1 = iNULL__
if(ar__1(26:26) .EQ. '') N17_05_98_1 = iNULL__
if(ar__1(29:29) .EQ. '') N28_07_98_1 = iNULL__
if(ar__1(32:32) .EQ. '') N29_07_98_1 = iNULL__
if(ar__1(35:35) .EQ. '') N30_07_98_1 = iNULL__
if(ar__1(38:38) .EQ. '') N31_07_98_1 = iNULL__
if(ar__1(41:41) .EQ. '') N23_10_98_1 = iNULL__
if(ar__1(44:44) .EQ. '') N24_10_98_1 = iNULL__
if(ar__1(47:47) .EQ. '') N25_10_98_1 = iNULL__
if(ar__1(50:50) .EQ. '') N26_10_98_1 = iNULL__
if(ar__1(53:53) .EQ. '') N27_10_98_1 = iNULL__
if(ar__1(56:56) .EQ. '') N28_10_98_1 = iNULL__
if(ar__1(59:59) .EQ. '') N28_01_99_1 = iNULL__
if(ar__1(62:62) .EQ. '') N29_01_99_1 = iNULL__
if(ar__1(65:65) .EQ. '') N30_01_99_1 = iNULL__
if(ar__1(68:68) .EQ. '') N31_01_99_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ Star_1,N14_05_98_1,N15_05_98_1,N16_05_98_1,N17_05_98_1,
+ N28_07_98_1,N29_07_98_1,N30_07_98_1,N31_07_98_1,N23_10_98_1,
+ N24_10_98_1,N25_10_98_1,N26_10_98_1,N27_10_98_1,N28_10_98_1,
+ N28_01_99_1,N29_01_99_1,N30_01_99_1,N31_01_99_1,NTotal_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Spectral types and vsini values
C Format for file interpretation
3 format(
+ A14,A1,1X,A5,1X,A9,1X,A26,1X,F5.1,1X,F4.1,A1,1X,I3,1X,I2,2X,
+ I2,1X,F5.1,1X,I1,3X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,72
read(1,'(A94)')ar__2
read(ar__2,3)
+ Star_2,n_Star,Class,SpType,SpTypes,vsini,e_vsini,n_vsini,
+ vsini1,e_vsini1,r_vsini1,vsini2,e_vsini2,r_vsini2
if(ar__2(60:64) .EQ. '') vsini = rNULL__
if(ar__2(66:69) .EQ. '') e_vsini = rNULL__
if(ar__2(72:74) .EQ. '') vsini1 = iNULL__
if(ar__2(76:77) .EQ. '') e_vsini1 = iNULL__
if(ar__2(80:81) .EQ. '') r_vsini1 = iNULL__
if(ar__2(83:87) .EQ. '') vsini2 = rNULL__
if(ar__2(89:89) .EQ. '') e_vsini2 = iNULL__
if(ar__2(93:94) .EQ. '') r_vsini2 = iNULL__
c ..............Just test output...........
write(6,3)
+ Star_2,n_Star,Class,SpType,SpTypes,vsini,e_vsini,n_vsini,
+ vsini1,e_vsini1,r_vsini1,vsini2,e_vsini2,r_vsini2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References to table6.dat
C Format for file interpretation
4 format(I2,1X,A19,1X,A30)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,19
read(1,'(A53)')ar__3
read(ar__3,4)Ref,BibCode,Aut
c ..............Just test output...........
write(6,4)Ref,BibCode,Aut
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end