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

Merged MixedI8 in new branch (to be later merged into development)

Browse Source
This commit is contained in:
Salvatore Filippone
2018-12-10 11:42:40 +00:00
parent 5371e39c16
commit 8d489f8ce2
921 changed files with 172036 additions and 57462 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/error.f90
+1 -1
View File
@@ -52,7 +52,7 @@ subroutine FCpsb_errpush(err_c, r_name, i_err)
character(len=20), intent(in) :: r_name
integer(psb_ipk_) :: i_err(5)
call psb_errpush(err_c, r_name, i_err)
call psb_errpush(err_c, r_name, i_err=i_err)
end subroutine FCpsb_errpush