deallocate-Jacobi_ELL.inc

#ifdef use_allocatable
      if (allocated(xtmp)) deallocate( xtmp )
#else
# if defined(mmsl)
      if (ipxtmp .ne. 0) then
       call MMRELBLK ('xtmp-Jac', 'cobi_ELL', ipxtmp, memerr)
      endif
# elif defined(mms)
      if (ipxtmp .ne. 0) call RELVAR ('xtmp-Jac', memerr)
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      if (ipxtmp .ne. 0) call FREE (ipxtmp)
# elif defined(aix)
      if (ipxtmp .ne. 0) call FREE (%val(ipxtmp))
# elif defined(cray)
      if (ipxtmp .ne. 0) call HPDEALLC (ipxtmp, memerr, 0)
# endif
#endif