diff options
Diffstat (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95')
| -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 |