| 查看: 790 | 回复: 9 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】split_dos求助~
|
|||
|
各位，我用一位仁兄给的split_dos处理DOSCAR,文件如下： 把这个文件用chmod +x split_dos变成可执行文件后，我放到了/bin目录下，然后回到工作目录下，输入split_dos，./split_dos，sh ./split_dos 都运行不了，提示依次 bash: ./split_dos: No such file or directory ./split_dos: ./split_dos: No such file or directory， 这时怎么回事？哪位帮我解答一下，谢谢！！ |
回复此楼» 猜你喜欢
一志愿华东师范生物学326分，求调剂
已经有5人回复
-
一志愿西北工业大学289 085602
已经有7人回复
-
还有化工二轮调剂的学校吗
已经有40人回复
-
080100力学316求调剂
已经有5人回复
-
一志愿矿大，材料工程专硕314分，0856可调都可以
已经有13人回复
-
考研调剂
已经有20人回复
-
材料与化工300求调剂
已经有26人回复
-
考研二轮调剂
已经有6人回复
-
材料复试求调剂
已经有17人回复
-
085601初试330分找调剂
已经有9人回复
veryman
木虫 (正式写手)
$_$
- 应助: 3 (幼儿园)
- 金币: 6793.4
- 散金: 5673
- 红花: 6
- 帖子: 479
- 在线: 206.6小时
- 虫号: 77254
- 注册: 2005-06-28
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
4楼2009-05-22 23:07:08
★
wuli8(金币+1,VIP+0):感谢交流，(*^__^*) …… 5-25 19:39
wuli8(金币+1,VIP+0):感谢交流，(*^__^*) …… 5-25 19:39
|
这时文件 PROGRAM DOSCAR IMPLICIT NONE REAL::R,E,E1 INTEGER::J,I,N,N1,NUM REAL,DIMENSION(0:18)::X OPEN(1,FILE='DOSCAR',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED',ACTION='READ') OPEN(10,FILE='DOSE.DAT',STATUS='REPLACE',ACCESS='SEQUENTIAL',FORM='FORMATTED') READ(1,'(I4)'),J DO I=1,4 READ(1,*) END DO READ(1,'(42X,F11.8)'),E WRITE(*,'("系统中有元素",I2,"个，费米能级为",F9.5)')J,E !WRITE(10,*),J,E DO I=1,1001 READ(1,*) END DO PRINT*,'请输入要分析的原子序数：' READ(*,*),E1 PRINT*,'请输入要分析的轨道：（s轨道（1）；p轨道（2）；d轨道（4）及合轨道（数字加和））' READ*,N1 N=1 DO NUM=0 DO J=1,1000 READ(1,'(4X,F7.3,18(2X,E10.4E2))'),(X(I),I=0,18) X(0)=X(0)-E IF(N==E1) THEN SELECT CASE(N1) CASE (1) !S WRITE(10,'(1X,F7.3,1(2X,F7.4))')X(0),X(1) CASE (2) !P WRITE(10,'(1X,F7.3,3(2X,F7.4))')X(0),(X(I),I=3,8,2) CASE (3) !S+P WRITE(10,'(1X,F7.3,4(2X,F7.4))')X(0),(X(I),I=1,8,2) CASE (4) !D WRITE(10,'(1X,F7.3,5(2X,F7.4))')X(0),(X(I),I=9,18,2) CASE (5) !S+D WRITE(10,'(1X,F7.3,6(2X,F7.4))')X(0),X(1),(X(I),I=9,18,2) CASE (6) !P+D WRITE(10,'(1X,F7.3,8(2X,F7.4))')X(0),(X(I),I=3,18,2) CASE (7) !S+P+D WRITE(10,'(1X,F7.3,9(2X,F7.4))')X(0),(X(I),I=1,18,2) END SELECT NUM=1 END IF END DO IF(NUM==0) READ(1,*) IF(NUM==1) EXIT N=N+1 END DO CLOSE(1) CLOSE(10) END |
2楼2009-05-22 20:44:00
stractor
金虫 (著名写手)
- 1ST强帖: 6
- 应助: 91 (初中生)
- 金币: 1487.6
- 散金: 666
- 红花: 30
- 沙发: 1
- 帖子: 2224
- 在线: 426.8小时
- 虫号: 394087
- 注册: 2007-06-06
- 专业: 半导体材料
3楼2009-05-22 22:49:10
5楼2009-05-24 11:50:27
