anchor.diff:        common /MatlabAPI_COMA3/ Apx3
   !-LOC
         mwPointer :: zaddress
  -      mwSize :: stride
  +      mwSize :: stride, n1, n2, n3
   !-----
         nullify(fp)
         zaddress = loc(z)
  
positive.code:       common /MatlabAPI_COMA7/ Apx7
  !-LOC
        mwPointer :: zaddress
        mwSize :: stride
  !-----
        nullify(fp)
        zaddress = loc(z)
  
negative.code:           stride = fpStride(z)
            if( stride /= 0 .and. size(z) /= 0 ) then
                zaddress = loc(z(1,1,1,1,1,1,1))
                n1 = size(z,1)
                n2 = size(z,2)
                n3 = size(z,3)
                n4 = size(z,4)
                n5 = size(z,5)
                n6 = size(z,6)
                n7 = size(z,7)
                call MatlabAPI_COM_Apx7( %VAL(zaddress+8), 2*stride,      &
       &                                 (/ n1, n2, n3, n4, n5, n6, n7 /) )
                fp => Apx7
            endif
        endif
  