| 查看: 387 | 回复: 1 | ||
[求助]
请问一下，应该从命令窗口输入什么，格式是什么样子的。
|
|
下面一段Fortran代码会在命令窗口提示用户输入转轴和转角，但是我不明白输入的格式是什么，因为我刚刚接触到Fortran写的程序，所以看不懂。因此在这里请求各位虫友们帮小弟看看。谢谢了。主要是前几行。 c define rotation of lattice axes c 2 write(*,'(a)',advance='NO') ' axis (x/y/z/q) and degree : ' read(*,*,end=3) axis,degree degr = 3.1415926535898d0 * degree / 180.0d0 if(axis(1:1).eq.'q' .or. axis(1:1).eq.'Q') goto 3 if(axis(1:1).eq.'x' .or. axis(1:1).eq.'X') then rotation(1,1) = one rotation(2,1) = zero rotation(3,1) = zero rotation(1,2) = zero rotation(2,2) = dcos(degr) rotation(3,2) = - dsin(degr) rotation(1,3) = zero rotation(2,3) = dsin(degr) rotation(3,3) = dcos(degr) call matrix_product(tmp_rotation,rotation,all_rotation) tmp_rotation = all_rotation elseif(axis(1:1).eq.'y' .or. axis(1:1).eq.'Y') then rotation(1,1) = dcos(degr) rotation(2,1) = zero rotation(3,1) = dsin(degr) rotation(1,2) = zero rotation(2,2) = one rotation(3,2) = zero rotation(1,3) = - dsin(degr) rotation(2,3) = zero rotation(3,3) = dcos(degr) call matrix_product(tmp_rotation,rotation,all_rotation) tmp_rotation = all_rotation elseif(axis(1:1).eq.'z' .or. axis(1:1).eq.'Z') then rotation(1,1) = dcos(degr) rotation(2,1) = - dsin(degr) rotation(3,1) = zero rotation(1,2) = dsin(degr) rotation(2,2) = dcos(degr) rotation(3,2) = zero rotation(1,3) = zero rotation(2,3) = zero rotation(3,3) = one call matrix_product(tmp_rotation,rotation,all_rotation) tmp_rotation = all_rotation endif |
回复此楼» 猜你喜欢
281求调剂（0805）
已经有16人回复
-
304求调剂
已经有6人回复
-
材料工程专硕调剂
已经有6人回复
-
一志愿天大材料与化工（085600）总分338
已经有4人回复
-
085700资源与环境308求调剂
已经有3人回复
-
求材料调剂
已经有8人回复
-
294求调剂材料与化工专硕
已经有5人回复
-
一志愿华中科技大学，080502，354分求调剂
已经有4人回复
-
一志愿吉林大学材料学硕321求调剂
已经有6人回复
-
085410人工智能专硕317求调剂（0854都可以）
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 介绍作者的，编辑部发了个格式，有一些看不懂，请各位帮忙解释一下
已经有2人回复
- gibbs程序计算热力学性质的具体用法
已经有7人回复
- ANSYS热模拟高温拉伸，结构场计算出现问题，麻烦各位帮忙看看，附详细命令流
已经有14人回复
- 使用Multiwfn绘制原子轨道图形、研究原子壳层结构及相对论效应的影响
已经有17人回复
- gaussian运算出错，贴出log和输入文件求高手给指点一下
已经有9人回复
- 请教一下，如何确定具体分子式，最好有详细步骤，还有生成CIF文件的问题
已经有7人回复
- 请教一下在XP中如何保存文件
已经有4人回复
- 有些文件删除不掉，360强制也不行，该怎么办捏？
已经有27人回复
- 求助大侠帮忙，有关matlab模拟数据
已经有29人回复
- 请教一下关于自组织网路的仿真以及NS2的安装、应用
已经有15人回复
- NBO计算输出结果中的各个结构片段是怎样确定的？
已经有20人回复
- 【求助】帮忙解释一下高斯执行计算的命令
已经有3人回复
- 【讨论】想学lammps是否应该先学习C++
已经有28人回复
- 【求助】为什么计算时总出现指令引用的“ ”内存，该内存不能为“read"
已经有26人回复
- 【请教】解析结构指令说明
已经有10人回复
- 【求助】namd tutorial遇到问题
已经有10人回复
2楼2013-12-19 11:19:41
