_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)