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> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2014-12-04 | J. Ator | Original author |
C>
    SUBROUTINE ardllocf
 
    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
 
    RETURN
    END