Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/311/384 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/A+A/311/384 ROSAT observations of BL Lacertae objects (Lamer+ 1996)
*================================================================================
*ROSAT observations of BL Lacertae objects.
* Lamer G., Brunner H., Staubert R.
* <Astron. Astrophys. 311, 384 (1996)>
* =1996A&A...311..384L (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! List of PSPC observations
integer*4 nr__
parameter (nr__=73) ! Number of records
character*56 ar__ ! Full-size record
character*11 Name (nr__) ! Object name
integer*4 ROR (nr__) ! ROSAT observation request (ROR) number
character*1 n_ROR (nr__) ! [-] '-' when two ROR numbers
integer*4 ROR2 (nr__) ! ? Second ROR number
character*9 Date (nr__) ! Completed date
integer*4 Exp (nr__) ! (s) Exposition time
real*4 Counts (nr__) ! Net counts
integer*4 e_Counts (nr__) ! ? rms uncertainty on Counts
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3' ! X-ray and broad band spectra
integer*4 nr__1
parameter (nr__1=74) ! Number of records
character*63 ar__1 ! Full-size record
character*12 Name_1 (nr__1) ! Object name
real*4 NH_gal (nr__1) ! (10+20cm-2) Galactic hydrogen column density
character*1 n_NH_gal (nr__1) ! Note on NH,gal (1)
real*4 NH_fit (nr__1) ! (10+20cm-2) ? Fitted hydrogen column density
real*4 e_NH_fit (nr__1) ! (10+20cm-2) ? rms uncertainty on NH,fit
real*4 F1keV (nr__1) ! (uJy) Flux at 1 keV
real*4 alpha (nr__1) ! Spectral index between .1kev and 2.4keV
real*4 e_alpha (nr__1) ! rms uncertainty on alpha
real*4 alpha_rx_ (nr__1) ! X-ray spectral index
real*4 delta_IC_ (nr__1) ! ? Inverse Compton beaming factor
*Note (1): a: Elvis et al. 1989, other values: Stark et al. 1992
C=============================================================================
C Loading file 'table2' ! List of PSPC observations
C Format for file interpretation
1 format(A11,1X,I6,A1,I6,1X,A9,3X,I5,2X,E8.0,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,73
read(1,'(A56)')ar__
read(ar__,1)
+ Name(i__),ROR(i__),n_ROR(i__),ROR2(i__),Date(i__),Exp(i__),
+ Counts(i__),e_Counts(i__)
if(ar__(20:25) .EQ. '') ROR2(i__) = iNULL__
if(ar__(54:56) .EQ. '') e_Counts(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),ROR(i__),n_ROR(i__),ROR2(i__),Date(i__),Exp(i__),
+ Counts(i__),e_Counts(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3' ! X-ray and broad band spectra
C Format for file interpretation
2 format(
+ A12,1X,F5.2,A1,2X,F5.2,2X,F5.2,1X,F6.2,1X,F4.2,3X,F4.2,1X,
+ F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3')
write(6,*) '....Loading file: table3'
do i__=1,74
read(1,'(A63)')ar__1
read(ar__1,2)
+ Name_1(i__),NH_gal(i__),n_NH_gal(i__),NH_fit(i__),
+ e_NH_fit(i__),F1keV(i__),alpha(i__),e_alpha(i__),
+ alpha_rx_(i__),delta_IC_(i__)
if(ar__1(22:26) .EQ. '') NH_fit(i__) = rNULL__
if(ar__1(29:33) .EQ. '') e_NH_fit(i__) = rNULL__
if(ar__1(59:63) .EQ. '') delta_IC_(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),NH_gal(i__),n_NH_gal(i__),NH_fit(i__),
+ e_NH_fit(i__),F1keV(i__),alpha(i__),e_alpha(i__),
+ alpha_rx_(i__),delta_IC_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end