Fortran90覚え書き (超基本)

とても基本的なことなのだが、他の言語と混ざっていつまで経っても覚えられない（覚える気がない）のでメモ。

比較演算子

演算子	意味
.lt.	<
.le.	<=
.eq.	==
.ne.	/=
.gt.	>
.ge.	>=

論理演算子

演算子	意味
.not.	ノットイコール
.and.	&
.or.	もしくは
.eqv.	論理値が等しい
.neqv.	論理値が等しくない

引数の取得

文字列としての取得になるので、数値の場合はreadし直す必要がある。

sample.f90

program sample
    implicit none
    integer         :: nmax
    character(256)  :: arg

    if( iargc() == 2 ) then
        call getarg(1,arg)
        read(arg,*) nmax
            call getarg(2,arg)
        open(90,file=trim(arg))
    else 
        !---引数が2つでなければ、適当な値/文字列を使用
        nmax=1000
        open(90,file="tmp.dat")
    end if
end program