Mercurial > op > rk_sakamoti

comparison rkmain.f90 @ 3:2347cff808b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
chage a parameter of rkmod::calc
author "uncorrelated zombie" <uncorrelated@yahoo.co.jp>
date Sun, 21 Jul 2024 04:11:29 +0900
parents 206e90e91191
children 0ca8347e4c47
comparison
equal deleted inserted replaced
2:206e90e91191 3:2347cff808b0
1 program rkmain 1 program rkmain
2 use rkmod 2 use rkmod
3 implicit none 3 implicit none
4 real(kind=dpkind),dimension(3) :: x 4 real(kind=dpkind),dimension(3) :: x = [0.5, 0.5, 0.5]
5 real(kind=dpkind) :: max_t 5 integer :: max_i = 5000
6 real(kind=dpkind),allocatable,dimension(:,:) :: r 6 real(kind=dpkind), allocatable, dimension(:, :) :: r
7 7
8 x = [0.5d0,0.5d0,0.5d0] 8 allocate(r(max_i, 4))
9 max_t = 5d1 9 call calc(x, max_i, r)
10 call calc(x, max_t, r)
11 print *, r 10 print *, r
12 end program 11 end program
13 12