var/external/bufr/mrginv.f

   1       SUBROUTINE MRGINV
   2
   3 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   4 C
   5 C SUBPROGRAM:    MRGINV
   6 C   PRGMMR: WOOLLEN          ORG: NP20       DATE: 1996-10-09
   7 C
   8 C ABSTRACT: THIS SUBROUTINE PRINTS A SUMMARY OF MERGE ACTIVITY.
   9 C
  10 C PROGRAM HISTORY LOG:
  11 C 1996-10-09  J. WOOLLEN -- ORIGINAL AUTHOR (ENTRY POINT IN INVMRG)
  12 C 2002-05-14  J. WOOLLEN -- CHANGED FROM AN ENTRY POINT TO INCREASE
  13 C                           PORTABILITY TO OTHER PLATFORMS
  14 C 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
  15 C                           INTERDEPENDENCIES
  16 C 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
  17 C                           DOCUMENTATION (INCLUDING HISTORY)
  18 C 2009-04-21  J. ATOR    -- USE ERRWRT
  19 C
  20 C USAGE:    CALL MRGINV
  21 C
  22 C REMARKS:
  23 C    THIS ROUTINE CALLS:        ERRWRT
  24 C    THIS ROUTINE IS CALLED BY: None
  25 C                               Normally called only by application
  26 C                               programs.
  27 C
  28 C ATTRIBUTES:
  29 C   LANGUAGE: FORTRAN 77
  30 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  31 C
  32 C$$$
  33
  34       COMMON /MRGCOM/ NRPL,NMRG,NAMB,NTOT
  35       COMMON /QUIET / IPRT
  36
  37       CHARACTER*128 ERRSTR
  38
  39 C-----------------------------------------------------------------------
  40 C-----------------------------------------------------------------------
  41
  42       IF(IPRT.GE.0) THEN
  43       CALL ERRWRT('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
  44       CALL ERRWRT('---------------------------------------------------')
  45       CALL ERRWRT('INVENTORY FROM MERGE PROCESS IN SUBROUTINE INVMRG:')
  46       CALL ERRWRT('---------------------------------------------------')
  47       WRITE ( UNIT=ERRSTR, FMT='(A,I8)' )
  48      .  'NUMBER OF DRB EXPANSIONS  = ', NRPL
  49       CALL ERRWRT(ERRSTR)
  50       WRITE ( UNIT=ERRSTR, FMT='(A,I8)' )
  51      .  'NUMBER OF MERGES          = ', NMRG
  52       CALL ERRWRT(ERRSTR)
  53       WRITE ( UNIT=ERRSTR, FMT='(A,I8)' )
  54      .  'NUMBER THAT ARE AMBIGUOUS = ', NAMB
  55       CALL ERRWRT(ERRSTR)
  56       CALL ERRWRT('---------------------------------------------------')
  57       WRITE ( UNIT=ERRSTR, FMT='(A,I9)' )
  58      .  'TOTAL NUMBER OF VISITS    = ', NTOT
  59       CALL ERRWRT(ERRSTR)
  60       CALL ERRWRT('---------------------------------------------------')
  61       CALL ERRWRT('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
  62       CALL ERRWRT(' ')
  63       ENDIF
  64
  65       RETURN
  66       END