Redian新闻
>
怎么在原来的Fortran 95串行代码中插入OpenMP?
avatar
a*s
2
【 以下文字转载自 History 讨论区 】
发信人: arabianights (kd), 信区: History
标 题: 虚云 大師活了119歲,真的假的?
发信站: BBS 未名空间站 (Wed Jan 4 12:41:38 2012, 美东)
http://zh.wikipedia.org/wiki/%E9%87%8A%E8%99%9A%E4%BA%91
如果是真的,應該是古今中外最長壽之人了吧
avatar
p*u
3
大家说说可能是啥?
amd 4000+ 系统刚装的win 7
内存双通道 ddr2 2*2gb + 2*1gb
显卡 是mc 买的 最便宜的pcie显卡。
硬盘旧的 300gb sata 2 硬盘。 刚刚磁盘整理过的。
大家给点意见吧。谢谢。
avatar
s*n
4
搞得多少人浪费多少时间了
avatar
z*7
5
为了实现并行计算,怎么在原来的Fortran 95串行代码中插入OpenMP?
3X!
avatar
l*k
6
当然是钻戒
大大的
你是不是想问哪个样子的钻戒呀?
经典的吧,princess cut我就喜欢

【在 h*********2 的大作中提到】
: 问下大家~
: 谢谢~

avatar
q*n
7
多修神足的人, 欲住世一劫,也是可以的.

【在 a**********s 的大作中提到】
: 【 以下文字转载自 History 讨论区 】
: 发信人: arabianights (kd), 信区: History
: 标 题: 虚云 大師活了119歲,真的假的?
: 发信站: BBS 未名空间站 (Wed Jan 4 12:41:38 2012, 美东)
: http://zh.wikipedia.org/wiki/%E9%87%8A%E8%99%9A%E4%BA%91
: 如果是真的,應該是古今中外最長壽之人了吧

avatar
N*w
8
内存先怀疑一下,两个型号的分别用用看
别混用

【在 p****u 的大作中提到】
: 大家说说可能是啥?
: amd 4000+ 系统刚装的win 7
: 内存双通道 ddr2 2*2gb + 2*1gb
: 显卡 是mc 买的 最便宜的pcie显卡。
: 硬盘旧的 300gb sata 2 硬盘。 刚刚磁盘整理过的。
: 大家给点意见吧。谢谢。

avatar
p*c
9
老将你还没搞定?

【在 s****n 的大作中提到】
: 搞得多少人浪费多少时间了
avatar
l*h
11
牛牛应该不会喜欢最贵的牌子的钻戒吧?比如一个很好牌子的小颗钻戒和一个没什么牌
子的大颗钻戒,牛牛选哪个啊?
avatar
A*s
12
三峡

【在 p****u 的大作中提到】
: 大家说说可能是啥?
: amd 4000+ 系统刚装的win 7
: 内存双通道 ddr2 2*2gb + 2*1gb
: 显卡 是mc 买的 最便宜的pcie显卡。
: 硬盘旧的 300gb sata 2 硬盘。 刚刚磁盘整理过的。
: 大家给点意见吧。谢谢。

avatar
s*n
13
没呢,
只有寄希望与Hp烧饼了

