Subject: Re: your mail

From: Zheng Gengbin <[email-masked]>
Date: Tue, 22 Apr 1997 22:39:06 +0800 (EAT)

On Mon, 21 Apr 1997, Guansong Zhang wrote:

> I think you can check the ge.2.1.f, and you will find that some nodistributed
> array in the program such as vec is distributed after trans1.
> 
> Guansong
> 
> =====================
> 
>       program simpelGE
> !HPF$      processors PROC000(1:4)
> !HPF$      template TMP001(n)
> !HPF$      distribute TMP001  (block) onto  PROC000
> !HPF$      template TMP000(n)
> !HPF$      distribute TMP000  (block) onto  PROC000
>       parameter (n = 16)
>       real :: a(n,n),t,res,row(n),vec(n)
> !HPF$      align vec (DM001) with TMP001(1*DM001+0)
> !HPF$      align row (DM000) with TMP000(1*DM000+0)
> !HPF$      processors p(4)
> !HPF$      template temp(n,n)
> !HPF$      distribute temp  (*,block) onto  p
> !HPF$      align a (i,j) with temp(1*i+0,1*j+0)
> 
> 
> ============================
> 
>       program LAPLACE
> !HPF$      processors PROC001(1:4)
> !HPF$      processors PROC000(1:2,1:2)
> !HPF$      template TMP001(2)
> !HPF$      distribute TMP001  (block) onto  PROC001
> !HPF$      template TMP000(N,N)
> !HPF$      distribute TMP000  (block,block) onto  PROC000
>       integer :: N,Nsteps
>       parameter (N = 16)
>       parameter (Nsteps = 100)
>       integer :: i,j,k
>       real :: A(N,N),B(N,N),C(N,N),D(N,N),tolerence,error
> !HPF$      align D (DM001,DM000) with TMP000(1*DM001+0,1*DM000+0)
>       integer :: niter,nicycle,x,y
>       integer :: toler(2)
> !HPF$      align toler (DM002) with TMP001(1*DM002+0)
> !HPF$      processors PROC(4)
> !HPF$      template TEMP(N,N)
> !HPF$      distribute TEMP  (block,*) onto  PROC
> !HPF$      align A (i,j) with TEMP(1*i+0,1*j+0)
> !HPF$      align B (i,j) with TEMP(1*i+0,1*j+0)
> !HPF$      align C (i,j) with TEMP(1*i+0,1*j+0)
> 
> ==========================
> 
> It seems same problems happen to lap.f's D , but since it has no use in the
> program, so the finial results of this program is correct. (Can you get correct
> result for ge.f on your machine?)
> 
> The problem seems to be that trans1 try to add some processor array which don't
> exist.
> 

	If that's the problem , it has already ok here . I have merge the
processor definition to one .

Zheng