ardllocf.F

Go to the documentation of this file.

C> @file
C> @brief Free all dynamically-allocated memory within internal
C> Fortran language arrays.

C> This subroutine frees any memory that was dynamically allocated
C> during a previous call to subroutine arallocf().
C>
C> @author J. Ator
C> @date 2014-12-04
C>
C> <b>Program history log:</b>
C> - 2014-12-04  J. Ator    -- Original author
C>
    SUBROUTINE ardllocf

#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
    USE moda_bitmaps
    USE moda_nrv203
    USE moda_rlccmn

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

C   MODA_USRINT arrays.

    DEALLOCATE( nval )
    DEALLOCATE( inv )
    DEALLOCATE( nrfelm )
    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( msglen )
    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   MODA_BITMAPS arrays.

    DEALLOCATE( inodtamc )
    DEALLOCATE( ntco )
    DEALLOCATE( ctco )
    DEALLOCATE( inodtco )
    DEALLOCATE( nbtmse )
    DEALLOCATE( istbtm )
    DEALLOCATE( iszbtm )
    DEALLOCATE( ibtmse )

C   MODA_NRV203 arrays.

    DEALLOCATE( tagnrv )
    DEALLOCATE( inodnrv )
    DEALLOCATE( nrv )
    DEALLOCATE( isnrv )
    DEALLOCATE( ienrv )

C   MODA_RLCCMN arrays.

    DEALLOCATE( irnch )
    DEALLOCATE( irbit )
    DEALLOCATE( crtag )

C   C language arrays.

    CALL ardllocc

#endif

    RETURN
    END