| 查看: 699 | 回复: 1 | ||
| 本帖产生 1 个 计算强帖 ，点击这里进行查看 | ||
dexter337铁杆木虫 (小有名气)
|
[求助]
求Fortran的处理格林函数问题的数值计算工具包
|
|
| 感谢各位大侠的帮助. |
回复此楼» 猜你喜欢
浙大物院表面物理课题组长期招收普博及直博学生
已经有259人回复
-
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry
已经有47人回复
-
物理学I论文润色/翻译怎么收费?
已经有192人回复
-
25届硕士申请，材料计算方向
已经有2人回复
-
课题组招1-2名硕士
已经有1人回复
-
机时越来越贵之后，我把一部分 DFT 流程搬到了 AI 计算平台上
已经有0人回复
-
斯坦福大学与Elsevier世界前2%学者新排名查询
已经有1人回复
-
27申博推荐：南京航空航天大学国际前沿院光学方向招收博士生！
已经有19人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有1人回复
-
apl投稿状态
已经有2人回复
-
华南师范大学+双一流学科物理学+广东省杰青团队2027年博士招生+机器学习驱动材料设计
已经有1人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教密度泛函理论中屏蔽库伦势的问题
已经有14人回复
- 怎么找出lapack函数及函数的使用方法
已经有8人回复
- 函数可积和原函数存在问题
已经有4人回复
- 求助一个inline函数的问题
已经有5人回复
- 高数：导函数与原函数问题求助
已经有12人回复
- 递归方法求格林函数是怎么发明的?为什么要用它？
已经有6人回复
- 格林函数 积分 数值计算
已经有10人回复
- 怎么读取Siesta输出的Hamiltonian and overlap矩阵(*.HSX文件)？
已经有16人回复
- rand函数产生白噪声的问题
已经有5人回复
- 求清华大学王怀玉老师的《格林函数》讲义
已经有9人回复
- 什么是张量，基本思想是什么？
已经有14人回复
- 求助关于函数题目一道
已经有4人回复
- 【求助】transiesta和tbtrans中的电压有什么不同
已经有5人回复
- 【求助】求积分程序中被积函数问题
已经有15人回复
- 【求助】请教非平衡格林函数的问题
已经有5人回复
【答案】应助回帖
★ ★ ★
dexter337(金币+20): 十分感谢您的帮助. 2011-06-02 11:19:20
sunyang1988(金币+3, 计算强帖+1): 谢谢帮助，望再接再厉，为本版带来更多质量贴 2011-06-02 12:53:49
dexter337(金币+20): 十分感谢您的帮助. 2011-06-02 11:19:20
sunyang1988(金币+3, 计算强帖+1): 谢谢帮助，望再接再厉，为本版带来更多质量贴 2011-06-02 12:53:49
|
你想要的是基本解的？我贴一个写在下面，希望对你有用。三维自由空间的格林函数 subroutine green_fs_3D() Implicit Double Precision (a-h,o-z) pi = 3.14159 265358 D0 pi4 = 4.0D0*pi dx = x-x0 dy = y-y0 dz = z-z0 r = Dsqrt(dx**2+dy**2+dz**2) G = 1.0D0/(pi4*r) If(Iopt.eq.1) Go to 999 den = pi4 * r**3 Gx = - Dx/den Gy = - Dy/den Gz = - Dz/den 999 Continue Return End |
2楼2011-06-02 10:46:25