allocate-BCGS.inc

#ifndef use_allocatable
# if defined(mms)
      memerr = .false.
# endif
# include "pointer_init-BCGS.inc"
#endif
#ifdef use_allocatable
      allocate(d(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('d-BCGS', '-BCGS',
     &     ipd, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('d-BCGS', (ia(_JT_nrows_)), ipd, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipd = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipd .eq. 0) then
# elif defined(aix)
      ipd = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipd .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipd, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(h(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('h-BCGS', '-BCGS',
     &     iph, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('h-BCGS', (ia(_JT_nrows_)), iph, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      iph = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (iph .eq. 0) then
# elif defined(aix)
      iph = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (iph .eq. 0) then
# elif defined(cray)
      call HPALLOC (iph, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(q(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('q-BCGS', '-BCGS',
     &     ipq, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('q-BCGS', (ia(_JT_nrows_)), ipq, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipq = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipq .eq. 0) then
# elif defined(aix)
      ipq = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipq .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipq, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(r(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('r-BCGS', '-BCGS',
     &     ipr, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('r-BCGS', (ia(_JT_nrows_)), ipr, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipr = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipr .eq. 0) then
# elif defined(aix)
      ipr = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipr .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipr, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(u(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('u-BCGS', '-BCGS',
     &     ipu, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('u-BCGS', (ia(_JT_nrows_)), ipu, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipu = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipu .eq. 0) then
# elif defined(aix)
      ipu = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipu .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipu, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(g(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('g-BCGS', '-BCGS',
     &     ipg, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('g-BCGS', (ia(_JT_nrows_)), ipg, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipg = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipg .eq. 0) then
# elif defined(aix)
      ipg = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipg .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipg, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(v(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('v-BCGS', '-BCGS',
     &     ipv, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('v-BCGS', (ia(_JT_nrows_)), ipv, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipv = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipv .eq. 0) then
# elif defined(aix)
      ipv = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipv .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipv, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(w(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('w-BCGS', '-BCGS',
     &     ipw, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('w-BCGS', (ia(_JT_nrows_)), ipw, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipw = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipw .eq. 0) then
# elif defined(aix)
      ipw = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipw .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipw, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(work(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('work-BCG', '-BCGS',
     &     ipwork, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('work-BCG', (ia(_JT_nrows_)), ipwork, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipwork = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipwork .eq. 0) then
# elif defined(aix)
      ipwork = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipwork .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipwork, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(xold(ia(_JT_nrows_)), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('xold-BCG', '-BCGS',
     &     ipxold, (ia(_JT_nrows_)), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('xold-BCG', (ia(_JT_nrows_)), ipxold, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipxold = MALLOC (bytes_per_real*(ia(_JT_nrows_)))
      if (ipxold .eq. 0) then
# elif defined(aix)
      ipxold = MALLOC (%val(bytes_per_real*(ia(_JT_nrows_))))
      if (ipxold .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipxold, (ia(_JT_nrows_)), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif