Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/317/712 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-Oct-07
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/317/712 UV fluxes and electron density of AG Peg (Altamore+ 1997)
*================================================================================
*The 1978-1995 variability of the symbiotic star AG Pegasi in the ultraviolet
* Altamore A., Cassatella A.
* <Astron. Astrophys. 317, 712 (1997)>
* =1997A&A...317..712A (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! FES magnitudes and UV fluxes
integer*4 nr__
parameter (nr__=34) ! Number of records
character*30 ar__ ! Full-size record
integer*4 HJD (nr__) ! (d) Julian date
real*4 FESmag (nr__) ! (mag) ? Fine Error Sensor magnitude
real*4 F1455 (nr__) ! (10-15W/m2/nm) ? Observed flux at 1455 A (1)
real*4 F1835 (nr__) ! (10-15W/m2/nm) ? Observed flux at 1835 A (1)
real*4 F2855 (nr__) ! (10-15W/m2/nm) ? Observed flux at 2855 A (1)
*Note (1): Fluxes are in 10**(-13) erg/cm2/s/A.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3a' ! Electron density from the [SiIII]/[CIII] ratio
integer*4 nr__1
parameter (nr__1=34) ! Number of records
character*23 ar__1 ! Full-size record
integer*4 HJD_1 (nr__1) ! (d) Julian date
real*4 FSiIII (nr__1) ! (10-14W/m2) Observed flux of SiIII] 1893 A line (1)
real*4 FCIII (nr__1) ! (10-14W/m2) Observed flux of CIII] 1909 A line (1)9
real*4 log_Ne (nr__1) ! ([cm-3]) Decimal log of electron density
*Note (1): Fluxes are in 10**(-11) erg/cm2/s
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3b' ! Electron density from the [N III] multiplet
integer*4 nr__2
parameter (nr__2=15) ! Number of records
character*28 ar__2 ! Full-size record
integer*4 HJD_2 (nr__2) ! (d) Julian date
real*4 F1748_6 (nr__2) ! (10-14W/m2) Observed flux of N III] 1748.6 A line (1)
real*4 F1749_5 (nr__2) ! (10-14W/m2) Observed flux of N III] 1749.5 A line (1)
real*4 F1754_0 (nr__2) ! (10-14W/m2) Observed flux of N III] 1754.0 A line (1)
real*4 log_Ne_1 (nr__2) ! ([cm-3]) Decimal log of electron density
*Note (1): Fluxes are in 10**(-11) erg/cm2/s
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4' ! Radial velocities of the UV emission lines
integer*4 nr__3
parameter (nr__3=57) ! Number of records
character*36 ar__3 ! Full-size record
integer*4 HJD_3 (nr__3) ! (d) Julian date
real*4 HRV (nr__3) ! (km/s) ? Mean heliocentric radial velocity of the CIII]
* and SiIII] lines
real*4 e_HRV (nr__3) ! (km/s) ? rms uncertainty on HRV1
real*4 RV1 (nr__3) ! (km/s) ? Radial velocity of the HeII 1640A emission line
real*4 RV2 (nr__3) ! (km/s) ? Radial velocity of the NIV] 1487A emission line
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5' ! HeII Zanstra temperatures
integer*4 nr__4
parameter (nr__4=31) ! Number of records
character*32 ar__4 ! Full-size record
character*1 Note (nr__4) ! [HL] H: High resolution data,
* L: Low resolution data
integer*4 HJD_4 (nr__4) ! (d) Julian date
real*4 F1640 (nr__4) ! (10-14W/m2) Flux of the HeII 1640A line (1)
real*4 F1335 (nr__4) ! (10-13W/m2/nm) Flux of the continuum around 1335A (2)
real*4 F1640_F1335(nr__4) ! Ratio of F1640 to F1335
integer*4 T (nr__4) ! (K) Zanstra temperature
*Note (1): Fluxes are in 10**(-11) erg/cm2/s
*Note (2): Fluxes are in 10**(-11) erg/cm2/s/A
C=============================================================================
C Loading file 'table2' ! FES magnitudes and UV fluxes
C Format for file interpretation
1 format(I7,1X,F4.2,1X,F5.2,1X,F5.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,34
read(1,'(A30)')ar__
read(ar__,1)
+ HJD(i__),FESmag(i__),F1455(i__),F1835(i__),F2855(i__)
if(ar__(9:12) .EQ. '') FESmag(i__) = rNULL__
if(ar__(14:18) .EQ. '') F1455(i__) = rNULL__
if(ar__(20:24) .EQ. '') F1835(i__) = rNULL__
if(ar__(26:30) .EQ. '') F2855(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ HJD(i__),FESmag(i__),F1455(i__),F1835(i__),F2855(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3a' ! Electron density from the [SiIII]/[CIII] ratio
C Format for file interpretation
2 format(I7,1X,F4.2,1X,F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3a')
write(6,*) '....Loading file: table3a'
do i__=1,34
read(1,'(A23)')ar__1
read(ar__1,2)HJD_1(i__),FSiIII(i__),FCIII(i__),log_Ne(i__)
c ..............Just test output...........
write(6,2)HJD_1(i__),FSiIII(i__),FCIII(i__),log_Ne(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3b' ! Electron density from the [N III] multiplet
C Format for file interpretation
3 format(I7,1X,F4.2,1X,F4.2,1X,F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3b')
write(6,*) '....Loading file: table3b'
do i__=1,15
read(1,'(A28)')ar__2
read(ar__2,3)
+ HJD_2(i__),F1748_6(i__),F1749_5(i__),F1754_0(i__),
+ log_Ne_1(i__)
c ..............Just test output...........
write(6,3)
+ HJD_2(i__),F1748_6(i__),F1749_5(i__),F1754_0(i__),
+ log_Ne_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4' ! Radial velocities of the UV emission lines
C Format for file interpretation
4 format(I7,1X,F6.2,1X,F4.2,2X,F6.2,3X,F6.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4')
write(6,*) '....Loading file: table4'
do i__=1,57
read(1,'(A36)')ar__3
read(ar__3,4)HJD_3(i__),HRV(i__),e_HRV(i__),RV1(i__),RV2(i__)
if(ar__3(9:14) .EQ. '') HRV(i__) = rNULL__
if(ar__3(16:19) .EQ. '') e_HRV(i__) = rNULL__
if(ar__3(22:27) .EQ. '') RV1(i__) = rNULL__
if(ar__3(31:36) .EQ. '') RV2(i__) = rNULL__
c ..............Just test output...........
write(6,4)HJD_3(i__),HRV(i__),e_HRV(i__),RV1(i__),RV2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5' ! HeII Zanstra temperatures
C Format for file interpretation
5 format(A1,1X,I7,1X,F5.2,1X,F4.2,1X,F5.2,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table5')
write(6,*) '....Loading file: table5'
do i__=1,31
read(1,'(A32)')ar__4
read(ar__4,5)
+ Note(i__),HJD_4(i__),F1640(i__),F1335(i__),F1640_F1335(i__),
+ T(i__)
c ..............Just test output...........
write(6,5)
+ Note(i__),HJD_4(i__),F1640(i__),F1335(i__),F1640_F1335(i__),
+ T(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end