FORTRAN Generation
(/./ftp/cats/II/256)

Conversion of standardized ReadMe file for file /./ftp/cats/II/256 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-Mar-28
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. II/256        Sternberg Supernova Catalogue, 2004 version    (Tsvetkov+, 2004)
*================================================================================
*The Sternberg Astronomical Institute Catalog of Supernovae and radial 
*distributions of Supernovae of various types in Galaxies.
*     Tsvetkov D.Yu., Pavlyuk N.N., Bartunov O.S.
*    <Pis'ma Astron. Zh., 30, 803 (2004)>
*    =2004PAZh...30..803T
*    =2004AstL...30..729T
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'sn.dat'	! The Catalog

      integer*4 nr__
      parameter (nr__=2991)	! Number of records
      character*300 ar__   	! Full-size record

C  J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs
      real*8        RAdeg       ! (deg) Right Ascension J2000.0
      real*8        DEdeg       ! (deg)     Declination J2000.0
C  ---------------------------------- ! (position vector(s) in degrees)

      character*6   SN          ! SN designation
      character*1   n_SN        ! [*] indicates a note in notes.dat
      character*12  Gname       ! Galaxy identification from NGC (N), IC (I),
*                                     MCG (M), UGC (U), PGC (P) and ESO (E)
*                                     catalogues, or LEDA database.
      integer*4     RAGh        ! (h) [0/23]? Galaxy Right Ascension (J2000.0)
      real*4        RAGm        ! (min) [0/60[? Galaxy Right Ascension (J2000.0)
      character*1   DEG_        ! Galaxy Declination (J2000.0)
      integer*4     DEGd        ! (deg) [0/90]? Galaxy Declination (J2000.0)
      real*4        DEGm        ! (arcmin) [0/60[? Galaxy Declination (J2000.0)
      real*4        Gmag        ! (mag) ? Photographic or other magnitude of galaxy
      integer*4     r_Gmag      ! *[1,5]? Source of magnitude
      integer*4     Gpa         ! (deg) ? Position angle measured from North to East
      integer*4     Gi          ! (deg) ? Inclination angle for disk-like systems
*                                       (i=0 for face-on systems)
      integer*4     GVhel       ! (km/s) ? Heliocentric recession velocity
      character*1   u_GVhel     ! Uncertainty flag (:) on GVhel
      real*4        z           ! ? Redshift z (for z>1)
      character*6   Gtype       ! *Morphological type
      real*4        GlogR       ! ? Decimal log of axial ratio
      real*4        GlogD       ! ([0.1arcmin]) ? Decimal log of apparent isophotal
*                                       major diameter
      integer*4     GTRC3       ! ? Numerical code of morphological type as
*                                       in RC3
      integer*4     GLcRC3      ! ? Luminosity class as in RC3
      real*8        EWoff       ! (arcsec) ? E/W offset of SN in arcsec from
*                                      the nucleus of the parent galaxy
      character*1   n_EWoff     ! [EW] East or West direction
      real*8        NSoff       ! (arcsec) ? N/S offset of SN from nucleus
      character*1   n_NSoff     ! [NS] North or South direction
      real*4        mag         ! (mag) ? Magnitude of SN
      character*1   l_mag       ! *[>=] Note about the magnitude
      character*1   n_mag       ! *[UBVRIJHKLgriz*] Passband of photometry
      character*1   u_mag       ! Uncertainty flag (:) on mag
      character*1   Rem         ! *[* ] Method of supernova discovery
      character*5   datMax      ! Date of maximum light (within year)
      character*1   u_datMax    ! [: *] ':' Uncertainty flag on datMax;
*                                        '*' means that dates of maximum light
*                                        and discovery are from different years
      character*5   datDisc     ! Date of discovery (within year)
      character*7   Type        ! SN type
      integer*4     RAh         ! (h) [0/23]? SN Right Ascension (J2000.0)
      integer*4     RAm         ! (min) [0/60[? SN Right Ascension (J2000.0)
      real*4        RAs         ! (s) [0/60[? SN Right Ascension (J2000.0)
      character*1   DE_         ! SN Declination (J2000.0)
      integer*4     DEd         ! (deg) [0/90]? SN Declination (J2000.0)
      integer*4     DEm         ! (arcmin) [0/60[? SN Declination (J2000.0)
      real*4        DEs         ! (arcsec) [0/60[? SN Declination (J2000.0)
      character*2   Uncert      ! [? ] "?" and "??" designate uncertain
*                                       and very uncertain SN.
      character*2   Code        ! *Code for SN search programme (Observatory)
      character*136 Disc        ! Discoverer(s)
*Note on r_Gmag:
*    1 = from PGC catalogue,
*    2 = from the IAU Circular reporting SN discovery,
*    3 = from database NED,
*    4 = from database LEDA,
*    5 = means that it is total I-magnitude of the host galaxy
*Note on Gtype:
*       The symbols "L" and "E" in 63-d position mean accordingly late and early
*       types of host galaxies
*Note on l_mag:
*     ">" means "brighter than or equal to",
*     "=" denotes the magnitude at maximum
*Note on n_mag:
*     "UBVRIJHKL" means observations in standard Johnson-Cousins passbands,
*     "griz" - for data obtained in SDSS or HST bands,
*     "*"  means that description of magnitude system is presented
*          in remarks for the catalog.
*Note on Rem:
*     "*" means photographical discovery.
*Note on Code: Observatory code where SN was discovered is as follows:
*    AB = Abastumani Observatory
*    AS = Asiago Observatory
*    BA = Berkeley Automatic SN search
*    CA = Cote d'Azur Observatory
*    CR = Cerro el Roble Observatory
*    CT = Cerro Tololo Observatory
*    EV = Visual SN search of R.Evans
*    GA = Sternberg Astronomical Institute
*    MN = SNe discovered by R.H. McNaught
*    KO = Konkoly Observatory
*    P1 = Palomar Observatory SN search 1958-1974
*    P2 = Palomar Observatory SN search 1937-1940
*    P3 = SNe discovered on POSS plates
*    P4 = SNe discovered on plates of second POSS
*    ZM = Zimmerwald Observatory
*    SC = The Supernova Cosmology Project (S. Perlmutter et al.)
*    HZ = High-Z Supernova Search Team (R.P. Kirshner, P. Garnavich,
*         P. Challis et al.)
*    PE = Perth observatory supernova search program (A. Williams and R. Martin)
*    MS = Mount Stromlo Abell Cluster Supernova Search Team
*         (L. Germany, D. Reiss, C. Stubbs, B. Schmidt, S. Chan)
*    BE = Beijing Astronomical Observatory Supernova Survey
*         (Weidong Li, Qiran Qiao, Yulei Qiu, Jingyao Hu)
*    KU = Supernovae discovered by R.Kushida, Yatsugatake South Base
*         Observatory, Japan
*    JP = Other Japanese Professionals and Amateurs (Aoki, K. Okazaki et al.)
*    IT = Italian Professionals and Amateurs
*         (S. Pesci, M. Villi, A. Gabrielcic et al.)
*    WJ = Supernovae discovered by W. Johnson, CA
*    TE = Supernovae discovered by M. Schwartz (Tenagra Observatory, Oregon, USA)
*    ER = Experience de Recherche d'Objets Sombres (EROS) collaboration
*         (O. Perdereau, J.C. Hamilton)
*    MD = University of Texas McDonald Observatory Supernova Search Team
*         (M.T. Adams, T. Montemayor, D.A. Howell, J.C. Wheeler, M.H. Ward,
*          and W. Wren)
*    HB = Supernovae discovered with help of HST
*    WS = Wise Observatory Optical Transients Search
*    NG = Nearby Galaxies Supernova Search Team
*    EC = European Supernova Cosmology Consortium
*    ST = STRESS team (E. Cappellaro, A. Pastorello, M. Prevedello, M. Salvo,
*         and M. Turatto, Padova; J. Danziger, P. Mazzali and L. Rizzi,
*         Trieste, F. Patat - ESO
*    PP = PUC-Padova Supernova Search. See IAU Circulars NN 7537, 7549
*    LT = The collaboration of the Lick Observatory Supernova Search
*         and the Tenagra Observatory Supernova Search (using the KAIT and
*         Tenagra II, III automated telescopes)
*    LI = Lick Observatory Supernova Search)
*    __ = Other notes for individual supernovae.

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'notes.dat'	! Notes to individual supernovae
                             (from II/218 version)

      integer*4 nr__1
      parameter (nr__1=188)	! Number of records
      character*80 ar__1  	! Full-size record

      character*6   SN_1        ! SN designation
      character*72  Note        ! Text of note

C=============================================================================

C  Loading file 'sn.dat'	! The Catalog

C  Format for file interpretation

    1 format(
     +  A6,A1,A12,I2,1X,F5.2,1X,A1,I2,1X,F4.1,1X,F4.1,1X,I1,1X,I3,1X,
     +  I2,I6,A1,1X,F5.3,A6,1X,F4.2,F5.2,1X,I2,1X,I1,1X,F7.2,A1,F7.2,
     +  A1,1X,F4.1,A1,A1,A1,1X,A1,2X,A5,A1,A5,1X,A7,I2,1X,I2,1X,F6.3,
     +  A1,I2,1X,I2,1X,F5.2,1X,A2,1X,A2,1X,A136)

C  Effective file loading

      open(unit=1,status='old',file=
     +'sn.dat')
      write(6,*) '....Loading file: sn.dat'
      do i__=1,2991
        read(1,'(A300)')ar__
        read(ar__,1)
     +  SN,n_SN,Gname,RAGh,RAGm,DEG_,DEGd,DEGm,Gmag,r_Gmag,Gpa,Gi,
     +  GVhel,u_GVhel,z,Gtype,GlogR,GlogD,GTRC3,GLcRC3,EWoff,n_EWoff,
     +  NSoff,n_NSoff,mag,l_mag,n_mag,u_mag,Rem,datMax,u_datMax,
     +  datDisc,Type,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Uncert,Code,Disc
        if(ar__(20:21) .EQ. '') RAGh = iNULL__
        if(ar__(23:27) .EQ. '') RAGm = rNULL__
        if(ar__(30:31) .EQ. '') DEGd = iNULL__
        if(ar__(33:36) .EQ. '') DEGm = rNULL__
        if(ar__(38:41) .EQ. '') Gmag = rNULL__
        if(ar__(43:43) .EQ. '') r_Gmag = iNULL__
        if(ar__(45:47) .EQ. '') Gpa = iNULL__
        if(ar__(49:50) .EQ. '') Gi = iNULL__
        if(ar__(51:56) .EQ. '') GVhel = iNULL__
        if(ar__(59:63) .EQ. '') z = rNULL__
        if(ar__(71:74) .EQ. '') GlogR = rNULL__
        if(ar__(75:79) .EQ. '') GlogD = rNULL__
        if(ar__(81:82) .EQ. '') GTRC3 = iNULL__
        if(ar__(84:84) .EQ. '') GLcRC3 = iNULL__
        if(ar__(86:92) .EQ. '') EWoff = rNULL__
        if(ar__(94:100) .EQ. '') NSoff = rNULL__
        if(ar__(103:106) .EQ. '') mag = rNULL__
        if(ar__(133:134) .EQ. '') RAh = iNULL__
        if(ar__(136:137) .EQ. '') RAm = iNULL__
        if(ar__(139:144) .EQ. '') RAs = rNULL__
        if(ar__(146:147) .EQ. '') DEd = iNULL__
        if(ar__(149:150) .EQ. '') DEm = iNULL__
        if(ar__(152:156) .EQ. '') DEs = rNULL__
        RAdeg = rNULL__
        DEdeg = rNULL__
c  Derive coordinates RAdeg and DEdeg from input data
c  (RAdeg and DEdeg are set to rNULL__ when unknown)
        if(RAh .GT. -180) RAdeg=RAh*15.
        if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
        if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
        if(DEd .GE. 0) DEdeg=DEd
        if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
        if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,1)
     +  SN,n_SN,Gname,RAGh,RAGm,DEG_,DEGd,DEGm,Gmag,r_Gmag,Gpa,Gi,
     +  GVhel,u_GVhel,z,Gtype,GlogR,GlogD,GTRC3,GLcRC3,EWoff,n_EWoff,
     +  NSoff,n_NSoff,mag,l_mag,n_mag,u_mag,Rem,datMax,u_datMax,
     +  datDisc,Type,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Uncert,Code,Disc
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'notes.dat'	! Notes to individual supernovae
*                             (from II/218 version)

C  Format for file interpretation

    2 format(A6,2X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'notes.dat')
      write(6,*) '....Loading file: notes.dat'
      do i__=1,188
        read(1,'(A80)')ar__1
        read(ar__1,2)SN_1,Note
c    ..............Just test output...........
        write(6,2)SN_1,Note
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end