PARAMETER       ( MXRECL = 100 )
C*                                    Maximum length of a Canadian RG/WL
C*                                    input file record (in characters)
C*
        PARAMETER       ( MXFLDS = 20 )
C*                                    Maximum number of fields that
C*                                    can be read from a Canadian RG/WL
C*                                    input file record
C
C************************************************************************
C*  / BLOCK5 / and / BLOCK7 /                                           *
C*                                                                      *
C*  This common area contains the station information.                  *
C************************************************************************
        COMMON /BLOCK5/  selv, slat, slon
C
        COMMON /BLOCK7/  stnid, stnnam, datum, chdatum, tmzone,
     +                   coun, stat, statyp
C
        INTEGER         MTBLSZ
        PARAMETER       ( MTBLSZ = 100 )
C*                                      Maximum number of stations
C
        REAL              slat(MTBLSZ), slon(MTBLSZ), selv(MTBLSZ),
     +                    chdatum(MTBLSZ)
C
        CHARACTER*32    stnnam(MTBLSZ)
        CHARACTER*25    datum(MTBLSZ)
        CHARACTER*8     stnid(MTBLSZ)
        CHARACTER*10    tmzone(MTBLSZ)
        CHARACTER*2     coun(MTBLSZ), stat(MTBLSZ), statyp(MTBLSZ)
C
C************************************************************************
C* Canadian station variables written to BUFR                           *
C*      stnid           CHAR            Station id                      *
C*      stnnam          CHAR            Station name                    *
C*      coun            CHAR            Station country                 *
C*      stat            CHAR            Station country state/province  *
C*      slat            REAL            Station latitude                *
C*      slon            REAL            Station longitude               *
C*      selv            REAL            Station elevation               *
C                                                                       *
C* Other variables                                                      *
C*      datum           CHAR            Station Datum                   *
C*      chdatum         REAL            Station chart Datum elevation   * 
C*      tmzone          CHAR            Station time zone               *
C*      statyp          CHAR            Station type (WL/RG)            *
C************************************************************************

      COMMON / outrec / logmsg
C
      CHARACTER * 1000 logmsg

C*