SUBROUTINE ARDLLOCF

C$$$  SUBPROGRAM DOCUMENTATION BLOCK
C
C SUBPROGRAM:    ARDLLOCF
C   PRGMMR: ATOR             ORG: NP12       DATE: 2014-12-04
C
C ABSTRACT:  THIS SUBROUTINE FREES ANY MEMORY THAT WAS DYNAMICALLY
C   ALLOCATED BY PREVIOUS CALLS TO BUFR ARCHIVE LIBRARY ROUTINES
C   ARALLOCF OR ARALLOCC.
C
C   NOTE THAT THIS SUBROUTINE IS CALLED WITHIN BUFR ARCHIVE LIBRARY
C   SUBROUTINE EXITBUFR AS PART OF THE PROCESS TO RESET THE LIBRARY AND
C   PREPARE IT FOR POTENTIAL RE-ALLOCATION OF NEW ARRAY SPACE VIA ONE OR
C   MORE SUBSEQUENT CALLS TO SUBROUTINES ISETPRM AND OPENBF.  THIS
C   SUBROUTINE SHOULD ONLY BE CALLED DIRECTLY BY AN APPLICATION PROGRAM
C   IF THE PROGRAM IS COMPLETELY FINISHED WITH ALL CALLS TO ALL OTHER
C   BUFR ARCHIVE LIBRARY ROUTINES, BECAUSE THE MEMORY FREED HEREIN WILL
C   RENDER THE LIBRARY AS EFFECTIVELY UNUSABLE FOR THE REMAINDER OF THE
C   LIFE OF THE APPLICATION PROGRAM.  HOWEVER, THIS MAY BE A USEFUL
C   OPTION FOR APPLICATION PROGRAMS WHICH WANT TO MOVE ON TO OTHER
C   UNRELATED TASKS WITHOUT CONTINUING TO TIE UP A SIGNIFICANT AMOUNT
C   OF DYNAMICALLY-ALLOCATED HEAP MEMORY RELATED TO THIS LIBRARY.
C   OTHERWISE, ALL SUCH MEMORY WILL BE FREED AUTOMATICALLY ONCE THE
C   APPLICATION PROGRAM TERMINATES.
C
C PROGRAM HISTORY LOG:
C 2014-12-04  J. ATOR    -- ORIGINAL AUTHOR
C
C USAGE:    CALL ARDLLOCF
C
C REMARKS:
C    THIS ROUTINE CALLS:        ARDLLOCC
C    THIS ROUTINE IS CALLED BY: EXITBUFR
C                               Also called by application programs.
C
C ATTRIBUTES:
C   LANGUAGE: FORTRAN
C   MACHINE:  PORTABLE TO ALL PLATFORMS
C
C$$$

#ifdef DYNAMIC_ALLOCATION

	USE MODA_USRINT
	USE MODA_USRBIT
	USE MODA_IVAL
	USE MODA_MSGCWD
	USE MODA_STBFR
	USE MODA_UFBCPL
	USE MODA_SC3BFR
	USE MODA_UNPTYP
	USE MODA_LUSHR
	USE MODA_NULBFR
	USE MODA_STCODE
	USE MODA_IDRDM
	USE MODA_XTAB
	USE MODA_MSGLIM
	USE MODA_BITBUF
	USE MODA_MGWA
	USE MODA_MGWB
	USE MODA_BUFRMG
	USE MODA_BUFRSR
	USE MODA_MSGMEM
	USE MODA_TABABD
	USE MODA_TABLES
	USE MODA_USRTMP
	USE MODA_IVTTMP
	USE MODA_COMPRX
	USE MODA_COMPRS
	USE MODA_MSTABS
	USE MODA_RDMTB
	USE MODA_NMIKRP
	USE MODA_S01CM

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

C	MODA_USRINT arrays.

	DEALLOCATE( NVAL )
	DEALLOCATE( INV )
	DEALLOCATE( VAL )

C	MODA_USRBIT arrays.

	DEALLOCATE( NBIT )
	DEALLOCATE( MBIT )

C	MODA_IVAL arrays.

	DEALLOCATE( IVAL )

C	MODA_MSGCWD arrays.

	DEALLOCATE( NMSG )
	DEALLOCATE( NSUB )
	DEALLOCATE( MSUB )
	DEALLOCATE( INODE )
	DEALLOCATE( IDATE )

C	MODA_STBFR arrays.

	DEALLOCATE( IOLUN )
	DEALLOCATE( IOMSG )

