From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Sep 14 20:41:58 2005
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id j8EBfwB58502;
	Wed, 14 Sep 2005 20:41:58 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from kfep01.dion.ne.jp (kfep01.dion.ne.jp [203.181.105.163])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id j8EBfvI58497
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 14 Sep 2005 20:41:57 +0900 (JST)
	(envelope-from kunihiro.kusano@k4.dion.ne.jp)
Received: from [61.202.19.176] by kfep01.dion.ne.jp with SMTP
          id <20050914114157248.NPQV@kfep01.dion.ne.jp>
          for <FreeBSD-users-jp@jp.FreeBSD.org>;
          Wed, 14 Sep 2005 20:41:57 +0900
From: <kunihiro.kusano@k4.dion.ne.jp>
To: FreeBSD-users-jp@jp.FreeBSD.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Message-Id: <20050914114157248.NPQV@kfep01.dion.ne.jp>
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 14 Sep 2005 20:41:57 +0900
X-Sequence: FreeBSD-users-jp 86989
Subject: [FreeBSD-users-jp 86989] Re: FBSD5.4/amd
 =?ISO-2022-JP?B?GyRCJE4lYSViJWohPEApOEIbKEI=?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: kunihiro.kusano@k4.dion.ne.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+050320

$B$3$s$K$A$O!"ApLn$G$9!#(B

On Wed, 14 Sep 2005 09:15:28 +0900
"topaz" <ilovefd@topaz.plala.or.jp> $B$K$7$`$i(B $B$5$s(B wrote:

<snip>
>
> #define A(i,j,k) a[(k)*m*l+(i)*m+(j)]
> 
> A(i,j,k)=3.24*i*j*k;
> 
> $B$G$d$C$F$_$^$7$?!#(B
> 
> $B:#2s%9%o%C%W$O#4(BGB$B$N(BPC$B$G$9(B
> 
> top$B$G8+$?8B$j$O#3#2(BGB$B$GF0$$$F$$$k$h$&$G$9$,!"(BRES$B$O#3!%#6(BGB$BDxEY$K<}$^$C$F$$$^(B
> $B$9!#(B
> 
> $B$G$b%a%b%j#4(BGB$B!\%9%o%C%W#4(BGB$B!c#3#2(BGB$B$G$9!#(B
> 
> $B$b$H$b$H!"$3$N%F%9%H$O(BSCALAPACK$B$N@-G=$r;n$7$?$/$F!"A0CJ3,$N%F%9%H$H$7$F$d$C(B
> $B$?$N$G$9$,!"(B
> PC$B$N(BF77$B$K#2(BGB$BG[Ns@)8B$,$"$k$h$&$G!"$;$C$+$/$N(B64$B%S%C%H$dJBNs$b0UL#$J$$$G$9(B
> $B$M!#(B
> $B%$%s%F%k%U%)!<%H%i%s$O(Bports$B$K$J$$$G$9$7!#!#(B

$B#2(BGB $B$r1[$9%a%b%j!<$r3NJ]$7$F$$$k$3$H$O3N$+$J$h$&$G$9$M!#(B
$BG[Ns$G$N%"%/%;%9$K!"#2(BGB$B$N@)8B$,$"$k$N$G$7$?$i!"(B

$BG[Ns$r;H$&$N$r$d$a$F!"%]%$%s%?$K$7$?$i$I$&$G$7$g$&!#(B
$B$=$l$H!"%W%m%0%i%`$,$I$3$^$G<B9T$7$?$+$r8+$k$?$a$K!"(B

$B30B&$N(B for $BJ8$N:G8e$K!"%k!<%W%+%&%s%?$rF~$l$F$_$^$7$?!#(B
$B0J2<!";29M$K$J$l$P!#(B



#include <stdio.h>
#include <stdlib.h>

void main(void)
{
  int i,j,k,l=1000,m=1000,n=4000;
  double *a;

  a=(double *)malloc(sizeof(double)*l*m*n);

  if(a == NULL) {
    fprintf(stderr, "malloc failed\n");
    exit(1);  
  }


  for(k=0;k<n;k++){
    for(i=0;i<l;i++){
      for(j=0;j<m;j++){
	*a++ =3.24*i*j*k;
      }
    }
    fprintf(stderr, "%d MB successed.  *a: %f\n", k+1, *(a-1));
  }
  
  printf("success\n");

}


$BApLn(B $B63Gn(B <kunihiro.kusano@k4.dion.ne.jp>

