diff options
Diffstat (limited to 'fortran/navy_four_levels')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 9917500..5ccbd80 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -148,6 +148,7 @@ program FourLevelPulseProp_v3_Double ! Length of cell in m Lcell=100 Lcell=beta*Lcell/c !Now dimensionless + Lcell=6 t_start=secnds(0.E0) write (*,*)'t_start = ',t_start ! @@ -156,6 +157,7 @@ program FourLevelPulseProp_v3_Double tshift=2*tp write (*,*) 'peak center at the cell begining i.e. tshift = ', tshift tmax=Lcell*20 !Length of time to pass cell (no c because we're dimensionless) + tmax=130.0 write(*,*) 'tmax = ', tmax write(*,*) 'Lcell = ', Lcell dt=tmax/(tpts-1) |