【在 p*****c 的大作中提到】
: 老将你还没搞定?
avatar
z*7
14
这段代码如何用openmp并行运算?(附件是全模块) 并保证不溢出16gb内存
全套程序下载地址如下:
http://www.atomic-theory.uni-jen ... ange/ratip-2012.tgz
subroutine auger_calculate_amplitudes()
!--------------------------------------------------------------------
! calculates for all transitions in turn the required continuum
! spinors and auger amplitudes.
!
! calls: add_csf_to_basis(), anco_calculate_csf_matrix(),
! auger_channel_amplitude(), auger_pure_matrix(),
! auger_transition_properties() cowf_iterate_csp(),
! cowf_set_xk_coefficients(), cowf_set_yk_coefficients(),
! print_configuration_scheme()
! set_configuration_scheme().
!--------------------------------------------------------------------
!
integer :: i, j, n, nw, nocsf
real(kind=dp) :: energy
type(nkappa) :: subshell
integer, dimension(, allocatable :: ndx
!
n = asf_final%csf_set%nocsf + asf_initial%csf_set%nocsf
!
! allocate for a "first time"; it is first dellocated before any usage
allocate( auger_csp%p(1:n_grasp92), auger_csp%q(1:n_grasp92) )
allocate( cowf_csp%p(1:10), cowf_csp%q(1:10) )
allocate( ndx(1:n) )
do i = 1,number_of_transitions
if (transition(i)%energy < zero) then
transition(i)%probability = zero
transition(i)%alpha_2 = zero
transition(i)%alpha_4 = zero
transition(i)%eta_2 = zero
transition(i)%eta_4 = zero
cycle
end if
!
do j = 1,transition(i)%number_of_channels
energy = transition(i)%energy
!!x print *, "auger_calculate_amplitudes - a"
call set_configuration_scheme(asf_final%csf_set,asf_cont%csf_set
,&
-1,transition(i)%channel(j)%kappa,
&
transition(i)%totalj_f,transition(i)%parity_f,
&
transition(i)%totalj_i,transition(i)%parity_i,
&
append=.false.,index=ndx)
!
auger%no_f = asf_cont%csf_set%nocsf
allocate( auger%ndx_f(auger%no_f) )
auger%ndx_f(1:auger%no_f) = ndx(1:auger%no_f)
!
nw = asf_cont%csf_set%nwshells
if (rabs_use_stop .and. nw /= asf_final%csf_set%nwshells + 1)
then
stop "auger_calculate_amplitudes(): program stop a."
end if
! calculate the mcp coefficients for the current coupling scheme
! as well as the d_rs, y_k(ab), and x_k(abcd) coefficients
nocsf = asf_cont%csf_set%nocsf
call anco_calculate_csf_matrix(asf_cont%csf_set,1,nocsf,1,nocsf)
call cowf_set_drs_coefficients(transition(i)%asff, &
asf_cont%csf_set,ndx)
subshell = nkappa(-1,transition(i)%channel(j)%kappa)
call cowf_set_yk_coefficients(subshell,asf_cont%csf_set)
!!x print *, "auger_calculate_amplitudes - f"
call cowf_set_xk_coefficients(subshell,asf_cont%csf_set)
!!x print *, "auger_calculate_amplitudes - g"
!
! now iterate the continuum spinors for this channel
! cowf_solve_homogeneous_eqn = .true.
cowf_start_homogeneous = .true.
cowf_phaseshift_wkb = .true.
cowf_phaseshift_zero_potential = .false.
cowf_phaseshift_coulomb = .false.
!
!! cowf_norm_nonrel = .true.
cowf_norm_wkb = .true.
call cowf_iterate_csp(energy,subshell)
!
auger_csp = cowf_csp
transition(i)%channel(j)%phase = auger_csp%phase
!
! define the 'extended' configuration scheme for calculating
! the auger matrix and allocate memory
call add_csf_to_basis(asf_initial%csf_set,asf_cont%csf_set,
&
transition(i)%totalj_i,transition(i)%parity_i,index=ndx)
if (auger_print_csf_scheme) then
call print_configuration_scheme(6,asf_cont%csf_set)
end if
!
auger%no_i = asf_cont%csf_set%nocsf - auger%no_f
allocate( auger%ndx_i(auger%no_i) )
auger%ndx_i(1:auger%no_i) = ndx(1+auger%no_f:asf_cont%csf_set%
nocsf)
allocate( auger%matrix(1:auger%no_f,1:auger%no_i) )
!
! calculate the 'pure' auger matrix in the given csf scheme
! (not including mixing coefficients)
call auger_pure_matrix(asf_cont%csf_set,i)
!
call auger_channel_amplitude(i,j)
!
deallocate( auger%ndx_f, auger%ndx_i, auger%matrix )
call deallocate_csf_basis(asf_cont%csf_set)
end do
!
! calculates all selected properties for the selected transition
call auger_transition_properties(transition(i))
end do
deallocate( ndx, auger_csp%p, auger_csp%q)
!
end subroutine auger_calculate_amplitudes
!
!
subroutine auger_channel_amplitude(i,j)
!--------------------------------------------------------------------
! calculates the auger amplitude of channel j of transition i
! by summing over the 'pure' auger matrix using the proper weights of
! transition i.
!
! calls:
!--------------------------------------------------------------------
!
integer, intent(in) :: i, j
!
integer :: asfi, asff, l, r, rr, s, ss
real(kind=dp) :: phase, value
!
if (auger_print_main_csf_me) then
print *, " "
print *, "main contribution from initial- and final-state csf "// &
"(abs(c_i*c_f) > 0.01)"
print *, "----------------------------------------------------"// &
"---------------------"
print *, " "
print *, " i-csf f-csf kappa c_i c_f c_i*c_f"/
/&
" c_i*c_f*a_if "
print *, "-------------------------------------------------------"/
/&
"-----------------"
end if
!
asfi = transition(i)%asfi; asff = transition(i)%asff
value = zero
do r = 1,auger%no_f
rr = auger%ndx_f(r)
do s = 1,auger%no_i
ss = auger%ndx_i(s)
value = value + asf_final%asf(asff)%eigenvector(rr) * &
auger%matrix(r,s) * asf_initial%asf(asfi)%eigenvector(ss)
!
if (auger_print_main_csf_me) then
if (abs(asf_final%asf(asff)%eigenvector(rr)*
&
asf_initial%asf(asfi)%eigenvector(ss)) > 0.01_dp .
and.&
abs(asf_final%asf(asff)%eigenvector(rr) *
&
auger%matrix(r,s) *
&
asf_initial%asf(asfi)%eigenvector(ss)) > 0.000001_dp)
then
!
! determine first the radial integrals from the occupation
! of the csf
write(*,1) ss,rr, &
orbital_symmetry(transition(i)%channel(j)%kappa), &
asf_initial%asf(asfi)%eigenvector(ss), &
asf_final%asf(asff)%eigenvector(rr), &
asf_final%asf(asff)%eigenvector(rr)* &
asf_initial%asf(asfi)%eigenvector(ss), &
asf_final%asf(asff)%eigenvector(rr)* &
asf_initial%asf(asfi)%eigenvector(ss)* &
auger%matrix(r,s)
1 format(1x,i7,i10,6x,a2,3x,f6.3,2x,f6.3,5x,f8.5,4x,f9.6)
end if
end if
!
end do
end do
!
if (auger_print_main_csf_me) then
print *, "-------------------------------------------------------"/
/&
"-----------------"
end if
!
l = angular_momentum_l(transition(i)%channel(j)%kappa)
phase = transition(i)%channel(j)%phase
!
transition(i)%channel(j)%amplitude_re = value
transition(i)%channel(j)%amplitude = cmplx(zero,one)**l *
&
exp( -cmplx(zero,one)*phase) * cmplx(value,
zero)
!
print *, "i,j,transition(i)%channel(j)%amplitude = ", &
i,j,transition(i)%channel(j)%amplitude
!
end subroutine auger_channel_amplitude
!
avatar
M*a
15
好牌子的大颗钻戒

【在 l**h 的大作中提到】
: 牛牛应该不会喜欢最贵的牌子的钻戒吧?比如一个很好牌子的小颗钻戒和一个没什么牌
: 子的大颗钻戒,牛牛选哪个啊?

avatar
a*t
16

Re. 一般内存嫌疑比较大。
CPU的散热如何?有没有超频?如果有的话先降回来看看。

【在 N****w 的大作中提到】
: 内存先怀疑一下,两个型号的分别用用看
: 别混用

avatar
S*P
17
牌子绝对加分
avatar
p*a
18
金牛的人还是重视品牌和质量的,款式简单经典~

【在 h*********2 的大作中提到】
: 问下大家~
: 谢谢~

avatar
l*a
19
同意简单经典。
我喜欢金的,有美美和我一样的没?
avatar
l*k
20
我也喜欢黄金
试过白金和黄金,觉得黄金更配我,我也更喜欢

【在 l********a 的大作中提到】
: 同意简单经典。
: 我喜欢金的,有美美和我一样的没?

avatar
c*g
21
harry winston
适合金牛⋯⋯哈哈哈哈
avatar
h*2
22
谢谢楼上几位哈~
我买了一个大块儿黑宝石的silver ring……
打算周末给mm送去并给她戴上~
大家祝福我吧~

【在 c**g 的大作中提到】
: harry winston
: 适合金牛⋯⋯哈哈哈哈

avatar
i*n
23
金牛座mm喜欢什么款式的男人啊?
avatar
e*p
24
物质的但无铜臭味的,有思想有奋斗毅力和韧劲的,有点品位的,有点文艺的,注重内
心交流和感受的,远离了庸俗、浅薄、轻浮的

【在 i****n 的大作中提到】
: 金牛座mm喜欢什么款式的男人啊?
avatar
i*n
25

哦。。。。。。。。。。

【在 e**p 的大作中提到】
: 物质的但无铜臭味的,有思想有奋斗毅力和韧劲的,有点品位的,有点文艺的,注重内
: 心交流和感受的,远离了庸俗、浅薄、轻浮的

avatar
h*2
26
戒指送出去了,mm很高兴。但是同时也很谨慎……说因为我说是birthday gift才收下
的。她还说我们以后要多一起出去一起见面一起玩~
嗯,基本就这些了~
大家帮忙分析分析~
avatar
r*e
27
不错啊,上waiting list了
mm几岁了?
给你个建议吧
要让mm觉得和你在一起各方面都很有安全感
但是千万不要张扬,不要刻意表现自己,甚至要有意识暴露自己的弱点和缺点来激发mm母性光辉的力
量。
如果你让mm有安全感,同时让她觉得有存在感,你能帮助她,同时她也能帮助你,甚至改造你的话,
那么基本就很有戏了。
加油吧

【在 h*********2 的大作中提到】
: 戒指送出去了,mm很高兴。但是同时也很谨慎……说因为我说是birthday gift才收下
: 的。她还说我们以后要多一起出去一起见面一起玩~
: 嗯,基本就这些了~
: 大家帮忙分析分析~

avatar
h*2
28
mm25了
现在的感觉是mm每次总跟我说她有这些那些小毛病~
说你以后会发现我有很多小毛病的~~
这个让我比较纠结,不知道mm到底要说什么,不知道她心里到底啥想法啊~~
~~

mm母性光辉的力
至改造你的话,

【在 r*****e 的大作中提到】
: 不错啊,上waiting list了
: mm几岁了?
: 给你个建议吧
: 要让mm觉得和你在一起各方面都很有安全感
: 但是千万不要张扬,不要刻意表现自己,甚至要有意识暴露自己的弱点和缺点来激发mm母性光辉的力
: 量。
: 如果你让mm有安全感,同时让她觉得有存在感,你能帮助她,同时她也能帮助你,甚至改造你的话,
: 那么基本就很有戏了。
: 加油吧

avatar
r*e
29
星座方面我不太懂,你问别的学友
mm和你说起她的毛病那是好的,你得仔细听。她担心你只是被她外表吸引,你们的性格
或许不适合在一起生活。所以她抛出自己的毛病试探一下你的反应吧。这也算是一种还
没得到安全感的表现。
我没见过你们,没法给出具体的建议。
说实话,并不是成了就是好事,性格合适,能长期生活的才比较靠谱。

【在 h*********2 的大作中提到】
: mm25了
: 现在的感觉是mm每次总跟我说她有这些那些小毛病~
: 说你以后会发现我有很多小毛病的~~
: 这个让我比较纠结,不知道mm到底要说什么,不知道她心里到底啥想法啊~~
: ~~
:
: mm母性光辉的力
: 至改造你的话,

相关阅读
logo
联系我们隐私协议©2024 redian.news
Redian新闻
Redian.news刊载任何文章,不代表同意其说法或描述,仅为提供更多信息,也不构成任何建议。文章信息的合法性及真实性由其作者负责,与Redian.news及其运营公司无关。欢迎投稿,如发现稿件侵权,或作者不愿在本网发表文章,请版权拥有者通知本网处理。