diff options
Diffstat (limited to 'fortran')
| -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 |