summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--code_from_navy/fortran95/FourLevelPulseProp_v2_Double.f952
-rw-r--r--code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f952
-rw-r--r--fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f952
-rw-r--r--fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f952
4 files changed, 4 insertions, 4 deletions
diff --git a/code_from_navy/fortran95/FourLevelPulseProp_v2_Double.f95 b/code_from_navy/fortran95/FourLevelPulseProp_v2_Double.f95
index 4b2e86d..3f6ce1c 100644
--- a/code_from_navy/fortran95/FourLevelPulseProp_v2_Double.f95
+++ b/code_from_navy/fortran95/FourLevelPulseProp_v2_Double.f95
@@ -264,7 +264,7 @@
b1=1.
b2=0.5*ci*alpha2tilde*dt
- b2=0.5*ci*alpha2tilde*dt
+ b3=0.5*ci*alpha2tilde*dt
b4=0.
b5=0.
b6=0.
diff --git a/code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 b/code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95
index 395ab17..9a2aa37 100644
--- a/code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95
+++ b/code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95
@@ -258,7 +258,7 @@
b1=1.
b2=0.5*ci*alpha2tilde*dt
- b2=0.5*ci*alpha2tilde*dt
+ b3=0.5*ci*alpha2tilde*dt
b4=0.
b5=0.
b6=0.
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95
index 4b2e86d..3f6ce1c 100644
--- a/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95
+++ b/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95
@@ -264,7 +264,7 @@
b1=1.
b2=0.5*ci*alpha2tilde*dt
- b2=0.5*ci*alpha2tilde*dt
+ b3=0.5*ci*alpha2tilde*dt
b4=0.
b5=0.
b6=0.
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95
index 395ab17..9a2aa37 100644
--- a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95
+++ b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95
@@ -258,7 +258,7 @@
b1=1.
b2=0.5*ci*alpha2tilde*dt
- b2=0.5*ci*alpha2tilde*dt
+ b3=0.5*ci*alpha2tilde*dt
b4=0.
b5=0.
b6=0.