Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/107/1022 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/AJ/107/1022 UBVRI photometry of SN 1993J (Richmond+, 1994) *================================================================================ *UBVRI photometry of SN 1993J in M81: the first 120 days * RICHMOND M.W., TREFFERS R.R., FILIPPENKO A.V., PAIK Y., LEIBUNDGUT B., * SCHULMAN E., COX C.V. * <Astron. J. 107, 1022 (1994)> * =1994AJ....107.1022R (SIMBAD/NED Reference) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2' ! Leuschner 76-cm observations of SN 1993J integer*4 nr__ parameter (nr__=86) ! Number of records character*62 ar__ ! Full-size record character*9 UT ! UT date (Month day) real*8 JD ! (d) Julian Date real*4 Umag ! (mag) []? U band magnitude (1) character*1 u_Umag ! [:+] Uncertainty flag for U (2) real*4 Bmag ! (mag) []? B band magnitude character*1 u_Bmag ! [:+] Uncertainty flag for B (2) real*4 Vmag ! (mag) []? V band magnitude character*1 u_Vmag ! [:+] Uncertainty flag for V (2) real*4 Rmag ! (mag) []? R band magnitude character*1 u_Rmag ! [:+] Uncertainty flag for R (2) real*4 Imag ! (mag) []? I band magnitude character*1 u_Imag ! [:+] Uncertainty flag for I (2) character*4 Notes ! [ CP?] C = cloudy, P = poor seeing character*1 Note7 ! [IP] I = Isaac Newton Telescope; * P = poor conditions (3) *Note (1): The 76 cm telescope's U-band values do not transform well onto the * standard color system, but may at least give a qualitative idea of * the behavior of SN 1993J at near-UV wavelengths. *Note (2): ":" denotes an uncertain value, and * "+" one which has been derived using color terms from the previous * or following night. *Note (3): In table7, all data are from the 1-m Jacobus Kapteyn Telescope unless * marked I. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3' ! Leuschner 50-cm observations of SN 1993J integer*4 nr__1 parameter (nr__1=47) ! Number of records character*62 ar__1 ! Full-size record character*9 UT_1 ! UT date (Month day) real*8 JD_1 ! (d) Julian Date real*4 Umag_1 ! (mag) []? U band magnitude (1) character*1 u_Umag_1 ! [:+] Uncertainty flag for U (2) real*4 Bmag_1 ! (mag) []? B band magnitude character*1 u_Bmag_1 ! [:+] Uncertainty flag for B (2) real*4 Vmag_1 ! (mag) []? V band magnitude character*1 u_Vmag_1 ! [:+] Uncertainty flag for V (2) real*4 Rmag_1 ! (mag) []? R band magnitude character*1 u_Rmag_1 ! [:+] Uncertainty flag for R (2) real*4 Imag_1 ! (mag) []? I band magnitude character*1 u_Imag_1 ! [:+] Uncertainty flag for I (2) character*4 Notes_1 ! [ CP?] C = cloudy, P = poor seeing character*1 Note7_1 ! [IP] I = Isaac Newton Telescope; * P = poor conditions (3) *Note (1): The 76 cm telescope's U-band values do not transform well onto the * standard color system, but may at least give a qualitative idea of * the behavior of SN 1993J at near-UV wavelengths. *Note (2): ":" denotes an uncertain value, and * "+" one which has been derived using color terms from the previous * or following night. *Note (3): In table7, all data are from the 1-m Jacobus Kapteyn Telescope unless * marked I. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table14' ! Summed optical fluxes of SN 1993J integer*4 nr__2 parameter (nr__2=95) ! Number of records character*54 ar__2 ! Full-size record real*8 JD_2 ! (d) Julian Date real*4 Flux ! (mW/m2) Fluxes from measured light curves real*4 LowExt ! (mW/m2) Fluxes for extinction [E(B-V)=0.08 mag] real*4 ModExt ! (mW/m2) Fluxes for extinction [E(B-V)=0.32 mag] character*2 Site ! Observing site (1) character*5 Bands ! Bands summed to determine fluxes *Note (1): Site: LP = La Palma; KP = Kitt Peak; L = Leuschner c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table15' ! Blackbody temp. and luminosity of SN 1993J integer*4 nr__3 parameter (nr__3=95) ! Number of records character*45 ar__3 ! Full-size record real*8 JD_3 ! (d) Julian Date integer*4 LowTemp ! (K) Temperature from low extinction * [E(B-V)=0.08 mag] real*4 LowLum ! (10+35W) Bolometric luminosity from LowTemp integer*4 ModTemp ! (K) Temperature from moderate extinction * [E(B-V)=0.32 mag] real*4 ModLum ! (10+35W) Bolometric luminosity from ModTemp character*2 Site_1 ! Observing site (1) character*5 Bands_1 ! Bands used to determine luminosities *Note (1): Site: LP = La Palma; KP = Kitt Peak; L = Leuschner C============================================================================= C Loading file 'table2' ! Leuschner 76-cm observations of SN 1993J C Format for file interpretation 1 format( + A9,1X,F10.2,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X, + F5.2,A1,1X,A4,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table2') write(6,*) '....Loading file: table2' do i__=1,86 read(1,'(A62)')ar__ read(ar__,1) + UT,JD,Umag,u_Umag,Bmag,u_Bmag,Vmag,u_Vmag,Rmag,u_Rmag,Imag, + u_Imag,Notes,Note7 if(ar__(22:26) .EQ. '') Umag = rNULL__ if(ar__(29:33) .EQ. '') Bmag = rNULL__ if(ar__(36:40) .EQ. '') Vmag = rNULL__ if(ar__(43:47) .EQ. '') Rmag = rNULL__ if(ar__(50:54) .EQ. '') Imag = rNULL__ c ..............Just test output........... write(6,1) + UT,JD,Umag,u_Umag,Bmag,u_Bmag,Vmag,u_Vmag,Rmag,u_Rmag,Imag, + u_Imag,Notes,Note7 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3' ! Leuschner 50-cm observations of SN 1993J C Format for file interpretation 2 format( + A9,1X,F10.2,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X, + F5.2,A1,1X,A4,1X,A1) C Effective file loading open(unit=1,status='old',file= +'table3') write(6,*) '....Loading file: table3' do i__=1,47 read(1,'(A62)')ar__1 read(ar__1,2) + UT_1,JD_1,Umag_1,u_Umag_1,Bmag_1,u_Bmag_1,Vmag_1,u_Vmag_1, + Rmag_1,u_Rmag_1,Imag_1,u_Imag_1,Notes_1,Note7_1 if(ar__1(22:26) .EQ. '') Umag_1 = rNULL__ if(ar__1(29:33) .EQ. '') Bmag_1 = rNULL__ if(ar__1(36:40) .EQ. '') Vmag_1 = rNULL__ if(ar__1(43:47) .EQ. '') Rmag_1 = rNULL__ if(ar__1(50:54) .EQ. '') Imag_1 = rNULL__ c ..............Just test output........... write(6,2) + UT_1,JD_1,Umag_1,u_Umag_1,Bmag_1,u_Bmag_1,Vmag_1,u_Vmag_1, + Rmag_1,u_Rmag_1,Imag_1,u_Imag_1,Notes_1,Note7_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table14' ! Summed optical fluxes of SN 1993J C Format for file interpretation 3 format(F10.2,2X,E9.3,2X,E9.3,2X,E9.3,2X,A2,2X,A5) C Effective file loading open(unit=1,status='old',file= +'table14') write(6,*) '....Loading file: table14' do i__=1,95 read(1,'(A54)')ar__2 read(ar__2,3)JD_2,Flux,LowExt,ModExt,Site,Bands c ..............Just test output........... write(6,3)JD_2,Flux,LowExt,ModExt,Site,Bands c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table15' ! Blackbody temp. and luminosity of SN 1993J C Format for file interpretation 4 format(F10.2,1X,I5,2X,F4.2,1X,I5,1X,F5.2,2X,A2,2X,A5) C Effective file loading open(unit=1,status='old',file= +'table15') write(6,*) '....Loading file: table15' do i__=1,95 read(1,'(A45)')ar__3 read(ar__3,4)JD_3,LowTemp,LowLum,ModTemp,ModLum,Site_1,Bands_1 c ..............Just test output........... write(6,4)JD_3,LowTemp,LowLum,ModTemp,ModLum,Site_1,Bands_1 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end