From ece66421bfdd09fafb52f21fceb669c43d04b89e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 16 Sep 2019 10:46:04 +0100 Subject: [PATCH] Add len arg in declaration. --- base/modules/penv/psi_penv_mod.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/base/modules/penv/psi_penv_mod.F90 b/base/modules/penv/psi_penv_mod.F90 index b4feabb4..31dfd0b8 100644 --- a/base/modules/penv/psi_penv_mod.F90 +++ b/base/modules/penv/psi_penv_mod.F90 @@ -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