exitbufr.f

Go to the documentation of this file.

C> @file
C> @brief Reset the BUFRLIB software for potential dynamic
C> reallocation of memory.

C> This subroutine frees all dynamically-allocated memory,
C> closes all logical units that are open within the
C> BUFRLIB software, and resets the library to all of its
C> default settings as though it had never been called.
C>   
C> @author J. Ator
C> @date 2015-03-02
C>
C> @remarks
C> - Calling this subroutine allows an application program to
C>   potentially resize arrays and reallocate memory all over again
C>   with a new subsequent series of calls to subroutines isetprm()
C>   and openbf().  However, if and when this subroutine is called,
C>   there is no longer any internal memory available within the
C>   BUFRLIB software, and the remainder of the library becomes
C>   essentially unusable within the application program, unless
C>   and until subroutine openbf() is called once again to
C>   dynamically allocate new array space.  This may be a useful
C>   capability for application programs that are finished with
C>   using the BUFRLIB software and wish to move on to other
C>   unrelated tasks without continuing to tie up all of the
C>   allocated memory space within the library.  Otherwise, and
C>   unless there's a need to change parameter sizes following the
C>   first call to subroutine openbf(), then there's no need to ever
C>   call this subroutine within an application program, since all
C>   allocated memory will automatically get freed anyway by the
C>   operating system once the application program terminates.
C>
C> <b>Program history log:</b>
C> - 2015-03-02  J. Ator    -- Original author
C>
    SUBROUTINE exitbufr

    USE modv_ifopbf
    USE moda_stbfr
    USE moda_s01cm

    COMMON /tablef/ cdmf

    CHARACTER*1 cdmf

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

C   Close any logical units that are open to the library.

    DO jj = 1, nfiles
      IF ( iolun(jj) .NE. 0 ) CALL closbf( abs(iolun(jj)) )
    END DO

C   Deallocate all allocated memory.

    CALL ardllocf

    IF ( cdmf .EQ. 'Y' ) CALL dlloctbf

C   Reset the library.

    ns01v = 0
    ifopbf = 0

    RETURN
    END