diff options
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 2230cb0..62c050e 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -82,10 +82,6 @@ program FourLevelPulseProp_v3_Double complex*16 rho31_last(zptsmax),rho32_last(zptsmax),rho33_last(zptsmax),rho34_last(zptsmax) complex*16 rho41_last(zptsmax),rho42_last(zptsmax),rho43_last(zptsmax),rho44_last(zptsmax) - !No Om_last because we never need the previous spatial point - - common/para/ga12,W21 - ! Fundamental numbers parameter( ci=cmplx(0.,1.) ) ! imaginary one |