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

Fixed subroutine names

Browse Source
This commit is contained in:
Salvatore Filippone
2005-11-03 15:23:19 +00:00
parent 29a42262dd
commit 3acb2737fa
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/internals/psi_iswapdata.f90
+4 -4
View File
@@ -1,4 +1,4 @@
subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)
subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data)
use psb_error_mod
use psb_descriptor_type
@@ -447,10 +447,10 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data)
return
end if
return
end subroutine psi_dswapdatam
end subroutine psi_iswapdatam
subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
subroutine psi_iswapdatav(flag,beta,y,desc_a,work,info,data)
use psb_error_mod
use psb_descriptor_type
@@ -901,4 +901,4 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data)
return
end if
return
end subroutine psi_dswapdatav
end subroutine psi_iswapdatav