つっても、非公開のを別につけているわけではない。
Copyright 1999-2002. Jun Makino
2002/7 2002/6 2002/5 2002/4 2002/3 2002/2 2002/1当面の予定
9/2-9/28 Gerhard Lienhart冬学期日程: (計算天文学:月曜3限) 授業開始 10月 1日(火) 授業終了 12月20日(金) 冬季休業 12月21日(土)〜1月 5日(日) 授業開始 1月 6日(月) 授業終了 1月27日(月) 補講・試験 1月28日(火)〜2月17日(月)
subroutine symchC( m, C, tp )
integer i,j, m; real(8) C(0:*), tp(0:*), T, S; S = 0.0d0
do i = 0, m-1
do j = 0, m-1 ; tp(i*m+j) =( C(i*m+j) + C(j*m+i) )/2
if( S .lt. ABS( C(i*m+j) - C(j*m+i) ) )
& S = ABS( C(i*m+j) - C(j*m+i) )
end do; end do
c
call maxel( m*m, C, T); C(0:m*m-1)= tp(0:m*m-1)
c
if( S/T .gt. 1.0E-12 ) write(6,*) 'sym C = ', S/T, m
end
とか書いてあると、思わず
subroutine symchC(m,C,tp)
integer i,j, m
real(8) C(m,m),tp(m,m) T, S
call maxel( m*m, C, T)
S = 0.0d0
do i = 1, m
do j = 1, m
tp(i,j) =(C(i,j) + C(j,i) )*0.5D0
S =MAX(S,ABS(C(i,j)-C(j,i)))
end do
end do
c
C(1:m*m)= tp(1:m*m)
c
if( S/T .gt. 1.0E-12 ) write(6,*) 'sym C = ', S/T, m
end
とか、さらには
subroutine symchC(m,C)
integer i,j, m
real(8) C(m,m),tp T, S
call maxel( m*m, C, T)
S = 0.0d0
do i = 1, m-1
do j = i+1, m
S =MAX(S,ABS(C(i,j)-C(j,i)))
tp =(C(i,j) + C(j,i) )*0.5D0
C(i,j)=tp
C(j,i)=tp
end do
end do
c
if( S/T .gt. 1.0E-12 ) write(6,*) 'sym C = ', S/T, m
end
とかしたくなるけど、まあ趣味の問題ではありましょう。(下の2つがあってるかどうかは無保証)
tp =(C(i,j) + C(j,i) )*0.5D0
C(i,j)=tp
C(j,i)=tp
は
C(i,j) = (C(i,j) + C(j,i))*0.5D0
C(j,i) = C(i,j)
のほうがいいかな。
Subject: 3階の足跡について理学部もなかなか楽しいところである。
Mon Aug 19 20:04:44 JST 2002
28741 ? R 1:23 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
13620 ? R 1:38 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
6670 ? R 4:49 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
11230 ? R 1:29 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
3414 pts/1 R 5:05 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx -j 4 -
6803 ? R 1:32 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
11615 ? R 1:30 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
9036 ? R 1:38 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
32236 ? R 4:49 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
15885 ? R 4:52 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
25523 ? R 4:49 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
15890 ? R 2:15 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
25513 ? R 4:50 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
19378 ? R 4:53 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
13592 ? R 4:53 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
16542 ? R 4:50 /usr2/makino/src/pit_planet5/pit_grape6_MPI_lx g6host
xinit -- :0 -p 100000 -v -s 100000
とかするとうまくいくのかな?とりあえず 10000 を 1 にすると1分でスクリーンセーバーが動くというのは確認できたんだけど。 Xserver の man page を見てもいま一つよくわからない。
HP ZX2000 (Itanic2, 900MHz): 748,000円
HP ZX6000 (Itanic2, 1GHz): 2,333,000円
ES45 (EV6 1.25GHz x 4): 14,800,000 円
0 の数が 1-2 個違うとしか思えない。 zx1 って DDR266 x 2 なのね。で、 900MHz だと SPECfp2000 で 1050 か。 2.4GHz P4 (400MHz FSB) で 825 だから、3GHz がでる秋にはまた P4 に追いつかれるのね。