diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 00:26:08 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 00:26:08 -0400 |
| commit | ddbb7b31a5b8122ad2989aacf6e1abbf332597d3 (patch) | |
| tree | d6b462618f70bf1370032e01e874314937158973 /fortran | |
| parent | 49304f0e65238d3b250c518cbe64f964ff6d4c4e (diff) | |
| download | Nresonances-ddbb7b31a5b8122ad2989aacf6e1abbf332597d3.tar.gz Nresonances-ddbb7b31a5b8122ad2989aacf6e1abbf332597d3.zip | |
Remove more of unused code
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index b4229a0..d3a0d7f 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -181,8 +181,6 @@ tpeak=-1 tpeak_vac=-1 write (*,*)'Nframe= ', Nframe -! pause -! do 110 n=1,Nframe do m=1,zpts Om1(m)=cmplx(0.,0.) @@ -208,7 +206,6 @@ rho44(m)=cmplx(0.,0.) end do -!110 continue |