Category : Files from Magazines
Archive   : JAN94.ZIP
Filename : SHARED.ASC

_SHARED MEMORY AND PC SUPERCOMPUTING_
by Stephen Fried


Example 1:

(a)

N = 1000
DO 100 I= 1,N
DO 100 J= 1,N
100 Result(j,i) = a(i)*x(j)**4 + b(i)*x(j)**3 +
& c(i)*x(j)**2 +d(i)*x(j) +e(i)



(b)

Subroutine POLY(x,result,N,a,b,c,d,e,iend,istart)
real*4 x(N),result(N),a,b,c,d,e
integer*4 N,iend,istart
DO 100 J= istart,iend
100 Result(j) = a*x(j)**4 + b*x(j)**3 + c*x(j)**2 + d*x(j) +e
END



(c)

STRUCTURE/Module_control_block/
integer*4 istart
integer*4 iend
integer*4 x_ptr
integer*4 res_ptr
real*4 a
real*4 b
real*4 c
real*4 d
real*4 e
END STRUCTURE
RECORD /Module_control_block/MCB(4)