declare-LeftJustifyMatrix.inc

#ifdef use_allocatable
      integer memerr
#else
# if defined(mmsl)
      integer memerr
# elif defined(mms)
      logical memerr
# elif defined(cray)
      integer memerr
# else
      integer MALLOC
# endif
# ifdef osf1
      external MALLOC
      external FREE
# endif
#endif
#ifdef use_allocatable
      real, allocatable, dimension(:) :: tmp
#else
      pointer (iptmp, tmp)
# ifdef strict_f77
#  if defined(cray) || defined(hpux) || defined(fujitsu) || defined(irix) || defined(osf1)
      real tmp(1)
#  else
      real tmp(*)
#  endif
# else
      real tmp(maxnz)
# endif
#endif
#ifdef use_allocatable
      integer, allocatable, dimension(:) :: jtmp
#else
      pointer (ipjtmp, jtmp)
# ifdef strict_f77
#  if defined(cray) || defined(hpux) || defined(fujitsu) || defined(irix) || defined(osf1)
      integer jtmp(1)
#  else
      integer jtmp(*)
#  endif
# else
      integer jtmp(maxnz)
# endif
#endif