Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/513/A75 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 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 ! Sequential number from Haug
* (1978A&AS...34..417H), NGC 5617 NNN in Simbad
character*1 n_Seq ! [*] * = membership according to the literature
real*4 PU ! (%) ?=- U-band percentage polarization
real*4 e_PU ! (%) ?=- rms uncertainty on PU
real*4 PB ! (%) ?=- B-band percentage polarization
real*4 e_PB ! (%) ?=- rms uncertainty on PB
real*4 PV ! (%) V-band percentage polarization
real*4 e_PV ! (%) rms uncertainty on PV
real*4 PR ! (%) R-band percentage polarization
real*4 e_PR ! (%) rms uncertainty on PR
real*4 PI ! (%) I-band percentage polarization
real*4 e_PI ! (%) rms uncertainty on PI
real*4 PAU ! (deg) ?=- U-band position angle of the electric vector
real*4 e_PAU ! (deg) ?=- rms uncertainty on PAU
real*4 PAB ! (deg) ?=- B-band position angle of the electric vector
real*4 e_PAB ! (deg) ?=- rms uncertainty on PAB
real*4 PAV ! (deg) V-band position angle of the electric vector
real*4 e_PAV ! (deg) rms uncertainty on PAV
real*4 PAR ! (deg) R-band position angle of the electric vector
real*4 e_PAR ! (deg) rms uncertainty on PAR
real*4 PAI ! (deg) I-band position angle of the electric vector
real*4 e_PAI ! (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,n_Seq,PU,e_PU,PB,e_PB,PV,e_PV,PR,e_PR,PI,e_PI,PAU,e_PAU,
+ PAB,e_PAB,PAV,e_PAV,PAR,e_PAR,PAI,e_PAI
if (idig(ar__(6:9)).EQ.0) PU = rNULL__
if (idig(ar__(11:14)).EQ.0) e_PU = rNULL__
if (idig(ar__(16:19)).EQ.0) PB = rNULL__
if (idig(ar__(21:24)).EQ.0) e_PB = rNULL__
if (idig(ar__(56:59)).EQ.0) PAU = rNULL__
if (idig(ar__(61:63)).EQ.0) e_PAU = rNULL__
if (idig(ar__(65:68)).EQ.0) PAB = rNULL__
if (idig(ar__(70:73)).EQ.0) e_PAB = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq,n_Seq,PU,e_PU,PB,e_PB,PV,e_PV,PR,e_PR,PI,e_PI,PAU,e_PAU,
+ PAB,e_PAB,PAV,e_PAV,PAR,e_PAR,PAI,e_PAI
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