home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / dalib / reduct / loctest.f < prev    next >
Text File  |  1993-06-25  |  663b  |  36 lines
  1.       program loctest
  2.  
  3.       integer N
  4.       parameter (N = 5)
  5.  
  6.       integer A(N), B(N,N), S
  7.       integer I, J, POS, POS1
  8.  
  9.       A = 1
  10.       A(3) = 0
  11.  
  12.       B = 3
  13.       B (4,2) = 1
  14.  
  15.       S = 1000
  16.       POS = 1
  17. !hpf$ independent, local_access
  18.       do I=1, N 
  19.          reduce (MINVAL, S, A(I), POS, I)
  20.       end do
  21.       print *, 'A: minval = ', S, ' minpos = ', POS
  22.  
  23.       S = 1000
  24.       POS = 1
  25.       POS1 = 1
  26. !hpf$ independent, local_access
  27.       do J=1, N
  28. !hpf$ independent, local_access
  29.         do I=1, N 
  30.          reduce (MINVAL, S, B(I,J), POS, I, POS1, J)
  31.         end do
  32.       end do
  33.       print *, 'B: minval = ', S, ' minpos = ', POS, POS1
  34.  
  35.       end
  36.