Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/376/441 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/376/441 Absolute proper motions of 112 open clusters (Dias+, 2001)
*================================================================================
*Proper motions of open clusters within 1 kpc based on the TYCHO2 Catalogue.
* Dias W.S., Lepine J.R.D., Alessi B.S.
* <Astron. Astrophys. 376, 441 (2001)>
* =2001A&A...376..441D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'clusters.dat' ! Cluster positions (from Simbad)
integer*4 nr__
parameter (nr__=112) ! Number of records
character*52 ar__ ! Full-size record
C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000.0
real*8 DEdeg ! (deg) Declination J2000.0
C ---------------------------------- ! (position vector(s) in degrees)
character*14 Name ! Cluster name
integer*4 RAh ! (h) Right ascension (J2000.0)
integer*4 RAm ! (min) Right ascension (J2000.0)
real*4 RAs ! (s) Right ascension (J2000.0)
character*1 DE_ ! Declination sign (J2000.0)
integer*4 DEd ! (deg) Declination (J2000.0)
integer*4 DEm ! (arcmin) Declination (J2000.0)
integer*4 DEs ! (arcsec) Declination (J2000.0)
character*11 FileName ! File name in "pm" subdirectory (2)
*Note (2): For clusters, the following abbreviations are used:
* col = Collinder
* rup = Ruprecht
* vdbh = vdB-Hagen
* mel = Melotte
* ros = Roslund
* ste = Stephenson
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! List of clusters for which the statistical
method was unable to provide accurate
proper motions.
integer*4 nr__1
parameter (nr__1=41) ! Number of records
character*53 ar__1 ! Full-size record
C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm
real*8 RAdeg_1 ! (deg) Right Ascension J2000.0
real*8 DEdeg_1 ! (deg) Declination J2000.0
C ---------------------------------- ! (position vector(s) in degrees)
character*13 Name_1 ! Name of the cluster
character*1 Note ! [*] Note for {sigma} Ori cluster (1)
integer*4 RAh_1 ! (h) Right ascension (J2000.0)
integer*4 RAm_1 ! (min) Right ascension (J2000.0)
integer*4 RAs_1 ! (s) Right ascension (J2000.0)
character*1 DE__1 ! Declination sign
integer*4 DEd_1 ! (deg) Declination (J2000.0)
integer*4 DEm_1 ! (arcmin) Declination (J2000.0)
integer*4 D ! (arcmin) ? Diameter in arcmin (1)
integer*4 d_1 ! (pc) Distance in pc (1)
real*4 logAge ! ([yr]) ? Age (1)
*Note (1): Distances and ages obtained from WEBDA, http://obswww.unige.ch/webda
* For {sigma} Ori, distance from Baumgardt et al., 2000,
* Cat. <J/A+AS/146/251>, and age from WEBDA
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! List the parameters provided by the method
of Sanders for 112 open clusters
integer*4 nr__2
parameter (nr__2=112) ! Number of records
character*87 ar__2 ! Full-size record
character*14 Name_2 ! Name of the cluster
character*2 Notes ! [:*+ ] Existence of notes (1)
integer*4 Nc ! Estimated number of members in the cluster
real*4 pmRAcl ! (mas/yr) Mean proper motion of the cluster
* {mu}_{alpha}_cos{delta}, ICRS
real*4 pmDEcl ! (mas/yr) Mean proper motion of the cluster
* {mu}_{delta}_, ICRS
real*4 e_pm ! (mas/yr) Standard deviation in pmRAcl and pmDEcl
integer*4 Ni ! Estimated number of field stars
real*4 pmRAs ! (mas/yr) Mean proper motion of the field stars
* {mu}_{alpha}_cos{delta}_, ICRS
real*4 e_pmRAs ! (mas/yr) Standard deviation of pmRAs
real*4 pmDEs ! (mas/yr) Mean proper motion of the field stars in
* {mu}_{delta}_, ICRS
real*4 e_pmDEs ! (mas/yr) Standard deviation of pmDEs
real*8 theta ! (deg) [0/360] Rotation angle to the major axis
real*4 Plx ! (mas) ? Mean trigonometric parallax (2)
real*4 e_Plx ! (mas) ? Standard error in Plx (2)
integer*4 d_2 ! (pc) ? Distance from WEBDA (3)
*Note (1): The flag denotes:
* * = Clusters that were not previously studied by Baumgardt et al.,
* 2000, Cat. <J/A+AS/146/251>
* +* = Clusters for which we derived the mean parallax
* : = Cluster commented in the text
*Note (2): Data obtained from Baumgardt et al., 2000, Cat. <J/A+AS/146/251>
*Note (3): Obtained from WEBDA, http://obswww.unige.ch/webda
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/blanco1.dat' ! Proper motions and membership, by cluster
integer*4 nr__3
parameter (nr__3=101) ! Number of records
character*76 ar__3 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas ! (mas) Standard deviation in RA
integer*4 e_DEmas ! (mas) Standard deviation in DE
real*8 pmRA ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/bochum5.dat' ! Proper motions and membership, by cluster
integer*4 nr__4
parameter (nr__4=56) ! Number of records
character*76 ar__4 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_1 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_1 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_1 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_1 ! (mas) Standard deviation in RA
integer*4 e_DEmas_1 ! (mas) Standard deviation in DE
real*8 pmRA_1 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_1 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_1 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_1 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_1 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col121.dat' ! Proper motions and membership, by cluster
integer*4 nr__5
parameter (nr__5=179) ! Number of records
character*76 ar__5 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_2 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_2 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_2 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_2 ! (mas) Standard deviation in RA
integer*4 e_DEmas_2 ! (mas) Standard deviation in DE
real*8 pmRA_2 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_2 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_2 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_2 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_2 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col132.dat' ! Proper motions and membership, by cluster
integer*4 nr__6
parameter (nr__6=212) ! Number of records
character*76 ar__6 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_3 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_3 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_3 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_3 ! (mas) Standard deviation in RA
integer*4 e_DEmas_3 ! (mas) Standard deviation in DE
real*8 pmRA_3 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_3 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_3 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_3 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_3 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col135.dat' ! Proper motions and membership, by cluster
integer*4 nr__7
parameter (nr__7=58) ! Number of records
character*76 ar__7 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_4 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_4 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_4 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_4 ! (mas) Standard deviation in RA
integer*4 e_DEmas_4 ! (mas) Standard deviation in DE
real*8 pmRA_4 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_4 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_4 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_4 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_4 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col140.dat' ! Proper motions and membership, by cluster
integer*4 nr__8
parameter (nr__8=36) ! Number of records
character*76 ar__8 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_5 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_5 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_5 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_5 ! (mas) Standard deviation in RA
integer*4 e_DEmas_5 ! (mas) Standard deviation in DE
real*8 pmRA_5 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_5 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_5 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_5 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_5 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col197.dat' ! Proper motions and membership, by cluster
integer*4 nr__9
parameter (nr__9=38) ! Number of records
character*76 ar__9 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_6 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_6 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_6 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_6 ! (mas) Standard deviation in RA
integer*4 e_DEmas_6 ! (mas) Standard deviation in DE
real*8 pmRA_6 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_6 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_6 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_6 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_6 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col258.dat' ! Proper motions and membership, by cluster
integer*4 nr__10
parameter (nr__10=25) ! Number of records
character*76 ar__10 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_7 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_7 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_7 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_7 ! (mas) Standard deviation in RA
integer*4 e_DEmas_7 ! (mas) Standard deviation in DE
real*8 pmRA_7 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_7 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_7 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_7 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_7 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col359.dat' ! Proper motions and membership, by cluster
integer*4 nr__11
parameter (nr__11=84) ! Number of records
character*76 ar__11 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_8 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_8 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_8 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_8 ! (mas) Standard deviation in RA
integer*4 e_DEmas_8 ! (mas) Standard deviation in DE
real*8 pmRA_8 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_8 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_8 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_8 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_8 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col394.dat' ! Proper motions and membership, by cluster
integer*4 nr__12
parameter (nr__12=51) ! Number of records
character*76 ar__12 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_9 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_9 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_9 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_9 ! (mas) Standard deviation in RA
integer*4 e_DEmas_9 ! (mas) Standard deviation in DE
real*8 pmRA_9 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_9 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_9 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_9 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_9 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col399.dat' ! Proper motions and membership, by cluster
integer*4 nr__13
parameter (nr__13=226) ! Number of records
character*76 ar__13 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_10 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_10 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_10 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_10 ! (mas) Standard deviation in RA
integer*4 e_DEmas_10 ! (mas) Standard deviation in DE
real*8 pmRA_10 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_10 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_10 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_10 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_10 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col463.dat' ! Proper motions and membership, by cluster
integer*4 nr__14
parameter (nr__14=77) ! Number of records
character*76 ar__14 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_11 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_11 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_11 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_11 ! (mas) Standard deviation in RA
integer*4 e_DEmas_11 ! (mas) Standard deviation in DE
real*8 pmRA_11 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_11 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_11 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_11 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_11 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col69.dat' ! Proper motions and membership, by cluster
integer*4 nr__15
parameter (nr__15=87) ! Number of records
character*76 ar__15 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_12 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_12 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_12 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_12 ! (mas) Standard deviation in RA
integer*4 e_DEmas_12 ! (mas) Standard deviation in DE
real*8 pmRA_12 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_12 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_12 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_12 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_12 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col70.dat' ! Proper motions and membership, by cluster
integer*4 nr__16
parameter (nr__16=542) ! Number of records
character*76 ar__16 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_13 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_13 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_13 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_13 ! (mas) Standard deviation in RA
integer*4 e_DEmas_13 ! (mas) Standard deviation in DE
real*8 pmRA_13 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_13 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_13 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_13 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_13 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/col97.dat' ! Proper motions and membership, by cluster
integer*4 nr__17
parameter (nr__17=35) ! Number of records
character*76 ar__17 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_14 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_14 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_14 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_14 ! (mas) Standard deviation in RA
integer*4 e_DEmas_14 ! (mas) Standard deviation in DE
real*8 pmRA_14 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_14 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_14 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_14 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_14 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic2395.dat' ! Proper motions and membership, by cluster
integer*4 nr__18
parameter (nr__18=19) ! Number of records
character*76 ar__18 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_15 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_15 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_15 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_15 ! (mas) Standard deviation in RA
integer*4 e_DEmas_15 ! (mas) Standard deviation in DE
real*8 pmRA_15 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_15 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_15 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_15 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_15 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic2488.dat' ! Proper motions and membership, by cluster
integer*4 nr__19
parameter (nr__19=63) ! Number of records
character*76 ar__19 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_16 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_16 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_16 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_16 ! (mas) Standard deviation in RA
integer*4 e_DEmas_16 ! (mas) Standard deviation in DE
real*8 pmRA_16 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_16 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_16 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_16 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_16 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic2602.dat' ! Proper motions and membership, by cluster
integer*4 nr__20
parameter (nr__20=124) ! Number of records
character*76 ar__20 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_17 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_17 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_17 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_17 ! (mas) Standard deviation in RA
integer*4 e_DEmas_17 ! (mas) Standard deviation in DE
real*8 pmRA_17 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_17 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_17 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_17 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_17 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic348.dat' ! Proper motions and membership, by cluster
integer*4 nr__21
parameter (nr__21=21) ! Number of records
character*76 ar__21 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_18 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_18 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_18 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_18 ! (mas) Standard deviation in RA
integer*4 e_DEmas_18 ! (mas) Standard deviation in DE
real*8 pmRA_18 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_18 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_18 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_18 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_18 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic4651.dat' ! Proper motions and membership, by cluster
integer*4 nr__22
parameter (nr__22=43) ! Number of records
character*76 ar__22 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_19 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_19 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_19 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_19 ! (mas) Standard deviation in RA
integer*4 e_DEmas_19 ! (mas) Standard deviation in DE
real*8 pmRA_19 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_19 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_19 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_19 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_19 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic4665.dat' ! Proper motions and membership, by cluster
integer*4 nr__23
parameter (nr__23=160) ! Number of records
character*76 ar__23 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_20 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_20 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_20 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_20 ! (mas) Standard deviation in RA
integer*4 e_DEmas_20 ! (mas) Standard deviation in DE
real*8 pmRA_20 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_20 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_20 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_20 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_20 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic4725.dat' ! Proper motions and membership, by cluster
integer*4 nr__24
parameter (nr__24=85) ! Number of records
character*76 ar__24 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_21 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_21 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_21 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_21 ! (mas) Standard deviation in RA
integer*4 e_DEmas_21 ! (mas) Standard deviation in DE
real*8 pmRA_21 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_21 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_21 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_21 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_21 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic4756.dat' ! Proper motions and membership, by cluster
integer*4 nr__25
parameter (nr__25=181) ! Number of records
character*76 ar__25 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_22 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_22 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_22 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_22 ! (mas) Standard deviation in RA
integer*4 e_DEmas_22 ! (mas) Standard deviation in DE
real*8 pmRA_22 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_22 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_22 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_22 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_22 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ic5146.dat' ! Proper motions and membership, by cluster
integer*4 nr__26
parameter (nr__26=40) ! Number of records
character*76 ar__26 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_23 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_23 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_23 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_23 ! (mas) Standard deviation in RA
integer*4 e_DEmas_23 ! (mas) Standard deviation in DE
real*8 pmRA_23 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_23 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_23 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_23 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_23 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/lynga2.dat' ! Proper motions and membership, by cluster
integer*4 nr__27
parameter (nr__27=33) ! Number of records
character*76 ar__27 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_24 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_24 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_24 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_24 ! (mas) Standard deviation in RA
integer*4 e_DEmas_24 ! (mas) Standard deviation in DE
real*8 pmRA_24 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_24 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_24 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_24 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_24 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/mel20.dat' ! Proper motions and membership, by cluster
integer*4 nr__28
parameter (nr__28=97) ! Number of records
character*76 ar__28 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_25 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_25 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_25 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_25 ! (mas) Standard deviation in RA
integer*4 e_DEmas_25 ! (mas) Standard deviation in DE
real*8 pmRA_25 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_25 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_25 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_25 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_25 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/mel22.dat' ! Proper motions and membership, by cluster
integer*4 nr__29
parameter (nr__29=365) ! Number of records
character*76 ar__29 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_26 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_26 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_26 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_26 ! (mas) Standard deviation in RA
integer*4 e_DEmas_26 ! (mas) Standard deviation in DE
real*8 pmRA_26 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_26 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_26 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_26 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_26 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1027.dat' ! Proper motions and membership, by cluster
integer*4 nr__30
parameter (nr__30=61) ! Number of records
character*76 ar__30 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_27 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_27 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_27 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_27 ! (mas) Standard deviation in RA
integer*4 e_DEmas_27 ! (mas) Standard deviation in DE
real*8 pmRA_27 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_27 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_27 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_27 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_27 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1039.dat' ! Proper motions and membership, by cluster
integer*4 nr__31
parameter (nr__31=105) ! Number of records
character*76 ar__31 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_28 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_28 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_28 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_28 ! (mas) Standard deviation in RA
integer*4 e_DEmas_28 ! (mas) Standard deviation in DE
real*8 pmRA_28 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_28 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_28 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_28 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_28 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1342.dat' ! Proper motions and membership, by cluster
integer*4 nr__32
parameter (nr__32=31) ! Number of records
character*76 ar__32 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_29 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_29 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_29 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_29 ! (mas) Standard deviation in RA
integer*4 e_DEmas_29 ! (mas) Standard deviation in DE
real*8 pmRA_29 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_29 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_29 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_29 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_29 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1502.dat' ! Proper motions and membership, by cluster
integer*4 nr__33
parameter (nr__33=15) ! Number of records
character*76 ar__33 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_30 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_30 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_30 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_30 ! (mas) Standard deviation in RA
integer*4 e_DEmas_30 ! (mas) Standard deviation in DE
real*8 pmRA_30 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_30 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_30 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_30 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_30 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1513.dat' ! Proper motions and membership, by cluster
integer*4 nr__34
parameter (nr__34=20) ! Number of records
character*76 ar__34 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_31 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_31 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_31 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_31 ! (mas) Standard deviation in RA
integer*4 e_DEmas_31 ! (mas) Standard deviation in DE
real*8 pmRA_31 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_31 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_31 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_31 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_31 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1528.dat' ! Proper motions and membership, by cluster
integer*4 nr__35
parameter (nr__35=63) ! Number of records
character*76 ar__35 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_32 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_32 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_32 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_32 ! (mas) Standard deviation in RA
integer*4 e_DEmas_32 ! (mas) Standard deviation in DE
real*8 pmRA_32 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_32 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_32 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_32 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_32 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1545.dat' ! Proper motions and membership, by cluster
integer*4 nr__36
parameter (nr__36=21) ! Number of records
character*76 ar__36 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_33 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_33 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_33 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_33 ! (mas) Standard deviation in RA
integer*4 e_DEmas_33 ! (mas) Standard deviation in DE
real*8 pmRA_33 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_33 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_33 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_33 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_33 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1647.dat' ! Proper motions and membership, by cluster
integer*4 nr__37
parameter (nr__37=85) ! Number of records
character*76 ar__37 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_34 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_34 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_34 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_34 ! (mas) Standard deviation in RA
integer*4 e_DEmas_34 ! (mas) Standard deviation in DE
real*8 pmRA_34 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_34 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_34 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_34 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_34 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1662.dat' ! Proper motions and membership, by cluster
integer*4 nr__38
parameter (nr__38=34) ! Number of records
character*76 ar__38 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_35 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_35 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_35 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_35 ! (mas) Standard deviation in RA
integer*4 e_DEmas_35 ! (mas) Standard deviation in DE
real*8 pmRA_35 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_35 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_35 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_35 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_35 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1758.dat' ! Proper motions and membership, by cluster
integer*4 nr__39
parameter (nr__39=71) ! Number of records
character*76 ar__39 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_36 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_36 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_36 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_36 ! (mas) Standard deviation in RA
integer*4 e_DEmas_36 ! (mas) Standard deviation in DE
real*8 pmRA_36 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_36 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_36 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_36 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_36 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1901.dat' ! Proper motions and membership, by cluster
integer*4 nr__40
parameter (nr__40=60) ! Number of records
character*76 ar__40 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_37 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_37 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_37 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_37 ! (mas) Standard deviation in RA
integer*4 e_DEmas_37 ! (mas) Standard deviation in DE
real*8 pmRA_37 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_37 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_37 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_37 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_37 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc1976.dat' ! Proper motions and membership, by cluster
integer*4 nr__41
parameter (nr__41=41) ! Number of records
character*76 ar__41 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_38 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_38 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_38 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_38 ! (mas) Standard deviation in RA
integer*4 e_DEmas_38 ! (mas) Standard deviation in DE
real*8 pmRA_38 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_38 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_38 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_38 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_38 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2168.dat' ! Proper motions and membership, by cluster
integer*4 nr__42
parameter (nr__42=154) ! Number of records
character*76 ar__42 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_39 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_39 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_39 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_39 ! (mas) Standard deviation in RA
integer*4 e_DEmas_39 ! (mas) Standard deviation in DE
real*8 pmRA_39 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_39 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_39 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_39 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_39 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2232.dat' ! Proper motions and membership, by cluster
integer*4 nr__43
parameter (nr__43=66) ! Number of records
character*76 ar__43 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_40 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_40 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_40 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_40 ! (mas) Standard deviation in RA
integer*4 e_DEmas_40 ! (mas) Standard deviation in DE
real*8 pmRA_40 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_40 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_40 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_40 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_40 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc225.dat' ! Proper motions and membership, by cluster
integer*4 nr__44
parameter (nr__44=39) ! Number of records
character*76 ar__44 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_41 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_41 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_41 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_41 ! (mas) Standard deviation in RA
integer*4 e_DEmas_41 ! (mas) Standard deviation in DE
real*8 pmRA_41 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_41 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_41 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_41 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_41 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2264.dat' ! Proper motions and membership, by cluster
integer*4 nr__45
parameter (nr__45=81) ! Number of records
character*76 ar__45 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_42 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_42 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_42 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_42 ! (mas) Standard deviation in RA
integer*4 e_DEmas_42 ! (mas) Standard deviation in DE
real*8 pmRA_42 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_42 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_42 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_42 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_42 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2281.dat' ! Proper motions and membership, by cluster
integer*4 nr__46
parameter (nr__46=60) ! Number of records
character*76 ar__46 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_43 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_43 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_43 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_43 ! (mas) Standard deviation in RA
integer*4 e_DEmas_43 ! (mas) Standard deviation in DE
real*8 pmRA_43 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_43 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_43 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_43 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_43 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2287.dat' ! Proper motions and membership, by cluster
integer*4 nr__47
parameter (nr__47=168) ! Number of records
character*76 ar__47 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_44 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_44 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_44 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_44 ! (mas) Standard deviation in RA
integer*4 e_DEmas_44 ! (mas) Standard deviation in DE
real*8 pmRA_44 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_44 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_44 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_44 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_44 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2301.dat' ! Proper motions and membership, by cluster
integer*4 nr__48
parameter (nr__48=89) ! Number of records
character*76 ar__48 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_45 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_45 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_45 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_45 ! (mas) Standard deviation in RA
integer*4 e_DEmas_45 ! (mas) Standard deviation in DE
real*8 pmRA_45 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_45 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_45 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_45 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_45 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2323.dat' ! Proper motions and membership, by cluster
integer*4 nr__49
parameter (nr__49=100) ! Number of records
character*76 ar__49 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_46 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_46 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_46 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_46 ! (mas) Standard deviation in RA
integer*4 e_DEmas_46 ! (mas) Standard deviation in DE
real*8 pmRA_46 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_46 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_46 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_46 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_46 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2353.dat' ! Proper motions and membership, by cluster
integer*4 nr__50
parameter (nr__50=35) ! Number of records
character*76 ar__50 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_47 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_47 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_47 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_47 ! (mas) Standard deviation in RA
integer*4 e_DEmas_47 ! (mas) Standard deviation in DE
real*8 pmRA_47 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_47 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_47 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_47 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_47 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2374.dat' ! Proper motions and membership, by cluster
integer*4 nr__51
parameter (nr__51=43) ! Number of records
character*76 ar__51 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_48 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_48 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_48 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_48 ! (mas) Standard deviation in RA
integer*4 e_DEmas_48 ! (mas) Standard deviation in DE
real*8 pmRA_48 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_48 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_48 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_48 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_48 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2391.dat' ! Proper motions and membership, by cluster
integer*4 nr__52
parameter (nr__52=141) ! Number of records
character*76 ar__52 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_49 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_49 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_49 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_49 ! (mas) Standard deviation in RA
integer*4 e_DEmas_49 ! (mas) Standard deviation in DE
real*8 pmRA_49 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_49 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_49 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_49 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_49 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2422.dat' ! Proper motions and membership, by cluster
integer*4 nr__53
parameter (nr__53=39) ! Number of records
character*76 ar__53 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_50 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_50 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_50 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_50 ! (mas) Standard deviation in RA
integer*4 e_DEmas_50 ! (mas) Standard deviation in DE
real*8 pmRA_50 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_50 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_50 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_50 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_50 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2423.dat' ! Proper motions and membership, by cluster
integer*4 nr__54
parameter (nr__54=93) ! Number of records
character*76 ar__54 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_51 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_51 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_51 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_51 ! (mas) Standard deviation in RA
integer*4 e_DEmas_51 ! (mas) Standard deviation in DE
real*8 pmRA_51 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_51 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_51 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_51 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_51 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2482.dat' ! Proper motions and membership, by cluster
integer*4 nr__55
parameter (nr__55=57) ! Number of records
character*76 ar__55 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_52 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_52 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_52 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_52 ! (mas) Standard deviation in RA
integer*4 e_DEmas_52 ! (mas) Standard deviation in DE
real*8 pmRA_52 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_52 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_52 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_52 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_52 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2516.dat' ! Proper motions and membership, by cluster
integer*4 nr__56
parameter (nr__56=81) ! Number of records
character*76 ar__56 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_53 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_53 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_53 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_53 ! (mas) Standard deviation in RA
integer*4 e_DEmas_53 ! (mas) Standard deviation in DE
real*8 pmRA_53 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_53 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_53 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_53 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_53 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2527.dat' ! Proper motions and membership, by cluster
integer*4 nr__57
parameter (nr__57=62) ! Number of records
character*76 ar__57 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_54 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_54 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_54 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_54 ! (mas) Standard deviation in RA
integer*4 e_DEmas_54 ! (mas) Standard deviation in DE
real*8 pmRA_54 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_54 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_54 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_54 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_54 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2546.dat' ! Proper motions and membership, by cluster
integer*4 nr__58
parameter (nr__58=286) ! Number of records
character*76 ar__58 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_55 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_55 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_55 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_55 ! (mas) Standard deviation in RA
integer*4 e_DEmas_55 ! (mas) Standard deviation in DE
real*8 pmRA_55 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_55 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_55 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_55 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_55 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2547.dat' ! Proper motions and membership, by cluster
integer*4 nr__59
parameter (nr__59=38) ! Number of records
character*76 ar__59 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_56 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_56 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_56 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_56 ! (mas) Standard deviation in RA
integer*4 e_DEmas_56 ! (mas) Standard deviation in DE
real*8 pmRA_56 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_56 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_56 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_56 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_56 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2548.dat' ! Proper motions and membership, by cluster
integer*4 nr__60
parameter (nr__60=107) ! Number of records
character*76 ar__60 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_57 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_57 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_57 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_57 ! (mas) Standard deviation in RA
integer*4 e_DEmas_57 ! (mas) Standard deviation in DE
real*8 pmRA_57 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_57 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_57 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_57 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_57 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2579.dat' ! Proper motions and membership, by cluster
integer*4 nr__61
parameter (nr__61=14) ! Number of records
character*76 ar__61 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_58 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_58 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_58 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_58 ! (mas) Standard deviation in RA
integer*4 e_DEmas_58 ! (mas) Standard deviation in DE
real*8 pmRA_58 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_58 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_58 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_58 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_58 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2632.dat' ! Proper motions and membership, by cluster
integer*4 nr__62
parameter (nr__62=138) ! Number of records
character*76 ar__62 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_59 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_59 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_59 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_59 ! (mas) Standard deviation in RA
integer*4 e_DEmas_59 ! (mas) Standard deviation in DE
real*8 pmRA_59 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_59 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_59 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_59 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_59 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2669.dat' ! Proper motions and membership, by cluster
integer*4 nr__63
parameter (nr__63=32) ! Number of records
character*76 ar__63 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_60 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_60 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_60 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_60 ! (mas) Standard deviation in RA
integer*4 e_DEmas_60 ! (mas) Standard deviation in DE
real*8 pmRA_60 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_60 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_60 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_60 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_60 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2670.dat' ! Proper motions and membership, by cluster
integer*4 nr__64
parameter (nr__64=18) ! Number of records
character*76 ar__64 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_61 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_61 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_61 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_61 ! (mas) Standard deviation in RA
integer*4 e_DEmas_61 ! (mas) Standard deviation in DE
real*8 pmRA_61 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_61 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_61 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_61 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_61 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2682.dat' ! Proper motions and membership, by cluster
integer*4 nr__65
parameter (nr__65=53) ! Number of records
character*76 ar__65 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_62 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_62 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_62 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_62 ! (mas) Standard deviation in RA
integer*4 e_DEmas_62 ! (mas) Standard deviation in DE
real*8 pmRA_62 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_62 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_62 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_62 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_62 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc2925.dat' ! Proper motions and membership, by cluster
integer*4 nr__66
parameter (nr__66=71) ! Number of records
character*76 ar__66 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_63 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_63 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_63 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_63 ! (mas) Standard deviation in RA
integer*4 e_DEmas_63 ! (mas) Standard deviation in DE
real*8 pmRA_63 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_63 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_63 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_63 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_63 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc3114.dat' ! Proper motions and membership, by cluster
integer*4 nr__67
parameter (nr__67=266) ! Number of records
character*76 ar__67 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_64 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_64 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_64 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_64 ! (mas) Standard deviation in RA
integer*4 e_DEmas_64 ! (mas) Standard deviation in DE
real*8 pmRA_64 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_64 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_64 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_64 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_64 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc3228.dat' ! Proper motions and membership, by cluster
integer*4 nr__68
parameter (nr__68=32) ! Number of records
character*76 ar__68 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_65 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_65 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_65 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_65 ! (mas) Standard deviation in RA
integer*4 e_DEmas_65 ! (mas) Standard deviation in DE
real*8 pmRA_65 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_65 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_65 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_65 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_65 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc3496.dat' ! Proper motions and membership, by cluster
integer*4 nr__69
parameter (nr__69=17) ! Number of records
character*76 ar__69 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_66 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_66 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_66 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_66 ! (mas) Standard deviation in RA
integer*4 e_DEmas_66 ! (mas) Standard deviation in DE
real*8 pmRA_66 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_66 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_66 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_66 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_66 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc3532.dat' ! Proper motions and membership, by cluster
integer*4 nr__70
parameter (nr__70=211) ! Number of records
character*76 ar__70 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_67 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_67 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_67 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_67 ! (mas) Standard deviation in RA
integer*4 e_DEmas_67 ! (mas) Standard deviation in DE
real*8 pmRA_67 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_67 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_67 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_67 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_67 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc3680.dat' ! Proper motions and membership, by cluster
integer*4 nr__71
parameter (nr__71=24) ! Number of records
character*76 ar__71 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_68 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_68 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_68 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_68 ! (mas) Standard deviation in RA
integer*4 e_DEmas_68 ! (mas) Standard deviation in DE
real*8 pmRA_68 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_68 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_68 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_68 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_68 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc5460.dat' ! Proper motions and membership, by cluster
integer*4 nr__72
parameter (nr__72=94) ! Number of records
character*76 ar__72 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_69 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_69 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_69 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_69 ! (mas) Standard deviation in RA
integer*4 e_DEmas_69 ! (mas) Standard deviation in DE
real*8 pmRA_69 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_69 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_69 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_69 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_69 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc5662.dat' ! Proper motions and membership, by cluster
integer*4 nr__73
parameter (nr__73=109) ! Number of records
character*76 ar__73 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_70 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_70 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_70 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_70 ! (mas) Standard deviation in RA
integer*4 e_DEmas_70 ! (mas) Standard deviation in DE
real*8 pmRA_70 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_70 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_70 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_70 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_70 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc5822.dat' ! Proper motions and membership, by cluster
integer*4 nr__74
parameter (nr__74=257) ! Number of records
character*76 ar__74 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_71 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_71 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_71 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_71 ! (mas) Standard deviation in RA
integer*4 e_DEmas_71 ! (mas) Standard deviation in DE
real*8 pmRA_71 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_71 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_71 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_71 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_71 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc5823.dat' ! Proper motions and membership, by cluster
integer*4 nr__75
parameter (nr__75=31) ! Number of records
character*76 ar__75 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_72 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_72 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_72 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_72 ! (mas) Standard deviation in RA
integer*4 e_DEmas_72 ! (mas) Standard deviation in DE
real*8 pmRA_72 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_72 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_72 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_72 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_72 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6025.dat' ! Proper motions and membership, by cluster
integer*4 nr__76
parameter (nr__76=66) ! Number of records
character*76 ar__76 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_73 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_73 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_73 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_73 ! (mas) Standard deviation in RA
integer*4 e_DEmas_73 ! (mas) Standard deviation in DE
real*8 pmRA_73 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_73 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_73 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_73 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_73 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6087.dat' ! Proper motions and membership, by cluster
integer*4 nr__77
parameter (nr__77=83) ! Number of records
character*76 ar__77 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_74 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_74 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_74 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_74 ! (mas) Standard deviation in RA
integer*4 e_DEmas_74 ! (mas) Standard deviation in DE
real*8 pmRA_74 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_74 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_74 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_74 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_74 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6124.dat' ! Proper motions and membership, by cluster
integer*4 nr__78
parameter (nr__78=117) ! Number of records
character*76 ar__78 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_75 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_75 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_75 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_75 ! (mas) Standard deviation in RA
integer*4 e_DEmas_75 ! (mas) Standard deviation in DE
real*8 pmRA_75 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_75 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_75 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_75 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_75 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6134.dat' ! Proper motions and membership, by cluster
integer*4 nr__79
parameter (nr__79=28) ! Number of records
character*76 ar__79 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_76 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_76 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_76 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_76 ! (mas) Standard deviation in RA
integer*4 e_DEmas_76 ! (mas) Standard deviation in DE
real*8 pmRA_76 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_76 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_76 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_76 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_76 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6167.dat' ! Proper motions and membership, by cluster
integer*4 nr__80
parameter (nr__80=22) ! Number of records
character*76 ar__80 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_77 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_77 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_77 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_77 ! (mas) Standard deviation in RA
integer*4 e_DEmas_77 ! (mas) Standard deviation in DE
real*8 pmRA_77 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_77 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_77 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_77 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_77 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6249.dat' ! Proper motions and membership, by cluster
integer*4 nr__81
parameter (nr__81=17) ! Number of records
character*76 ar__81 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_78 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_78 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_78 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_78 ! (mas) Standard deviation in RA
integer*4 e_DEmas_78 ! (mas) Standard deviation in DE
real*8 pmRA_78 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_78 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_78 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_78 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_78 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6250.dat' ! Proper motions and membership, by cluster
integer*4 nr__82
parameter (nr__82=23) ! Number of records
character*76 ar__82 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_79 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_79 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_79 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_79 ! (mas) Standard deviation in RA
integer*4 e_DEmas_79 ! (mas) Standard deviation in DE
real*8 pmRA_79 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_79 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_79 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_79 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_79 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6281.dat' ! Proper motions and membership, by cluster
integer*4 nr__83
parameter (nr__83=37) ! Number of records
character*76 ar__83 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_80 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_80 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_80 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_80 ! (mas) Standard deviation in RA
integer*4 e_DEmas_80 ! (mas) Standard deviation in DE
real*8 pmRA_80 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_80 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_80 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_80 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_80 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6405.dat' ! Proper motions and membership, by cluster
integer*4 nr__84
parameter (nr__84=60) ! Number of records
character*76 ar__84 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_81 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_81 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_81 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_81 ! (mas) Standard deviation in RA
integer*4 e_DEmas_81 ! (mas) Standard deviation in DE
real*8 pmRA_81 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_81 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_81 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_81 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_81 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6416.dat' ! Proper motions and membership, by cluster
integer*4 nr__85
parameter (nr__85=70) ! Number of records
character*76 ar__85 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_82 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_82 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_82 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_82 ! (mas) Standard deviation in RA
integer*4 e_DEmas_82 ! (mas) Standard deviation in DE
real*8 pmRA_82 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_82 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_82 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_82 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_82 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6475.dat' ! Proper motions and membership, by cluster
integer*4 nr__86
parameter (nr__86=411) ! Number of records
character*76 ar__86 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_83 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_83 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_83 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_83 ! (mas) Standard deviation in RA
integer*4 e_DEmas_83 ! (mas) Standard deviation in DE
real*8 pmRA_83 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_83 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_83 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_83 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_83 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6494.dat' ! Proper motions and membership, by cluster
integer*4 nr__87
parameter (nr__87=147) ! Number of records
character*76 ar__87 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_84 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_84 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_84 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_84 ! (mas) Standard deviation in RA
integer*4 e_DEmas_84 ! (mas) Standard deviation in DE
real*8 pmRA_84 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_84 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_84 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_84 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_84 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6514.dat' ! Proper motions and membership, by cluster
integer*4 nr__88
parameter (nr__88=56) ! Number of records
character*76 ar__88 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_85 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_85 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_85 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_85 ! (mas) Standard deviation in RA
integer*4 e_DEmas_85 ! (mas) Standard deviation in DE
real*8 pmRA_85 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_85 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_85 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_85 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_85 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6546.dat' ! Proper motions and membership, by cluster
integer*4 nr__89
parameter (nr__89=43) ! Number of records
character*76 ar__89 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_86 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_86 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_86 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_86 ! (mas) Standard deviation in RA
integer*4 e_DEmas_86 ! (mas) Standard deviation in DE
real*8 pmRA_86 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_86 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_86 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_86 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_86 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6633.dat' ! Proper motions and membership, by cluster
integer*4 nr__90
parameter (nr__90=85) ! Number of records
character*76 ar__90 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_87 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_87 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_87 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_87 ! (mas) Standard deviation in RA
integer*4 e_DEmas_87 ! (mas) Standard deviation in DE
real*8 pmRA_87 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_87 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_87 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_87 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_87 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6709.dat' ! Proper motions and membership, by cluster
integer*4 nr__91
parameter (nr__91=50) ! Number of records
character*76 ar__91 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_88 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_88 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_88 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_88 ! (mas) Standard deviation in RA
integer*4 e_DEmas_88 ! (mas) Standard deviation in DE
real*8 pmRA_88 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_88 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_88 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_88 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_88 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6716.dat' ! Proper motions and membership, by cluster
integer*4 nr__92
parameter (nr__92=23) ! Number of records
character*76 ar__92 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_89 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_89 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_89 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_89 ! (mas) Standard deviation in RA
integer*4 e_DEmas_89 ! (mas) Standard deviation in DE
real*8 pmRA_89 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_89 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_89 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_89 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_89 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6885.dat' ! Proper motions and membership, by cluster
integer*4 nr__93
parameter (nr__93=46) ! Number of records
character*76 ar__93 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_90 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_90 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_90 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_90 ! (mas) Standard deviation in RA
integer*4 e_DEmas_90 ! (mas) Standard deviation in DE
real*8 pmRA_90 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_90 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_90 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_90 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_90 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc6940.dat' ! Proper motions and membership, by cluster
integer*4 nr__94
parameter (nr__94=128) ! Number of records
character*76 ar__94 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_91 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_91 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_91 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_91 ! (mas) Standard deviation in RA
integer*4 e_DEmas_91 ! (mas) Standard deviation in DE
real*8 pmRA_91 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_91 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_91 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_91 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_91 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc7063.dat' ! Proper motions and membership, by cluster
integer*4 nr__95
parameter (nr__95=29) ! Number of records
character*76 ar__95 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_92 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_92 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_92 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_92 ! (mas) Standard deviation in RA
integer*4 e_DEmas_92 ! (mas) Standard deviation in DE
real*8 pmRA_92 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_92 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_92 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_92 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_92 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc7092.dat' ! Proper motions and membership, by cluster
integer*4 nr__96
parameter (nr__96=27) ! Number of records
character*76 ar__96 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_93 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_93 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_93 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_93 ! (mas) Standard deviation in RA
integer*4 e_DEmas_93 ! (mas) Standard deviation in DE
real*8 pmRA_93 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_93 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_93 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_93 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_93 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc7160.dat' ! Proper motions and membership, by cluster
integer*4 nr__97
parameter (nr__97=20) ! Number of records
character*76 ar__97 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_94 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_94 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_94 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_94 ! (mas) Standard deviation in RA
integer*4 e_DEmas_94 ! (mas) Standard deviation in DE
real*8 pmRA_94 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_94 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_94 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_94 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_94 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc7209.dat' ! Proper motions and membership, by cluster
integer*4 nr__98
parameter (nr__98=72) ! Number of records
character*76 ar__98 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_95 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_95 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_95 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_95 ! (mas) Standard deviation in RA
integer*4 e_DEmas_95 ! (mas) Standard deviation in DE
real*8 pmRA_95 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_95 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_95 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_95 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_95 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc7243.dat' ! Proper motions and membership, by cluster
integer*4 nr__99
parameter (nr__99=133) ! Number of records
character*76 ar__99 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_96 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_96 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_96 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_96 ! (mas) Standard deviation in RA
integer*4 e_DEmas_96 ! (mas) Standard deviation in DE
real*8 pmRA_96 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_96 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_96 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_96 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_96 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ngc752.dat' ! Proper motions and membership, by cluster
integer*4 nr__100
parameter (nr__100=268) ! Number of records
character*76 ar__100 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_97 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_97 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_97 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_97 ! (mas) Standard deviation in RA
integer*4 e_DEmas_97 ! (mas) Standard deviation in DE
real*8 pmRA_97 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_97 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_97 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_97 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_97 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/pismis4.dat' ! Proper motions and membership, by cluster
integer*4 nr__101
parameter (nr__101=58) ! Number of records
character*76 ar__101 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_98 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_98 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_98 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_98 ! (mas) Standard deviation in RA
integer*4 e_DEmas_98 ! (mas) Standard deviation in DE
real*8 pmRA_98 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_98 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_98 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_98 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_98 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ros5.dat' ! Proper motions and membership, by cluster
integer*4 nr__102
parameter (nr__102=229) ! Number of records
character*76 ar__102 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_99 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_99 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_99 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_99 ! (mas) Standard deviation in RA
integer*4 e_DEmas_99 ! (mas) Standard deviation in DE
real*8 pmRA_99 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_99 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_99 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_99 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_99 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/rup119.dat' ! Proper motions and membership, by cluster
integer*4 nr__103
parameter (nr__103=31) ! Number of records
character*76 ar__103 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_100 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_100 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_100 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_100 ! (mas) Standard deviation in RA
integer*4 e_DEmas_100 ! (mas) Standard deviation in DE
real*8 pmRA_100 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_100 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_100 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_100 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_100 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/rup147.dat' ! Proper motions and membership, by cluster
integer*4 nr__104
parameter (nr__104=56) ! Number of records
character*76 ar__104 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_101 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_101 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_101 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_101 ! (mas) Standard deviation in RA
integer*4 e_DEmas_101 ! (mas) Standard deviation in DE
real*8 pmRA_101 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_101 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_101 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_101 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_101 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/rup98.dat' ! Proper motions and membership, by cluster
integer*4 nr__105
parameter (nr__105=60) ! Number of records
character*76 ar__105 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_102 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_102 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_102 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_102 ! (mas) Standard deviation in RA
integer*4 e_DEmas_102 ! (mas) Standard deviation in DE
real*8 pmRA_102 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_102 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_102 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_102 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_102 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/ste1.dat' ! Proper motions and membership, by cluster
integer*4 nr__106
parameter (nr__106=35) ! Number of records
character*76 ar__106 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_103 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_103 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_103 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_103 ! (mas) Standard deviation in RA
integer*4 e_DEmas_103 ! (mas) Standard deviation in DE
real*8 pmRA_103 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_103 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_103 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_103 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_103 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/stock10.dat' ! Proper motions and membership, by cluster
integer*4 nr__107
parameter (nr__107=94) ! Number of records
character*76 ar__107 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_104 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_104 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_104 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_104 ! (mas) Standard deviation in RA
integer*4 e_DEmas_104 ! (mas) Standard deviation in DE
real*8 pmRA_104 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_104 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_104 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_104 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_104 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/stock2.dat' ! Proper motions and membership, by cluster
integer*4 nr__108
parameter (nr__108=108) ! Number of records
character*76 ar__108 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_105 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_105 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_105 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_105 ! (mas) Standard deviation in RA
integer*4 e_DEmas_105 ! (mas) Standard deviation in DE
real*8 pmRA_105 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_105 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_105 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_105 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_105 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/tru10.dat' ! Proper motions and membership, by cluster
integer*4 nr__109
parameter (nr__109=44) ! Number of records
character*76 ar__109 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_106 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_106 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_106 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_106 ! (mas) Standard deviation in RA
integer*4 e_DEmas_106 ! (mas) Standard deviation in DE
real*8 pmRA_106 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_106 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_106 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_106 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_106 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/tru2.dat' ! Proper motions and membership, by cluster
integer*4 nr__110
parameter (nr__110=31) ! Number of records
character*76 ar__110 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_107 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_107 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_107 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_107 ! (mas) Standard deviation in RA
integer*4 e_DEmas_107 ! (mas) Standard deviation in DE
real*8 pmRA_107 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_107 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_107 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_107 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_107 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/tru37.dat' ! Proper motions and membership, by cluster
integer*4 nr__111
parameter (nr__111=200) ! Number of records
character*76 ar__111 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_108 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_108 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_108 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_108 ! (mas) Standard deviation in RA
integer*4 e_DEmas_108 ! (mas) Standard deviation in DE
real*8 pmRA_108 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_108 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_108 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_108 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_108 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/vdbh23.dat' ! Proper motions and membership, by cluster
integer*4 nr__112
parameter (nr__112=65) ! Number of records
character*76 ar__112 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_109 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_109 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_109 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_109 ! (mas) Standard deviation in RA
integer*4 e_DEmas_109 ! (mas) Standard deviation in DE
real*8 pmRA_109 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_109 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_109 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_109 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_109 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/vdbh34.dat' ! Proper motions and membership, by cluster
integer*4 nr__113
parameter (nr__113=39) ! Number of records
character*76 ar__113 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_110 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_110 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_110 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_110 ! (mas) Standard deviation in RA
integer*4 e_DEmas_110 ! (mas) Standard deviation in DE
real*8 pmRA_110 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_110 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_110 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_110 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_110 ! (%) [0/100] Membership probability
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pm/vdbh99.dat' ! Proper motions and membership, by cluster
integer*4 nr__114
parameter (nr__114=24) ! Number of records
character*76 ar__114 ! Full-size record
C J2000.0 position composed of: RAmas DEmas
integer*8 RAmas_111 ! (mas) Right ascension (J2000.0) from Tycho2
integer*8 DEmas_111 ! (mas) Declination (J2000.0) from Tycho2
real*4 VTmag_111 ! (mag) Magnitude of the star from Tycho2
integer*4 e_RAmas_111 ! (mas) Standard deviation in RA
integer*4 e_DEmas_111 ! (mas) Standard deviation in DE
real*8 pmRA_111 ! (mas/yr) Proper motion {mu}_{alpha}_cos{delta}, ICRS
real*8 pmDE_111 ! (mas/yr) Proper motion {mu}_{delta}, ICRS
real*4 e_pmRA_111 ! (mas/yr) Standard deviation of pmRA, ICRS
real*4 e_pmDE_111 ! (mas/yr) Standard deviation of pmDE, ICRS
integer*4 Pr_111 ! (%) [0/100] Membership probability
C=============================================================================
C Loading file 'clusters.dat' ! Cluster positions (from Simbad)
C Format for file interpretation
1 format(A14,5X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,2X,A11)
C Effective file loading
open(unit=1,status='old',file=
+'clusters.dat')
write(6,*) '....Loading file: clusters.dat'
do i__=1,112
read(1,'(A52)')ar__
read(ar__,1)Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,FileName
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)Name,RAh,RAm,RAs,DE_,DEd,DEm,DEs,FileName
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table1.dat' ! List of clusters for which the statistical
* method was unable to provide accurate
* proper motions.
C Format for file interpretation
2 format(
+ A13,1X,A1,1X,I2,1X,I2,1X,I2,2X,A1,I2,1X,I2,1X,I4,2X,I4,4X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,41
read(1,'(A53)')ar__1
read(ar__1,2)
+ Name_1,Note,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,D,d_1,logAge
if(ar__1(34:37) .EQ. '') D = iNULL__
if(ar__1(48:51) .EQ. '') logAge = rNULL__
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_1
c ..............Just test output...........
write(6,2)
+ Name_1,Note,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,D,d_1,logAge
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! List the parameters provided by the method
* of Sanders for 112 open clusters
C Format for file interpretation
3 format(
+ A14,A2,1X,I3,1X,F5.1,1X,F5.1,1X,F3.1,1X,I3,1X,F5.1,1X,F4.1,1X,
+ F5.1,1X,F4.1,1X,F7.3,1X,F4.2,1X,F4.2,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,112
read(1,'(A87)')ar__2
read(ar__2,3)
+ Name_2,Notes,Nc,pmRAcl,pmDEcl,e_pm,Ni,pmRAs,e_pmRAs,pmDEs,
+ e_pmDEs,theta,Plx,e_Plx,d_2
if(ar__2(72:75) .EQ. '') Plx = rNULL__
if(ar__2(77:80) .EQ. '') e_Plx = rNULL__
if(ar__2(82:85) .EQ. '') d_2 = iNULL__
c ..............Just test output...........
write(6,3)
+ Name_2,Notes,Nc,pmRAcl,pmDEcl,e_pm,Ni,pmRAs,e_pmRAs,pmDEs,
+ e_pmDEs,theta,Plx,e_Plx,d_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/blanco1.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
4 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/blanco1.dat')
write(6,*) '....Loading file: pm/blanco1.dat'
do i__=1,101
read(1,'(A76)')ar__3
read(ar__3,4)
+ RAmas,DEmas,VTmag,e_RAmas,e_DEmas,pmRA,pmDE,e_pmRA,e_pmDE,Pr
c ..............Just test output...........
write(6,4)
+ RAmas,DEmas,VTmag,e_RAmas,e_DEmas,pmRA,pmDE,e_pmRA,e_pmDE,Pr
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/bochum5.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
5 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/bochum5.dat')
write(6,*) '....Loading file: pm/bochum5.dat'
do i__=1,56
read(1,'(A76)')ar__4
read(ar__4,5)
+ RAmas_1,DEmas_1,VTmag_1,e_RAmas_1,e_DEmas_1,pmRA_1,pmDE_1,
+ e_pmRA_1,e_pmDE_1,Pr_1
c ..............Just test output...........
write(6,5)
+ RAmas_1,DEmas_1,VTmag_1,e_RAmas_1,e_DEmas_1,pmRA_1,pmDE_1,
+ e_pmRA_1,e_pmDE_1,Pr_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col121.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
6 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col121.dat')
write(6,*) '....Loading file: pm/col121.dat'
do i__=1,179
read(1,'(A76)')ar__5
read(ar__5,6)
+ RAmas_2,DEmas_2,VTmag_2,e_RAmas_2,e_DEmas_2,pmRA_2,pmDE_2,
+ e_pmRA_2,e_pmDE_2,Pr_2
c ..............Just test output...........
write(6,6)
+ RAmas_2,DEmas_2,VTmag_2,e_RAmas_2,e_DEmas_2,pmRA_2,pmDE_2,
+ e_pmRA_2,e_pmDE_2,Pr_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col132.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
7 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col132.dat')
write(6,*) '....Loading file: pm/col132.dat'
do i__=1,212
read(1,'(A76)')ar__6
read(ar__6,7)
+ RAmas_3,DEmas_3,VTmag_3,e_RAmas_3,e_DEmas_3,pmRA_3,pmDE_3,
+ e_pmRA_3,e_pmDE_3,Pr_3
c ..............Just test output...........
write(6,7)
+ RAmas_3,DEmas_3,VTmag_3,e_RAmas_3,e_DEmas_3,pmRA_3,pmDE_3,
+ e_pmRA_3,e_pmDE_3,Pr_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col135.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
8 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col135.dat')
write(6,*) '....Loading file: pm/col135.dat'
do i__=1,58
read(1,'(A76)')ar__7
read(ar__7,8)
+ RAmas_4,DEmas_4,VTmag_4,e_RAmas_4,e_DEmas_4,pmRA_4,pmDE_4,
+ e_pmRA_4,e_pmDE_4,Pr_4
c ..............Just test output...........
write(6,8)
+ RAmas_4,DEmas_4,VTmag_4,e_RAmas_4,e_DEmas_4,pmRA_4,pmDE_4,
+ e_pmRA_4,e_pmDE_4,Pr_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col140.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
9 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col140.dat')
write(6,*) '....Loading file: pm/col140.dat'
do i__=1,36
read(1,'(A76)')ar__8
read(ar__8,9)
+ RAmas_5,DEmas_5,VTmag_5,e_RAmas_5,e_DEmas_5,pmRA_5,pmDE_5,
+ e_pmRA_5,e_pmDE_5,Pr_5
c ..............Just test output...........
write(6,9)
+ RAmas_5,DEmas_5,VTmag_5,e_RAmas_5,e_DEmas_5,pmRA_5,pmDE_5,
+ e_pmRA_5,e_pmDE_5,Pr_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col197.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
10 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col197.dat')
write(6,*) '....Loading file: pm/col197.dat'
do i__=1,38
read(1,'(A76)')ar__9
read(ar__9,10)
+ RAmas_6,DEmas_6,VTmag_6,e_RAmas_6,e_DEmas_6,pmRA_6,pmDE_6,
+ e_pmRA_6,e_pmDE_6,Pr_6
c ..............Just test output...........
write(6,10)
+ RAmas_6,DEmas_6,VTmag_6,e_RAmas_6,e_DEmas_6,pmRA_6,pmDE_6,
+ e_pmRA_6,e_pmDE_6,Pr_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col258.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
11 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col258.dat')
write(6,*) '....Loading file: pm/col258.dat'
do i__=1,25
read(1,'(A76)')ar__10
read(ar__10,11)
+ RAmas_7,DEmas_7,VTmag_7,e_RAmas_7,e_DEmas_7,pmRA_7,pmDE_7,
+ e_pmRA_7,e_pmDE_7,Pr_7
c ..............Just test output...........
write(6,11)
+ RAmas_7,DEmas_7,VTmag_7,e_RAmas_7,e_DEmas_7,pmRA_7,pmDE_7,
+ e_pmRA_7,e_pmDE_7,Pr_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col359.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
12 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col359.dat')
write(6,*) '....Loading file: pm/col359.dat'
do i__=1,84
read(1,'(A76)')ar__11
read(ar__11,12)
+ RAmas_8,DEmas_8,VTmag_8,e_RAmas_8,e_DEmas_8,pmRA_8,pmDE_8,
+ e_pmRA_8,e_pmDE_8,Pr_8
c ..............Just test output...........
write(6,12)
+ RAmas_8,DEmas_8,VTmag_8,e_RAmas_8,e_DEmas_8,pmRA_8,pmDE_8,
+ e_pmRA_8,e_pmDE_8,Pr_8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col394.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
13 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col394.dat')
write(6,*) '....Loading file: pm/col394.dat'
do i__=1,51
read(1,'(A76)')ar__12
read(ar__12,13)
+ RAmas_9,DEmas_9,VTmag_9,e_RAmas_9,e_DEmas_9,pmRA_9,pmDE_9,
+ e_pmRA_9,e_pmDE_9,Pr_9
c ..............Just test output...........
write(6,13)
+ RAmas_9,DEmas_9,VTmag_9,e_RAmas_9,e_DEmas_9,pmRA_9,pmDE_9,
+ e_pmRA_9,e_pmDE_9,Pr_9
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col399.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
14 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col399.dat')
write(6,*) '....Loading file: pm/col399.dat'
do i__=1,226
read(1,'(A76)')ar__13
read(ar__13,14)
+ RAmas_10,DEmas_10,VTmag_10,e_RAmas_10,e_DEmas_10,pmRA_10,
+ pmDE_10,e_pmRA_10,e_pmDE_10,Pr_10
c ..............Just test output...........
write(6,14)
+ RAmas_10,DEmas_10,VTmag_10,e_RAmas_10,e_DEmas_10,pmRA_10,
+ pmDE_10,e_pmRA_10,e_pmDE_10,Pr_10
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col463.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
15 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col463.dat')
write(6,*) '....Loading file: pm/col463.dat'
do i__=1,77
read(1,'(A76)')ar__14
read(ar__14,15)
+ RAmas_11,DEmas_11,VTmag_11,e_RAmas_11,e_DEmas_11,pmRA_11,
+ pmDE_11,e_pmRA_11,e_pmDE_11,Pr_11
c ..............Just test output...........
write(6,15)
+ RAmas_11,DEmas_11,VTmag_11,e_RAmas_11,e_DEmas_11,pmRA_11,
+ pmDE_11,e_pmRA_11,e_pmDE_11,Pr_11
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col69.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
16 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col69.dat')
write(6,*) '....Loading file: pm/col69.dat'
do i__=1,87
read(1,'(A76)')ar__15
read(ar__15,16)
+ RAmas_12,DEmas_12,VTmag_12,e_RAmas_12,e_DEmas_12,pmRA_12,
+ pmDE_12,e_pmRA_12,e_pmDE_12,Pr_12
c ..............Just test output...........
write(6,16)
+ RAmas_12,DEmas_12,VTmag_12,e_RAmas_12,e_DEmas_12,pmRA_12,
+ pmDE_12,e_pmRA_12,e_pmDE_12,Pr_12
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col70.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
17 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col70.dat')
write(6,*) '....Loading file: pm/col70.dat'
do i__=1,542
read(1,'(A76)')ar__16
read(ar__16,17)
+ RAmas_13,DEmas_13,VTmag_13,e_RAmas_13,e_DEmas_13,pmRA_13,
+ pmDE_13,e_pmRA_13,e_pmDE_13,Pr_13
c ..............Just test output...........
write(6,17)
+ RAmas_13,DEmas_13,VTmag_13,e_RAmas_13,e_DEmas_13,pmRA_13,
+ pmDE_13,e_pmRA_13,e_pmDE_13,Pr_13
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/col97.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
18 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/col97.dat')
write(6,*) '....Loading file: pm/col97.dat'
do i__=1,35
read(1,'(A76)')ar__17
read(ar__17,18)
+ RAmas_14,DEmas_14,VTmag_14,e_RAmas_14,e_DEmas_14,pmRA_14,
+ pmDE_14,e_pmRA_14,e_pmDE_14,Pr_14
c ..............Just test output...........
write(6,18)
+ RAmas_14,DEmas_14,VTmag_14,e_RAmas_14,e_DEmas_14,pmRA_14,
+ pmDE_14,e_pmRA_14,e_pmDE_14,Pr_14
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic2395.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
19 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic2395.dat')
write(6,*) '....Loading file: pm/ic2395.dat'
do i__=1,19
read(1,'(A76)')ar__18
read(ar__18,19)
+ RAmas_15,DEmas_15,VTmag_15,e_RAmas_15,e_DEmas_15,pmRA_15,
+ pmDE_15,e_pmRA_15,e_pmDE_15,Pr_15
c ..............Just test output...........
write(6,19)
+ RAmas_15,DEmas_15,VTmag_15,e_RAmas_15,e_DEmas_15,pmRA_15,
+ pmDE_15,e_pmRA_15,e_pmDE_15,Pr_15
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic2488.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
20 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic2488.dat')
write(6,*) '....Loading file: pm/ic2488.dat'
do i__=1,63
read(1,'(A76)')ar__19
read(ar__19,20)
+ RAmas_16,DEmas_16,VTmag_16,e_RAmas_16,e_DEmas_16,pmRA_16,
+ pmDE_16,e_pmRA_16,e_pmDE_16,Pr_16
c ..............Just test output...........
write(6,20)
+ RAmas_16,DEmas_16,VTmag_16,e_RAmas_16,e_DEmas_16,pmRA_16,
+ pmDE_16,e_pmRA_16,e_pmDE_16,Pr_16
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic2602.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
21 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic2602.dat')
write(6,*) '....Loading file: pm/ic2602.dat'
do i__=1,124
read(1,'(A76)')ar__20
read(ar__20,21)
+ RAmas_17,DEmas_17,VTmag_17,e_RAmas_17,e_DEmas_17,pmRA_17,
+ pmDE_17,e_pmRA_17,e_pmDE_17,Pr_17
c ..............Just test output...........
write(6,21)
+ RAmas_17,DEmas_17,VTmag_17,e_RAmas_17,e_DEmas_17,pmRA_17,
+ pmDE_17,e_pmRA_17,e_pmDE_17,Pr_17
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic348.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
22 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic348.dat')
write(6,*) '....Loading file: pm/ic348.dat'
do i__=1,21
read(1,'(A76)')ar__21
read(ar__21,22)
+ RAmas_18,DEmas_18,VTmag_18,e_RAmas_18,e_DEmas_18,pmRA_18,
+ pmDE_18,e_pmRA_18,e_pmDE_18,Pr_18
c ..............Just test output...........
write(6,22)
+ RAmas_18,DEmas_18,VTmag_18,e_RAmas_18,e_DEmas_18,pmRA_18,
+ pmDE_18,e_pmRA_18,e_pmDE_18,Pr_18
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic4651.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
23 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic4651.dat')
write(6,*) '....Loading file: pm/ic4651.dat'
do i__=1,43
read(1,'(A76)')ar__22
read(ar__22,23)
+ RAmas_19,DEmas_19,VTmag_19,e_RAmas_19,e_DEmas_19,pmRA_19,
+ pmDE_19,e_pmRA_19,e_pmDE_19,Pr_19
c ..............Just test output...........
write(6,23)
+ RAmas_19,DEmas_19,VTmag_19,e_RAmas_19,e_DEmas_19,pmRA_19,
+ pmDE_19,e_pmRA_19,e_pmDE_19,Pr_19
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic4665.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
24 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic4665.dat')
write(6,*) '....Loading file: pm/ic4665.dat'
do i__=1,160
read(1,'(A76)')ar__23
read(ar__23,24)
+ RAmas_20,DEmas_20,VTmag_20,e_RAmas_20,e_DEmas_20,pmRA_20,
+ pmDE_20,e_pmRA_20,e_pmDE_20,Pr_20
c ..............Just test output...........
write(6,24)
+ RAmas_20,DEmas_20,VTmag_20,e_RAmas_20,e_DEmas_20,pmRA_20,
+ pmDE_20,e_pmRA_20,e_pmDE_20,Pr_20
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic4725.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
25 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic4725.dat')
write(6,*) '....Loading file: pm/ic4725.dat'
do i__=1,85
read(1,'(A76)')ar__24
read(ar__24,25)
+ RAmas_21,DEmas_21,VTmag_21,e_RAmas_21,e_DEmas_21,pmRA_21,
+ pmDE_21,e_pmRA_21,e_pmDE_21,Pr_21
c ..............Just test output...........
write(6,25)
+ RAmas_21,DEmas_21,VTmag_21,e_RAmas_21,e_DEmas_21,pmRA_21,
+ pmDE_21,e_pmRA_21,e_pmDE_21,Pr_21
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic4756.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
26 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic4756.dat')
write(6,*) '....Loading file: pm/ic4756.dat'
do i__=1,181
read(1,'(A76)')ar__25
read(ar__25,26)
+ RAmas_22,DEmas_22,VTmag_22,e_RAmas_22,e_DEmas_22,pmRA_22,
+ pmDE_22,e_pmRA_22,e_pmDE_22,Pr_22
c ..............Just test output...........
write(6,26)
+ RAmas_22,DEmas_22,VTmag_22,e_RAmas_22,e_DEmas_22,pmRA_22,
+ pmDE_22,e_pmRA_22,e_pmDE_22,Pr_22
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ic5146.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
27 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ic5146.dat')
write(6,*) '....Loading file: pm/ic5146.dat'
do i__=1,40
read(1,'(A76)')ar__26
read(ar__26,27)
+ RAmas_23,DEmas_23,VTmag_23,e_RAmas_23,e_DEmas_23,pmRA_23,
+ pmDE_23,e_pmRA_23,e_pmDE_23,Pr_23
c ..............Just test output...........
write(6,27)
+ RAmas_23,DEmas_23,VTmag_23,e_RAmas_23,e_DEmas_23,pmRA_23,
+ pmDE_23,e_pmRA_23,e_pmDE_23,Pr_23
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/lynga2.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
28 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/lynga2.dat')
write(6,*) '....Loading file: pm/lynga2.dat'
do i__=1,33
read(1,'(A76)')ar__27
read(ar__27,28)
+ RAmas_24,DEmas_24,VTmag_24,e_RAmas_24,e_DEmas_24,pmRA_24,
+ pmDE_24,e_pmRA_24,e_pmDE_24,Pr_24
c ..............Just test output...........
write(6,28)
+ RAmas_24,DEmas_24,VTmag_24,e_RAmas_24,e_DEmas_24,pmRA_24,
+ pmDE_24,e_pmRA_24,e_pmDE_24,Pr_24
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/mel20.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
29 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/mel20.dat')
write(6,*) '....Loading file: pm/mel20.dat'
do i__=1,97
read(1,'(A76)')ar__28
read(ar__28,29)
+ RAmas_25,DEmas_25,VTmag_25,e_RAmas_25,e_DEmas_25,pmRA_25,
+ pmDE_25,e_pmRA_25,e_pmDE_25,Pr_25
c ..............Just test output...........
write(6,29)
+ RAmas_25,DEmas_25,VTmag_25,e_RAmas_25,e_DEmas_25,pmRA_25,
+ pmDE_25,e_pmRA_25,e_pmDE_25,Pr_25
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/mel22.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
30 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/mel22.dat')
write(6,*) '....Loading file: pm/mel22.dat'
do i__=1,365
read(1,'(A76)')ar__29
read(ar__29,30)
+ RAmas_26,DEmas_26,VTmag_26,e_RAmas_26,e_DEmas_26,pmRA_26,
+ pmDE_26,e_pmRA_26,e_pmDE_26,Pr_26
c ..............Just test output...........
write(6,30)
+ RAmas_26,DEmas_26,VTmag_26,e_RAmas_26,e_DEmas_26,pmRA_26,
+ pmDE_26,e_pmRA_26,e_pmDE_26,Pr_26
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1027.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
31 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1027.dat')
write(6,*) '....Loading file: pm/ngc1027.dat'
do i__=1,61
read(1,'(A76)')ar__30
read(ar__30,31)
+ RAmas_27,DEmas_27,VTmag_27,e_RAmas_27,e_DEmas_27,pmRA_27,
+ pmDE_27,e_pmRA_27,e_pmDE_27,Pr_27
c ..............Just test output...........
write(6,31)
+ RAmas_27,DEmas_27,VTmag_27,e_RAmas_27,e_DEmas_27,pmRA_27,
+ pmDE_27,e_pmRA_27,e_pmDE_27,Pr_27
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1039.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
32 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1039.dat')
write(6,*) '....Loading file: pm/ngc1039.dat'
do i__=1,105
read(1,'(A76)')ar__31
read(ar__31,32)
+ RAmas_28,DEmas_28,VTmag_28,e_RAmas_28,e_DEmas_28,pmRA_28,
+ pmDE_28,e_pmRA_28,e_pmDE_28,Pr_28
c ..............Just test output...........
write(6,32)
+ RAmas_28,DEmas_28,VTmag_28,e_RAmas_28,e_DEmas_28,pmRA_28,
+ pmDE_28,e_pmRA_28,e_pmDE_28,Pr_28
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1342.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
33 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1342.dat')
write(6,*) '....Loading file: pm/ngc1342.dat'
do i__=1,31
read(1,'(A76)')ar__32
read(ar__32,33)
+ RAmas_29,DEmas_29,VTmag_29,e_RAmas_29,e_DEmas_29,pmRA_29,
+ pmDE_29,e_pmRA_29,e_pmDE_29,Pr_29
c ..............Just test output...........
write(6,33)
+ RAmas_29,DEmas_29,VTmag_29,e_RAmas_29,e_DEmas_29,pmRA_29,
+ pmDE_29,e_pmRA_29,e_pmDE_29,Pr_29
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1502.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
34 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1502.dat')
write(6,*) '....Loading file: pm/ngc1502.dat'
do i__=1,15
read(1,'(A76)')ar__33
read(ar__33,34)
+ RAmas_30,DEmas_30,VTmag_30,e_RAmas_30,e_DEmas_30,pmRA_30,
+ pmDE_30,e_pmRA_30,e_pmDE_30,Pr_30
c ..............Just test output...........
write(6,34)
+ RAmas_30,DEmas_30,VTmag_30,e_RAmas_30,e_DEmas_30,pmRA_30,
+ pmDE_30,e_pmRA_30,e_pmDE_30,Pr_30
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1513.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
35 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1513.dat')
write(6,*) '....Loading file: pm/ngc1513.dat'
do i__=1,20
read(1,'(A76)')ar__34
read(ar__34,35)
+ RAmas_31,DEmas_31,VTmag_31,e_RAmas_31,e_DEmas_31,pmRA_31,
+ pmDE_31,e_pmRA_31,e_pmDE_31,Pr_31
c ..............Just test output...........
write(6,35)
+ RAmas_31,DEmas_31,VTmag_31,e_RAmas_31,e_DEmas_31,pmRA_31,
+ pmDE_31,e_pmRA_31,e_pmDE_31,Pr_31
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1528.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
36 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1528.dat')
write(6,*) '....Loading file: pm/ngc1528.dat'
do i__=1,63
read(1,'(A76)')ar__35
read(ar__35,36)
+ RAmas_32,DEmas_32,VTmag_32,e_RAmas_32,e_DEmas_32,pmRA_32,
+ pmDE_32,e_pmRA_32,e_pmDE_32,Pr_32
c ..............Just test output...........
write(6,36)
+ RAmas_32,DEmas_32,VTmag_32,e_RAmas_32,e_DEmas_32,pmRA_32,
+ pmDE_32,e_pmRA_32,e_pmDE_32,Pr_32
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1545.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
37 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1545.dat')
write(6,*) '....Loading file: pm/ngc1545.dat'
do i__=1,21
read(1,'(A76)')ar__36
read(ar__36,37)
+ RAmas_33,DEmas_33,VTmag_33,e_RAmas_33,e_DEmas_33,pmRA_33,
+ pmDE_33,e_pmRA_33,e_pmDE_33,Pr_33
c ..............Just test output...........
write(6,37)
+ RAmas_33,DEmas_33,VTmag_33,e_RAmas_33,e_DEmas_33,pmRA_33,
+ pmDE_33,e_pmRA_33,e_pmDE_33,Pr_33
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1647.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
38 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1647.dat')
write(6,*) '....Loading file: pm/ngc1647.dat'
do i__=1,85
read(1,'(A76)')ar__37
read(ar__37,38)
+ RAmas_34,DEmas_34,VTmag_34,e_RAmas_34,e_DEmas_34,pmRA_34,
+ pmDE_34,e_pmRA_34,e_pmDE_34,Pr_34
c ..............Just test output...........
write(6,38)
+ RAmas_34,DEmas_34,VTmag_34,e_RAmas_34,e_DEmas_34,pmRA_34,
+ pmDE_34,e_pmRA_34,e_pmDE_34,Pr_34
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1662.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
39 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1662.dat')
write(6,*) '....Loading file: pm/ngc1662.dat'
do i__=1,34
read(1,'(A76)')ar__38
read(ar__38,39)
+ RAmas_35,DEmas_35,VTmag_35,e_RAmas_35,e_DEmas_35,pmRA_35,
+ pmDE_35,e_pmRA_35,e_pmDE_35,Pr_35
c ..............Just test output...........
write(6,39)
+ RAmas_35,DEmas_35,VTmag_35,e_RAmas_35,e_DEmas_35,pmRA_35,
+ pmDE_35,e_pmRA_35,e_pmDE_35,Pr_35
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1758.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
40 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1758.dat')
write(6,*) '....Loading file: pm/ngc1758.dat'
do i__=1,71
read(1,'(A76)')ar__39
read(ar__39,40)
+ RAmas_36,DEmas_36,VTmag_36,e_RAmas_36,e_DEmas_36,pmRA_36,
+ pmDE_36,e_pmRA_36,e_pmDE_36,Pr_36
c ..............Just test output...........
write(6,40)
+ RAmas_36,DEmas_36,VTmag_36,e_RAmas_36,e_DEmas_36,pmRA_36,
+ pmDE_36,e_pmRA_36,e_pmDE_36,Pr_36
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1901.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
41 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1901.dat')
write(6,*) '....Loading file: pm/ngc1901.dat'
do i__=1,60
read(1,'(A76)')ar__40
read(ar__40,41)
+ RAmas_37,DEmas_37,VTmag_37,e_RAmas_37,e_DEmas_37,pmRA_37,
+ pmDE_37,e_pmRA_37,e_pmDE_37,Pr_37
c ..............Just test output...........
write(6,41)
+ RAmas_37,DEmas_37,VTmag_37,e_RAmas_37,e_DEmas_37,pmRA_37,
+ pmDE_37,e_pmRA_37,e_pmDE_37,Pr_37
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc1976.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
42 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc1976.dat')
write(6,*) '....Loading file: pm/ngc1976.dat'
do i__=1,41
read(1,'(A76)')ar__41
read(ar__41,42)
+ RAmas_38,DEmas_38,VTmag_38,e_RAmas_38,e_DEmas_38,pmRA_38,
+ pmDE_38,e_pmRA_38,e_pmDE_38,Pr_38
c ..............Just test output...........
write(6,42)
+ RAmas_38,DEmas_38,VTmag_38,e_RAmas_38,e_DEmas_38,pmRA_38,
+ pmDE_38,e_pmRA_38,e_pmDE_38,Pr_38
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2168.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
43 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2168.dat')
write(6,*) '....Loading file: pm/ngc2168.dat'
do i__=1,154
read(1,'(A76)')ar__42
read(ar__42,43)
+ RAmas_39,DEmas_39,VTmag_39,e_RAmas_39,e_DEmas_39,pmRA_39,
+ pmDE_39,e_pmRA_39,e_pmDE_39,Pr_39
c ..............Just test output...........
write(6,43)
+ RAmas_39,DEmas_39,VTmag_39,e_RAmas_39,e_DEmas_39,pmRA_39,
+ pmDE_39,e_pmRA_39,e_pmDE_39,Pr_39
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2232.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
44 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2232.dat')
write(6,*) '....Loading file: pm/ngc2232.dat'
do i__=1,66
read(1,'(A76)')ar__43
read(ar__43,44)
+ RAmas_40,DEmas_40,VTmag_40,e_RAmas_40,e_DEmas_40,pmRA_40,
+ pmDE_40,e_pmRA_40,e_pmDE_40,Pr_40
c ..............Just test output...........
write(6,44)
+ RAmas_40,DEmas_40,VTmag_40,e_RAmas_40,e_DEmas_40,pmRA_40,
+ pmDE_40,e_pmRA_40,e_pmDE_40,Pr_40
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc225.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
45 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc225.dat')
write(6,*) '....Loading file: pm/ngc225.dat'
do i__=1,39
read(1,'(A76)')ar__44
read(ar__44,45)
+ RAmas_41,DEmas_41,VTmag_41,e_RAmas_41,e_DEmas_41,pmRA_41,
+ pmDE_41,e_pmRA_41,e_pmDE_41,Pr_41
c ..............Just test output...........
write(6,45)
+ RAmas_41,DEmas_41,VTmag_41,e_RAmas_41,e_DEmas_41,pmRA_41,
+ pmDE_41,e_pmRA_41,e_pmDE_41,Pr_41
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2264.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
46 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2264.dat')
write(6,*) '....Loading file: pm/ngc2264.dat'
do i__=1,81
read(1,'(A76)')ar__45
read(ar__45,46)
+ RAmas_42,DEmas_42,VTmag_42,e_RAmas_42,e_DEmas_42,pmRA_42,
+ pmDE_42,e_pmRA_42,e_pmDE_42,Pr_42
c ..............Just test output...........
write(6,46)
+ RAmas_42,DEmas_42,VTmag_42,e_RAmas_42,e_DEmas_42,pmRA_42,
+ pmDE_42,e_pmRA_42,e_pmDE_42,Pr_42
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2281.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
47 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2281.dat')
write(6,*) '....Loading file: pm/ngc2281.dat'
do i__=1,60
read(1,'(A76)')ar__46
read(ar__46,47)
+ RAmas_43,DEmas_43,VTmag_43,e_RAmas_43,e_DEmas_43,pmRA_43,
+ pmDE_43,e_pmRA_43,e_pmDE_43,Pr_43
c ..............Just test output...........
write(6,47)
+ RAmas_43,DEmas_43,VTmag_43,e_RAmas_43,e_DEmas_43,pmRA_43,
+ pmDE_43,e_pmRA_43,e_pmDE_43,Pr_43
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2287.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
48 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2287.dat')
write(6,*) '....Loading file: pm/ngc2287.dat'
do i__=1,168
read(1,'(A76)')ar__47
read(ar__47,48)
+ RAmas_44,DEmas_44,VTmag_44,e_RAmas_44,e_DEmas_44,pmRA_44,
+ pmDE_44,e_pmRA_44,e_pmDE_44,Pr_44
c ..............Just test output...........
write(6,48)
+ RAmas_44,DEmas_44,VTmag_44,e_RAmas_44,e_DEmas_44,pmRA_44,
+ pmDE_44,e_pmRA_44,e_pmDE_44,Pr_44
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2301.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
49 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2301.dat')
write(6,*) '....Loading file: pm/ngc2301.dat'
do i__=1,89
read(1,'(A76)')ar__48
read(ar__48,49)
+ RAmas_45,DEmas_45,VTmag_45,e_RAmas_45,e_DEmas_45,pmRA_45,
+ pmDE_45,e_pmRA_45,e_pmDE_45,Pr_45
c ..............Just test output...........
write(6,49)
+ RAmas_45,DEmas_45,VTmag_45,e_RAmas_45,e_DEmas_45,pmRA_45,
+ pmDE_45,e_pmRA_45,e_pmDE_45,Pr_45
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2323.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
50 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2323.dat')
write(6,*) '....Loading file: pm/ngc2323.dat'
do i__=1,100
read(1,'(A76)')ar__49
read(ar__49,50)
+ RAmas_46,DEmas_46,VTmag_46,e_RAmas_46,e_DEmas_46,pmRA_46,
+ pmDE_46,e_pmRA_46,e_pmDE_46,Pr_46
c ..............Just test output...........
write(6,50)
+ RAmas_46,DEmas_46,VTmag_46,e_RAmas_46,e_DEmas_46,pmRA_46,
+ pmDE_46,e_pmRA_46,e_pmDE_46,Pr_46
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2353.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
51 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2353.dat')
write(6,*) '....Loading file: pm/ngc2353.dat'
do i__=1,35
read(1,'(A76)')ar__50
read(ar__50,51)
+ RAmas_47,DEmas_47,VTmag_47,e_RAmas_47,e_DEmas_47,pmRA_47,
+ pmDE_47,e_pmRA_47,e_pmDE_47,Pr_47
c ..............Just test output...........
write(6,51)
+ RAmas_47,DEmas_47,VTmag_47,e_RAmas_47,e_DEmas_47,pmRA_47,
+ pmDE_47,e_pmRA_47,e_pmDE_47,Pr_47
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2374.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
52 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2374.dat')
write(6,*) '....Loading file: pm/ngc2374.dat'
do i__=1,43
read(1,'(A76)')ar__51
read(ar__51,52)
+ RAmas_48,DEmas_48,VTmag_48,e_RAmas_48,e_DEmas_48,pmRA_48,
+ pmDE_48,e_pmRA_48,e_pmDE_48,Pr_48
c ..............Just test output...........
write(6,52)
+ RAmas_48,DEmas_48,VTmag_48,e_RAmas_48,e_DEmas_48,pmRA_48,
+ pmDE_48,e_pmRA_48,e_pmDE_48,Pr_48
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2391.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
53 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2391.dat')
write(6,*) '....Loading file: pm/ngc2391.dat'
do i__=1,141
read(1,'(A76)')ar__52
read(ar__52,53)
+ RAmas_49,DEmas_49,VTmag_49,e_RAmas_49,e_DEmas_49,pmRA_49,
+ pmDE_49,e_pmRA_49,e_pmDE_49,Pr_49
c ..............Just test output...........
write(6,53)
+ RAmas_49,DEmas_49,VTmag_49,e_RAmas_49,e_DEmas_49,pmRA_49,
+ pmDE_49,e_pmRA_49,e_pmDE_49,Pr_49
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2422.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
54 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2422.dat')
write(6,*) '....Loading file: pm/ngc2422.dat'
do i__=1,39
read(1,'(A76)')ar__53
read(ar__53,54)
+ RAmas_50,DEmas_50,VTmag_50,e_RAmas_50,e_DEmas_50,pmRA_50,
+ pmDE_50,e_pmRA_50,e_pmDE_50,Pr_50
c ..............Just test output...........
write(6,54)
+ RAmas_50,DEmas_50,VTmag_50,e_RAmas_50,e_DEmas_50,pmRA_50,
+ pmDE_50,e_pmRA_50,e_pmDE_50,Pr_50
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2423.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
55 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2423.dat')
write(6,*) '....Loading file: pm/ngc2423.dat'
do i__=1,93
read(1,'(A76)')ar__54
read(ar__54,55)
+ RAmas_51,DEmas_51,VTmag_51,e_RAmas_51,e_DEmas_51,pmRA_51,
+ pmDE_51,e_pmRA_51,e_pmDE_51,Pr_51
c ..............Just test output...........
write(6,55)
+ RAmas_51,DEmas_51,VTmag_51,e_RAmas_51,e_DEmas_51,pmRA_51,
+ pmDE_51,e_pmRA_51,e_pmDE_51,Pr_51
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2482.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
56 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2482.dat')
write(6,*) '....Loading file: pm/ngc2482.dat'
do i__=1,57
read(1,'(A76)')ar__55
read(ar__55,56)
+ RAmas_52,DEmas_52,VTmag_52,e_RAmas_52,e_DEmas_52,pmRA_52,
+ pmDE_52,e_pmRA_52,e_pmDE_52,Pr_52
c ..............Just test output...........
write(6,56)
+ RAmas_52,DEmas_52,VTmag_52,e_RAmas_52,e_DEmas_52,pmRA_52,
+ pmDE_52,e_pmRA_52,e_pmDE_52,Pr_52
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2516.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
57 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2516.dat')
write(6,*) '....Loading file: pm/ngc2516.dat'
do i__=1,81
read(1,'(A76)')ar__56
read(ar__56,57)
+ RAmas_53,DEmas_53,VTmag_53,e_RAmas_53,e_DEmas_53,pmRA_53,
+ pmDE_53,e_pmRA_53,e_pmDE_53,Pr_53
c ..............Just test output...........
write(6,57)
+ RAmas_53,DEmas_53,VTmag_53,e_RAmas_53,e_DEmas_53,pmRA_53,
+ pmDE_53,e_pmRA_53,e_pmDE_53,Pr_53
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2527.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
58 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2527.dat')
write(6,*) '....Loading file: pm/ngc2527.dat'
do i__=1,62
read(1,'(A76)')ar__57
read(ar__57,58)
+ RAmas_54,DEmas_54,VTmag_54,e_RAmas_54,e_DEmas_54,pmRA_54,
+ pmDE_54,e_pmRA_54,e_pmDE_54,Pr_54
c ..............Just test output...........
write(6,58)
+ RAmas_54,DEmas_54,VTmag_54,e_RAmas_54,e_DEmas_54,pmRA_54,
+ pmDE_54,e_pmRA_54,e_pmDE_54,Pr_54
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2546.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
59 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2546.dat')
write(6,*) '....Loading file: pm/ngc2546.dat'
do i__=1,286
read(1,'(A76)')ar__58
read(ar__58,59)
+ RAmas_55,DEmas_55,VTmag_55,e_RAmas_55,e_DEmas_55,pmRA_55,
+ pmDE_55,e_pmRA_55,e_pmDE_55,Pr_55
c ..............Just test output...........
write(6,59)
+ RAmas_55,DEmas_55,VTmag_55,e_RAmas_55,e_DEmas_55,pmRA_55,
+ pmDE_55,e_pmRA_55,e_pmDE_55,Pr_55
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2547.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
60 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2547.dat')
write(6,*) '....Loading file: pm/ngc2547.dat'
do i__=1,38
read(1,'(A76)')ar__59
read(ar__59,60)
+ RAmas_56,DEmas_56,VTmag_56,e_RAmas_56,e_DEmas_56,pmRA_56,
+ pmDE_56,e_pmRA_56,e_pmDE_56,Pr_56
c ..............Just test output...........
write(6,60)
+ RAmas_56,DEmas_56,VTmag_56,e_RAmas_56,e_DEmas_56,pmRA_56,
+ pmDE_56,e_pmRA_56,e_pmDE_56,Pr_56
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2548.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
61 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2548.dat')
write(6,*) '....Loading file: pm/ngc2548.dat'
do i__=1,107
read(1,'(A76)')ar__60
read(ar__60,61)
+ RAmas_57,DEmas_57,VTmag_57,e_RAmas_57,e_DEmas_57,pmRA_57,
+ pmDE_57,e_pmRA_57,e_pmDE_57,Pr_57
c ..............Just test output...........
write(6,61)
+ RAmas_57,DEmas_57,VTmag_57,e_RAmas_57,e_DEmas_57,pmRA_57,
+ pmDE_57,e_pmRA_57,e_pmDE_57,Pr_57
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2579.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
62 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2579.dat')
write(6,*) '....Loading file: pm/ngc2579.dat'
do i__=1,14
read(1,'(A76)')ar__61
read(ar__61,62)
+ RAmas_58,DEmas_58,VTmag_58,e_RAmas_58,e_DEmas_58,pmRA_58,
+ pmDE_58,e_pmRA_58,e_pmDE_58,Pr_58
c ..............Just test output...........
write(6,62)
+ RAmas_58,DEmas_58,VTmag_58,e_RAmas_58,e_DEmas_58,pmRA_58,
+ pmDE_58,e_pmRA_58,e_pmDE_58,Pr_58
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2632.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
63 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2632.dat')
write(6,*) '....Loading file: pm/ngc2632.dat'
do i__=1,138
read(1,'(A76)')ar__62
read(ar__62,63)
+ RAmas_59,DEmas_59,VTmag_59,e_RAmas_59,e_DEmas_59,pmRA_59,
+ pmDE_59,e_pmRA_59,e_pmDE_59,Pr_59
c ..............Just test output...........
write(6,63)
+ RAmas_59,DEmas_59,VTmag_59,e_RAmas_59,e_DEmas_59,pmRA_59,
+ pmDE_59,e_pmRA_59,e_pmDE_59,Pr_59
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2669.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
64 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2669.dat')
write(6,*) '....Loading file: pm/ngc2669.dat'
do i__=1,32
read(1,'(A76)')ar__63
read(ar__63,64)
+ RAmas_60,DEmas_60,VTmag_60,e_RAmas_60,e_DEmas_60,pmRA_60,
+ pmDE_60,e_pmRA_60,e_pmDE_60,Pr_60
c ..............Just test output...........
write(6,64)
+ RAmas_60,DEmas_60,VTmag_60,e_RAmas_60,e_DEmas_60,pmRA_60,
+ pmDE_60,e_pmRA_60,e_pmDE_60,Pr_60
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2670.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
65 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2670.dat')
write(6,*) '....Loading file: pm/ngc2670.dat'
do i__=1,18
read(1,'(A76)')ar__64
read(ar__64,65)
+ RAmas_61,DEmas_61,VTmag_61,e_RAmas_61,e_DEmas_61,pmRA_61,
+ pmDE_61,e_pmRA_61,e_pmDE_61,Pr_61
c ..............Just test output...........
write(6,65)
+ RAmas_61,DEmas_61,VTmag_61,e_RAmas_61,e_DEmas_61,pmRA_61,
+ pmDE_61,e_pmRA_61,e_pmDE_61,Pr_61
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2682.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
66 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2682.dat')
write(6,*) '....Loading file: pm/ngc2682.dat'
do i__=1,53
read(1,'(A76)')ar__65
read(ar__65,66)
+ RAmas_62,DEmas_62,VTmag_62,e_RAmas_62,e_DEmas_62,pmRA_62,
+ pmDE_62,e_pmRA_62,e_pmDE_62,Pr_62
c ..............Just test output...........
write(6,66)
+ RAmas_62,DEmas_62,VTmag_62,e_RAmas_62,e_DEmas_62,pmRA_62,
+ pmDE_62,e_pmRA_62,e_pmDE_62,Pr_62
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc2925.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
67 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc2925.dat')
write(6,*) '....Loading file: pm/ngc2925.dat'
do i__=1,71
read(1,'(A76)')ar__66
read(ar__66,67)
+ RAmas_63,DEmas_63,VTmag_63,e_RAmas_63,e_DEmas_63,pmRA_63,
+ pmDE_63,e_pmRA_63,e_pmDE_63,Pr_63
c ..............Just test output...........
write(6,67)
+ RAmas_63,DEmas_63,VTmag_63,e_RAmas_63,e_DEmas_63,pmRA_63,
+ pmDE_63,e_pmRA_63,e_pmDE_63,Pr_63
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc3114.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
68 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc3114.dat')
write(6,*) '....Loading file: pm/ngc3114.dat'
do i__=1,266
read(1,'(A76)')ar__67
read(ar__67,68)
+ RAmas_64,DEmas_64,VTmag_64,e_RAmas_64,e_DEmas_64,pmRA_64,
+ pmDE_64,e_pmRA_64,e_pmDE_64,Pr_64
c ..............Just test output...........
write(6,68)
+ RAmas_64,DEmas_64,VTmag_64,e_RAmas_64,e_DEmas_64,pmRA_64,
+ pmDE_64,e_pmRA_64,e_pmDE_64,Pr_64
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc3228.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
69 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc3228.dat')
write(6,*) '....Loading file: pm/ngc3228.dat'
do i__=1,32
read(1,'(A76)')ar__68
read(ar__68,69)
+ RAmas_65,DEmas_65,VTmag_65,e_RAmas_65,e_DEmas_65,pmRA_65,
+ pmDE_65,e_pmRA_65,e_pmDE_65,Pr_65
c ..............Just test output...........
write(6,69)
+ RAmas_65,DEmas_65,VTmag_65,e_RAmas_65,e_DEmas_65,pmRA_65,
+ pmDE_65,e_pmRA_65,e_pmDE_65,Pr_65
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc3496.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
70 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc3496.dat')
write(6,*) '....Loading file: pm/ngc3496.dat'
do i__=1,17
read(1,'(A76)')ar__69
read(ar__69,70)
+ RAmas_66,DEmas_66,VTmag_66,e_RAmas_66,e_DEmas_66,pmRA_66,
+ pmDE_66,e_pmRA_66,e_pmDE_66,Pr_66
c ..............Just test output...........
write(6,70)
+ RAmas_66,DEmas_66,VTmag_66,e_RAmas_66,e_DEmas_66,pmRA_66,
+ pmDE_66,e_pmRA_66,e_pmDE_66,Pr_66
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc3532.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
71 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc3532.dat')
write(6,*) '....Loading file: pm/ngc3532.dat'
do i__=1,211
read(1,'(A76)')ar__70
read(ar__70,71)
+ RAmas_67,DEmas_67,VTmag_67,e_RAmas_67,e_DEmas_67,pmRA_67,
+ pmDE_67,e_pmRA_67,e_pmDE_67,Pr_67
c ..............Just test output...........
write(6,71)
+ RAmas_67,DEmas_67,VTmag_67,e_RAmas_67,e_DEmas_67,pmRA_67,
+ pmDE_67,e_pmRA_67,e_pmDE_67,Pr_67
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc3680.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
72 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc3680.dat')
write(6,*) '....Loading file: pm/ngc3680.dat'
do i__=1,24
read(1,'(A76)')ar__71
read(ar__71,72)
+ RAmas_68,DEmas_68,VTmag_68,e_RAmas_68,e_DEmas_68,pmRA_68,
+ pmDE_68,e_pmRA_68,e_pmDE_68,Pr_68
c ..............Just test output...........
write(6,72)
+ RAmas_68,DEmas_68,VTmag_68,e_RAmas_68,e_DEmas_68,pmRA_68,
+ pmDE_68,e_pmRA_68,e_pmDE_68,Pr_68
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc5460.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
73 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc5460.dat')
write(6,*) '....Loading file: pm/ngc5460.dat'
do i__=1,94
read(1,'(A76)')ar__72
read(ar__72,73)
+ RAmas_69,DEmas_69,VTmag_69,e_RAmas_69,e_DEmas_69,pmRA_69,
+ pmDE_69,e_pmRA_69,e_pmDE_69,Pr_69
c ..............Just test output...........
write(6,73)
+ RAmas_69,DEmas_69,VTmag_69,e_RAmas_69,e_DEmas_69,pmRA_69,
+ pmDE_69,e_pmRA_69,e_pmDE_69,Pr_69
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc5662.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
74 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc5662.dat')
write(6,*) '....Loading file: pm/ngc5662.dat'
do i__=1,109
read(1,'(A76)')ar__73
read(ar__73,74)
+ RAmas_70,DEmas_70,VTmag_70,e_RAmas_70,e_DEmas_70,pmRA_70,
+ pmDE_70,e_pmRA_70,e_pmDE_70,Pr_70
c ..............Just test output...........
write(6,74)
+ RAmas_70,DEmas_70,VTmag_70,e_RAmas_70,e_DEmas_70,pmRA_70,
+ pmDE_70,e_pmRA_70,e_pmDE_70,Pr_70
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc5822.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
75 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc5822.dat')
write(6,*) '....Loading file: pm/ngc5822.dat'
do i__=1,257
read(1,'(A76)')ar__74
read(ar__74,75)
+ RAmas_71,DEmas_71,VTmag_71,e_RAmas_71,e_DEmas_71,pmRA_71,
+ pmDE_71,e_pmRA_71,e_pmDE_71,Pr_71
c ..............Just test output...........
write(6,75)
+ RAmas_71,DEmas_71,VTmag_71,e_RAmas_71,e_DEmas_71,pmRA_71,
+ pmDE_71,e_pmRA_71,e_pmDE_71,Pr_71
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc5823.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
76 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc5823.dat')
write(6,*) '....Loading file: pm/ngc5823.dat'
do i__=1,31
read(1,'(A76)')ar__75
read(ar__75,76)
+ RAmas_72,DEmas_72,VTmag_72,e_RAmas_72,e_DEmas_72,pmRA_72,
+ pmDE_72,e_pmRA_72,e_pmDE_72,Pr_72
c ..............Just test output...........
write(6,76)
+ RAmas_72,DEmas_72,VTmag_72,e_RAmas_72,e_DEmas_72,pmRA_72,
+ pmDE_72,e_pmRA_72,e_pmDE_72,Pr_72
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6025.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
77 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6025.dat')
write(6,*) '....Loading file: pm/ngc6025.dat'
do i__=1,66
read(1,'(A76)')ar__76
read(ar__76,77)
+ RAmas_73,DEmas_73,VTmag_73,e_RAmas_73,e_DEmas_73,pmRA_73,
+ pmDE_73,e_pmRA_73,e_pmDE_73,Pr_73
c ..............Just test output...........
write(6,77)
+ RAmas_73,DEmas_73,VTmag_73,e_RAmas_73,e_DEmas_73,pmRA_73,
+ pmDE_73,e_pmRA_73,e_pmDE_73,Pr_73
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6087.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
78 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6087.dat')
write(6,*) '....Loading file: pm/ngc6087.dat'
do i__=1,83
read(1,'(A76)')ar__77
read(ar__77,78)
+ RAmas_74,DEmas_74,VTmag_74,e_RAmas_74,e_DEmas_74,pmRA_74,
+ pmDE_74,e_pmRA_74,e_pmDE_74,Pr_74
c ..............Just test output...........
write(6,78)
+ RAmas_74,DEmas_74,VTmag_74,e_RAmas_74,e_DEmas_74,pmRA_74,
+ pmDE_74,e_pmRA_74,e_pmDE_74,Pr_74
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6124.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
79 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6124.dat')
write(6,*) '....Loading file: pm/ngc6124.dat'
do i__=1,117
read(1,'(A76)')ar__78
read(ar__78,79)
+ RAmas_75,DEmas_75,VTmag_75,e_RAmas_75,e_DEmas_75,pmRA_75,
+ pmDE_75,e_pmRA_75,e_pmDE_75,Pr_75
c ..............Just test output...........
write(6,79)
+ RAmas_75,DEmas_75,VTmag_75,e_RAmas_75,e_DEmas_75,pmRA_75,
+ pmDE_75,e_pmRA_75,e_pmDE_75,Pr_75
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6134.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
80 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6134.dat')
write(6,*) '....Loading file: pm/ngc6134.dat'
do i__=1,28
read(1,'(A76)')ar__79
read(ar__79,80)
+ RAmas_76,DEmas_76,VTmag_76,e_RAmas_76,e_DEmas_76,pmRA_76,
+ pmDE_76,e_pmRA_76,e_pmDE_76,Pr_76
c ..............Just test output...........
write(6,80)
+ RAmas_76,DEmas_76,VTmag_76,e_RAmas_76,e_DEmas_76,pmRA_76,
+ pmDE_76,e_pmRA_76,e_pmDE_76,Pr_76
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6167.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
81 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6167.dat')
write(6,*) '....Loading file: pm/ngc6167.dat'
do i__=1,22
read(1,'(A76)')ar__80
read(ar__80,81)
+ RAmas_77,DEmas_77,VTmag_77,e_RAmas_77,e_DEmas_77,pmRA_77,
+ pmDE_77,e_pmRA_77,e_pmDE_77,Pr_77
c ..............Just test output...........
write(6,81)
+ RAmas_77,DEmas_77,VTmag_77,e_RAmas_77,e_DEmas_77,pmRA_77,
+ pmDE_77,e_pmRA_77,e_pmDE_77,Pr_77
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6249.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
82 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6249.dat')
write(6,*) '....Loading file: pm/ngc6249.dat'
do i__=1,17
read(1,'(A76)')ar__81
read(ar__81,82)
+ RAmas_78,DEmas_78,VTmag_78,e_RAmas_78,e_DEmas_78,pmRA_78,
+ pmDE_78,e_pmRA_78,e_pmDE_78,Pr_78
c ..............Just test output...........
write(6,82)
+ RAmas_78,DEmas_78,VTmag_78,e_RAmas_78,e_DEmas_78,pmRA_78,
+ pmDE_78,e_pmRA_78,e_pmDE_78,Pr_78
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6250.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
83 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6250.dat')
write(6,*) '....Loading file: pm/ngc6250.dat'
do i__=1,23
read(1,'(A76)')ar__82
read(ar__82,83)
+ RAmas_79,DEmas_79,VTmag_79,e_RAmas_79,e_DEmas_79,pmRA_79,
+ pmDE_79,e_pmRA_79,e_pmDE_79,Pr_79
c ..............Just test output...........
write(6,83)
+ RAmas_79,DEmas_79,VTmag_79,e_RAmas_79,e_DEmas_79,pmRA_79,
+ pmDE_79,e_pmRA_79,e_pmDE_79,Pr_79
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6281.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
84 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6281.dat')
write(6,*) '....Loading file: pm/ngc6281.dat'
do i__=1,37
read(1,'(A76)')ar__83
read(ar__83,84)
+ RAmas_80,DEmas_80,VTmag_80,e_RAmas_80,e_DEmas_80,pmRA_80,
+ pmDE_80,e_pmRA_80,e_pmDE_80,Pr_80
c ..............Just test output...........
write(6,84)
+ RAmas_80,DEmas_80,VTmag_80,e_RAmas_80,e_DEmas_80,pmRA_80,
+ pmDE_80,e_pmRA_80,e_pmDE_80,Pr_80
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6405.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
85 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6405.dat')
write(6,*) '....Loading file: pm/ngc6405.dat'
do i__=1,60
read(1,'(A76)')ar__84
read(ar__84,85)
+ RAmas_81,DEmas_81,VTmag_81,e_RAmas_81,e_DEmas_81,pmRA_81,
+ pmDE_81,e_pmRA_81,e_pmDE_81,Pr_81
c ..............Just test output...........
write(6,85)
+ RAmas_81,DEmas_81,VTmag_81,e_RAmas_81,e_DEmas_81,pmRA_81,
+ pmDE_81,e_pmRA_81,e_pmDE_81,Pr_81
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6416.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
86 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6416.dat')
write(6,*) '....Loading file: pm/ngc6416.dat'
do i__=1,70
read(1,'(A76)')ar__85
read(ar__85,86)
+ RAmas_82,DEmas_82,VTmag_82,e_RAmas_82,e_DEmas_82,pmRA_82,
+ pmDE_82,e_pmRA_82,e_pmDE_82,Pr_82
c ..............Just test output...........
write(6,86)
+ RAmas_82,DEmas_82,VTmag_82,e_RAmas_82,e_DEmas_82,pmRA_82,
+ pmDE_82,e_pmRA_82,e_pmDE_82,Pr_82
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6475.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
87 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6475.dat')
write(6,*) '....Loading file: pm/ngc6475.dat'
do i__=1,411
read(1,'(A76)')ar__86
read(ar__86,87)
+ RAmas_83,DEmas_83,VTmag_83,e_RAmas_83,e_DEmas_83,pmRA_83,
+ pmDE_83,e_pmRA_83,e_pmDE_83,Pr_83
c ..............Just test output...........
write(6,87)
+ RAmas_83,DEmas_83,VTmag_83,e_RAmas_83,e_DEmas_83,pmRA_83,
+ pmDE_83,e_pmRA_83,e_pmDE_83,Pr_83
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6494.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
88 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6494.dat')
write(6,*) '....Loading file: pm/ngc6494.dat'
do i__=1,147
read(1,'(A76)')ar__87
read(ar__87,88)
+ RAmas_84,DEmas_84,VTmag_84,e_RAmas_84,e_DEmas_84,pmRA_84,
+ pmDE_84,e_pmRA_84,e_pmDE_84,Pr_84
c ..............Just test output...........
write(6,88)
+ RAmas_84,DEmas_84,VTmag_84,e_RAmas_84,e_DEmas_84,pmRA_84,
+ pmDE_84,e_pmRA_84,e_pmDE_84,Pr_84
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6514.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
89 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6514.dat')
write(6,*) '....Loading file: pm/ngc6514.dat'
do i__=1,56
read(1,'(A76)')ar__88
read(ar__88,89)
+ RAmas_85,DEmas_85,VTmag_85,e_RAmas_85,e_DEmas_85,pmRA_85,
+ pmDE_85,e_pmRA_85,e_pmDE_85,Pr_85
c ..............Just test output...........
write(6,89)
+ RAmas_85,DEmas_85,VTmag_85,e_RAmas_85,e_DEmas_85,pmRA_85,
+ pmDE_85,e_pmRA_85,e_pmDE_85,Pr_85
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6546.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
90 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6546.dat')
write(6,*) '....Loading file: pm/ngc6546.dat'
do i__=1,43
read(1,'(A76)')ar__89
read(ar__89,90)
+ RAmas_86,DEmas_86,VTmag_86,e_RAmas_86,e_DEmas_86,pmRA_86,
+ pmDE_86,e_pmRA_86,e_pmDE_86,Pr_86
c ..............Just test output...........
write(6,90)
+ RAmas_86,DEmas_86,VTmag_86,e_RAmas_86,e_DEmas_86,pmRA_86,
+ pmDE_86,e_pmRA_86,e_pmDE_86,Pr_86
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6633.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
91 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6633.dat')
write(6,*) '....Loading file: pm/ngc6633.dat'
do i__=1,85
read(1,'(A76)')ar__90
read(ar__90,91)
+ RAmas_87,DEmas_87,VTmag_87,e_RAmas_87,e_DEmas_87,pmRA_87,
+ pmDE_87,e_pmRA_87,e_pmDE_87,Pr_87
c ..............Just test output...........
write(6,91)
+ RAmas_87,DEmas_87,VTmag_87,e_RAmas_87,e_DEmas_87,pmRA_87,
+ pmDE_87,e_pmRA_87,e_pmDE_87,Pr_87
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6709.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
92 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6709.dat')
write(6,*) '....Loading file: pm/ngc6709.dat'
do i__=1,50
read(1,'(A76)')ar__91
read(ar__91,92)
+ RAmas_88,DEmas_88,VTmag_88,e_RAmas_88,e_DEmas_88,pmRA_88,
+ pmDE_88,e_pmRA_88,e_pmDE_88,Pr_88
c ..............Just test output...........
write(6,92)
+ RAmas_88,DEmas_88,VTmag_88,e_RAmas_88,e_DEmas_88,pmRA_88,
+ pmDE_88,e_pmRA_88,e_pmDE_88,Pr_88
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6716.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
93 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6716.dat')
write(6,*) '....Loading file: pm/ngc6716.dat'
do i__=1,23
read(1,'(A76)')ar__92
read(ar__92,93)
+ RAmas_89,DEmas_89,VTmag_89,e_RAmas_89,e_DEmas_89,pmRA_89,
+ pmDE_89,e_pmRA_89,e_pmDE_89,Pr_89
c ..............Just test output...........
write(6,93)
+ RAmas_89,DEmas_89,VTmag_89,e_RAmas_89,e_DEmas_89,pmRA_89,
+ pmDE_89,e_pmRA_89,e_pmDE_89,Pr_89
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6885.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
94 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6885.dat')
write(6,*) '....Loading file: pm/ngc6885.dat'
do i__=1,46
read(1,'(A76)')ar__93
read(ar__93,94)
+ RAmas_90,DEmas_90,VTmag_90,e_RAmas_90,e_DEmas_90,pmRA_90,
+ pmDE_90,e_pmRA_90,e_pmDE_90,Pr_90
c ..............Just test output...........
write(6,94)
+ RAmas_90,DEmas_90,VTmag_90,e_RAmas_90,e_DEmas_90,pmRA_90,
+ pmDE_90,e_pmRA_90,e_pmDE_90,Pr_90
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc6940.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
95 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc6940.dat')
write(6,*) '....Loading file: pm/ngc6940.dat'
do i__=1,128
read(1,'(A76)')ar__94
read(ar__94,95)
+ RAmas_91,DEmas_91,VTmag_91,e_RAmas_91,e_DEmas_91,pmRA_91,
+ pmDE_91,e_pmRA_91,e_pmDE_91,Pr_91
c ..............Just test output...........
write(6,95)
+ RAmas_91,DEmas_91,VTmag_91,e_RAmas_91,e_DEmas_91,pmRA_91,
+ pmDE_91,e_pmRA_91,e_pmDE_91,Pr_91
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc7063.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
96 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc7063.dat')
write(6,*) '....Loading file: pm/ngc7063.dat'
do i__=1,29
read(1,'(A76)')ar__95
read(ar__95,96)
+ RAmas_92,DEmas_92,VTmag_92,e_RAmas_92,e_DEmas_92,pmRA_92,
+ pmDE_92,e_pmRA_92,e_pmDE_92,Pr_92
c ..............Just test output...........
write(6,96)
+ RAmas_92,DEmas_92,VTmag_92,e_RAmas_92,e_DEmas_92,pmRA_92,
+ pmDE_92,e_pmRA_92,e_pmDE_92,Pr_92
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc7092.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
97 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc7092.dat')
write(6,*) '....Loading file: pm/ngc7092.dat'
do i__=1,27
read(1,'(A76)')ar__96
read(ar__96,97)
+ RAmas_93,DEmas_93,VTmag_93,e_RAmas_93,e_DEmas_93,pmRA_93,
+ pmDE_93,e_pmRA_93,e_pmDE_93,Pr_93
c ..............Just test output...........
write(6,97)
+ RAmas_93,DEmas_93,VTmag_93,e_RAmas_93,e_DEmas_93,pmRA_93,
+ pmDE_93,e_pmRA_93,e_pmDE_93,Pr_93
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc7160.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
98 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc7160.dat')
write(6,*) '....Loading file: pm/ngc7160.dat'
do i__=1,20
read(1,'(A76)')ar__97
read(ar__97,98)
+ RAmas_94,DEmas_94,VTmag_94,e_RAmas_94,e_DEmas_94,pmRA_94,
+ pmDE_94,e_pmRA_94,e_pmDE_94,Pr_94
c ..............Just test output...........
write(6,98)
+ RAmas_94,DEmas_94,VTmag_94,e_RAmas_94,e_DEmas_94,pmRA_94,
+ pmDE_94,e_pmRA_94,e_pmDE_94,Pr_94
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc7209.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
99 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc7209.dat')
write(6,*) '....Loading file: pm/ngc7209.dat'
do i__=1,72
read(1,'(A76)')ar__98
read(ar__98,99)
+ RAmas_95,DEmas_95,VTmag_95,e_RAmas_95,e_DEmas_95,pmRA_95,
+ pmDE_95,e_pmRA_95,e_pmDE_95,Pr_95
c ..............Just test output...........
write(6,99)
+ RAmas_95,DEmas_95,VTmag_95,e_RAmas_95,e_DEmas_95,pmRA_95,
+ pmDE_95,e_pmRA_95,e_pmDE_95,Pr_95
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc7243.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
100 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc7243.dat')
write(6,*) '....Loading file: pm/ngc7243.dat'
do i__=1,133
read(1,'(A76)')ar__99
read(ar__99,100)
+ RAmas_96,DEmas_96,VTmag_96,e_RAmas_96,e_DEmas_96,pmRA_96,
+ pmDE_96,e_pmRA_96,e_pmDE_96,Pr_96
c ..............Just test output...........
write(6,100)
+ RAmas_96,DEmas_96,VTmag_96,e_RAmas_96,e_DEmas_96,pmRA_96,
+ pmDE_96,e_pmRA_96,e_pmDE_96,Pr_96
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ngc752.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
101 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ngc752.dat')
write(6,*) '....Loading file: pm/ngc752.dat'
do i__=1,268
read(1,'(A76)')ar__100
read(ar__100,101)
+ RAmas_97,DEmas_97,VTmag_97,e_RAmas_97,e_DEmas_97,pmRA_97,
+ pmDE_97,e_pmRA_97,e_pmDE_97,Pr_97
c ..............Just test output...........
write(6,101)
+ RAmas_97,DEmas_97,VTmag_97,e_RAmas_97,e_DEmas_97,pmRA_97,
+ pmDE_97,e_pmRA_97,e_pmDE_97,Pr_97
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/pismis4.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
102 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/pismis4.dat')
write(6,*) '....Loading file: pm/pismis4.dat'
do i__=1,58
read(1,'(A76)')ar__101
read(ar__101,102)
+ RAmas_98,DEmas_98,VTmag_98,e_RAmas_98,e_DEmas_98,pmRA_98,
+ pmDE_98,e_pmRA_98,e_pmDE_98,Pr_98
c ..............Just test output...........
write(6,102)
+ RAmas_98,DEmas_98,VTmag_98,e_RAmas_98,e_DEmas_98,pmRA_98,
+ pmDE_98,e_pmRA_98,e_pmDE_98,Pr_98
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ros5.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
103 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ros5.dat')
write(6,*) '....Loading file: pm/ros5.dat'
do i__=1,229
read(1,'(A76)')ar__102
read(ar__102,103)
+ RAmas_99,DEmas_99,VTmag_99,e_RAmas_99,e_DEmas_99,pmRA_99,
+ pmDE_99,e_pmRA_99,e_pmDE_99,Pr_99
c ..............Just test output...........
write(6,103)
+ RAmas_99,DEmas_99,VTmag_99,e_RAmas_99,e_DEmas_99,pmRA_99,
+ pmDE_99,e_pmRA_99,e_pmDE_99,Pr_99
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/rup119.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
104 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/rup119.dat')
write(6,*) '....Loading file: pm/rup119.dat'
do i__=1,31
read(1,'(A76)')ar__103
read(ar__103,104)
+ RAmas_100,DEmas_100,VTmag_100,e_RAmas_100,e_DEmas_100,
+ pmRA_100,pmDE_100,e_pmRA_100,e_pmDE_100,Pr_100
c ..............Just test output...........
write(6,104)
+ RAmas_100,DEmas_100,VTmag_100,e_RAmas_100,e_DEmas_100,
+ pmRA_100,pmDE_100,e_pmRA_100,e_pmDE_100,Pr_100
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/rup147.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
105 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/rup147.dat')
write(6,*) '....Loading file: pm/rup147.dat'
do i__=1,56
read(1,'(A76)')ar__104
read(ar__104,105)
+ RAmas_101,DEmas_101,VTmag_101,e_RAmas_101,e_DEmas_101,
+ pmRA_101,pmDE_101,e_pmRA_101,e_pmDE_101,Pr_101
c ..............Just test output...........
write(6,105)
+ RAmas_101,DEmas_101,VTmag_101,e_RAmas_101,e_DEmas_101,
+ pmRA_101,pmDE_101,e_pmRA_101,e_pmDE_101,Pr_101
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/rup98.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
106 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/rup98.dat')
write(6,*) '....Loading file: pm/rup98.dat'
do i__=1,60
read(1,'(A76)')ar__105
read(ar__105,106)
+ RAmas_102,DEmas_102,VTmag_102,e_RAmas_102,e_DEmas_102,
+ pmRA_102,pmDE_102,e_pmRA_102,e_pmDE_102,Pr_102
c ..............Just test output...........
write(6,106)
+ RAmas_102,DEmas_102,VTmag_102,e_RAmas_102,e_DEmas_102,
+ pmRA_102,pmDE_102,e_pmRA_102,e_pmDE_102,Pr_102
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/ste1.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
107 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/ste1.dat')
write(6,*) '....Loading file: pm/ste1.dat'
do i__=1,35
read(1,'(A76)')ar__106
read(ar__106,107)
+ RAmas_103,DEmas_103,VTmag_103,e_RAmas_103,e_DEmas_103,
+ pmRA_103,pmDE_103,e_pmRA_103,e_pmDE_103,Pr_103
c ..............Just test output...........
write(6,107)
+ RAmas_103,DEmas_103,VTmag_103,e_RAmas_103,e_DEmas_103,
+ pmRA_103,pmDE_103,e_pmRA_103,e_pmDE_103,Pr_103
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/stock10.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
108 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/stock10.dat')
write(6,*) '....Loading file: pm/stock10.dat'
do i__=1,94
read(1,'(A76)')ar__107
read(ar__107,108)
+ RAmas_104,DEmas_104,VTmag_104,e_RAmas_104,e_DEmas_104,
+ pmRA_104,pmDE_104,e_pmRA_104,e_pmDE_104,Pr_104
c ..............Just test output...........
write(6,108)
+ RAmas_104,DEmas_104,VTmag_104,e_RAmas_104,e_DEmas_104,
+ pmRA_104,pmDE_104,e_pmRA_104,e_pmDE_104,Pr_104
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/stock2.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
109 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/stock2.dat')
write(6,*) '....Loading file: pm/stock2.dat'
do i__=1,108
read(1,'(A76)')ar__108
read(ar__108,109)
+ RAmas_105,DEmas_105,VTmag_105,e_RAmas_105,e_DEmas_105,
+ pmRA_105,pmDE_105,e_pmRA_105,e_pmDE_105,Pr_105
c ..............Just test output...........
write(6,109)
+ RAmas_105,DEmas_105,VTmag_105,e_RAmas_105,e_DEmas_105,
+ pmRA_105,pmDE_105,e_pmRA_105,e_pmDE_105,Pr_105
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/tru10.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
110 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/tru10.dat')
write(6,*) '....Loading file: pm/tru10.dat'
do i__=1,44
read(1,'(A76)')ar__109
read(ar__109,110)
+ RAmas_106,DEmas_106,VTmag_106,e_RAmas_106,e_DEmas_106,
+ pmRA_106,pmDE_106,e_pmRA_106,e_pmDE_106,Pr_106
c ..............Just test output...........
write(6,110)
+ RAmas_106,DEmas_106,VTmag_106,e_RAmas_106,e_DEmas_106,
+ pmRA_106,pmDE_106,e_pmRA_106,e_pmDE_106,Pr_106
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/tru2.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
111 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/tru2.dat')
write(6,*) '....Loading file: pm/tru2.dat'
do i__=1,31
read(1,'(A76)')ar__110
read(ar__110,111)
+ RAmas_107,DEmas_107,VTmag_107,e_RAmas_107,e_DEmas_107,
+ pmRA_107,pmDE_107,e_pmRA_107,e_pmDE_107,Pr_107
c ..............Just test output...........
write(6,111)
+ RAmas_107,DEmas_107,VTmag_107,e_RAmas_107,e_DEmas_107,
+ pmRA_107,pmDE_107,e_pmRA_107,e_pmDE_107,Pr_107
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/tru37.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
112 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/tru37.dat')
write(6,*) '....Loading file: pm/tru37.dat'
do i__=1,200
read(1,'(A76)')ar__111
read(ar__111,112)
+ RAmas_108,DEmas_108,VTmag_108,e_RAmas_108,e_DEmas_108,
+ pmRA_108,pmDE_108,e_pmRA_108,e_pmDE_108,Pr_108
c ..............Just test output...........
write(6,112)
+ RAmas_108,DEmas_108,VTmag_108,e_RAmas_108,e_DEmas_108,
+ pmRA_108,pmDE_108,e_pmRA_108,e_pmDE_108,Pr_108
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/vdbh23.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
113 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/vdbh23.dat')
write(6,*) '....Loading file: pm/vdbh23.dat'
do i__=1,65
read(1,'(A76)')ar__112
read(ar__112,113)
+ RAmas_109,DEmas_109,VTmag_109,e_RAmas_109,e_DEmas_109,
+ pmRA_109,pmDE_109,e_pmRA_109,e_pmDE_109,Pr_109
c ..............Just test output...........
write(6,113)
+ RAmas_109,DEmas_109,VTmag_109,e_RAmas_109,e_DEmas_109,
+ pmRA_109,pmDE_109,e_pmRA_109,e_pmDE_109,Pr_109
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/vdbh34.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
114 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/vdbh34.dat')
write(6,*) '....Loading file: pm/vdbh34.dat'
do i__=1,39
read(1,'(A76)')ar__113
read(ar__113,114)
+ RAmas_110,DEmas_110,VTmag_110,e_RAmas_110,e_DEmas_110,
+ pmRA_110,pmDE_110,e_pmRA_110,e_pmDE_110,Pr_110
c ..............Just test output...........
write(6,114)
+ RAmas_110,DEmas_110,VTmag_110,e_RAmas_110,e_DEmas_110,
+ pmRA_110,pmDE_110,e_pmRA_110,e_pmDE_110,Pr_110
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pm/vdbh99.dat' ! Proper motions and membership, by cluster
C Format for file interpretation
115 format(
+ I10,1X,I10,1X,F5.2,2X,I3,3X,I3,2X,F7.2,2X,F7.2,1X,F6.2,2X,
+ F6.2,2X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'pm/vdbh99.dat')
write(6,*) '....Loading file: pm/vdbh99.dat'
do i__=1,24
read(1,'(A76)')ar__114
read(ar__114,115)
+ RAmas_111,DEmas_111,VTmag_111,e_RAmas_111,e_DEmas_111,
+ pmRA_111,pmDE_111,e_pmRA_111,e_pmDE_111,Pr_111
c ..............Just test output...........
write(6,115)
+ RAmas_111,DEmas_111,VTmag_111,e_RAmas_111,e_DEmas_111,
+ pmRA_111,pmDE_111,e_pmRA_111,e_pmDE_111,Pr_111
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end