Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/513/A75 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 2026-Aug-11
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/513/A75 Polarimetry of stars in NGC 5617 (Orsatti+, 2010)
*================================================================================
*Polarimetry of an intermediate-age open cluster: NGC 5617.
* Orsatti A.M., Feinstein C., Vergne M.M., Martinez R.E., Vega E.I.
* <Astron. Astrophys., 513, A75-75 (2010)>
* =2010A&A...513A..75O
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Polarimetric observations of stars in NGC 5617
integer*4 nr__
parameter (nr__=72) ! Number of records
character*100 ar__ ! Full-size record
integer*4 Seq (nr__) ! Sequential number from Haug
* (1978A&AS...34..417H), NGC 5617 NNN in Simbad
character*1 n_Seq (nr__) ! [*] * = membership according to the literature
real*4 PU (nr__) ! (%) ?=- U-band percentage polarization
real*4 e_PU (nr__) ! (%) ?=- rms uncertainty on PU
real*4 PB (nr__) ! (%) ?=- B-band percentage polarization
real*4 e_PB (nr__) ! (%) ?=- rms uncertainty on PB
real*4 PV (nr__) ! (%) V-band percentage polarization
real*4 e_PV (nr__) ! (%) rms uncertainty on PV
real*4 PR (nr__) ! (%) R-band percentage polarization
real*4 e_PR (nr__) ! (%) rms uncertainty on PR
real*4 PI (nr__) ! (%) I-band percentage polarization
real*4 e_PI (nr__) ! (%) rms uncertainty on PI
real*4 PAU (nr__) ! (deg) ?=- U-band position angle of the electric vector
real*4 e_PAU (nr__) ! (deg) ?=- rms uncertainty on PAU
real*4 PAB (nr__) ! (deg) ?=- B-band position angle of the electric vector
real*4 e_PAB (nr__) ! (deg) ?=- rms uncertainty on PAB
real*4 PAV (nr__) ! (deg) V-band position angle of the electric vector
real*4 e_PAV (nr__) ! (deg) rms uncertainty on PAV
real*4 PAR (nr__) ! (deg) R-band position angle of the electric vector
real*4 e_PAR (nr__) ! (deg) rms uncertainty on PAR
real*4 PAI (nr__) ! (deg) I-band position angle of the electric vector
real*4 e_PAI (nr__) ! (deg) rms uncertainty on PAI
C=============================================================================
C Loading file 'table1.dat' ! Polarimetric observations of stars in NGC 5617
C Format for file interpretation
1 format(
+ I3,A1,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,
+ 1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.1,1X,F3.1,1X,F4.1,1X,F4.1,1X,
+ F4.1,1X,F3.1,1X,F4.1,1X,F3.1,1X,F4.1,1X,F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,72
read(1,'(A100)')ar__
read(ar__,1)
+ Seq(i__),n_Seq(i__),PU(i__),e_PU(i__),PB(i__),e_PB(i__),
+ PV(i__),e_PV(i__),PR(i__),e_PR(i__),PI(i__),e_PI(i__),
+ PAU(i__),e_PAU(i__),PAB(i__),e_PAB(i__),PAV(i__),e_PAV(i__),
+ PAR(i__),e_PAR(i__),PAI(i__),e_PAI(i__)
if (idig(ar__(6:9)).EQ.0) PU(i__) = rNULL__
if (idig(ar__(11:14)).EQ.0) e_PU(i__) = rNULL__
if (idig(ar__(16:19)).EQ.0) PB(i__) = rNULL__
if (idig(ar__(21:24)).EQ.0) e_PB(i__) = rNULL__
if (idig(ar__(56:59)).EQ.0) PAU(i__) = rNULL__
if (idig(ar__(61:63)).EQ.0) e_PAU(i__) = rNULL__
if (idig(ar__(65:68)).EQ.0) PAB(i__) = rNULL__
if (idig(ar__(70:73)).EQ.0) e_PAB(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq(i__),n_Seq(i__),PU(i__),e_PU(i__),PB(i__),e_PB(i__),
+ PV(i__),e_PV(i__),PR(i__),e_PR(i__),PI(i__),e_PI(i__),
+ PAU(i__),e_PAU(i__),PAB(i__),e_PAB(i__),PAV(i__),e_PAV(i__),
+ PAR(i__),e_PAR(i__),PAI(i__),e_PAI(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end
C Locate position of first digit in string; or return 0
integer function idig(c)
character*(*) c
character*1 c1
integer lc,i
lc=len(c)
idig=0
do i=1,lc
if(c(i:i).ne.' ') go to 1
end do
1 if(i.gt.lc) return
c1=c(i:i)
if(c1.eq.'.'.or.c1.eq.'-'.or.c1.eq.'+') i=i+1
if(i.gt.lc) return
c1=c(i:i)
if(c1.ge.'0'.and.c1.le.'9') idig=i
return
end