From ddbb7b31a5b8122ad2989aacf6e1abbf332597d3 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Wed, 13 Jul 2011 00:26:08 -0400 Subject: Remove more of unused code --- fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 3 --- 1 file changed, 3 deletions(-) (limited to 'fortran/navy_four_levels/FourLevelPulseProp_Double.f95') 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 -- cgit v1.2.3