comp.lang.idl-pvwave archive: archive » Vectorization question

Home » Public Forums » archive » Vectorization question

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

Re: Vectorization question [message #21760 is a reply to message #21705]

Thu, 14 September 2000 00:00

Liam E. Gumley
Messages: 378
Registered: January 2000

Senior Member

Liam E. Gumley <Liam.Gumley@ssec.wisc.edu> wrote in message
news:39C1179A.EF9CA04E@ssec.wisc.edu...
> c ... This is the routine which does the work.
> c ... The arguments are defined exactly the same as in the
> c ... call_external procedure call in IDL.
> subroutine vecadd1(a, na, x, nx, b)
> integer*4 na, nx
> real*4 a(na), b(nx)
> integer*4 x(nx), i
> do i = 1, nx
> a(x(i)) = a(x(i)) + b(i)
> end do
> end

I forgot FORTRAN uses 1-based indices by default. What I *meant* to say was:

subroutine vecadd1(a, na, x, nx, b)
integer*4 na, nx
real*4 a(0:na-1), b(0:nx-1)
integer*4 x(0:nx-1), i
do i = 0, nx - 1
a(x(i)) = a(x(i)) + b(i)
end do
end

Cheers,
Liam.

Report message to a moderator

[Message index]

		Vectorization question By: Liam E. Gumley on Mon, 11 September 2000 14:51
		Re: Vectorization question By: Craig Markwardt on Mon, 18 September 2000 00:00
		Re: Vectorization question By: promashkin on Mon, 18 September 2000 00:00
		Re: Vectorization question By: promashkin on Sun, 17 September 2000 00:00
		Re: Vectorization question By: Struan Gray on Fri, 15 September 2000 00:00
		Re: Vectorization question By: Liam E. Gumley on Thu, 14 September 2000 00:00
		Re: Vectorization question By: Liam E. Gumley on Thu, 14 September 2000 00:00
		Re: Vectorization question By: Liam E. Gumley on Thu, 14 September 2000 00:00
		Re: Vectorization question By: Liam E. Gumley on Thu, 14 September 2000 00:00
		Re: Vectorization question By: Liam E. Gumley on Thu, 14 September 2000 00:00

Previous Topic:	Spherical gridding at a pole
Next Topic:	Re: CW_BGROUP

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Fri Oct 10 07:06:23 PDT 2025

Total time taken to generate the page: 1.20072 seconds