- (出力ファイル名を1番目の引数として与えると仮定して、)ソース・コードを用意:
- "getarg(1,filename)"はfilenameに引数の1番目を書き込む組み込み型サブルーチン。
- 端末で次のようにコンパイル・実行する:$ ifort -o main.out main.f90
$ ./main.out ./filename_output
program main
implicit none
character(100) filename
call getarg(1,filename)
open (12, file=trim(filename), status='replace')
write (12,*) "Hello!"
close (12)
end program main
implicit none
character(100) filename
call getarg(1,filename)
open (12, file=trim(filename), status='replace')
write (12,*) "Hello!"
close (12)
end program main
No comments:
Post a Comment