Error: Invalid form of array reference at (1)

[laurbert515]

this works fine ...
---------------------------------------------------
do phicounter = 1,nphi
  do thetacounter = 1,ntheta
    do rcounter = 1, nr
      summation = summation +
f(thetacounter,phicounter)*(r(rcounter)**2)*sin(theta(thetacounter))*wr(rcounter)*wtheta(thetacounter)*wphi(phicounter)
    enddo
  enddo
enddo
----------------------------------------------------

while this gives me the error referenced in the subject title ...

---------------------------------------------------
do phicounter = 1,nphi
  do thetacounter = 1,ntheta
    do rcounter = 1, nr
      summation = summation +
f(thetacounter,phicounter)*(r(rcounter)**2)*sin(theta(thetacounter))*wtheta(thetacounter)*wphi(phicounter)
    enddo
  enddo
enddo
-----------------------------------------------------

all i am doing is taking wr(rcounter) out of the loop. the error seems to go
away and come back inexplicably. the error goes away if i take
wphi(phicounter) away as well, and i had re-arranged things earlier and
found that even the positioning of some of the terms would make it appear.
any idea what this is?

for what it's worth, the "1" appears after the 'phicoun' in:

(r(rcounter)**2)*sin(theta(thetacounter))*wtheta(thetacounter)*wphi(phicoun



-- 
View this message in context: http://old.nabble.com/Error%3A-Invalid-form-of-array-reference-at-%281%29-tp30876985p30876985.html
Sent from the gcc - fortran mailing list archive at Nabble.com.