- #1
adishpatel
- 22
- 0
So, I have a bunch of errors which need resolving here but majority are based on the "out of bounds" error and hence the topic title :). Would be great if you are able to help me resolve the errors. Quite a newbie with fortran. So please bear with any silly questions that I may throw at you.
The complete code can be found at: sysden.com/Trial.f
Code:
$ make Trial1
gfortran Trial1.f -o Trial1
Trial1.f:16.24:
INTEGER IER,IW,K,J
1
Error: Symbol 'j' at (1) already has basic type of INTEGER
Trial1.f:47.11:
IW = 1500
1
Warning: Extension: Conversion from INTEGER(4) to LOGICAL(4) at (1)
Trial1.f:164.12:
DO 18, K=1,1000
1
Error: Loop variable at (1) must be INTEGER
Trial1.f:267.10:
Fxr(2) = (Ex(2)/psi)*(FR(2)/ER(2))
1
Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1
Trial1.f:268.10:
Fyr(2) = (Ey(2)/phi)*(FR(2)/ER(2))
1
Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1
Trial1.f:283.30:
F(3) = (-S(2)-2.0d0*Fxr(2)-FT(2)*X(5))/mw
1
Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1
Trial1.f:284.32:
F(4) = (-S(4)-2.0d0*a*Fyr(2))/Iwy
1
Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1
<builtin>: recipe for target 'Trial1' failed
make: *** [Trial1] Error 1
The complete code can be found at: sysden.com/Trial.f