つっても、非公開のを別につけているわけではない。
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 に追いつかれるのね。