C	MODA_UFBCPL arrays.

	DEALLOCATE( LUNCPY )

C	MODA_SC3BFR arrays.

	DEALLOCATE( ISC3 )
	DEALLOCATE( TAMNEM )

C	MODA_UNPTYP arrays.

	DEALLOCATE( MSGUNP )

C	MODA_LUSHR arrays.

	DEALLOCATE( LUS )

C	MODA_NULBFR arrays.

	DEALLOCATE( NULL )

C	MODA_STCODE arrays.

	DEALLOCATE( ISCODES )

C	MODA_IDRDM arrays.

	DEALLOCATE( IDRDM )

C	MODA_XTAB arrays.

	DEALLOCATE( XTAB )

C	MODA_MSGLIM arrays.

	DEALLOCATE( MSGLIM )

C	MODA_BITBUF arrays.

	DEALLOCATE( IBAY )
	DEALLOCATE( MBYT )
	DEALLOCATE( MBAY )

C	MODA_MGWA arrays.

	DEALLOCATE( MGWA )

C	MODA_MGWB arrays.

	DEALLOCATE( MGWB )

C	MODA_BUFRMG arrays.

	DEALLOCATE( MSGTXT )

C	MODA_BUFRSR arrays.

	DEALLOCATE( JSR )
	DEALLOCATE( JBAY )

C	MODA_MSGMEM arrays.

	DEALLOCATE( MSGP )
	DEALLOCATE( MSGS )
	DEALLOCATE( MDX )
	DEALLOCATE( IPDXM )
	DEALLOCATE( IFDXTS )
	DEALLOCATE( ICDXTS )
	DEALLOCATE( IPMSGS )

C	MODA_TABABD arrays.

	DEALLOCATE( NTBA )
	DEALLOCATE( NTBB )
	DEALLOCATE( NTBD )
	DEALLOCATE( MTAB )
	DEALLOCATE( IDNA )
	DEALLOCATE( IDNB )
	DEALLOCATE( IDND )
	DEALLOCATE( TABA )
	DEALLOCATE( TABB )
	DEALLOCATE( TABD )

C	MODA_TABLES arrays.

	DEALLOCATE( TAG )
	DEALLOCATE( TYP )
	DEALLOCATE( KNT )
	DEALLOCATE( JUMP )
	DEALLOCATE( LINK )
	DEALLOCATE( JMPB )
	DEALLOCATE( IBT )
	DEALLOCATE( IRF )
	DEALLOCATE( ISC )
	DEALLOCATE( ITP )
	DEALLOCATE( VALI )
	DEALLOCATE( KNTI )
	DEALLOCATE( ISEQ )
	DEALLOCATE( JSEQ )

C	MODA_USRTMP arrays.

	DEALLOCATE( IUTMP )
	DEALLOCATE( VUTMP )

C	MODA_IVTTMP arrays.

	DEALLOCATE( TTMP )
	DEALLOCATE( ITMP )
	DEALLOCATE( VTMP )

C	MODA_COMPRX arrays.

	DEALLOCATE( KMIN )
	DEALLOCATE( KMAX )
	DEALLOCATE( KMIS )
	DEALLOCATE( KBIT )
	DEALLOCATE( ITYP )
	DEALLOCATE( IWID )
	DEALLOCATE( CSTR )

C	MODA_COMPRS arrays.

	DEALLOCATE( MATX )
	DEALLOCATE( CATX )

C	MODA_MSTABS arrays.

	DEALLOCATE( IBFXYN )
	DEALLOCATE( CBSCL )
	DEALLOCATE( CBSREF )
	DEALLOCATE( CBBW )
	DEALLOCATE( CBUNIT )
	DEALLOCATE( CBMNEM )
	DEALLOCATE( CBELEM )
	DEALLOCATE( IDFXYN )
	DEALLOCATE( CDSEQ )
	DEALLOCATE( CDMNEM )
	DEALLOCATE( NDELEM )
	DEALLOCATE( IDEFXY )

C	MODA_RDMTB arrays.

	DEALLOCATE( IEFXYN )
	DEALLOCATE( CMDSCB )
	DEALLOCATE( CMDSCD )
	DEALLOCATE( CEELEM )

C	MODA_NMIKRP arrays.

	DEALLOCATE( NEM )
	DEALLOCATE( IRP )
	DEALLOCATE( KRP )

C	MODA_S01CM arrays.

	DEALLOCATE( IVMNEM )
	DEALLOCATE( CMNEM )

C	C language arrays.

	CALL ARDLLOCC

#endif

	RETURN
	END