Mercurial > op > rk_sakamoti

annotate rkmain.f90 @ 5:0ca8347e4c47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add rk_Lorenz.R and rksub.f90
author "uncorrelated zombie" <uncorrelated@yahoo.co.jp>
date Tue, 23 Jul 2024 03:31:21 +0900
parents 2347cff808b0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
5bd0f2a15d2a import from https://qiita.com/sakamoti/items/de851e0d07aeef5be310
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents:
diff changeset
1 program rkmain
2
206e90e91191 make rkmod.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 1
diff changeset
2 use rkmod
0
5bd0f2a15d2a import from https://qiita.com/sakamoti/items/de851e0d07aeef5be310
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents:
diff changeset
3 implicit none
3
2347cff808b0 chage a parameter of rkmod::calc
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 2
diff changeset
4 real(kind=dpkind),dimension(3) :: x = [0.5, 0.5, 0.5]
2347cff808b0 chage a parameter of rkmod::calc
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 2
diff changeset
5 integer :: max_i = 5000
5
0ca8347e4c47 add rk_Lorenz.R and rksub.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 3
diff changeset
6 ! real(kind=dpkind), allocatable, dimension(:, :) :: r
0ca8347e4c47 add rk_Lorenz.R and rksub.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 3
diff changeset
7 real(kind=dpkind), dimension(5000, 4) :: r
1
954faa9f6837 separate output from calcuration.
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 0
diff changeset
8
5
0ca8347e4c47 add rk_Lorenz.R and rksub.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 3
diff changeset
9 ! allocate(r(max_i, 4))
3
2347cff808b0 chage a parameter of rkmod::calc
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 2
diff changeset
10 call calc(x, max_i, r)
5
0ca8347e4c47 add rk_Lorenz.R and rksub.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 3
diff changeset
11 open(17,file='rkmain.dat', form='unformatted', access = "stream", status='replace')
0ca8347e4c47 add rk_Lorenz.R and rksub.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 3
diff changeset
12 write(17) r
0ca8347e4c47 add rk_Lorenz.R and rksub.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 3
diff changeset
13 close(17)
0
5bd0f2a15d2a import from https://qiita.com/sakamoti/items/de851e0d07aeef5be310
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents:
diff changeset
14 end program
1
954faa9f6837 separate output from calcuration.
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 0
diff changeset
15