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

Add len arg in declaration.

Browse Source
This commit is contained in:
Salvatore Filippone
2019-09-16 10:46:04 +01:00
parent a65626c7b0
commit ece66421bf
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_penv_mod.F90
+4 -4
View File
@@ -584,7 +584,7 @@ contains
!
! !!!!!!!!!!!!!!!!!!!!!!
subroutine psi_mamx_op(inv, outv,len,type)
integer(psb_mpk_) :: inv(*),outv(*)
integer(psb_mpk_) :: inv(len), outv(len)
integer(psb_mpk_) :: len,type
integer(psb_mpk_) :: i
@@ -594,7 +594,7 @@ contains
end subroutine psi_mamx_op
subroutine psi_mamn_op(inv, outv,len,type)
integer(psb_mpk_) :: inv(*),outv(*)
integer(psb_mpk_) :: inv(len), outv(len)
integer(psb_mpk_) :: len,type
integer(psb_mpk_) :: i
@@ -604,7 +604,7 @@ contains
end subroutine psi_mamn_op
subroutine psi_eamx_op(inv, outv,len,type)
integer(psb_epk_) :: inv(*),outv(*)
integer(psb_epk_) :: inv(len), outv(len)
integer(psb_mpk_) :: len,type
integer(psb_mpk_) :: i
@@ -614,7 +614,7 @@ contains
end subroutine psi_eamx_op
subroutine psi_eamn_op(inv, outv,len,type)
integer(psb_epk_) :: inv(*),outv(*)
integer(psb_epk_) :: inv(len), outv(len)
integer(psb_mpk_) :: len,type
integer(psb_mpk_) :: i