Path: | main/randomset_3d.f90 |
Last Update: | Mon Oct 01 17:51:49 +0900 2007 |
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-20080618 $
Copyright: | Copyright (C) GFD Dennou Club, 2006. All rights reserved. |
License: | See COPYRIGHT |
乱数ファイルを生成するためのメインプログラム
Main Program : |
乱数ファイルを生成するためのメインプログラム
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