FLASH-X
Doxygen Generated Documentation From Interface Source Code
RungeKutta_stepConfined.F90
Go to the documentation of this file.
1!! NOTICE
2!! Copyright 2022 UChicago Argonne, LLC and contributors
3!!
4!! Licensed under the Apache License, Version 2.0 (the "License");
5!! you may not use this file except in compliance with the License.
6!!
7!! Unless required by applicable law or agreed to in writing, software
8!! distributed under the License is distributed on an "AS IS" BASIS,
9!! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
10!! See the License for the specific language governing permissions and
11!! limitations under the License.
12!!
69
70subroutine RungeKutta_stepConfined (method, &
71 f, nc, &
72 x, y, ymin, ymax, &
73 eFrac, eBase, &
74 htry, &
75 hused, hnext, &
76 yout, eout )
77
78 implicit none
79
80 interface
81 function f (x,y)
82 real, intent (in) :: x
83 real, intent (in) :: y (:)
84 real :: f (1:size (y))
85 end function f
86 end interface
87
88 interface
89 function ymin (nc,y)
90 integer, intent (in) :: nc
91 real, intent (in) :: y (:)
92 real :: ymin (1:nc)
93 end function ymin
94 end interface
95
96 interface
97 function ymax (nc,y)
98 integer, intent (in) :: nc
99 real, intent (in) :: y (:)
100 real :: ymax (1:nc)
101 end function ymax
102 end interface
103
104 character (len=*), intent (in) :: method
105 integer, intent (in) :: nc
106 real, intent (in) :: x
107 real, intent (in) :: y (:)
108 real, intent (in) :: eFrac
109 real, intent (in) :: eBase (:)
110 real, intent (in) :: htry
111 real, intent (out) :: hused
112 real, intent (out) :: hnext
113 real, intent (out) :: yout (:)
114 real, intent (out) :: eout (:)
115
116 hused = 0.0
117 hnext = 0.0
118
119 yout(:) = 0.0
120 eout(:) = 0.0
121
122 return
123end subroutine RungeKutta_stepConfined
subroutine RungeKutta_stepConfined(method, f, nc, x, y, ymin, ymax, eFrac, eBase, htry, hused, hnext, yout, eout)