First step in cleaning gps_mod.

13 years ago · 566d6a4be0
parent 030eb06e1c
commit 566d6a4be0
1 changed files with 2 additions and 1 deletions
--- a/util/psb_gps_mod.f90
+++ b/util/psb_gps_mod.f90
@ -110,7 +110,8 @@ CONTAINS
    !               ARE AT MOST 100 LEVELS.
    ! USE INTEGER*2 NDSTK  WITH AN IBM 360 OR 370.
    use psb_base_mod
-    INTEGER(psb_ipk_) :: NDSTK
+    implicit none 
+    INTEGER(psb_ipk_) :: NDSTK, NR, IDEGE, IOLD, NDEG, IBW2, IPF2 IDPTHE
    INTEGER(psb_ipk_) :: STNODE, RVNODE, RENUM, STNUM, CCSTOR, SBNUM
    ! COMMON /GRA/ N, IDPTH, IDEG
    ! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 CONNECTED COMPONENTS.