Mercurial > op > rk_sakamoti

view 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
line wrap: on
line source

program rkmain
  use rkmod
  implicit none
  real(kind=dpkind),dimension(3) :: x
  real(kind=dpkind) :: max_t
  real(kind=dpkind),allocatable,dimension(:,:) :: r

  x = [0.5d0,0.5d0,0.5d0]
  max_t = 5d1
  call calc(x, max_t, r)
  print *, r
end program