Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/297/49 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 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/297/49 Supernovae spatial distribution (Petrosian+, 1995)
*================================================================================
*The spatial distribution of supernovae in paired and interacting galaxies
* PETROSIAN A.R., TURATTO M.
* <Astron. Astrophys. 297, 49 (1995)>
* =1995A&A...297...49P (SIMBAD/NED Reference)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! Interacting galaxies with supernovae
integer*4 nr__
parameter (nr__=74) ! Number of records
character*80 ar__ ! Full-size record
character*18 Gal ! Galaxy name
character*6 MType ! Galaxy type
real*4 log_Lp_Ln ! []? Logarithmic ratio of the blue
* luminosity of the SN parent galaxy to that
* of its close neighbour, corrected for
* galactic absorption
real*4 alpha ! []? Far Infrared spectral index (1)
real*4 log_LFIR_Lb ! []? Far infrared to B luminosity ratio
integer*4 D_V ! (km/s) []? Difference of the velocities of the
* parent and the neighbour galaxy, retrieved
* from the most recent literature
character*6 SN ! Supernova name
character*3 SNType ! Supernova type
real*4 theta ! []? Distance of the SN from the center of
* the galaxy in units of the galactic radius
* at 25 mag/arcsec^2^
real*4 theta0 ! []? Corrected value of theta for the
* tilting of the parent galaxies along the
* line of sight
real*4 r_R1_2 ! []? Ratio of the projected distance of the
* SN from the parent galaxy nuclei to
* the projected separation between components
* of the paired/interacting galaxies
integer*4 PA ! (deg) []? Position angle of the SNE with respect
* to the neighbours (2)
*Note (1): Computed via relation: {alpha}^100^_60_=log(S_{nu}_(100)/S_{nu}_(60))
* /log(60/100), where S_{nu}_(100) and S_{nu}_(60) are the FIR
* flux densities at the wavelengths 60um and 100um, respectively.
*Note (2): The PA is computed clockwise with the companion placed at 180deg.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! Isolated Pairs of galaxies with Supernovae
integer*4 nr__1
parameter (nr__1=29) ! Number of records
character*80 ar__1 ! Full-size record
character*18 Gal_1 ! Galaxy name
character*6 MType_1 ! Galaxy type
real*4 log_Lp_Ln_1 ! []? Logarithmic ratio of the blue
* luminosity of the SN parent galaxy to that
* of its close neighbour, corrected for
* galactic absorption
real*4 alpha_1 ! []? Far Infrared spectral index (1)
real*4 log_LFIR_Lb_1 ! []? Far infrared to B luminosity ratio
integer*4 D_V_1 ! (km/s) []? Difference of the velocities of the
* parent and the neighbour galaxy, retrieved
* from the most recent literature
character*6 SN_1 ! Supernova name
character*3 SNType_1 ! Supernova type
real*4 theta_1 ! []? Distance of the SN from the center of
* the galaxy in units of the galactic radius
* at 25 mag/arcsec^2^
real*4 theta0_1 ! []? Corrected value of theta for the
* tilting of the parent galaxies along the
* line of sight
real*4 r_R1_2_1 ! []? Ratio of the projected distance of the
* SN from the parent galaxy nuclei to
* the projected separation between components
* of the paired/interacting galaxies
integer*4 PA_1 ! (deg) []? Position angle of the SNE with respect
* to the neighbours (2)
*Note (1): Computed via relation: {alpha}^100^_60_=log(S_{nu}_(100)/S_{nu}_(60))
* /log(60/100), where S_{nu}_(100) and S_{nu}_(60) are the FIR
* flux densities at the wavelengths 60um and 100um, respectively.
*Note (2): The PA is computed clockwise with the companion placed at 180deg.
C=============================================================================
C Loading file 'table1' ! Interacting galaxies with supernovae
C Format for file interpretation
1 format(
+ A18,1X,A6,1X,F5.2,1X,F5.2,1X,F5.2,1X,I5,1X,A6,1X,A3,1X,F4.2,
+ 1X,F4.2,1X,F5.3,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table1')
write(6,*) '....Loading file: table1'
do i__=1,74
read(1,'(A80)')ar__
read(ar__,1)
+ Gal,MType,log_Lp_Ln,alpha,log_LFIR_Lb,D_V,SN,SNType,theta,
+ theta0,r_R1_2,PA
if(ar__(27:31) .EQ. '') log_Lp_Ln = rNULL__
if(ar__(33:37) .EQ. '') alpha = rNULL__
if(ar__(39:43) .EQ. '') log_LFIR_Lb = rNULL__
if(ar__(45:49) .EQ. '') D_V = iNULL__
if(ar__(62:65) .EQ. '') theta = rNULL__
if(ar__(67:70) .EQ. '') theta0 = rNULL__
if(ar__(72:76) .EQ. '') r_R1_2 = rNULL__
if(ar__(78:80) .EQ. '') PA = iNULL__
c ..............Just test output...........
write(6,1)
+ Gal,MType,log_Lp_Ln,alpha,log_LFIR_Lb,D_V,SN,SNType,theta,
+ theta0,r_R1_2,PA
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2' ! Isolated Pairs of galaxies with Supernovae
C Format for file interpretation
2 format(
+ A18,1X,A6,1X,F5.2,1X,F5.2,1X,F5.2,1X,I5,1X,A6,1X,A3,1X,F4.2,
+ 1X,F4.2,1X,F5.3,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,29
read(1,'(A80)')ar__1
read(ar__1,2)
+ Gal_1,MType_1,log_Lp_Ln_1,alpha_1,log_LFIR_Lb_1,D_V_1,SN_1,
+ SNType_1,theta_1,theta0_1,r_R1_2_1,PA_1
if(ar__1(27:31) .EQ. '') log_Lp_Ln_1 = rNULL__
if(ar__1(33:37) .EQ. '') alpha_1 = rNULL__
if(ar__1(39:43) .EQ. '') log_LFIR_Lb_1 = rNULL__
if(ar__1(45:49) .EQ. '') D_V_1 = iNULL__
if(ar__1(62:65) .EQ. '') theta_1 = rNULL__
if(ar__1(67:70) .EQ. '') theta0_1 = rNULL__
if(ar__1(72:76) .EQ. '') r_R1_2_1 = rNULL__
if(ar__1(78:80) .EQ. '') PA_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ Gal_1,MType_1,log_Lp_Ln_1,alpha_1,log_LFIR_Lb_1,D_V_1,SN_1,
+ SNType_1,theta_1,theta0_1,r_R1_2_1,PA_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end