diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-25 15:05:14 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-25 15:05:14 -0400 |
| commit | 883da539fa5b5e8b926ad07400ea9c6f4b20b01e (patch) | |
| tree | b5228fbee49fe344925dc390a589c3705c5fdc6f /fortran/navy_four_levels | |
| parent | f815ea8845510f306c60b73f3576e6404b8033d2 (diff) | |
| download | Nresonances-883da539fa5b5e8b926ad07400ea9c6f4b20b01e.tar.gz Nresonances-883da539fa5b5e8b926ad07400ea9c6f4b20b01e.zip | |
Remove unused comment and common block
Diffstat (limited to 'fortran/navy_four_levels')
| -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 |