| 查看: 541 | 回复: 1 | ||
wangwen552铜虫 (小有名气)
|
[求助]
求助下面一段fortran程序的意思
|
|
open(unit=Fout,file='out.dat') write(fout,'(A)') 'zone ' do i=1,counter if(z(i)>z0min+5.0.and. z(i)<z0max-5.0) then write(fout,'(5(3x e15.6))') x(i),y(i),z(i),vone(i) : ,rot(i) if(vone(i)<5.0) then AllStra=vone(i)+AllStra numall=numall+1 endif endif enddo write(fout,'(A)') 'zone ' do i=1,gbnum j=gbid(i) if(z(j)>z0min+5.0.and. z(j)<z0max-5.0) then write(fout,'(5(3x e15.6))') x(j),y(j),z(j),vone(j) : ,rot(j) if(vone(j)<5.0) then GbStra=vone(j)+GbStra numgb=numgb+1 endif endif enddo GbStra=GbStra AllStra = AllStra print*, '%Gb atoms:', 1.0*numgb/numall print*,'--------------------strain %------------------' print*,' Ave %GB %ResT' write(*,'(3(3x e15.6))') AllStra/numall,GbStra/AllStra, : 1.0-GbStra/AllStra c print*,'e=',AllStra/numall,'GB%=',GbStra/AllStra, c : 'Rest%=', 1.0-GbStra/AllStra print*,'--------------------strain ave------------------' print*,' Ave GBe ResTe' write(*,'(3(3x e15.6))') AllStra/numall, : GbStra/numgb, : (AllStra-GbStra)/(numall-numgb) print*,'-------------normal-strain ave------------------' write(*,'(3(3x e15.6))') AllStra/numall, : GbStra/numgb/AllStra*numall, : (AllStra-GbStra)/(numall-numgb)/AllStra*numall c print*,'Av e=',AllStra/numall,'GB=',GbStra/numgb, c : 'Rest=',(AllStra-GbStra)/(numall-numgb) close(fout) 我只知道这段程序能生成一个out.dat文件，不懂是怎么生成的、如何计算的。求程序大神帮忙 |
回复此楼» 猜你喜欢
302求调剂一志愿华中师范大学
已经有4人回复
-
288求调剂 一志愿哈工大 材料与化工
已经有32人回复
-
一志愿郑大材料工程290求调剂
已经有20人回复
-
环境工程297分求调剂一志愿杭高院
已经有12人回复
-
366求调剂一志愿东北大学
已经有7人回复
-
材料调剂
已经有6人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有9人回复
-
材料调剂
已经有5人回复
-
材料与化工306分找调剂
已经有5人回复
-
301求调剂
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助fortran编程一个。。仿真模拟非稳态（非）绝热毛细管
已经有12人回复
- 求助：intel visual fortran的格式问题
已经有14人回复
- fortran输出求助
已经有6人回复
- 求教做数值计算学什么语言？Fortran？C？Python？
已经有24人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- 求助Fortran编程
已经有8人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】fortran加载外部子程序时总是提示关闭程序
已经有10人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】Fortran的计算结果
已经有11人回复
- 【求助】初学fortran，
已经有15人回复
- 【求助】请问一下fortran的可视化编程
已经有7人回复
- 【求助】这样的公式，在fortran里该怎么写了，谢谢【求助成功】
已经有4人回复
2楼2014-02-08 20:58:22
