Rename sabi into sati

cosmicinflation · Feb 16, 2023 · 2230338 · 2230338
1 parent 75fc4d6
commit 2230338
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 16 deletions.
diff --git a/src/infbgmodel.F90 b/src/infbgmodel.F90
@@ -1642,7 +1642,7 @@ function set_infbg_param(infParam)
        matterParam(3) = infParam%consts(3)
 
 
-    case ('scaabi','sabi')
+    case ('scaabi','sati')
 !superconformal alpha attractor B inflation: SABI
 
 !U = c1^4 [tanh(F/c3)]^(c2)

diff --git a/src/infmatter.F90 b/src/infmatter.F90
@@ -744,7 +744,7 @@ function matter_potential(matter)
           matter_potential = saai_norm_potential(chi,alpha)
 
        case ('scaabi')
-          matter_potential = sabi_norm_potential(chi,alpha,p)
+          matter_potential = sati_norm_potential(chi,alpha,p)
 
        case ('scaaci')
           matter_potential = saci_norm_potential(chi,alpha,p)
@@ -1046,7 +1046,7 @@ function deriv_matter_potential(matter)
           deriv_matter_potential(1) = saai_norm_deriv_potential(chi,alpha)
 
        case ('scaabi')
-          deriv_matter_potential(1) = sabi_norm_deriv_potential(chi,alpha,p)
+          deriv_matter_potential(1) = sati_norm_deriv_potential(chi,alpha,p)
 
        case ('scaaci')
           deriv_matter_potential(1) = saci_norm_deriv_potential(chi,alpha,p)
@@ -1380,7 +1380,7 @@ function deriv_second_matter_potential(matter)
           deriv_second_matter_potential(1,1) = saai_norm_deriv_second_potential(chi,alpha)
 
        case ('scaabi')
-          deriv_second_matter_potential(1,1) = sabi_norm_deriv_second_potential(chi,alpha,p)
+          deriv_second_matter_potential(1,1) = sati_norm_deriv_second_potential(chi,alpha,p)
 
        case ('scaaci')
           deriv_second_matter_potential(1,1) = saci_norm_deriv_second_potential(chi,alpha,p)

diff --git a/src/infsric.F90 b/src/infsric.F90
@@ -315,8 +315,8 @@ function slowroll_initial_matter(infParam,efoldWanted)
     case ('scaaai','saai')
        slowroll_initial_matter = saai_initial_field(infParam,efold)
 
-    case ('scaabi','sabi')
-       slowroll_initial_matter = sabi_initial_field(infParam,efold)
+    case ('scaabi','sati')
+       slowroll_initial_matter = sati_initial_field(infParam,efold)
 
     case ('scaaci','saci')
        slowroll_initial_matter = saci_initial_field(infParam,efold)
@@ -2949,10 +2949,10 @@ end function saai_initial_field
 
 
 
-  function sabi_initial_field(infParam, efold)
-    use sabisr, only : sabi_x_endinf, sabi_x_trajectory
+  function sati_initial_field(infParam, efold)
+    use satisr, only : sati_x_endinf, sati_x_trajectory
 
-    real(kp), dimension(matterNum) :: sabi_initial_field
+    real(kp), dimension(matterNum) :: sati_initial_field
     type(infbgparam), intent(in) :: infParam
     real(kp), intent(in) :: efold
 
@@ -2964,14 +2964,14 @@ function sabi_initial_field(infParam, efold)
     p = infParam%consts(2)/2._kp
     alpha = infParam%consts(3)**2/6._kp
 
-    xEnd = sabi_x_endinf(alpha,p)
-    if (display) write(*,*)'sabi_initial_field: xend= ', xEnd
+    xEnd = sati_x_endinf(alpha,p)
+    if (display) write(*,*)'sati_initial_field: xend= ', xEnd
 
-    xIni = sabi_x_trajectory(bfold,xend,alpha,p)
+    xIni = sati_x_trajectory(bfold,xend,alpha,p)
 
-    sabi_initial_field(:) = xIni
+    sati_initial_field(:) = xIni
 
-  end function sabi_initial_field
+  end function sati_initial_field
 
 
 

diff --git a/src/libaspic.h b/src/libaspic.h
@@ -275,8 +275,8 @@
   use saaisr, only : saai_norm_deriv_second_potential
 
 !superconformal alpha attractor B inflation
-  use sabisr, only : sabi_norm_potential, sabi_norm_deriv_potential
-  use sabisr, only : sabi_norm_deriv_second_potential
+  use satisr, only : sati_norm_potential, sati_norm_deriv_potential
+  use satisr, only : sati_norm_deriv_second_potential
 
 !superconformal alpha attractor C inflation
   use sacisr, only : saci_norm_potential, saci_norm_deriv_potential