improve api name for par updating

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();
 

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