Fortran subroutine returns the input when called by R

Question

I have a 4D array in R and trying to interpolate between the levels in the 3rd dimension. For that, I\'m using a Fortran subroutine shown below, it compiles perfectly but I run