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

psblas3-integer8:

Browse Source 
base/modules/psi_bcast_mod.F90

Fix misspelling in interface blocks.
This commit is contained in:
Salvatore Filippone
2012-02-01 16:14:27 +00:00
parent d2fb497ead
commit 42994a8ab2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psi_bcast_mod.F90
+3 -3
View File
@@ -604,9 +604,9 @@ contains
call psb_info(ictxt,iam,np)
call mpi_bcast(dat,size(dat),mpi_integer8,root_,ictxt,info)
#endif
end subroutine psb_ibcastv
end subroutine psb_i8bcastv
subroutine psb_ibcastm(ictxt,dat,root)
subroutine psb_i8bcastm(ictxt,dat,root)
#ifdef MPI_MOD
use mpi
#endif
@@ -630,7 +630,7 @@ contains
call psb_info(ictxt,iam,np)
call mpi_bcast(dat,size(dat),mpi_integer8,root_,ictxt,info)
#endif
end subroutine psb_ibcastm
end subroutine psb_i8bcastm
#endif