Mercurial > op > rk_sakamoti

annotate rkmain.f90 @ 2:206e90e91191

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make rkmod.f90
author "uncorrelated zombie" <uncorrelated@yahoo.co.jp>
date Sun, 21 Jul 2024 03:56:49 +0900
parents 954faa9f6837
children 2347cff808b0
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
2
206e90e91191 make rkmod.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 1
diff changeset
4 real(kind=dpkind),dimension(3) :: x
1
954faa9f6837 separate output from calcuration.
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 0
diff changeset
5 real(kind=dpkind) :: max_t
2
206e90e91191 make rkmod.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 1
diff changeset
6 real(kind=dpkind),allocatable,dimension(:,:) :: r
1
954faa9f6837 separate output from calcuration.
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 0
diff changeset
7
2
206e90e91191 make rkmod.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 1
diff changeset
8 x = [0.5d0,0.5d0,0.5d0]
206e90e91191 make rkmod.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 1
diff changeset
9 max_t = 5d1
206e90e91191 make rkmod.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 1
diff changeset
10 call calc(x, max_t, r)
206e90e91191 make rkmod.f90
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 1
diff changeset
11 print *, r
0
5bd0f2a15d2a import from https://qiita.com/sakamoti/items/de851e0d07aeef5be310
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents:
diff changeset
12 end program
1
954faa9f6837 separate output from calcuration.
"uncorrelated zombie" <uncorrelated@yahoo.co.jp>
parents: 0
diff changeset
13