fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_error_impl.F90
 config/pac.m4
 configure.ac
 configure

Only use the F2003 FLUSH statement. Check for it in configure.
This commit is contained in:
Salvatore Filippone
2010-05-26 11:06:28 +00:00
parent d3949b9ad3
commit a02214eb6a
4 changed files with 111 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_impl.F90
+4 -6
View File
@@ -39,6 +39,10 @@ subroutine psb_serror()
end do
end if
end if
#if defined(HAVE_FLUSH_STMT)
flush(0)
#endif
end subroutine psb_serror
@@ -72,9 +76,6 @@ subroutine psb_perror(ictxt)
call psb_errmsg(err_c, r_name, i_e_d, a_e_d,iam)
! write(0,'(50("="))')
end do
#if defined(HAVE_FLUSH_SUB)
call flush(0)
#endif
#if defined(HAVE_FLUSH_STMT)
flush(0)
#endif
@@ -90,9 +91,6 @@ subroutine psb_perror(ictxt)
do while (psb_get_numerr() > 0)
call psb_errpop(err_c, r_name, i_e_d, a_e_d)
end do
#if defined(HAVE_FLUSH_SUB)
call flush(0)
#endif
#if defined(HAVE_FLUSH_STMT)
flush(0)
#endif