deallocate-LeftJustifyMatrix.inc

#ifdef use_allocatable
      if (allocated(tmp)) deallocate( tmp )
#else
# if defined(mmsl)
      if (iptmp .ne. 0) then
       call MMRELBLK ('tmp-Left', 'fyMatrix', iptmp, memerr)
      endif
# elif defined(mms)
      if (iptmp .ne. 0) call RELVAR ('tmp-Left', memerr)
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      if (iptmp .ne. 0) call FREE (iptmp)
# elif defined(aix)
      if (iptmp .ne. 0) call FREE (%val(iptmp))
# elif defined(cray)
      if (iptmp .ne. 0) call HPDEALLC (iptmp, memerr, 0)
# endif
#endif
#ifdef use_allocatable
      if (allocated(jtmp)) deallocate( jtmp )
#else
# if defined(mmsl)
      if (ipjtmp .ne. 0) then
       call MMRELBLK ('jtmp-Lef', 'fyMatrix', ipjtmp, memerr)
      endif
# elif defined(mms)
      if (ipjtmp .ne. 0) call RELVAR ('jtmp-Lef', memerr)
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      if (ipjtmp .ne. 0) call FREE (ipjtmp)
# elif defined(aix)
      if (ipjtmp .ne. 0) call FREE (%val(ipjtmp))
# elif defined(cray)
      if (ipjtmp .ne. 0) call HPDEALLC (ipjtmp, memerr, 0)
# endif
#endif