Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/138/253 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.5, on 2013-Jun-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__
ter (rNULL__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/A+AS/138/253 Supernova light echoes (Boffi+, 1999)
*================================================================================
*A search for candidate light echoes: photometry of supernova environments
* Boffi F.R., Sparks W.B., Macchetto F.D.
* <Astron. Astrophys. Suppl. Ser. 138, 253 (1999)>
* =1999A&AS..138..253B (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2a.dat' ! JKT run photometry
integer*4 nr__
parameter (nr__=48) ! Number of records
character*131 ar__ ! Full-size record
character*8 Galaxy ! Galaxy designation
character*1 Run ! ? Run specification
character*5 SN ! Supernova designation
character*8 Type ! Supernova Type (1)
integer*4 Patch ! ? Patch designation (2)
character*13 n_Patch ! ? Patch description
real*4 xpos ! (arcsec) ? Patch x offset
character*1 n_xpos ! [EW]
real*4 ypos ! (arcsec) ? Patch y offset
character*1 n_ypos ! [SN]
real*4 Bmag ! (mag) ? Magnitude at 4400A
character*1 n_Bmag ! [$] Comment on B magnitude (3)
real*4 Vmag ! (mag) ? Magnitude at 5000A
character*1 n_Vmag ! [$] Comment on V magnitude
real*4 Rmag ! (mag) ? Magnitude at 6400A
character*1 n_Rmag ! [#s] Comment on R magnitude (3)
real*4 B_V ! (mag) ? B-V colour index
real*4 V_R ! (mag) ? B-V colour index
real*4 Blim ! (mag) ? Limiting magnitude at 4400A (4)
character*1 n_Blim ! [*] Comment on B limiting magnitude (4)
real*4 Vlim ! (mag) ? Limiting magnitude at 5000A (4)
character*1 n_Vlim ! [*] Comment on V limiting magnitude (4)
real*4 Rlim ! (mag) ? Limiting magnitude at 6400A (4)
character*1 n_Rlim ! [*] Comment on R limiting magnitude (4)
real*4 e_Bmag ! (mag) ? Standard deviation in B
real*4 e_Vmag ! (mag) ? Standard deviation in V
real*4 e_Rmag ! (mag) ? Standard deviation in R
*Note (1): The SN Type was taken from Branch (1990, in "Supernovae",
* Petschek A.G. (ed.), Springer-Verlag, pp. 39-42) and/or from the
* Sternberg Catalog (Cat. <II/218/>;
* ':' after a Type indicates that according to the Sternberg Catalog
* there is uncertainty; both Types are classified spectroscopically,
* but the Type II are also classified according to the shape of the
* light curve (P=plateau; L=linear) as given by the Sternberg
* Catalog. This means that whenever a Type II is indicated as a
* Type IIP or IIL the Sternberg classification was used; for some
* objects only the Sternberg classification Type is found and is
* indicated in parenthesis; for SNe 1940E and 1963L the two sources
* disagree: both are given.
*Note (2): We list all patches that have been identified at (or close to) the
* site of the supernova and that were bright enough to be detected
* during the observation: they are numbered and briefly described by a
* comment that follows. Such features are close to/within a ring of
* approximately 5 arcsec in radius centered at the nominal position of
* the supernova (see Figs. 1 through 36).
*Note (3): $: IRAF program ``phot'' did not calculate the magnitude in some band
* and thus the color could not be derived
* #: no images were taken in that band
* s: saturated near the nucleus
*Note (4): The limiting magnitudes correspond to a 5{sigma} detection, unless
* a flag * indicates a 3{sigma} detection
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2b.dat' ! ESO run photometry
integer*4 nr__1
parameter (nr__1=68) ! Number of records
character*131 ar__1 ! Full-size record
character*8 Galaxy_1 ! Galaxy designation
character*1 Run_1 ! ? Run specification
character*5 SN_1 ! Supernova designation
character*8 Type_1 ! Supernova Type (1)
integer*4 Patch_1 ! ? Patch designation (2)
character*13 n_Patch_1 ! ? Patch description
real*4 xpos_1 ! (arcsec) ? Patch x offset
character*1 n_xpos_1 ! [EW]
real*4 ypos_1 ! (arcsec) ? Patch y offset
character*1 n_ypos_1 ! [SN]
real*4 Bmag_1 ! (mag) ? Magnitude at 4400A
character*1 n_Bmag_1 ! [$] Comment on B magnitude (3)
real*4 Vmag_1 ! (mag) ? Magnitude at 5000A
character*1 n_Vmag_1 ! [$] Comment on V magnitude
real*4 Rmag_1 ! (mag) ? Magnitude at 6400A
character*1 n_Rmag_1 ! [#s] Comment on R magnitude (3)
real*4 B_V_1 ! (mag) ? B-V colour index
real*4 V_R_1 ! (mag) ? B-V colour index
real*4 Blim_1 ! (mag) ? Limiting magnitude at 4400A (4)
character*1 n_Blim_1 ! [*] Comment on B limiting magnitude (4)
real*4 Vlim_1 ! (mag) ? Limiting magnitude at 5000A (4)
character*1 n_Vlim_1 ! [*] Comment on V limiting magnitude (4)
real*4 Rlim_1 ! (mag) ? Limiting magnitude at 6400A (4)
character*1 n_Rlim_1 ! [*] Comment on R limiting magnitude (4)
real*4 e_Bmag_1 ! (mag) ? Standard deviation in B
real*4 e_Vmag_1 ! (mag) ? Standard deviation in V
real*4 e_Rmag_1 ! (mag) ? Standard deviation in R
*Note (1): The SN Type was taken from Branch (1990, in "Supernovae",
* Petschek A.G. (ed.), Springer-Verlag, pp. 39-42) and/or from the
* Sternberg Catalog (Cat. <II/218/>;
* ':' after a Type indicates that according to the Sternberg Catalog
* there is uncertainty; both Types are classified spectroscopically,
* but the Type II are also classified according to the shape of the
* light curve (P=plateau; L=linear) as given by the Sternberg
* Catalog. This means that whenever a Type II is indicated as a
* Type IIP or IIL the Sternberg classification was used; for some
* objects only the Sternberg classification Type is found and is
* indicated in parenthesis; for SNe 1940E and 1963L the two sources
* disagree: both are given.
*Note (2): We list all patches that have been identified at (or close to) the
* site of the supernova and that were bright enough to be detected
* during the observation: they are numbered and briefly described by a
* comment that follows. Such features are close to/within a ring of
* approximately 5 arcsec in radius centered at the nominal position of
* the supernova (see Figs. 1 through 36).
*Note (3): $: IRAF program ``phot'' did not calculate the magnitude in some band
* and thus the color could not be derived
* #: no images were taken in that band
* s: saturated near the nucleus
*Note (4): The limiting magnitudes correspond to a 5{sigma} detection, unless
* a flag * indicates a 3{sigma} detection
C=============================================================================
C Loading file 'table2a.dat' ! JKT run photometry
C Format for file interpretation
1 format(
+ A8,A1,1X,A5,1X,A8,2X,I1,3X,A13,1X,F5.2,A1,1X,F6.3,A1,1X,F5.2,
+ A1,1X,F5.2,A1,F5.2,A1,1X,F5.2,1X,F5.2,2X,F5.2,A1,1X,F5.2,A1,
+ 1X,F5.2,A1,1X,F4.2,2X,F4.2,2X,F4.2)
C Effective file loading
open(unit=1,file='table2a.dat', status='old')
write(6,*) '....Loading file: table2a.dat'
do i__=1,48
read(1,'(A131)')ar__
read(ar__,1)
+ Galaxy,Run,SN,Type,Patch,n_Patch,xpos,n_xpos,ypos,n_ypos,Bmag,
+ n_Bmag,Vmag,n_Vmag,Rmag,n_Rmag,B_V,V_R,Blim,n_Blim,Vlim,
+ n_Vlim,Rlim,n_Rlim,e_Bmag,e_Vmag,e_Rmag
if(ar__(27:27) .EQ. '') Patch = iNULL__
if(ar__(45:49) .EQ. '') xpos = rNULL__
if(ar__(52:57) .EQ. '') ypos = rNULL__
if(ar__(60:64) .EQ. '') Bmag = rNULL__
if(ar__(67:71) .EQ. '') Vmag = rNULL__
if(ar__(73:77) .EQ. '') Rmag = rNULL__
if(ar__(80:84) .EQ. '') B_V = rNULL__
if(ar__(86:90) .EQ. '') V_R = rNULL__
if(ar__(93:97) .EQ. '') Blim = rNULL__
if(ar__(100:104) .EQ. '') Vlim = rNULL__
if(ar__(107:111) .EQ. '') Rlim = rNULL__
if(ar__(114:117) .EQ. '') e_Bmag = rNULL__
if(ar__(120:123) .EQ. '') e_Vmag = rNULL__
if(ar__(126:129) .EQ. '') e_Rmag = rNULL__
c ..............Just test output...........
write(6,1)
+ Galaxy,Run,SN,Type,Patch,n_Patch,xpos,n_xpos,ypos,n_ypos,Bmag,
+ n_Bmag,Vmag,n_Vmag,Rmag,n_Rmag,B_V,V_R,Blim,n_Blim,Vlim,
+ n_Vlim,Rlim,n_Rlim,e_Bmag,e_Vmag,e_Rmag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2b.dat' ! ESO run photometry
C Format for file interpretation
2 format(
+ A8,A1,1X,A5,1X,A8,2X,I1,3X,A13,1X,F5.2,A1,1X,F6.3,A1,1X,F5.2,
+ A1,1X,F5.2,A1,F5.2,A1,1X,F5.2,1X,F5.2,2X,F5.2,A1,1X,F5.2,A1,
+ 1X,F5.2,A1,1X,F4.2,2X,F4.2,2X,F4.2)
C Effective file loading
open(unit=1,file='table2b.dat', status='old')
write(6,*) '....Loading file: table2b.dat'
do i__=1,68
read(1,'(A131)')ar__1
read(ar__1,2)
+ Galaxy_1,Run_1,SN_1,Type_1,Patch_1,n_Patch_1,xpos_1,n_xpos_1,
+ ypos_1,n_ypos_1,Bmag_1,n_Bmag_1,Vmag_1,n_Vmag_1,Rmag_1,
+ n_Rmag_1,B_V_1,V_R_1,Blim_1,n_Blim_1,Vlim_1,n_Vlim_1,Rlim_1,
+ n_Rlim_1,e_Bmag_1,e_Vmag_1,e_Rmag_1
if(ar__1(27:27) .EQ. '') Patch_1 = iNULL__
if(ar__1(45:49) .EQ. '') xpos_1 = rNULL__
if(ar__1(52:57) .EQ. '') ypos_1 = rNULL__
if(ar__1(60:64) .EQ. '') Bmag_1 = rNULL__
if(ar__1(67:71) .EQ. '') Vmag_1 = rNULL__
if(ar__1(73:77) .EQ. '') Rmag_1 = rNULL__
if(ar__1(80:84) .EQ. '') B_V_1 = rNULL__
if(ar__1(86:90) .EQ. '') V_R_1 = rNULL__
if(ar__1(93:97) .EQ. '') Blim_1 = rNULL__
if(ar__1(100:104) .EQ. '') Vlim_1 = rNULL__
if(ar__1(107:111) .EQ. '') Rlim_1 = rNULL__
if(ar__1(114:117) .EQ. '') e_Bmag_1 = rNULL__
if(ar__1(120:123) .EQ. '') e_Vmag_1 = rNULL__
if(ar__1(126:129) .EQ. '') e_Rmag_1 = rNULL__
c ..............Just test output...........
write(6,2)
+ Galaxy_1,Run_1,SN_1,Type_1,Patch_1,n_Patch_1,xpos_1,n_xpos_1,
+ ypos_1,n_ypos_1,Bmag_1,n_Bmag_1,Vmag_1,n_Vmag_1,Rmag_1,
+ n_Rmag_1,B_V_1,V_R_1,Blim_1,n_Blim_1,Vlim_1,n_Vlim_1,Rlim_1,
+ n_Rlim_1,e_Bmag_1,e_Vmag_1,e_Rmag_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end