integer
:: k
character
(
len
=*
) :: arg
!! 長さは必要分設定しておく
call
getarg(k,arg)