- #1

- 4

- 0

Hey guys, I'm pretty new and desperate. I been trying to compile this program for a while and keep jumping from error to error.

Currently I have the following error:

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

I have checked that my arrays are correctly. I have checked that all my arguments are correct, also, all my # of arguments during calls are correct. I don't know where else to go and check. Any suggestions?

The section of my program is here:

k1 = ODEfunction(time,y,neqn)

k2 = ODEfunction(time+c1*h, y(1:neqn)+k1*c1*h, neqn)

k3 = ODEfunction(time+c2*h, y(1:neqn)+(c3*k1+c4*k2)*h, neqn)

k4 = ODEfunction(time+c5*h, y(1:neqn)+(c6*k1-c7*k2+c8*k3)*h, neqn)

k5 = ODEfunction(time+h, y(1:neqn)+(-c9*k1+c10*k2-c11*k3+c12*k4)*h, neqn)

k6 = ODEfunction(time+c13*h, y(1:neqn)+&

&(c14*k1+c15*k2+c16*k3+c17*k4+c18*k5)*h, neqn)

the exact errors say:

RFK.f90:65.20:

k2 = ODEfunction(time+c1*h, y(1:neqn)+k1*c1*h, neqn)

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

RFK.f90:66.20:

k3 = ODEfunction(time+c2*h, y(1:neqn)+(c3*k1+c4*k2)*h, neqn)

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

RFK.f90:67.20:

k4 = ODEfunction(time+c5*h, y(1:neqn)+(c6*k1-c7*k2+c8*k3)*h, neqn)

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

RFK.f90:69.20:

k6 = ODEfunction(time+c13*h, y(1:neqn)+&

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

Currently I have the following error:

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

I have checked that my arrays are correctly. I have checked that all my arguments are correct, also, all my # of arguments during calls are correct. I don't know where else to go and check. Any suggestions?

The section of my program is here:

k1 = ODEfunction(time,y,neqn)

k2 = ODEfunction(time+c1*h, y(1:neqn)+k1*c1*h, neqn)

k3 = ODEfunction(time+c2*h, y(1:neqn)+(c3*k1+c4*k2)*h, neqn)

k4 = ODEfunction(time+c5*h, y(1:neqn)+(c6*k1-c7*k2+c8*k3)*h, neqn)

k5 = ODEfunction(time+h, y(1:neqn)+(-c9*k1+c10*k2-c11*k3+c12*k4)*h, neqn)

k6 = ODEfunction(time+c13*h, y(1:neqn)+&

&(c14*k1+c15*k2+c16*k3+c17*k4+c18*k5)*h, neqn)

the exact errors say:

RFK.f90:65.20:

k2 = ODEfunction(time+c1*h, y(1:neqn)+k1*c1*h, neqn)

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

RFK.f90:66.20:

k3 = ODEfunction(time+c2*h, y(1:neqn)+(c3*k1+c4*k2)*h, neqn)

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

RFK.f90:67.20:

k4 = ODEfunction(time+c5*h, y(1:neqn)+(c6*k1-c7*k2+c8*k3)*h, neqn)

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)

RFK.f90:69.20:

k6 = ODEfunction(time+c13*h, y(1:neqn)+&

1

Error: Rank mismatch in argument 't' at (1) (scalar and rank-1)