【答案】应助回帖

7楼: Originally posted by Gina88 at 2012-12-17 09:22:12
加路径试过了，还是不行。
主要问题是，一旦将call system部分注释去掉了。
编译的时候总是说定义或者宣称变量那部分不正确。

未命名.jpg
...

deallocate(energy)
deallocate(dos)

!call system("cd DOSCARsplit/")
!ISTATUS=CHDIR(DOSCARsplit)

11楼: Originally posted by snoopyzhao at 2012-12-17 13:56:51
我按前面给你的提示测试了一下，没有问题，可以新建一个文件夹，把 DOSCAR 弄进去，在里面生成 33 个新文件……

当然，你的程序在我这里编译还是有一些问题的，比如 deallocate 语句要改成下面的样子：


de ...

11楼: Originally posted by snoopyzhao at 2012-12-17 13:56:51
我按前面给你的提示测试了一下，没有问题，可以新建一个文件夹，把 DOSCAR 弄进去，在里面生成 33 个新文件……

当然，你的程序在我这里编译还是有一些问题的，比如 deallocate 语句要改成下面的样子：


de ...

13楼: Originally posted by Gina88 at 2012-12-18 09:51:35
哦，对了，还请教您一个问题。
就是有文件，假设该文件为aaa.bbb，也就是该文件的后缀名为bbb，并且bbb文件夹中只有这一个后缀名为bbb的文件。但是它前面aaa部分总是千变万化的。
所以对于程序来说，aaa是不知道 ...

call system('ls -1 *.bbb > filename')
open(unit = 15, file = 'filename', status = 'old')
read(15, '(a)') file_you_want
open(unit = 25, file = file_you_want, status = 'old')
read(25,....

14楼: Originally posted by snoopyzhao at 2012-12-18 10:26:14
这种事情还是别让 Fortran 去做了，如果一定要在 Fortran 中完成，就用 call system 这样的与系统相关的调用吧……

call system('ls -1 *.bbb > filename')
open(unit = 15, file = 'filename', status = ' ...

14楼: Originally posted by snoopyzhao at 2012-12-18 10:26:14
这种事情还是别让 Fortran 去做了，如果一定要在 Fortran 中完成，就用 call system 这样的与系统相关的调用吧……

call system('ls -1 *.bbb > filename')
open(unit = 15, file = 'filename', status = ' ...

16楼: Originally posted by Gina88 at 2012-12-19 16:16:31
call system('ls -1 *.bbb > filename')
open(unit = 15, file = 'filename', status = 'old')
我用上面的命令了，还是不行啊。
谢谢了！...

17楼: Originally posted by snoopyzhao at 2012-12-19 17:26:35
不行是什么意思？没有生成 filename 这个文件，还是别的？有提示信息吗？...

18楼: Originally posted by Gina88 at 2012-12-20 10:10:59
可以生成filename文件，但是估计是打开filename文件的时候不能识别filename文件就是*.bbb文件。
现在我用以下的方法可以实现，就是比较麻烦，呵呵：）
   call system("basename *.bbb > filename" ...

program test

character(len = 80) :: file_you_want, line

call system('ls -1 *.bbb > filename')
open(unit = 15, file = 'filename', status = 'old')
read(15, '(a)') file_you_want
write(*, '(a)') file_you_want
open(unit = 25, file = file_you_want, status = 'old')
read(25,'(a)') line
write (*,'(a)') line

end program test

19楼: Originally posted by snoopyzhao at 2012-12-20 13:56:37
不应该啊， 我这里的测试完全没有问题啊……


program test

character(len = 80) :: file_you_want, line

call system('ls -1 *.bbb > filename')
open(unit = 15, file = 'filename', status = 'ol ...