diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 11:56:45 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 11:56:45 -0400 |
| commit | ba860d85b780731a61da004fc9cc640faa813abc (patch) | |
| tree | 1082379cf123a36a9c688f3fd64a35d7d85b4f47 | |
| parent | cde7241a87535392d33420ed7fe382dd8cfa9a59 (diff) | |
| download | Nresonances-ba860d85b780731a61da004fc9cc640faa813abc.tar.gz Nresonances-ba860d85b780731a61da004fc9cc640faa813abc.zip | |
output file names match executable version
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 index 174c677..3ca65ce 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 @@ -345,7 +345,7 @@ NSkip=int(NFrame/NWrite) - fname='MovieParameters4level_v2.txt' + fname='MovieParameters4level_v3.txt' ! write (*,*)'Enter file name to save parameters' ! read (*,3)fname 3 format(a150) @@ -362,7 +362,7 @@ ! read (*,3)fname open(9,file=fname) - fname='Movie4level_EndPoints_v2.dat' + fname='Movie4level_EndPoints_v3.dat' ! write (*,*)'Enter file name to save endpoints' ! read (*,3)fname |