diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-23 11:13:37 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-08-23 11:13:37 -0400 |
| commit | 2066e193c4887e0cd1693beb23772d40856ef202 (patch) | |
| tree | dcb61e12bfacfcef2fed8005d606744aeaf078e8 | |
| parent | 631512ed7e376d4e489e09c989283741ad94bb54 (diff) | |
| download | Nresonances-2066e193c4887e0cd1693beb23772d40856ef202.tar.gz Nresonances-2066e193c4887e0cd1693beb23772d40856ef202.zip | |
Removed unused variable tpts
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 9891d00..3bb5eea 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -26,7 +26,7 @@ program FourLevelPulseProp_v3_Double ! Version 3: Make a step function in the coupling field. character*150 fname - integer nmat,npts,Nframe, tpts, tpts_max,NSkip,NWrite,zpts, zptsmax + integer nmat, npts, Nframe, tpts_max, NSkip, NWrite, zpts, zptsmax integer iSkipped; parameter (nmat=3,npts=100) !matrix size, number of detuning points in dispersion curve !tpts is the number of temporal points in the cell |