966
966
integrator. fsallast = f (u, p, t + dt) # For interpolation, then FSAL'd
967
967
integrator. k[1 ] = integrator. fsalfirst
968
968
integrator. k[2 ] = integrator. fsallast
969
+ OrdinaryDiffEqCore. increment_nf! (integrator. stats, 5 )
969
970
integrator. u = u
970
971
end
971
972
@@ -1012,6 +1013,7 @@ end
1012
1013
step_limiter! (u, integrator, p, t + dt)
1013
1014
1014
1015
f (k, u, p, t + dt)
1016
+ OrdinaryDiffEqCore. increment_nf! (integrator. stats, 5 )
1015
1017
end
1016
1018
1017
1019
function initialize! (integrator, cache:: SHLDDRK_2NConstantCache )
@@ -1053,7 +1055,7 @@ end
1053
1055
# u5 = u
1054
1056
tmp = α51 * tmp + dt * f (u, p, t + c51 * dt)
1055
1057
u = u + β51 * tmp
1056
-
1058
+ OrdinaryDiffEqCore . increment_nf! (integrator . stats, 4 )
1057
1059
else
1058
1060
cache. step += 1
1059
1061
# u1
@@ -1073,11 +1075,13 @@ end
1073
1075
u = u + β52 * tmp
1074
1076
tmp = α62 * tmp + dt * f (u, p, t + c62 * dt)
1075
1077
u = u + β62 * tmp
1078
+ OrdinaryDiffEqCore. increment_nf! (integrator. stats, 5 )
1076
1079
end
1077
1080
1078
1081
integrator. fsallast = f (u, p, t + dt) # For interpolation, then FSAL'd
1079
1082
integrator. k[1 ] = integrator. fsalfirst
1080
1083
integrator. k[2 ] = integrator. fsallast
1084
+ OrdinaryDiffEqCore. increment_nf! (integrator. stats, 1 )
1081
1085
integrator. u = u
1082
1086
end
1083
1087
@@ -1089,6 +1093,7 @@ function initialize!(integrator, cache::SHLDDRK_2NCache)
1089
1093
integrator. k[1 ] = integrator. fsalfirst
1090
1094
integrator. k[2 ] = integrator. fsallast
1091
1095
integrator. f (integrator. fsalfirst, integrator. uprev, integrator. p, integrator. t) # FSAL for interpolation
1096
+ OrdinaryDiffEqCore. increment_nf! (integrator. stats, 1 )
1092
1097
end
1093
1098
1094
1099
@muladd function perform_step! (integrator, cache:: SHLDDRK_2NCache , repeat_step = false )
@@ -1128,6 +1133,7 @@ end
1128
1133
step_limiter! (u, integrator, p, t + dt)
1129
1134
1130
1135
f (k, u, p, t + dt)
1136
+ OrdinaryDiffEqCore. increment_nf! (integrator. stats, 5 )
1131
1137
else
1132
1138
# u1
1133
1139
@. . thread= thread tmp= dt * fsalfirst
@@ -1161,5 +1167,6 @@ end
1161
1167
step_limiter! (u, integrator, p, t + dt)
1162
1168
1163
1169
f (k, u, p, t + dt)
1170
+ OrdinaryDiffEqCore. increment_nf! (integrator. stats, 6 )
1164
1171
end
1165
1172
end
0 commit comments