diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 00:25:25 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-13 00:25:25 -0400 |
| commit | 49304f0e65238d3b250c518cbe64f964ff6d4c4e (patch) | |
| tree | 5776211855dd9518b898e85c21a9f5dcedfc66d5 /fortran | |
| parent | 777d904d053cc6b2788beca4f6a1c0a5d168e341 (diff) | |
| download | Nresonances-49304f0e65238d3b250c518cbe64f964ff6d4c4e.tar.gz Nresonances-49304f0e65238d3b250c518cbe64f964ff6d4c4e.zip | |
One more loop finished with 'end do'
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index ab340d3..b4229a0 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -184,30 +184,30 @@ ! pause ! do 110 n=1,Nframe - do 100 m=1,zpts - Om1(m)=cmplx(0.,0.) - Om2(m)=cmplx(0.,0.) - Omc(m)=cmplx(0.,0.) - - Om_vac(m)=cmplx(0.,0.) - rho11(m)=cmplx(1.,0.) !Change this to change the initial condition - rho12(m)=cmplx(0.,0.) - rho13(m)=cmplx(0.,0.) - rho14(m)=cmplx(0.,0.) - rho21(m)=cmplx(0.,0.) - rho22(m)=cmplx(0.,0.) - rho23(m)=cmplx(0.,0.) - rho24(m)=cmplx(0.,0.) - rho31(m)=cmplx(0.,0.) - rho32(m)=cmplx(0.,0.) - rho33(m)=cmplx(0.,0.) - rho34(m)=cmplx(0.,0.) - rho41(m)=cmplx(0.,0.) - rho42(m)=cmplx(0.,0.) - rho43(m)=cmplx(0.,0.) - rho44(m)=cmplx(0.,0.) - -100 continue + do m=1,zpts + Om1(m)=cmplx(0.,0.) + Om2(m)=cmplx(0.,0.) + Omc(m)=cmplx(0.,0.) + + Om_vac(m)=cmplx(0.,0.) + rho11(m)=cmplx(1.,0.) !Change this to change the initial condition + rho12(m)=cmplx(0.,0.) + rho13(m)=cmplx(0.,0.) + rho14(m)=cmplx(0.,0.) + rho21(m)=cmplx(0.,0.) + rho22(m)=cmplx(0.,0.) + rho23(m)=cmplx(0.,0.) + rho24(m)=cmplx(0.,0.) + rho31(m)=cmplx(0.,0.) + rho32(m)=cmplx(0.,0.) + rho33(m)=cmplx(0.,0.) + rho34(m)=cmplx(0.,0.) + rho41(m)=cmplx(0.,0.) + rho42(m)=cmplx(0.,0.) + rho43(m)=cmplx(0.,0.) + rho44(m)=cmplx(0.,0.) + + end do !110 continue |