Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/617/L41 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-19
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/ApJ/617/L41 Red giant variable candidates in UMi dSph (Mighell+, 2004)
*================================================================================
*Flickering red giants in the Ursa minor dwarf spheroidal galaxy: detection of
*low-amplitude variability in faint red giant branch stars on 10 minute
*timescales.
* Mighell K.J., Roederer I.U.
* <Astrophys. J., 617, L41-L44 (2004)>
* =2004ApJ...617L..41M
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Photometry of the RGB variable candidates
integer*4 nr__
parameter (nr__=18) ! Number of records
character*175 ar__ ! Full-size record
character*4 Name (nr__) ! RGB variable candidate identification
integer*4 ID (nr__) ! Location identification code (1)
integer*4 Epoch (nr__) ! (yr) Epoch of observation
real*4 AV (nr__) ! (mag) Amplitude in V band (2)
real*4 v_Vmag_ (nr__) ! (mag) Mean V magnitude (F555W filter)
real*4 Vmag1 (nr__) ! (mag) Vmag1 (F555W filter)
real*4 Vmag2 (nr__) ! (mag) Vmag2 (F555W filter)
real*4 Vmag3 (nr__) ! (mag) Vmag3 (F555W filter)
real*4 Vmag4 (nr__) ! (mag) ?=99.999 Vmag4 (F555W filter)
real*4 Vchi2 (nr__) ! Chi squared in V band
real*4 e__Vmag_ (nr__) ! (mag) Error in <Vmag>
real*4 e_Vmag1 (nr__) ! (mag) Error in Vmag1
real*4 e_Vmag2 (nr__) ! (mag) Error in Vmag2
real*4 e_Vmag3 (nr__) ! (mag) Error in Vmag3
real*4 e_Vmag4 (nr__) ! (mag) ?=99.999 Error in Vmag4
real*4 AI (nr__) ! (mag) Amplitude in I band (2)
real*4 v_Imag_ (nr__) ! (mag) Mean I magnitude (F814W filter)
real*4 Imag1 (nr__) ! (mag) Imag1 (F814W filter)
real*4 Imag2 (nr__) ! (mag) Imag2 (F814W filter)
real*4 Imag3 (nr__) ! (mag) Imag3 (F814W filter)
real*4 Imag4 (nr__) ! (mag) ?=99.999 Imag4 (F814W filter)
real*4 Ichi2 (nr__) ! Chi squared in I band
real*4 e__Imag_ (nr__) ! (mag) Error in <Imag>
real*4 e_Imag1 (nr__) ! (mag) Error in Imag1
real*4 e_Imag2 (nr__) ! (mag) Error in Imag2
real*4 e_Imag3 (nr__) ! (mag) Error in Imag3
real*4 e_Imag4 (nr__) ! (mag) ?=99.999 Error in Imag4
*Note (1): The leftmost digit of the identification gives the WFPC2
* CCD number (1, 2, 3, or 4, for cameras PC1, WF2, WF3, or WF4,
* respectively) where the star was found in the first F555W observation
* of each epoch of observation (1995: u2pb0101t; 1999: u5er1301r). The
* rightmost four digits give the x-coordinate of the star multiplied by
* 10. The remaining four digits give the y-coordinate of the star
* multiplied by 10. For example, the first star has an ID of 173764892,
* indicating that it is found on the PC1 image at the (x,y) location of
* (489.2,737.6).
*Note (2): The amplitudes A_V_ and A_I_ are defined as being
* the difference between the faintest and the brightest magnitude
* measurements for V and I respectively.
C=============================================================================
C Loading file 'table1.dat' ! Photometry of the RGB variable candidates
C Format for file interpretation
1 format(
+ A4,1X,I9,1X,I4,1X,F5.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,
+ F6.3,1X,F5.2,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,
+ 1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3,1X,F5.2,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,18
read(1,'(A175)')ar__
read(ar__,1)
+ Name(i__),ID(i__),Epoch(i__),AV(i__),v_Vmag_(i__),Vmag1(i__),
+ Vmag2(i__),Vmag3(i__),Vmag4(i__),Vchi2(i__),e__Vmag_(i__),
+ e_Vmag1(i__),e_Vmag2(i__),e_Vmag3(i__),e_Vmag4(i__),AI(i__),
+ v_Imag_(i__),Imag1(i__),Imag2(i__),Imag3(i__),Imag4(i__),
+ Ichi2(i__),e__Imag_(i__),e_Imag1(i__),e_Imag2(i__),
+ e_Imag3(i__),e_Imag4(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),ID(i__),Epoch(i__),AV(i__),v_Vmag_(i__),Vmag1(i__),
+ Vmag2(i__),Vmag3(i__),Vmag4(i__),Vchi2(i__),e__Vmag_(i__),
+ e_Vmag1(i__),e_Vmag2(i__),e_Vmag3(i__),e_Vmag4(i__),AI(i__),
+ v_Imag_(i__),Imag1(i__),Imag2(i__),Imag3(i__),Imag4(i__),
+ Ichi2(i__),e__Imag_(i__),e_Imag1(i__),e_Imag2(i__),
+ e_Imag3(i__),e_Imag4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end