allocate-LeftJustifyMatrix.inc

#ifndef use_allocatable
# if defined(mms)
      memerr = .false.
# endif
# include "pointer_init-LeftJustifyMatrix.inc"
#endif
#ifdef use_allocatable
      allocate(tmp(maxnz), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('tmp-Left', 'fyMatrix',
     &     iptmp, (maxnz), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('tmp-Left', (maxnz), iptmp, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      iptmp = MALLOC (bytes_per_real*(maxnz))
      if (iptmp .eq. 0) then
# elif defined(aix)
      iptmp = MALLOC (%val(bytes_per_real*(maxnz)))
      if (iptmp .eq. 0) then
# elif defined(cray)
      call HPALLOC (iptmp, (maxnz), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(jtmp(maxnz), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('jtmp-Lef', 'fyMatrix',
     &     ipjtmp, (maxnz), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('jtmp-Lef', (maxnz), ipjtmp, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipjtmp = MALLOC (bytes_per_int*(maxnz))
      if (ipjtmp .eq. 0) then
# elif defined(aix)
      ipjtmp = MALLOC (%val(bytes_per_int*(maxnz)))
      if (ipjtmp .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipjtmp, (maxnz), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif