diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-08 00:51:54 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-08 00:51:54 -0400 |
| commit | dd57cf70de3c6d7ec70ed653e37e39dcc630f668 (patch) | |
| tree | e372292796b2a8e4456f9b52aaf7349f250a79a8 /fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | |
| parent | b76f0de995c4ab16d2b27e771106c132c5004fd5 (diff) | |
| download | Nresonances-dd57cf70de3c6d7ec70ed653e37e39dcc630f668.tar.gz Nresonances-dd57cf70de3c6d7ec70ed653e37e39dcc630f668.zip | |
Small format fix
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 600a6ab..f797d13 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -47,7 +47,7 @@ program FourLevelPulseProp_v3_Double complex*16 k1,k2,k3,k4,k5,k6,k7,k8,k9,k10 complex*16 l1,l2,l3,l4,l5 - complex *16 Omold, Omold_vac + complex*16 Omold, Omold_vac real*8 alpha1,alpha2,alpha1tilde,alpha2tilde,alphac,alphactilde,beta,c,delmax,del1_prop,del2_prop,delc_prop real*8 dt,dz,eta real*8 W12,W21,W31,W32,W41,W42,W43,W34,ga12,ga13,ga14,ga23,ga24,ga34 |