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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2015-01-25 12:12:22 +00:00
parent e25a71eec6
commit c9d03810db
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_mod.F90
+1 -1
View File
@@ -1038,7 +1038,7 @@ contains
call psb_ach_errmsg(achmsg,err_c, r_name, i_e_d, a_e_d,me)
do i=1,size(achmsg)
write(iunit,'(a)'),trim(achmsg(i))
write(iunit,'(a)') trim(achmsg(i))
end do
end subroutine psb_errmsg