strcln.f

Go to the documentation of this file.

C> @file
C> @author WOOLLEN @date 1994-01-06
      
C> THIS SUBROUTINE RESETS THE MNEMONIC STRING CACHE IN THE
C>   BUFR INTERFACE (ARRAYS IN COMMON BLOCK /STCACH/).  THE MNEMONIC
C>   STRING CACHE IS A PERFORMANCE ENHANCING DEVICE WHICH SAVES TIME
C>   WHEN THE SAME MNEMONIC STRINGS ARE ENCOUNTERED IN A PROGRAM, OVER
C>   AND OVER AGAIN (THE TYPICAL SCENARIO).
C>
C> PROGRAM HISTORY LOG:
C> 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
C> 1998-04-02  J. WOOLLEN -- MODIFIED TO ENLARGE THE CACHE FROM 50
C>                           ELEMENTS TO 1000, MAXIMUM
C> 1998-07-08  J. WOOLLEN -- CORRECTED SOME MINOR ERRORS
C> 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C>                           INTERDEPENDENCIES
C> 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
C>                           DOCUMENTATION (INCLUDING HISTORY)
C>
C> USAGE:    CALL STRCLN
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        None
C>    THIS ROUTINE IS CALLED BY: MAKESTAB
C>                               Normally not called by any application
C>                               programs.
C>
      SUBROUTINE strcln

      USE modv_mxs

      COMMON /stcach/ mstr,nstr,lstr,luns(mxs,2),usrs(mxs),icon(52,mxs)
      CHARACTER*80 usrs

      mstr = mxs
      nstr = 0
      lstr = 0
      RETURN
      END