anchor.diff:        common /MatlabAPI_COMA4/ Apx4
   !-LOC
         mwPointer :: zaddress
  -      mwSize :: stride
  +      mwSize :: stride, n1, n2, n3, n4
   !-----
         nullify(fp)
         zaddress = loc(z)
  
positive.code:           stride = fpStride(z)
            if( stride /= 0 .and. size(z) /= 0 ) then
                zaddress = loc(z(1,1,1,1,1,1))
                call MatlabAPI_COM_Apx6( %VAL(zaddress+8), 2*stride,      &
       &                                 (/ size(z,1), size(z,2),         &
       &                                    size(z,3), size(z,4),         &
       &                                    size(z,5), size(z,6) /) )
                fp => Apx6
            endif
        endif
  
negative.code:       common /MatlabAPI_COMA5/ Apx5
  !-LOC
        mwPointer :: zaddress
        mwSize :: stride, n1, n2, n3, n4, n5
  !-----
        nullify(fp)
        zaddress = loc(z)
  