program main
  implicit none
  integer :: i
  character(len=128) :: rf_config

  ! コマンドライン引数が1つでない場合エラーを返して停止
  if( iargc() /= 1 )then
    print*, '*** ERROR *** Invalid number of command line arguments.'
    stop
  endif

  ! コマンドライン引数を取得
  call getarg(1,rf_config)
  print*, 'Configuration file: ',trim(rf_config)

  ! 設定ファイルを開く（エラー検出は省略）
  open(11,file=rf_config,status='old')

  ! この後ファイルを読み込んで色々やる

  stop
end program main