Subject: test file.

From: Du_Zhi_hui <[email-masked]>
Date: Sun, 13 Oct 1996 11:10:30 +0800 (EAT)

! this is test file 4.it contains multiply dimension variable.
PROGRAM main
	REAL :: a(1000),c(100,100),d(100,100)
!HPF$ PROCESSORS procs(10)
!HPF$ ALIGN c(i,j) WITH d(j,i)
!HPF$ DISTRIBUTE (BLOCK) ONTO procs :: a
!HPF$ DISTRIBUTE (BLOCK,*) ONTO procs :: d

	a(1:200)=a(1:200)+a(2:400:2)
	c=c+d
	WHERE (a(2:400:2)/=0) a(1:200)=a(1:200)+a(2:400:2)
	WHERE (c < d) c=c+d
END PROGRAM 
      program main
      real :: a(1000),c(100,100),d(100,100)
!HPF$      processors procs(10)
!HPF$      align c (i,j) with d(j,i)
!HPF$      distribute  (block) onto  procs :: a
!HPF$      distribute  (block,*) onto  procs :: d
      integer :: temp_index_0
      integer :: temp_index_1
      forall (temp_index_0=0:(200-1)/1)      a(1+temp_index_0*1) = a(1+t&
     &emp_index_0*1)+a(2+temp_index_0*2)

      forall (temp_index_0=0:(100-1)/1, temp_index_1=0:(100-1)/1)      c&
     &(1+temp_index_0*1,1+temp_index_1*1) = c(1+temp_index_0*1,1+temp_in&
     &dex_1*1)+d(1+temp_index_0*1,1+temp_index_1*1)

      forall (temp_index_0=0:(200-1)/1, a(2+temp_index_0*2) .ne. 0)     &
     & a(1+temp_index_0*1) = a(1+temp_index_0*1)+a(2+temp_index_0*2)

      forall (temp_index_0=0:(100-1)/1, temp_index_1=0:(100-1)/1, c(1+te&
     &mp_index_0*1,1+temp_index_1*1) .lt. d(1+temp_index_0*1,1+temp_inde&
     &x_1*1))      c(1+temp_index_0*1,1+temp_index_1*1) = c(1+temp_index&
     &_0*1,1+temp_index_1*1)+d(1+temp_index_0*1,1+temp_index_1*1)

      end program