| 查看: 398 | 回复: 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 |
回复此楼» 猜你喜欢
0703化学求调剂
已经有20人回复
-
一志愿中科大070300化学，314分求调剂
已经有7人回复
-
288求调剂，一志愿华南理工大学071005
已经有14人回复
-
070300化学279求调剂
已经有18人回复
-
086003调剂求助
已经有12人回复
-
调剂 化学 307
已经有5人回复
-
一志愿085502，267分求调剂
已经有6人回复
-
材料调剂
已经有8人回复
-
复试调剂，一志愿郑州大学材料与化工289分
已经有22人回复
-
材料工程322
已经有19人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 介绍作者的，编辑部发了个格式，有一些看不懂，请各位帮忙解释一下
已经有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
