*** empty log message ***

10 years ago · c9d03810db
parent e25a71eec6
commit c9d03810db
1 changed files with 1 additions and 1 deletions
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@ -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