Skip to content
Snippets Groups Projects
Commit 64a87c48 authored by Georgiy Faikin's avatar Georgiy Faikin
Browse files

Add new basic function: spline2

parent 362488e7
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
source/carbon/carbon_model_to_core_fun_kit.f90
+ 2
− 2
View file @ 64a87c48
...@@ -41,8 +41,8 @@ contains ...@@ -41,8 +41,8 @@ contains
fun_kit%fun => fun_mm fun_kit%fun => fun_mm
case('step') case('step')
fun_kit%fun => fun_step fun_kit%fun => fun_step
!case('spline') case('spline')
!fun_kit%fun => fun_spline fun_kit%fun => fun_spline
case default case default
stop "check failed : unknown funtype at set_fun" stop "check failed : unknown funtype at set_fun"
end select end select
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment