Conversion of standardized ReadMe file for
file /./ftp/cats/II/162 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.5, on 2013-May-22
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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. II/162 CCD search for Cepheids in Crux and Centaurus (Caldwell+, 1991)
*================================================================================
*A scanner CCD search for Cepheids and other variables in Crux and Centaurus.
* Caldwell J.A.R., Keane M.J., Schechter P.L.
* <Astron. J., 101, 1763 (1991)>
* =1991AJ....101.1763C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data1.dat' ! The complete list of probable variables
integer*4 nr__
parameter (nr__=19124) ! Number of records
character*79 ar__ ! Full-size record
real*8 RA_ (nr__) ! (deg) Right Ascension 1950
real*8 Dec (nr__) ! (deg) Declination 1950
integer*4 image (nr__) ! Image number
integer*4 no (nr__) ! Observed object within the image
integer*4 RAh (nr__) ! (h) Right Ascension, hours (1950)
integer*4 RAm (nr__) ! (min) Right Ascension, minutes (1950)
real*4 RAs (nr__) ! (s) Right Ascension, seconds (1950)
character*1 DE_ (nr__) ! Declination sign
integer*4 DEd (nr__) ! (deg) Declination, degrees (1950)
integer*4 DEm (nr__) ! (arcmin) Declination, minutes (1950)
real*4 DEs (nr__) ! (arcsec) Declination, seconds (1950)
real*4 Icmag (nr__) ! (mag) Cousins I magnitude
real*4 e_Icmag (nr__) ! (mag) *Formal uncertainty in I
real*8 JD_2440000 (nr__) ! (d) Modified Julian Date
real*4 x (nr__) ! (pix) *X position within the image
real*8 y (nr__) ! (pix) *Y position within the image
integer*4 class (nr__) ! *Object classification
integer*4 ID (nr__) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data2.dat' ! Observations with RA = 11:39:40 to 12:15:41 and
declination = -63:05:12 to -62:46:46 (1950)
integer*4 nr__1
parameter (nr__1=225052) ! Number of records
character*79 ar__1 ! Full-size record
real*8 RA__1 (nr__1) ! (deg) Right Ascension 1950
real*8 Dec_1 (nr__1) ! (deg) Declination 1950
integer*4 image_1 (nr__1) ! Image number
integer*4 no_1 (nr__1) ! Observed object within the image
integer*4 RAh_1 (nr__1) ! (h) Right Ascension, hours (1950)
integer*4 RAm_1 (nr__1) ! (min) Right Ascension, minutes (1950)
real*4 RAs_1 (nr__1) ! (s) Right Ascension, seconds (1950)
character*1 DE__1 (nr__1) ! Declination sign
integer*4 DEd_1 (nr__1) ! (deg) Declination, degrees (1950)
integer*4 DEm_1 (nr__1) ! (arcmin) Declination, minutes (1950)
real*4 DEs_1 (nr__1) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_1 (nr__1) ! (mag) Cousins I magnitude
real*4 e_Icmag_1 (nr__1) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_1(nr__1) ! (d) Modified Julian Date
real*4 x_1 (nr__1) ! (pix) *X position within the image
real*8 y_1 (nr__1) ! (pix) *Y position within the image
integer*4 class_1 (nr__1) ! *Object classification
integer*4 ID_1 (nr__1) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data3.dat' ! Observations with RA = 11:39:40 to 12:15:12 and
declination = -62:46:47 to -62:27:26 (1950)
integer*4 nr__2
parameter (nr__2=207787) ! Number of records
character*79 ar__2 ! Full-size record
real*8 RA__2 (nr__2) ! (deg) Right Ascension 1950
real*8 Dec_2 (nr__2) ! (deg) Declination 1950
integer*4 image_2 (nr__2) ! Image number
integer*4 no_2 (nr__2) ! Observed object within the image
integer*4 RAh_2 (nr__2) ! (h) Right Ascension, hours (1950)
integer*4 RAm_2 (nr__2) ! (min) Right Ascension, minutes (1950)
real*4 RAs_2 (nr__2) ! (s) Right Ascension, seconds (1950)
character*1 DE__2 (nr__2) ! Declination sign
integer*4 DEd_2 (nr__2) ! (deg) Declination, degrees (1950)
integer*4 DEm_2 (nr__2) ! (arcmin) Declination, minutes (1950)
real*4 DEs_2 (nr__2) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_2 (nr__2) ! (mag) Cousins I magnitude
real*4 e_Icmag_2 (nr__2) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_2(nr__2) ! (d) Modified Julian Date
real*4 x_2 (nr__2) ! (pix) *X position within the image
real*8 y_2 (nr__2) ! (pix) *Y position within the image
integer*4 class_2 (nr__2) ! *Object classification
integer*4 ID_2 (nr__2) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data4.dat' ! Observations with RA = 11:39:40 to 12:14:44 and
declination = -62:27:27 to -62:03:11 (1950)
integer*4 nr__3
parameter (nr__3=254005) ! Number of records
character*79 ar__3 ! Full-size record
real*8 RA__3 (nr__3) ! (deg) Right Ascension 1950
real*8 Dec_3 (nr__3) ! (deg) Declination 1950
integer*4 image_3 (nr__3) ! Image number
integer*4 no_3 (nr__3) ! Observed object within the image
integer*4 RAh_3 (nr__3) ! (h) Right Ascension, hours (1950)
integer*4 RAm_3 (nr__3) ! (min) Right Ascension, minutes (1950)
real*4 RAs_3 (nr__3) ! (s) Right Ascension, seconds (1950)
character*1 DE__3 (nr__3) ! Declination sign
integer*4 DEd_3 (nr__3) ! (deg) Declination, degrees (1950)
integer*4 DEm_3 (nr__3) ! (arcmin) Declination, minutes (1950)
real*4 DEs_3 (nr__3) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_3 (nr__3) ! (mag) Cousins I magnitude
real*4 e_Icmag_3 (nr__3) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_3(nr__3) ! (d) Modified Julian Date
real*4 x_3 (nr__3) ! (pix) *X position within the image
real*8 y_3 (nr__3) ! (pix) *Y position within the image
integer*4 class_3 (nr__3) ! *Object classification
integer*4 ID_3 (nr__3) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data5.dat' ! Observations with RA = 11:39:40 to 12:14:16 and
declination = -62:03:12 to -61:47:46 (1950)
integer*4 nr__4
parameter (nr__4=175070) ! Number of records
character*79 ar__4 ! Full-size record
real*8 RA__4 (nr__4) ! (deg) Right Ascension 1950
real*8 Dec_4 (nr__4) ! (deg) Declination 1950
integer*4 image_4 (nr__4) ! Image number
integer*4 no_4 (nr__4) ! Observed object within the image
integer*4 RAh_4 (nr__4) ! (h) Right Ascension, hours (1950)
integer*4 RAm_4 (nr__4) ! (min) Right Ascension, minutes (1950)
real*4 RAs_4 (nr__4) ! (s) Right Ascension, seconds (1950)
character*1 DE__4 (nr__4) ! Declination sign
integer*4 DEd_4 (nr__4) ! (deg) Declination, degrees (1950)
integer*4 DEm_4 (nr__4) ! (arcmin) Declination, minutes (1950)
real*4 DEs_4 (nr__4) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_4 (nr__4) ! (mag) Cousins I magnitude
real*4 e_Icmag_4 (nr__4) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_4(nr__4) ! (d) Modified Julian Date
real*4 x_4 (nr__4) ! (pix) *X position within the image
real*8 y_4 (nr__4) ! (pix) *Y position within the image
integer*4 class_4 (nr__4) ! *Object classification
integer*4 ID_4 (nr__4) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data6.dat' ! Observations with RA = 11:39:39 to 12:13:48 and
declination = -61:47:47 to -61:24:46 (1950)
integer*4 nr__5
parameter (nr__5=187418) ! Number of records
character*79 ar__5 ! Full-size record
real*8 RA__5 (nr__5) ! (deg) Right Ascension 1950
real*8 Dec_5 (nr__5) ! (deg) Declination 1950
integer*4 image_5 (nr__5) ! Image number
integer*4 no_5 (nr__5) ! Observed object within the image
integer*4 RAh_5 (nr__5) ! (h) Right Ascension, hours (1950)
integer*4 RAm_5 (nr__5) ! (min) Right Ascension, minutes (1950)
real*4 RAs_5 (nr__5) ! (s) Right Ascension, seconds (1950)
character*1 DE__5 (nr__5) ! Declination sign
integer*4 DEd_5 (nr__5) ! (deg) Declination, degrees (1950)
integer*4 DEm_5 (nr__5) ! (arcmin) Declination, minutes (1950)
real*4 DEs_5 (nr__5) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_5 (nr__5) ! (mag) Cousins I magnitude
real*4 e_Icmag_5 (nr__5) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_5(nr__5) ! (d) Modified Julian Date
real*4 x_5 (nr__5) ! (pix) *X position within the image
real*8 y_5 (nr__5) ! (pix) *Y position within the image
integer*4 class_5 (nr__5) ! *Object classification
integer*4 ID_5 (nr__5) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data7.dat' ! Observations with RA = 13:10:14 to 13:46:17 and
declination = -63:06:09 to -62:54:03 (1950)
integer*4 nr__6
parameter (nr__6=224071) ! Number of records
character*79 ar__6 ! Full-size record
real*8 RA__6 (nr__6) ! (deg) Right Ascension 1950
real*8 Dec_6 (nr__6) ! (deg) Declination 1950
integer*4 image_6 (nr__6) ! Image number
integer*4 no_6 (nr__6) ! Observed object within the image
integer*4 RAh_6 (nr__6) ! (h) Right Ascension, hours (1950)
integer*4 RAm_6 (nr__6) ! (min) Right Ascension, minutes (1950)
real*4 RAs_6 (nr__6) ! (s) Right Ascension, seconds (1950)
character*1 DE__6 (nr__6) ! Declination sign
integer*4 DEd_6 (nr__6) ! (deg) Declination, degrees (1950)
integer*4 DEm_6 (nr__6) ! (arcmin) Declination, minutes (1950)
real*4 DEs_6 (nr__6) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_6 (nr__6) ! (mag) Cousins I magnitude
real*4 e_Icmag_6 (nr__6) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_6(nr__6) ! (d) Modified Julian Date
real*4 x_6 (nr__6) ! (pix) *X position within the image
real*8 y_6 (nr__6) ! (pix) *Y position within the image
integer*4 class_6 (nr__6) ! *Object classification
integer*4 ID_6 (nr__6) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data8.dat' ! Observations with RA = 13:10:15 to 13:45:52 and
declination = -62:53:19 to -62:36:32 (1950)
integer*4 nr__7
parameter (nr__7=182283) ! Number of records
character*79 ar__7 ! Full-size record
real*8 RA__7 (nr__7) ! (deg) Right Ascension 1950
real*8 Dec_7 (nr__7) ! (deg) Declination 1950
integer*4 image_7 (nr__7) ! Image number
integer*4 no_7 (nr__7) ! Observed object within the image
integer*4 RAh_7 (nr__7) ! (h) Right Ascension, hours (1950)
integer*4 RAm_7 (nr__7) ! (min) Right Ascension, minutes (1950)
real*4 RAs_7 (nr__7) ! (s) Right Ascension, seconds (1950)
character*1 DE__7 (nr__7) ! Declination sign
integer*4 DEd_7 (nr__7) ! (deg) Declination, degrees (1950)
integer*4 DEm_7 (nr__7) ! (arcmin) Declination, minutes (1950)
real*4 DEs_7 (nr__7) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_7 (nr__7) ! (mag) Cousins I magnitude
real*4 e_Icmag_7 (nr__7) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_7(nr__7) ! (d) Modified Julian Date
real*4 x_7 (nr__7) ! (pix) *X position within the image
real*8 y_7 (nr__7) ! (pix) *Y position within the image
integer*4 class_7 (nr__7) ! *Object classification
integer*4 ID_7 (nr__7) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data9.dat' ! Observations with RA = 13:10:15 to 13:45:28 and
declination = -62:35:49 to -62:23:27 (1950)
integer*4 nr__8
parameter (nr__8=80086) ! Number of records
character*79 ar__8 ! Full-size record
real*8 RA__8 (nr__8) ! (deg) Right Ascension 1950
real*8 Dec_8 (nr__8) ! (deg) Declination 1950
integer*4 image_8 (nr__8) ! Image number
integer*4 no_8 (nr__8) ! Observed object within the image
integer*4 RAh_8 (nr__8) ! (h) Right Ascension, hours (1950)
integer*4 RAm_8 (nr__8) ! (min) Right Ascension, minutes (1950)
real*4 RAs_8 (nr__8) ! (s) Right Ascension, seconds (1950)
character*1 DE__8 (nr__8) ! Declination sign
integer*4 DEd_8 (nr__8) ! (deg) Declination, degrees (1950)
integer*4 DEm_8 (nr__8) ! (arcmin) Declination, minutes (1950)
real*4 DEs_8 (nr__8) ! (arcsec) Declination, seconds (1950)
real*4 Icmag_8 (nr__8) ! (mag) Cousins I magnitude
real*4 e_Icmag_8 (nr__8) ! (mag) *Formal uncertainty in I
real*8 JD_2440000_8(nr__8) ! (d) Modified Julian Date
real*4 x_8 (nr__8) ! (pix) *X position within the image
real*8 y_8 (nr__8) ! (pix) *Y position within the image
integer*4 class_8 (nr__8) ! *Object classification
integer*4 ID_8 (nr__8) ! *Unique identifier un source catalog
*Note on e_Icmag:
* Stars with centroids within 12 pixels of the beginning of the image
* (which, unfortunately, includes the first stars on the variable star
* list) may have suffered from a software bug in the data acquisition
* and may have errors bigger than the formal errors.
*Note on x and y:
* The pixels are not square. They are 0.45" in the x direction and
* either 3.7" or 1.85" in the y direction. The latter are less frequent
* and go somewhat fainter than the lower resolution observations.
*Note on class:
* 1 = single star
* 2 = galaxy
* 3 = one component of a multiple star
* 4 = an object for which the classification is uncertain
* 5 = too few pixels to determine classification or for which a position
* was derived beyond the boundaries of the image or fit subraster
* 6 = should not be in the catalog
* 7 = too faint to attempt classification
* 8 = could not be modeled (too bright or cosmic ray) and has been excised
*Note on ID:
* This is a sequence number assigned for internal use, the first digit
* being assigned according to the datafile number.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! High amplitude, short-period variables found
in this survey
integer*4 nr__9
parameter (nr__9=242) ! Number of records
character*69 ar__9 ! Full-size record
real*8 RA__9 (nr__9) ! (deg) Right Ascension 1950
real*8 Dec_9 (nr__9) ! (deg) Declination 1950
character*10 Name (nr__9) ! Variable name
character*1 m_Name (nr__9) ! Multiplicity index on Name
integer*4 RAh_9 (nr__9) ! (h) Right ascension 1950
integer*4 RAm_9 (nr__9) ! (min) Right ascension 1950
real*4 RAs_9 (nr__9) ! (s) Right ascension 1950
character*1 DE__9 (nr__9) ! Declination sign
integer*4 DEd_9 (nr__9) ! (deg) Declination 1950
integer*4 DEm_9 (nr__9) ! (arcmin) Declination 1950
real*4 DEs_9 (nr__9) ! (arcsec) Declination 1950
real*4 Imag (nr__9) ! (mag) I (Cousins) magnitude
real*4 e_Imag (nr__9) ! (mag) ? rms uncertainty on Imag
character*20 Notes (nr__9) ! Notes (1)
*Note (1):
* 1. 1st rank Cepheid candidate.
* 2. 2nd rank Cepheid candidate.
* 3. Possible eclipse.
* 4. Possible LPV.
* 5. Additional photometry obtained 1990 Feb-Apr.
* 6. Variable is also identified as an IRAS 12{mu} source, see Table 6
* 7. Variable is also identified as a carbon star, see Table 7
* Note: the remarks in table 5 are in bytes 49-61.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Long-period variables found in this survey
integer*4 nr__10
parameter (nr__10=270) ! Number of records
character*68 ar__10 ! Full-size record
real*8 RA__10 (nr__10) ! (deg) Right Ascension 1950
real*8 Dec_10 (nr__10) ! (deg) Declination 1950
character*10 Name_1 (nr__10) ! Variable name
character*1 m_Name_1 (nr__10) ! Multiplicity index on Name
integer*4 RAh_10 (nr__10) ! (h) Right ascension 1950
integer*4 RAm_10 (nr__10) ! (min) Right ascension 1950
real*4 RAs_10 (nr__10) ! (s) Right ascension 1950
character*1 DE__10 (nr__10) ! Declination sign
integer*4 DEd_10 (nr__10) ! (deg) Declination 1950
integer*4 DEm_10 (nr__10) ! (arcmin) Declination 1950
real*4 DEs_10 (nr__10) ! (arcsec) Declination 1950
real*4 Imag_1 (nr__10) ! (mag) I (Cousins) magnitude
real*4 e_Imag_1 (nr__10) ! (mag) ? rms uncertainty on Imag
character*20 Notes_1 (nr__10) ! Notes (1)
*Note (1):
* 1. 1st rank Cepheid candidate.
* 2. 2nd rank Cepheid candidate.
* 3. Possible eclipse.
* 4. Possible LPV.
* 5. Additional photometry obtained 1990 Feb-Apr.
* 6. Variable is also identified as an IRAS 12{mu} source, see Table 6
* 7. Variable is also identified as a carbon star, see Table 7
* Note: the remarks in table 5 are in bytes 49-61.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Variable stars identified with IRAS 12 {mu}m
sources
integer*4 nr__11
parameter (nr__11=127) ! Number of records
character*64 ar__11 ! Full-size record
real*8 RA__11 (nr__11) ! (deg) Right Ascension 1950
real*8 Dec_11 (nr__11) ! (deg) Declination 1950
character*10 Name_2 (nr__11) ! Variable name
integer*4 RAh_11 (nr__11) ! (h) Right ascension 1950
integer*4 RAm_11 (nr__11) ! (min) Right ascension 1950
real*4 RAs_11 (nr__11) ! (s) Right ascension 1950
character*1 DE__11 (nr__11) ! Declination sign
integer*4 DEd_11 (nr__11) ! (deg) Declination 1950
integer*4 DEm_11 (nr__11) ! (arcmin) Declination 1950
real*4 DEs_11 (nr__11) ! (arcsec) Declination 1950
real*4 Imag_2 (nr__11) ! (mag) I (Cousins) magnitude
character*10 IRAS (nr__11) ! IRAS source name
character*11 Notes_2 (nr__11) ! Notes (1)
*Note (1):
* 1. Variable was classified as LPV and is also listed in Table 5.
* 2. Variable was classified as short-period variable and is also
* listed in Table 4. Likely a long period variable observed near
* minimum or maximum light.
* 3. Object is also identified as a carbon star, see Table 7
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! *The ABCS carbon stars detected as variables
in this survey
integer*4 nr__12
parameter (nr__12=18) ! Number of records
character*54 ar__12 ! Full-size record
real*8 RA__12 (nr__12) ! (deg) Right Ascension 1950
real*8 Dec_12 (nr__12) ! (deg) Declination 1950
character*5 ABCS (nr__12) ! Aaronsom C stars (1)
character*10 Name_3 (nr__12) ! Variable star name
integer*4 RAh_12 (nr__12) ! (h) Right ascension 1950
integer*4 RAm_12 (nr__12) ! (min) Right ascension 1950
real*4 RAs_12 (nr__12) ! (s) Right ascension 1950
character*1 DE__12 (nr__12) ! Declination sign
integer*4 DEd_12 (nr__12) ! (deg) Declination 1950
integer*4 DEm_12 (nr__12) ! (arcmin) Declination 1950
real*4 DEs_12 (nr__12) ! (arcsec) Declination 1950
character*13 Notes_3 (nr__12) ! Notes (2)
*Note (1): Aaronsom M. et al., 1989ApJS...70..637A
*Note (2):
* 1. Classified as a LPV, see Table 5.
* 2. Also identified with an IRAS 12{mu} source, see Table 6.
C=============================================================================
C Loading file 'data1.dat' ! The complete list of probable variables
C Format for file interpretation
1 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data1.dat', status='old')
write(6,*) '....Loading file: data1.dat'
do i__=1,19124
read(1,'(A79)')ar__
read(ar__,1)
+ image(i__),no(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),Icmag(i__),e_Icmag(i__),
+ JD_2440000(i__),x(i__),y(i__),class(i__),ID(i__)
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_(i__) = RAh(i__)
if(RAh(i__) .GE. 0) RA_(i__)=RAh(i__)*15.
if(RAm(i__) .GE. 0) RA_(i__)=RA_(i__)+RAm(i__)/4.
if(RAs(i__) .GE. 0) RA_(i__)=RA_(i__)+RAs(i__)/240.
Dec(i__) = DEd(i__)
if(DEm(i__) .GE. 0) Dec(i__)=Dec(i__)+DEm(i__)/60.
if(DEs(i__) .GE. 0) Dec(i__)=Dec(i__)+DEs(i__)/3600.
if(DE_(i__).EQ.'-'.AND.Dec(i__).GE.0) Dec(i__)=-Dec(i__)
c ..............Just test output...........
write(6,1)
+ image(i__),no(i__),RAh(i__),RAm(i__),RAs(i__),DE_(i__),
+ DEd(i__),DEm(i__),DEs(i__),Icmag(i__),e_Icmag(i__),
+ JD_2440000(i__),x(i__),y(i__),class(i__),ID(i__)
write(6,'(6H Pos: 2F8.4)') RA_(i__),Dec(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data2.dat' ! Observations with RA = 11:39:40 to 12:15:41 and
* declination = -63:05:12 to -62:46:46 (1950)
C Format for file interpretation
2 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data2.dat', status='old')
write(6,*) '....Loading file: data2.dat'
do i__=1,225052
read(1,'(A79)')ar__1
read(ar__1,2)
+ image_1(i__),no_1(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),
+ DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__),Icmag_1(i__),
+ e_Icmag_1(i__),JD_2440000_1(i__),x_1(i__),y_1(i__),
+ class_1(i__),ID_1(i__)
c Derive coordinates RA__1 and Dec_1 from input data
c (RA__1 and Dec_1 are set to rNULL_ when unknown)
RA__1(i__) = RAh_1(i__)
if(RAh_1(i__) .GE. 0) RA__1(i__)=RAh_1(i__)*15.
if(RAm_1(i__) .GE. 0) RA__1(i__)=RA__1(i__)+RAm_1(i__)/4.
if(RAs_1(i__) .GE. 0) RA__1(i__)=RA__1(i__)+RAs_1(i__)/240.
Dec_1(i__) = DEd_1(i__)
if(DEm_1(i__) .GE. 0) Dec_1(i__)=Dec_1(i__)+DEm_1(i__)/60.
if(DEs_1(i__) .GE. 0) Dec_1(i__)=Dec_1(i__)+DEs_1(i__)/3600.
if(DE__1(i__).EQ.'-'.AND.Dec_1(i__).GE.0) Dec_1(i__)=-Dec_1(i__)
c ..............Just test output...........
write(6,2)
+ image_1(i__),no_1(i__),RAh_1(i__),RAm_1(i__),RAs_1(i__),
+ DE__1(i__),DEd_1(i__),DEm_1(i__),DEs_1(i__),Icmag_1(i__),
+ e_Icmag_1(i__),JD_2440000_1(i__),x_1(i__),y_1(i__),
+ class_1(i__),ID_1(i__)
write(6,'(6H Pos: 2F8.4)') RA__1(i__),Dec_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data3.dat' ! Observations with RA = 11:39:40 to 12:15:12 and
* declination = -62:46:47 to -62:27:26 (1950)
C Format for file interpretation
3 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data3.dat', status='old')
write(6,*) '....Loading file: data3.dat'
do i__=1,207787
read(1,'(A79)')ar__2
read(ar__2,3)
+ image_2(i__),no_2(i__),RAh_2(i__),RAm_2(i__),RAs_2(i__),
+ DE__2(i__),DEd_2(i__),DEm_2(i__),DEs_2(i__),Icmag_2(i__),
+ e_Icmag_2(i__),JD_2440000_2(i__),x_2(i__),y_2(i__),
+ class_2(i__),ID_2(i__)
c Derive coordinates RA__2 and Dec_2 from input data
c (RA__2 and Dec_2 are set to rNULL_ when unknown)
RA__2(i__) = RAh_2(i__)
if(RAh_2(i__) .GE. 0) RA__2(i__)=RAh_2(i__)*15.
if(RAm_2(i__) .GE. 0) RA__2(i__)=RA__2(i__)+RAm_2(i__)/4.
if(RAs_2(i__) .GE. 0) RA__2(i__)=RA__2(i__)+RAs_2(i__)/240.
Dec_2(i__) = DEd_2(i__)
if(DEm_2(i__) .GE. 0) Dec_2(i__)=Dec_2(i__)+DEm_2(i__)/60.
if(DEs_2(i__) .GE. 0) Dec_2(i__)=Dec_2(i__)+DEs_2(i__)/3600.
if(DE__2(i__).EQ.'-'.AND.Dec_2(i__).GE.0) Dec_2(i__)=-Dec_2(i__)
c ..............Just test output...........
write(6,3)
+ image_2(i__),no_2(i__),RAh_2(i__),RAm_2(i__),RAs_2(i__),
+ DE__2(i__),DEd_2(i__),DEm_2(i__),DEs_2(i__),Icmag_2(i__),
+ e_Icmag_2(i__),JD_2440000_2(i__),x_2(i__),y_2(i__),
+ class_2(i__),ID_2(i__)
write(6,'(6H Pos: 2F8.4)') RA__2(i__),Dec_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data4.dat' ! Observations with RA = 11:39:40 to 12:14:44 and
* declination = -62:27:27 to -62:03:11 (1950)
C Format for file interpretation
4 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data4.dat', status='old')
write(6,*) '....Loading file: data4.dat'
do i__=1,254005
read(1,'(A79)')ar__3
read(ar__3,4)
+ image_3(i__),no_3(i__),RAh_3(i__),RAm_3(i__),RAs_3(i__),
+ DE__3(i__),DEd_3(i__),DEm_3(i__),DEs_3(i__),Icmag_3(i__),
+ e_Icmag_3(i__),JD_2440000_3(i__),x_3(i__),y_3(i__),
+ class_3(i__),ID_3(i__)
c Derive coordinates RA__3 and Dec_3 from input data
c (RA__3 and Dec_3 are set to rNULL_ when unknown)
RA__3(i__) = RAh_3(i__)
if(RAh_3(i__) .GE. 0) RA__3(i__)=RAh_3(i__)*15.
if(RAm_3(i__) .GE. 0) RA__3(i__)=RA__3(i__)+RAm_3(i__)/4.
if(RAs_3(i__) .GE. 0) RA__3(i__)=RA__3(i__)+RAs_3(i__)/240.
Dec_3(i__) = DEd_3(i__)
if(DEm_3(i__) .GE. 0) Dec_3(i__)=Dec_3(i__)+DEm_3(i__)/60.
if(DEs_3(i__) .GE. 0) Dec_3(i__)=Dec_3(i__)+DEs_3(i__)/3600.
if(DE__3(i__).EQ.'-'.AND.Dec_3(i__).GE.0) Dec_3(i__)=-Dec_3(i__)
c ..............Just test output...........
write(6,4)
+ image_3(i__),no_3(i__),RAh_3(i__),RAm_3(i__),RAs_3(i__),
+ DE__3(i__),DEd_3(i__),DEm_3(i__),DEs_3(i__),Icmag_3(i__),
+ e_Icmag_3(i__),JD_2440000_3(i__),x_3(i__),y_3(i__),
+ class_3(i__),ID_3(i__)
write(6,'(6H Pos: 2F8.4)') RA__3(i__),Dec_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data5.dat' ! Observations with RA = 11:39:40 to 12:14:16 and
* declination = -62:03:12 to -61:47:46 (1950)
C Format for file interpretation
5 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data5.dat', status='old')
write(6,*) '....Loading file: data5.dat'
do i__=1,175070
read(1,'(A79)')ar__4
read(ar__4,5)
+ image_4(i__),no_4(i__),RAh_4(i__),RAm_4(i__),RAs_4(i__),
+ DE__4(i__),DEd_4(i__),DEm_4(i__),DEs_4(i__),Icmag_4(i__),
+ e_Icmag_4(i__),JD_2440000_4(i__),x_4(i__),y_4(i__),
+ class_4(i__),ID_4(i__)
c Derive coordinates RA__4 and Dec_4 from input data
c (RA__4 and Dec_4 are set to rNULL_ when unknown)
RA__4(i__) = RAh_4(i__)
if(RAh_4(i__) .GE. 0) RA__4(i__)=RAh_4(i__)*15.
if(RAm_4(i__) .GE. 0) RA__4(i__)=RA__4(i__)+RAm_4(i__)/4.
if(RAs_4(i__) .GE. 0) RA__4(i__)=RA__4(i__)+RAs_4(i__)/240.
Dec_4(i__) = DEd_4(i__)
if(DEm_4(i__) .GE. 0) Dec_4(i__)=Dec_4(i__)+DEm_4(i__)/60.
if(DEs_4(i__) .GE. 0) Dec_4(i__)=Dec_4(i__)+DEs_4(i__)/3600.
if(DE__4(i__).EQ.'-'.AND.Dec_4(i__).GE.0) Dec_4(i__)=-Dec_4(i__)
c ..............Just test output...........
write(6,5)
+ image_4(i__),no_4(i__),RAh_4(i__),RAm_4(i__),RAs_4(i__),
+ DE__4(i__),DEd_4(i__),DEm_4(i__),DEs_4(i__),Icmag_4(i__),
+ e_Icmag_4(i__),JD_2440000_4(i__),x_4(i__),y_4(i__),
+ class_4(i__),ID_4(i__)
write(6,'(6H Pos: 2F8.4)') RA__4(i__),Dec_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data6.dat' ! Observations with RA = 11:39:39 to 12:13:48 and
* declination = -61:47:47 to -61:24:46 (1950)
C Format for file interpretation
6 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data6.dat', status='old')
write(6,*) '....Loading file: data6.dat'
do i__=1,187418
read(1,'(A79)')ar__5
read(ar__5,6)
+ image_5(i__),no_5(i__),RAh_5(i__),RAm_5(i__),RAs_5(i__),
+ DE__5(i__),DEd_5(i__),DEm_5(i__),DEs_5(i__),Icmag_5(i__),
+ e_Icmag_5(i__),JD_2440000_5(i__),x_5(i__),y_5(i__),
+ class_5(i__),ID_5(i__)
c Derive coordinates RA__5 and Dec_5 from input data
c (RA__5 and Dec_5 are set to rNULL_ when unknown)
RA__5(i__) = RAh_5(i__)
if(RAh_5(i__) .GE. 0) RA__5(i__)=RAh_5(i__)*15.
if(RAm_5(i__) .GE. 0) RA__5(i__)=RA__5(i__)+RAm_5(i__)/4.
if(RAs_5(i__) .GE. 0) RA__5(i__)=RA__5(i__)+RAs_5(i__)/240.
Dec_5(i__) = DEd_5(i__)
if(DEm_5(i__) .GE. 0) Dec_5(i__)=Dec_5(i__)+DEm_5(i__)/60.
if(DEs_5(i__) .GE. 0) Dec_5(i__)=Dec_5(i__)+DEs_5(i__)/3600.
if(DE__5(i__).EQ.'-'.AND.Dec_5(i__).GE.0) Dec_5(i__)=-Dec_5(i__)
c ..............Just test output...........
write(6,6)
+ image_5(i__),no_5(i__),RAh_5(i__),RAm_5(i__),RAs_5(i__),
+ DE__5(i__),DEd_5(i__),DEm_5(i__),DEs_5(i__),Icmag_5(i__),
+ e_Icmag_5(i__),JD_2440000_5(i__),x_5(i__),y_5(i__),
+ class_5(i__),ID_5(i__)
write(6,'(6H Pos: 2F8.4)') RA__5(i__),Dec_5(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data7.dat' ! Observations with RA = 13:10:14 to 13:46:17 and
* declination = -63:06:09 to -62:54:03 (1950)
C Format for file interpretation
7 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data7.dat', status='old')
write(6,*) '....Loading file: data7.dat'
do i__=1,224071
read(1,'(A79)')ar__6
read(ar__6,7)
+ image_6(i__),no_6(i__),RAh_6(i__),RAm_6(i__),RAs_6(i__),
+ DE__6(i__),DEd_6(i__),DEm_6(i__),DEs_6(i__),Icmag_6(i__),
+ e_Icmag_6(i__),JD_2440000_6(i__),x_6(i__),y_6(i__),
+ class_6(i__),ID_6(i__)
c Derive coordinates RA__6 and Dec_6 from input data
c (RA__6 and Dec_6 are set to rNULL_ when unknown)
RA__6(i__) = RAh_6(i__)
if(RAh_6(i__) .GE. 0) RA__6(i__)=RAh_6(i__)*15.
if(RAm_6(i__) .GE. 0) RA__6(i__)=RA__6(i__)+RAm_6(i__)/4.
if(RAs_6(i__) .GE. 0) RA__6(i__)=RA__6(i__)+RAs_6(i__)/240.
Dec_6(i__) = DEd_6(i__)
if(DEm_6(i__) .GE. 0) Dec_6(i__)=Dec_6(i__)+DEm_6(i__)/60.
if(DEs_6(i__) .GE. 0) Dec_6(i__)=Dec_6(i__)+DEs_6(i__)/3600.
if(DE__6(i__).EQ.'-'.AND.Dec_6(i__).GE.0) Dec_6(i__)=-Dec_6(i__)
c ..............Just test output...........
write(6,7)
+ image_6(i__),no_6(i__),RAh_6(i__),RAm_6(i__),RAs_6(i__),
+ DE__6(i__),DEd_6(i__),DEm_6(i__),DEs_6(i__),Icmag_6(i__),
+ e_Icmag_6(i__),JD_2440000_6(i__),x_6(i__),y_6(i__),
+ class_6(i__),ID_6(i__)
write(6,'(6H Pos: 2F8.4)') RA__6(i__),Dec_6(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data8.dat' ! Observations with RA = 13:10:15 to 13:45:52 and
* declination = -62:53:19 to -62:36:32 (1950)
C Format for file interpretation
8 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data8.dat', status='old')
write(6,*) '....Loading file: data8.dat'
do i__=1,182283
read(1,'(A79)')ar__7
read(ar__7,8)
+ image_7(i__),no_7(i__),RAh_7(i__),RAm_7(i__),RAs_7(i__),
+ DE__7(i__),DEd_7(i__),DEm_7(i__),DEs_7(i__),Icmag_7(i__),
+ e_Icmag_7(i__),JD_2440000_7(i__),x_7(i__),y_7(i__),
+ class_7(i__),ID_7(i__)
c Derive coordinates RA__7 and Dec_7 from input data
c (RA__7 and Dec_7 are set to rNULL_ when unknown)
RA__7(i__) = RAh_7(i__)
if(RAh_7(i__) .GE. 0) RA__7(i__)=RAh_7(i__)*15.
if(RAm_7(i__) .GE. 0) RA__7(i__)=RA__7(i__)+RAm_7(i__)/4.
if(RAs_7(i__) .GE. 0) RA__7(i__)=RA__7(i__)+RAs_7(i__)/240.
Dec_7(i__) = DEd_7(i__)
if(DEm_7(i__) .GE. 0) Dec_7(i__)=Dec_7(i__)+DEm_7(i__)/60.
if(DEs_7(i__) .GE. 0) Dec_7(i__)=Dec_7(i__)+DEs_7(i__)/3600.
if(DE__7(i__).EQ.'-'.AND.Dec_7(i__).GE.0) Dec_7(i__)=-Dec_7(i__)
c ..............Just test output...........
write(6,8)
+ image_7(i__),no_7(i__),RAh_7(i__),RAm_7(i__),RAs_7(i__),
+ DE__7(i__),DEd_7(i__),DEm_7(i__),DEs_7(i__),Icmag_7(i__),
+ e_Icmag_7(i__),JD_2440000_7(i__),x_7(i__),y_7(i__),
+ class_7(i__),ID_7(i__)
write(6,'(6H Pos: 2F8.4)') RA__7(i__),Dec_7(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'data9.dat' ! Observations with RA = 13:10:15 to 13:45:28 and
* declination = -62:35:49 to -62:23:27 (1950)
C Format for file interpretation
9 format(
+ I4,I4,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F6.3,1X,
+ F5.3,1X,F9.4,1X,F6.2,1X,F7.2,1X,I1,1X,I6)
C Effective file loading
open(unit=1,file='data9.dat', status='old')
write(6,*) '....Loading file: data9.dat'
do i__=1,80086
read(1,'(A79)')ar__8
read(ar__8,9)
+ image_8(i__),no_8(i__),RAh_8(i__),RAm_8(i__),RAs_8(i__),
+ DE__8(i__),DEd_8(i__),DEm_8(i__),DEs_8(i__),Icmag_8(i__),
+ e_Icmag_8(i__),JD_2440000_8(i__),x_8(i__),y_8(i__),
+ class_8(i__),ID_8(i__)
c Derive coordinates RA__8 and Dec_8 from input data
c (RA__8 and Dec_8 are set to rNULL_ when unknown)
RA__8(i__) = RAh_8(i__)
if(RAh_8(i__) .GE. 0) RA__8(i__)=RAh_8(i__)*15.
if(RAm_8(i__) .GE. 0) RA__8(i__)=RA__8(i__)+RAm_8(i__)/4.
if(RAs_8(i__) .GE. 0) RA__8(i__)=RA__8(i__)+RAs_8(i__)/240.
Dec_8(i__) = DEd_8(i__)
if(DEm_8(i__) .GE. 0) Dec_8(i__)=Dec_8(i__)+DEm_8(i__)/60.
if(DEs_8(i__) .GE. 0) Dec_8(i__)=Dec_8(i__)+DEs_8(i__)/3600.
if(DE__8(i__).EQ.'-'.AND.Dec_8(i__).GE.0) Dec_8(i__)=-Dec_8(i__)
c ..............Just test output...........
write(6,9)
+ image_8(i__),no_8(i__),RAh_8(i__),RAm_8(i__),RAs_8(i__),
+ DE__8(i__),DEd_8(i__),DEm_8(i__),DEs_8(i__),Icmag_8(i__),
+ e_Icmag_8(i__),JD_2440000_8(i__),x_8(i__),y_8(i__),
+ class_8(i__),ID_8(i__)
write(6,'(6H Pos: 2F8.4)') RA__8(i__),Dec_8(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! High amplitude, short-period variables found
* in this survey
C Format for file interpretation
10 format(
+ A10,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.2,1X,
+ F5.3,1X,A20)
C Effective file loading
open(unit=1,file='table4.dat', status='old')
write(6,*) '....Loading file: table4.dat'
do i__=1,242
read(1,'(A69)')ar__9
read(ar__9,10)
+ Name(i__),m_Name(i__),RAh_9(i__),RAm_9(i__),RAs_9(i__),
+ DE__9(i__),DEd_9(i__),DEm_9(i__),DEs_9(i__),Imag(i__),
+ e_Imag(i__),Notes(i__)
if(ar__9(43:47) .EQ. '') e_Imag(i__) = rNULL__
c Derive coordinates RA__9 and Dec_9 from input data
c (RA__9 and Dec_9 are set to rNULL_ when unknown)
RA__9(i__) = RAh_9(i__)
if(RAh_9(i__) .GE. 0) RA__9(i__)=RAh_9(i__)*15.
if(RAm_9(i__) .GE. 0) RA__9(i__)=RA__9(i__)+RAm_9(i__)/4.
if(RAs_9(i__) .GE. 0) RA__9(i__)=RA__9(i__)+RAs_9(i__)/240.
Dec_9(i__) = DEd_9(i__)
if(DEm_9(i__) .GE. 0) Dec_9(i__)=Dec_9(i__)+DEm_9(i__)/60.
if(DEs_9(i__) .GE. 0) Dec_9(i__)=Dec_9(i__)+DEs_9(i__)/3600.
if(DE__9(i__).EQ.'-'.AND.Dec_9(i__).GE.0) Dec_9(i__)=-Dec_9(i__)
c ..............Just test output...........
write(6,10)
+ Name(i__),m_Name(i__),RAh_9(i__),RAm_9(i__),RAs_9(i__),
+ DE__9(i__),DEd_9(i__),DEm_9(i__),DEs_9(i__),Imag(i__),
+ e_Imag(i__),Notes(i__)
write(6,'(6H Pos: 2F8.4)') RA__9(i__),Dec_9(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Long-period variables found in this survey
C Format for file interpretation
11 format(
+ A10,A1,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.2,1X,
+ F5.3,1X,A20)
C Effective file loading
open(unit=1,file='table5.dat', status='old')
write(6,*) '....Loading file: table5.dat'
do i__=1,270
read(1,'(A68)')ar__10
read(ar__10,11)
+ Name_1(i__),m_Name_1(i__),RAh_10(i__),RAm_10(i__),RAs_10(i__),
+ DE__10(i__),DEd_10(i__),DEm_10(i__),DEs_10(i__),Imag_1(i__),
+ e_Imag_1(i__),Notes_1(i__)
if(ar__10(43:47) .EQ. '') e_Imag_1(i__) = rNULL__
c Derive coordinates RA__10 and Dec_10 from input data
c (RA__10 and Dec_10 are set to rNULL_ when unknown)
RA__10(i__) = RAh_10(i__)
if(RAh_10(i__) .GE. 0) RA__10(i__)=RAh_10(i__)*15.
if(RAm_10(i__) .GE. 0) RA__10(i__)=RA__10(i__)+RAm_10(i__)/4.
if(RAs_10(i__) .GE. 0) RA__10(i__)=RA__10(i__)+RAs_10(i__)/240.
Dec_10(i__) = DEd_10(i__)
if(DEm_10(i__) .GE. 0) Dec_10(i__)=Dec_10(i__)+DEm_10(i__)/60.
if(DEs_10(i__) .GE. 0) Dec_10(i__)=Dec_10(i__)+DEs_10(i__)/3600.
if(DE__10(i__).EQ.'-'.AND.Dec_10(i__).GE.0) Dec_10(i__)=-Dec_10(i__)
c ..............Just test output...........
write(6,11)
+ Name_1(i__),m_Name_1(i__),RAh_10(i__),RAm_10(i__),RAs_10(i__),
+ DE__10(i__),DEd_10(i__),DEm_10(i__),DEs_10(i__),Imag_1(i__),
+ e_Imag_1(i__),Notes_1(i__)
write(6,'(6H Pos: 2F8.4)') RA__10(i__),Dec_10(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6.dat' ! Variable stars identified with IRAS 12 {mu}m
* sources
C Format for file interpretation
12 format(
+ A10,2X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,F5.2,1X,A10,
+ 1X,A11)
C Effective file loading
open(unit=1,file='table6.dat', status='old')
write(6,*) '....Loading file: table6.dat'
do i__=1,127
read(1,'(A64)')ar__11
read(ar__11,12)
+ Name_2(i__),RAh_11(i__),RAm_11(i__),RAs_11(i__),DE__11(i__),
+ DEd_11(i__),DEm_11(i__),DEs_11(i__),Imag_2(i__),IRAS(i__),
+ Notes_2(i__)
c Derive coordinates RA__11 and Dec_11 from input data
c (RA__11 and Dec_11 are set to rNULL_ when unknown)
RA__11(i__) = RAh_11(i__)
if(RAh_11(i__) .GE. 0) RA__11(i__)=RAh_11(i__)*15.
if(RAm_11(i__) .GE. 0) RA__11(i__)=RA__11(i__)+RAm_11(i__)/4.
if(RAs_11(i__) .GE. 0) RA__11(i__)=RA__11(i__)+RAs_11(i__)/240.
Dec_11(i__) = DEd_11(i__)
if(DEm_11(i__) .GE. 0) Dec_11(i__)=Dec_11(i__)+DEm_11(i__)/60.
if(DEs_11(i__) .GE. 0) Dec_11(i__)=Dec_11(i__)+DEs_11(i__)/3600.
if(DE__11(i__).EQ.'-'.AND.Dec_11(i__).GE.0) Dec_11(i__)=-Dec_11(i__)
c ..............Just test output...........
write(6,12)
+ Name_2(i__),RAh_11(i__),RAm_11(i__),RAs_11(i__),DE__11(i__),
+ DEd_11(i__),DEm_11(i__),DEs_11(i__),Imag_2(i__),IRAS(i__),
+ Notes_2(i__)
write(6,'(6H Pos: 2F8.4)') RA__11(i__),Dec_11(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! *The ABCS carbon stars detected as variables
* in this survey
C Format for file interpretation
13 format(
+ A5,1X,A10,1X,I2,1X,I2,1X,F5.2,1X,A1,I2,1X,I2,1X,F4.1,1X,A13)
C Effective file loading
open(unit=1,file='table7.dat', status='old')
write(6,*) '....Loading file: table7.dat'
do i__=1,18
read(1,'(A54)')ar__12
read(ar__12,13)
+ ABCS(i__),Name_3(i__),RAh_12(i__),RAm_12(i__),RAs_12(i__),
+ DE__12(i__),DEd_12(i__),DEm_12(i__),DEs_12(i__),Notes_3(i__)
c Derive coordinates RA__12 and Dec_12 from input data
c (RA__12 and Dec_12 are set to rNULL_ when unknown)
RA__12(i__) = RAh_12(i__)
if(RAh_12(i__) .GE. 0) RA__12(i__)=RAh_12(i__)*15.
if(RAm_12(i__) .GE. 0) RA__12(i__)=RA__12(i__)+RAm_12(i__)/4.
if(RAs_12(i__) .GE. 0) RA__12(i__)=RA__12(i__)+RAs_12(i__)/240.
Dec_12(i__) = DEd_12(i__)
if(DEm_12(i__) .GE. 0) Dec_12(i__)=Dec_12(i__)+DEm_12(i__)/60.
if(DEs_12(i__) .GE. 0) Dec_12(i__)=Dec_12(i__)+DEs_12(i__)/3600.
if(DE__12(i__).EQ.'-'.AND.Dec_12(i__).GE.0) Dec_12(i__)=-Dec_12(i__)
c ..............Just test output...........
write(6,13)
+ ABCS(i__),Name_3(i__),RAh_12(i__),RAm_12(i__),RAs_12(i__),
+ DE__12(i__),DEd_12(i__),DEm_12(i__),DEs_12(i__),Notes_3(i__)
write(6,'(6H Pos: 2F8.4)') RA__12(i__),Dec_12(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end