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')
完事后文件自动删除