randomset_3d.f90

Path: main/randomset_3d.f90
Last Update: Mon Oct 01 17:51:49 +0900 2007

Program RandomSet

Authors:KITAMORI Taichi, ODAKA Masatsugu, SUGIYAMA Ko-ichiro

Version: $Id: randomset_3d.f90,v 1.1 2007-10-01 08:51:49 odakker Exp $ Tag Name: $Name: arare4-20110906 $

Copyright:Copyright (C) GFD Dennou Club, 2006. All rights reserved.
License:See COPYRIGHT

Overview

乱数ファイルを生成するためのメインプログラム

Error Handling

Known Bugs

Note

Future Plans

Required files

Methods

randomset  

Included Modules

gridset_3d

Public Instance methods

Main Program :

乱数ファイルを生成するためのメインプログラム

[Source]

program randomset
  !
  !乱数ファイルを生成するためのメインプログラム
  !

  !モジュールの読み込み
  use gridset_3d, only: gridset_init, DimXMax, DimXMin, DimYMax, DimYMin    ! X 方向の配列要素数

  !暗黙の型宣言禁止
  implicit none

  !変数定義
  real(8)        :: random      ! 乱数
  integer        :: i,j         ! ループ変数
  character(8)   :: Today       ! 日付
  character(17)  :: RandomFile  ! 乱数ファイルの名前
  character(80)  :: cfgfile
  
  ! I/O ファイル名の初期化
  !   引数に指定した NAMELIST ファイル名を取得する. 
  call getarg( 1, cfgfile )
  write(*,*) "Input NAMELIST file: ", cfgfile

  !格子点情報の初期化
  !  NAMELIST から情報を得て, 格子点を計算する
  call gridset_init(cfgfile)

  call date_and_time(date = Today)

  RandomFile = "rand-" // Today // ".dat"

  open(10,file=RandomFile)

  do j = DimYMin, DimYMax
    do i = DimXMin, DimXMax
      call random_number(random)
      write(10,*) random
    end do
  end do

  close(10)
  
end program randomset