From d88bb324ce051b0f99d89b191dcccbb639cda4fc Mon Sep 17 00:00:00 2001
From: Brown <2mx@ornl.gov>
Date: Wed, 6 Apr 2022 09:56:42 -0400
Subject: [PATCH] improve api name for par updating
---
sammy/src/sam/SammyApi.h | 2 +-
sammy/src/sam/sammy_api_m.f90 | 9 +++------
2 files changed, 4 insertions(+), 7 deletions(-)
diff --git a/sammy/src/sam/SammyApi.h b/sammy/src/sam/SammyApi.h
index 0d2c63861..f597158ca 100644
--- a/sammy/src/sam/SammyApi.h
+++ b/sammy/src/sam/SammyApi.h
@@ -13,7 +13,7 @@ void sammy_init_api(char * filename, int * sizeData);
void sammy_get_theory(int * iter);
-void sammy_advance_theory();
+void sammy_update_pars();
void sammy_run();
diff --git a/sammy/src/sam/sammy_api_m.f90 b/sammy/src/sam/sammy_api_m.f90
index b207c26cd..4433f4d52 100755
--- a/sammy/src/sam/sammy_api_m.f90
+++ b/sammy/src/sam/sammy_api_m.f90
@@ -28,7 +28,7 @@ module sammy_api_m
use EndfData_common_m, only : covData, expData
implicit none
- public sammy_init, sammy_run, sammy_finish, sammy_get_theory, sammy_advance_theory
+ public sammy_init, sammy_run, sammy_finish, sammy_get_theory, sammy_update_pars
integer::K_Stop
CHARACTER(len=6)::Where_To_Next
@@ -195,16 +195,13 @@ contains
end if
end subroutine
- subroutine sammy_advance_theory() BIND(C,name="sammy_advance_theory")
+ subroutine sammy_update_pars() BIND(C,name="sammy_update_pars")
logical::moreData, moreIter
- if (Where_To_Next.eq.'samthe') return
- Where_To_Next = 'samfin'
- ! call sammy_do_segments('samthe')
moreData = .false.
moreIter = .false.
call Samfin_0(moreData, moreIter) ! convert RR parameters
- end subroutine sammy_advance_theory
+ end subroutine sammy_update_pars
subroutine sammy_do_segments(endSeg)
character(len=*)::endSeg
--
GitLab