NCEPLIBS-bufr  12.0.0
mrginv.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Print a summary of merge activity.
3 C>
4 C> @author J. Woollen @date 1996-10-09
5 
6 C> This subroutine prints a summary of merge activity.
7 C>
8 C> @author J. Woollen @date 1996-10-09
9  SUBROUTINE mrginv
10 
11  COMMON /mrgcom/ nrpl,nmrg,namb,ntot
12  COMMON /quiet / iprt
13 
14  CHARACTER*128 ERRSTR
15 
16 C-----------------------------------------------------------------------
17 C-----------------------------------------------------------------------
18 
19  IF(iprt.GE.0) THEN
20  CALL errwrt('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
21  CALL errwrt('---------------------------------------------------')
22  CALL errwrt('INVENTORY FROM MERGE PROCESS IN SUBROUTINE INVMRG:')
23  CALL errwrt('---------------------------------------------------')
24  WRITE ( unit=errstr, fmt='(A,I8)' )
25  . 'NUMBER OF DRB EXPANSIONS = ', nrpl
26  CALL errwrt(errstr)
27  WRITE ( unit=errstr, fmt='(A,I8)' )
28  . 'NUMBER OF MERGES = ', nmrg
29  CALL errwrt(errstr)
30  WRITE ( unit=errstr, fmt='(A,I8)' )
31  . 'NUMBER THAT ARE AMBIGUOUS = ', namb
32  CALL errwrt(errstr)
33  CALL errwrt('---------------------------------------------------')
34  WRITE ( unit=errstr, fmt='(A,I9)' )
35  . 'TOTAL NUMBER OF VISITS = ', ntot
36  CALL errwrt(errstr)
37  CALL errwrt('---------------------------------------------------')
38  CALL errwrt('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
39  CALL errwrt(' ')
40  ENDIF
41 
42  RETURN
43  END
errwrt
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition: errwrt.f:36
mrginv
subroutine mrginv
This subroutine prints a summary of merge activity.
Definition: mrginv.f:10