Okay, here's something that reproduces the error.
PROGRAM toy
REAL, DIMENSION(2) :: z
z(1) = 1
z(2) = 2
z = array_valued_function(z)
PRINT *, z
END PROGRAM toy
FUNCTION array_valued_function(x)
REAL, DIMENSION(2) :: array_valued_function,x
array_valued_function...
Hi all,
I'm new to Physics Forums, but not to physics, since I'm now doing my MSc. I've had a persistent problem in a segment of my Fortran code that I've worked around, but would like to fix.
The long and short is that I'm integrating a six-dimensional ODE with a fourth-order Runge-Kutta...