くだすれFORTRAN（超初心者用）

くだすれFORTRAN（超初心者用） at TECH

288:デフォルトの名無しさん
06/04/12 12:29:36
>>286

logical :: exist
character(len=80) :: filename
do i=1,10
write(filename,'(i2.2,".dat")') i
inquire(file=filename,exist=exist)
if(exist) then
open(io,file=filename,status='old')
!
close(io)
endif
enddo

次ページ

続きを表示

1を表示