allocate-RelativeDifference.inc

#ifndef use_allocatable
# if defined(mms)
      memerr = .false.
# endif
# include "pointer_init-RelativeDifference.inc"
#endif
#ifdef use_allocatable
      allocate(w(n), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('w-Relati', 'fference',
     &     ipw, (n), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('w-Relati', (n), ipw, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipw = MALLOC (bytes_per_real*(n))
      if (ipw .eq. 0) then
# elif defined(aix)
      ipw = MALLOC (%val(bytes_per_real*(n)))
      if (ipw .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipw, (n), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif
#ifdef use_allocatable
      allocate(z(n), stat=memerr)
      if (memerr .ne. 0) then
#else
# if defined(mmsl)
      call MMGETBLK ('z-Relati', 'fference',
     &     ipz, (n), 1, memerr)
      if (memerr .ne. 0) then
# elif defined(mms)
      call CGETVAR ('z-Relati', (n), ipz, memerr)
      if (memerr) then
# elif defined(sun) || defined(hpux) || defined(irix) || defined(osf1)
      ipz = MALLOC (bytes_per_real*(n))
      if (ipz .eq. 0) then
# elif defined(aix)
      ipz = MALLOC (%val(bytes_per_real*(n)))
      if (ipz .eq. 0) then
# elif defined(cray)
      call HPALLOC (ipz, (n), memerr, 0)
      if (memerr .ne. 0) then
# endif
#endif
       status = -2
       goto 9999
      endif