Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/361/1143 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/A+A/361/1143 Proper motions of PMS stars (Teixeira+ 2000)
*================================================================================
*Proper motions of pre-main sequence stars in southern star-forming regions.
* Teixeira R., Ducourant C., Sartori M.J., Camargo J.I.B., Perie J.P.,
* Lepine J.R.D., Benevides-Soares P.
* <Astron. Astrophys. 361, 1143 (2000)>
* =2000A&A...361.1143T
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Positions and proper motions for the T Tauri stars
integer*4 nr__
parameter (nr__=185) ! Number of records
character*116 ar__ ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
character*18 Name (nr__) ! Designation
real*4 Vmag (nr__) ! (mag) V or B magnitude (1)
character*2 r_Vmag (nr__) ! References for the magnitudes (2)
character*6 r_Pos (nr__) ! Sources for the positions (2)
real*8 Epoch (nr__) ! (yr) Epoch of the position
integer*4 RAh (nr__) ! (h) Right ascension (ICRS, J2000) (hours) (3)
integer*4 RAm (nr__) ! (min) Right ascension (ICRS, J2000) (minutes)
real*4 RAs (nr__) ! (s) Right ascension (ICRS, J2000) (seconds)
character*1 DE_ (nr__) ! Declination sign (ICRS, J2000)
integer*4 DEd (nr__) ! (deg) Declination (ICRS, J2000) (degrees)
integer*4 DEm (nr__) ! (arcmin) Declination (ICRS, J2000) (minutes)
real*4 DEs (nr__) ! (arcsec) Declination (ICRS, J2000) (seconds)
integer*4 pmRA (nr__) ! (mas/yr) Proper motion in right ascension (ICRS) (4)
integer*4 pmDE (nr__) ! (mas/yr) Proper motion in declination (ICRS)
integer*4 pmGLON (nr__) ! (mas/yr) Proper motion in galactic longitude (5)
integer*4 pmGLAT (nr__) ! (mas/yr) Proper motion in galactic latitude
integer*4 Spm (nr__) ! ? Other proper motion sources (6)
*Note (1): All magnitudes are in the V band, except for
* r_Vmag=10 and r_Vmag=A where there are in B band.
*Note (2): References:
* 1: Alcala et al. (1995A&AS..114..109A)
* 2: Appenzeller et al. (1980A&A...90...184A)
* 3: Bastian & Mundt (1979A&AS...36...57B)
* 4: Gauvin & Strom (1992ApJ...385..217G)
* 5: Herbig & Rao (1972ApJ...174..401H)
* 6: Hughes & Hartigan (1992AJ....104..680H)
* 7: Krautter et al. (1997A&AS..123..329K)
* 8: Lawson et al. (1996MNRAS.280.1071L)
* 9: Marraco & Rydgren (1981AJ.....86...62M)
* 10: Preibisch et al. (1998, Cat. <J/A+A/333/619>) (B magnitudes)
* 11: Rydgren (1980AJ....85...438R)
* 12: Rydgren (1980AJ....85...444R)
* 13: Schwartz & Noah (1978AJ....83...785S)
* 14: Torres (1998, Ph.D. Thesis, CNPq/Observatorio Nacional, Brazil)
* 15: Walter (1986ApJ...306..573W)
* 16: Walter et al. (1997AJ....114.1544W)
* 17: Wichmann et al. (1997A&A...326..211W)
* A: AC2000 (Cat. <I/247>) (B magnitudes)
* D: Digitized Sky Survey (DSS - Produced at the Space Telescope
* Science Institute under US Government grant NAG W-2166)
* E: SERC-J
* H: HIPPARCOS (Cat. <I/239>)
* T: Tycho (Cat. <I/239>)
* U: USNO-A2.0 (Cat. <I/252>)
* V: Valinhos CCD meridian circle
*Note (3): Right ascension values are increasing within the target region.
* For table 4:
* Records 1 to 29 -- Chamaeleon
* Records 30 to 138 -- Lupus
* Records 139 to 180 -- Upper Scorpius - Ophiuchus
* Records 181 to 183 -- Corona Australis
* Records 184 to 185 -- Other regions
* For table 5:
* Records 1 to 5 -- Chamaeleon
* Records 6 to 8 -- Lupus
* Records 9 to 15 -- Upper Scorpius - Ophiuchus
* Records 16 to 21 -- Corona Australis
* Records 22 to 28 -- Other regions
* For table 6:
* Records 1 to 20 -- Chamaeleon
* Records 21 to 29 -- Lupus
*Note (4): These quantities are multiplied by the cosine of the declination
*Note (5): These quantities are multiplied by the cosine of the galactic latitude
*Note (6): The values in digit location are:
* 1 = ACT (Cat. I/246)
* 2 = HIPPARCOS (Cat. I/239)
* 3 = PPM (Cat. I/193)
* 4 = Frink et al. (1998A&A...338..442F)
* 5 = Preibisch et al. (1998, Cat. J/A+A/333/619)
* 6 = Terranegra et al. (1999, Cat. J/A+A/341/L79)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Positions and proper motions for HaeBe stars
integer*4 nr__1
parameter (nr__1=28) ! Number of records
character*116 ar__1 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
character*18 Name_1 (nr__1) ! Designation
real*4 Vmag_1 (nr__1) ! (mag) V or B magnitude (1)
character*2 r_Vmag_1 (nr__1) ! References for the magnitudes (2)
character*6 r_Pos_1 (nr__1) ! Sources for the positions (2)
real*8 Epoch_1 (nr__1) ! (yr) Epoch of the position
integer*4 RAh_1 (nr__1) ! (h) Right ascension (ICRS, J2000) (hours) (3)
integer*4 RAm_1 (nr__1) ! (min) Right ascension (ICRS, J2000) (minutes)
real*4 RAs_1 (nr__1) ! (s) Right ascension (ICRS, J2000) (seconds)
character*1 DE__1 (nr__1) ! Declination sign (ICRS, J2000)
integer*4 DEd_1 (nr__1) ! (deg) Declination (ICRS, J2000) (degrees)
integer*4 DEm_1 (nr__1) ! (arcmin) Declination (ICRS, J2000) (minutes)
real*4 DEs_1 (nr__1) ! (arcsec) Declination (ICRS, J2000) (seconds)
integer*4 pmRA_1 (nr__1) ! (mas/yr) Proper motion in right ascension (ICRS) (4)
integer*4 pmDE_1 (nr__1) ! (mas/yr) Proper motion in declination (ICRS)
integer*4 pmGLON_1 (nr__1) ! (mas/yr) Proper motion in galactic longitude (5)
integer*4 pmGLAT_1 (nr__1) ! (mas/yr) Proper motion in galactic latitude
integer*4 Spm_1 (nr__1) ! ? Other proper motion sources (6)
*Note (1): All magnitudes are in the V band, except for
* r_Vmag=10 and r_Vmag=A where there are in B band.
*Note (2): References:
* 1: Alcala et al. (1995A&AS..114..109A)
* 2: Appenzeller et al. (1980A&A...90...184A)
* 3: Bastian & Mundt (1979A&AS...36...57B)
* 4: Gauvin & Strom (1992ApJ...385..217G)
* 5: Herbig & Rao (1972ApJ...174..401H)
* 6: Hughes & Hartigan (1992AJ....104..680H)
* 7: Krautter et al. (1997A&AS..123..329K)
* 8: Lawson et al. (1996MNRAS.280.1071L)
* 9: Marraco & Rydgren (1981AJ.....86...62M)
* 10: Preibisch et al. (1998, Cat. <J/A+A/333/619>) (B magnitudes)
* 11: Rydgren (1980AJ....85...438R)
* 12: Rydgren (1980AJ....85...444R)
* 13: Schwartz & Noah (1978AJ....83...785S)
* 14: Torres (1998, Ph.D. Thesis, CNPq/Observatorio Nacional, Brazil)
* 15: Walter (1986ApJ...306..573W)
* 16: Walter et al. (1997AJ....114.1544W)
* 17: Wichmann et al. (1997A&A...326..211W)
* A: AC2000 (Cat. <I/247>) (B magnitudes)
* D: Digitized Sky Survey (DSS - Produced at the Space Telescope
* Science Institute under US Government grant NAG W-2166)
* E: SERC-J
* H: HIPPARCOS (Cat. <I/239>)
* T: Tycho (Cat. <I/239>)
* U: USNO-A2.0 (Cat. <I/252>)
* V: Valinhos CCD meridian circle
*Note (3): Right ascension values are increasing within the target region.
* For table 4:
* Records 1 to 29 -- Chamaeleon
* Records 30 to 138 -- Lupus
* Records 139 to 180 -- Upper Scorpius - Ophiuchus
* Records 181 to 183 -- Corona Australis
* Records 184 to 185 -- Other regions
* For table 5:
* Records 1 to 5 -- Chamaeleon
* Records 6 to 8 -- Lupus
* Records 9 to 15 -- Upper Scorpius - Ophiuchus
* Records 16 to 21 -- Corona Australis
* Records 22 to 28 -- Other regions
* For table 6:
* Records 1 to 20 -- Chamaeleon
* Records 21 to 29 -- Lupus
*Note (4): These quantities are multiplied by the cosine of the declination
*Note (5): These quantities are multiplied by the cosine of the galactic latitude
*Note (6): The values in digit location are:
* 1 = ACT (Cat. I/246)
* 2 = HIPPARCOS (Cat. I/239)
* 3 = PPM (Cat. I/193)
* 4 = Frink et al. (1998A&A...338..442F)
* 5 = Preibisch et al. (1998, Cat. J/A+A/333/619)
* 6 = Terranegra et al. (1999, Cat. J/A+A/341/L79)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Non-PMS ROSAT stars in Chamaeleon
(Covino et al., 1997A&A...328..187C) and Lupus
(Wichmann et al., 1999MNRAS.307..909W)
integer*4 nr__2
parameter (nr__2=29) ! Number of records
character*116 ar__2 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
character*18 Name_2 (nr__2) ! Designation
real*4 Vmag_2 (nr__2) ! (mag) V or B magnitude (1)
character*2 r_Vmag_2 (nr__2) ! References for the magnitudes (2)
character*6 r_Pos_2 (nr__2) ! Sources for the positions (2)
real*8 Epoch_2 (nr__2) ! (yr) Epoch of the position
integer*4 RAh_2 (nr__2) ! (h) Right ascension (ICRS, J2000) (hours) (3)
integer*4 RAm_2 (nr__2) ! (min) Right ascension (ICRS, J2000) (minutes)
real*4 RAs_2 (nr__2) ! (s) Right ascension (ICRS, J2000) (seconds)
character*1 DE__2 (nr__2) ! Declination sign (ICRS, J2000)
integer*4 DEd_2 (nr__2) ! (deg) Declination (ICRS, J2000) (degrees)
integer*4 DEm_2 (nr__2) ! (arcmin) Declination (ICRS, J2000) (minutes)
real*4 DEs_2 (nr__2) ! (arcsec) Declination (ICRS, J2000) (seconds)
integer*4 pmRA_2 (nr__2) ! (mas/yr) Proper motion in right ascension (ICRS) (4)
integer*4 pmDE_2 (nr__2) ! (mas/yr) Proper motion in declination (ICRS)
integer*4 pmGLON_2 (nr__2) ! (mas/yr) Proper motion in galactic longitude (5)
integer*4 pmGLAT_2 (nr__2) ! (mas/yr) Proper motion in galactic latitude
integer*4 Spm_2 (nr__2) ! ? Other proper motion sources (6)
*Note (1): All magnitudes are in the V band, except for
* r_Vmag=10 and r_Vmag=A where there are in B band.
*Note (2): References:
* 1: Alcala et al. (1995A&AS..114..109A)
* 2: Appenzeller et al. (1980A&A...90...184A)
* 3: Bastian & Mundt (1979A&AS...36...57B)
* 4: Gauvin & Strom (1992ApJ...385..217G)
* 5: Herbig & Rao (1972ApJ...174..401H)
* 6: Hughes & Hartigan (1992AJ....104..680H)
* 7: Krautter et al. (1997A&AS..123..329K)
* 8: Lawson et al. (1996MNRAS.280.1071L)
* 9: Marraco & Rydgren (1981AJ.....86...62M)
* 10: Preibisch et al. (1998, Cat. <J/A+A/333/619>) (B magnitudes)
* 11: Rydgren (1980AJ....85...438R)
* 12: Rydgren (1980AJ....85...444R)
* 13: Schwartz & Noah (1978AJ....83...785S)
* 14: Torres (1998, Ph.D. Thesis, CNPq/Observatorio Nacional, Brazil)
* 15: Walter (1986ApJ...306..573W)
* 16: Walter et al. (1997AJ....114.1544W)
* 17: Wichmann et al. (1997A&A...326..211W)
* A: AC2000 (Cat. <I/247>) (B magnitudes)
* D: Digitized Sky Survey (DSS - Produced at the Space Telescope
* Science Institute under US Government grant NAG W-2166)
* E: SERC-J
* H: HIPPARCOS (Cat. <I/239>)
* T: Tycho (Cat. <I/239>)
* U: USNO-A2.0 (Cat. <I/252>)
* V: Valinhos CCD meridian circle
*Note (3): Right ascension values are increasing within the target region.
* For table 4:
* Records 1 to 29 -- Chamaeleon
* Records 30 to 138 -- Lupus
* Records 139 to 180 -- Upper Scorpius - Ophiuchus
* Records 181 to 183 -- Corona Australis
* Records 184 to 185 -- Other regions
* For table 5:
* Records 1 to 5 -- Chamaeleon
* Records 6 to 8 -- Lupus
* Records 9 to 15 -- Upper Scorpius - Ophiuchus
* Records 16 to 21 -- Corona Australis
* Records 22 to 28 -- Other regions
* For table 6:
* Records 1 to 20 -- Chamaeleon
* Records 21 to 29 -- Lupus
*Note (4): These quantities are multiplied by the cosine of the declination
*Note (5): These quantities are multiplied by the cosine of the galactic latitude
*Note (6): The values in digit location are:
* 1 = ACT (Cat. I/246)
* 2 = HIPPARCOS (Cat. I/239)
* 3 = PPM (Cat. I/193)
* 4 = Frink et al. (1998A&A...338..442F)
* 5 = Preibisch et al. (1998, Cat. J/A+A/333/619)
* 6 = Terranegra et al. (1999, Cat. J/A+A/341/L79)
C=============================================================================
C Loading file 'table4.dat' ! Positions and proper motions for the T Tauri stars
C Format for file interpretation
1 format(
+ A18,2X,F4.1,3X,A2,3X,A6,3X,F8.3,3X,I2,1X,I2,1X,F6.3,3X,A1,I2,
+ 1X,I2,1X,F5.2,3X,I4,3X,I4,3X,I4,3X,I4,3X,I6)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,185
read(1,'(A116)')ar__
read(ar__,1)
+ Name(i__),Vmag(i__),r_Vmag(i__),r_Pos(i__),Epoch(i__),
+ RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),pmRA(i__),pmDE(i__),pmGLON(i__),pmGLAT(i__),Spm(i__)
if(ar__(111:116) .EQ. '') Spm(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),Vmag(i__),r_Vmag(i__),r_Pos(i__),Epoch(i__),
+ RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),pmRA(i__),pmDE(i__),pmGLON(i__),pmGLAT(i__),Spm(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Positions and proper motions for HaeBe stars
C Format for file interpretation
2 format(
+ A18,2X,F4.1,3X,A2,3X,A6,3X,F8.3,3X,I2,1X,I2,1X,F6.3,3X,A1,I2,
+ 1X,I2,1X,F5.2,3X,I4,3X,I4,3X,I4,3X,I4,3X,I6)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,28
read(1,'(A116)')ar__1
read(ar__1,2)
+ Name_1(i__),Vmag_1(i__),r_Vmag_1(i__),r_Pos_1(i__),
+ Epoch_1(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),DE__1(i__),
+ DEd_1(i__),DEm_1(i__),DEs_1(i__),pmRA_1(i__),pmDE_1(i__),
+ pmGLON_1(i__),pmGLAT_1(i__),Spm_1(i__)
if(ar__1(111:116) .EQ. '') Spm_1(i__) = iNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),Vmag_1(i__),r_Vmag_1(i__),r_Pos_1(i__),
+ Epoch_1(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),DE__1(i__),
+ DEd_1(i__),DEm_1(i__),DEs_1(i__),pmRA_1(i__),pmDE_1(i__),
+ pmGLON_1(i__),pmGLAT_1(i__),Spm_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Non-PMS ROSAT stars in Chamaeleon
* (Covino et al., 1997A&A...328..187C) and Lupus
* (Wichmann et al., 1999MNRAS.307..909W)
C Format for file interpretation
3 format(
+ A18,2X,F4.1,3X,A2,3X,A6,3X,F8.3,3X,I2,1X,I2,1X,F6.3,3X,A1,I2,
+ 1X,I2,1X,F5.2,3X,I4,3X,I4,3X,I4,3X,I4,3X,I6)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,29
read(1,'(A116)')ar__2
read(ar__2,3)
+ Name_2(i__),Vmag_2(i__),r_Vmag_2(i__),r_Pos_2(i__),
+ Epoch_2(i__),RAh_2(i__),RAm_2(i__),RAs_2(i__),DE__2(i__),
+ DEd_2(i__),DEm_2(i__),DEs_2(i__),pmRA_2(i__),pmDE_2(i__),
+ pmGLON_2(i__),pmGLAT_2(i__),Spm_2(i__)
if(ar__2(111:116) .EQ. '') Spm_2(i__) = iNULL__
c ..............Just test output...........
write(6,3)
+ Name_2(i__),Vmag_2(i__),r_Vmag_2(i__),r_Pos_2(i__),
+ Epoch_2(i__),RAh_2(i__),RAm_2(i__),RAs_2(i__),DE__2(i__),
+ DEd_2(i__),DEm_2(i__),DEs_2(i__),pmRA_2(i__),pmDE_2(i__),
+ pmGLON_2(i__),pmGLAT_2(i__),Spm_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end