Make size variables SAVEd.

15 years ago · 65f5314e76
parent e73cfb6be7
commit 65f5314e76
1 changed files with 2 additions and 2 deletions
--- a/base/modules/psb_const_mod.f90
+++ b/base/modules/psb_const_mod.f90
@ -40,8 +40,8 @@ module psb_const_mod
  !
  integer, parameter  :: psb_dpk_ = kind(1.d0)
  integer, parameter  :: psb_spk_ = kind(1.e0)
-  integer             :: psb_sizeof_dp, psb_sizeof_sp
+  integer, save       :: psb_sizeof_dp, psb_sizeof_sp
-  integer             :: psb_sizeof_int, psb_sizeof_long_int
+  integer, save       :: psb_sizeof_int, psb_sizeof_long_int
  !
  !     Handy & miscellaneous constants