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