diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 12:58:21 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-07-10 12:58:21 -0400 |
| commit | 3d456137b1e12547bf18c77643fe1afd39acb3b8 (patch) | |
| tree | 4e4134cec27f28d1e42b6cb2794a8aded5e56dd6 /fortran | |
| parent | a09c3d144970f7a5eb6ee2e1a14232b9a828c021 (diff) | |
| download | Nresonances-3d456137b1e12547bf18c77643fe1afd39acb3b8.tar.gz Nresonances-3d456137b1e12547bf18c77643fe1afd39acb3b8.zip | |
replcae PAUSE with WRITE(*,*) to comply with Fortran 95
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95 | 2 | ||||
| -rw-r--r-- | fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95 index c6b9954..4b2e86d 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_v2_Double.f95 @@ -628,7 +628,7 @@ do 11 j=1,n if (cabs(a(i,j)).gt.aamax) aamax=cabs(a(i,j)) 11 continue - if (aamax.eq.0.) pause 'singular matrix in ludcmp' + if (aamax.eq.0.) write (*,*) 'singular matrix in ludcmp' vv(i)=1./aamax 12 continue do 19 j=1,n diff --git a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 index 3ca65ce..731ef4d 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_v3_Double.f95 @@ -624,7 +624,7 @@ do 11 j=1,n if (cabs(a(i,j)).gt.aamax) aamax=cabs(a(i,j)) 11 continue - if (aamax.eq.0.) pause 'singular matrix in ludcmp' + if (aamax.eq.0.) write (*,*) 'singular matrix in ludcmp' vv(i)=1./aamax 12 continue do 19 j=1,n |