diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 15:31:47 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 15:31:47 -0400 |
| commit | 3692063a5879487f3f74a43642929e59c6e650e0 (patch) | |
| tree | 5ece45f2c4339e1c7118f9371f204972f48f95af /code_from_navy | |
| parent | 8fc2a1af459a0801b49ce4892047caf58bcd9719 (diff) | |
| download | Nresonances-3692063a5879487f3f74a43642929e59c6e650e0.tar.gz Nresonances-3692063a5879487f3f74a43642929e59c6e650e0.zip | |
b2 now initialized before first use
Diffstat (limited to 'code_from_navy')
| -rw-r--r-- | code_from_navy/fortran95/FourLevelPulseProp_v2_Double.f95 | 2 | ||||
| -rw-r--r-- | code_from_navy/fortran95/FourLevelPulseProp_v3_Double.f95 | 2 |
2 files changed, 2 insertions, 2 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. |