Fortran内删除文件的方式

1.通过open文件时,用status=scratch,close完后自动删除

此时不需要写文件名,这个文件close之后,将会自动删除

open (29, form='unformatted', status='scratch')

........

close (29)

自动删除,over

2.利用 内置subroutine :system ,调用linux指令去删除文件

character(len=64) :: cmd, filename
logical :: filefound
...
inquire (file=filename, exist=filefound)
if (filefound) then
write (cmd, '("/bin/rm ", A)' ) trim (filename)
call system (cmd)

endif

3.close文件的时候用 "status=delete",文件在被close之后会自动删除

character(len=64) :: cmd, filename
...
open (29, file=filename, form='unformatted')
... 

close (29, status='delete')

完事后文件自动删除