Fixed psi_protect_name

Cirdans-Home · Cirdans-Home · commit 8cddedd02205 · 2021-04-02T12:58:28.000+02:00
diff --git a/base/internals/psi_desc_impl.f90 b/base/internals/psi_desc_impl.f90
@@ -31,7 +31,7 @@
 !
 
 subroutine psi_i_renum_index(iperm,idx,info)
-  use psi_mod, psi_protect_name =>  psi_renum_index
+  use psi_mod, psi_protect_name =>  psi_i_renum_index
   use psb_serial_mod
   implicit none
 

Original file line number	Diff line number	Diff line change
`@@ -31,7 +31,7 @@`
`31`	`31`	`!`
`32`	`32`
`33`	`33`	`subroutine psi_i_renum_index(iperm,idx,info)`
`34`		`- use psi_mod, psi_protect_name => psi_renum_index`
	`34`	`+ use psi_mod, psi_protect_name => psi_i_renum_index`
`35`	`35`	`use psb_serial_mod`
`36`	`36`	`implicit none`
`37`	`37`