fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

First step in cleaning gps_mod.

Browse Source
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 030eb06e1c
commit 566d6a4be0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File

3
util/psb_gps_mod.f90
Unescape Escape View File

@ -110,7 +110,8 @@ CONTAINS
! ARE AT MOST 100 LEVELS. ! ARE AT MOST 100 LEVELS.
! USE INTEGER*2 NDSTK WITH AN IBM 360 OR 370. ! USE INTEGER*2 NDSTK WITH AN IBM 360 OR 370.
use psb_base_mod 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 INTEGER(psb_ipk_) :: STNODE, RVNODE, RENUM, STNUM, CCSTOR, SBNUM
! COMMON /GRA/ N, IDPTH, IDEG ! COMMON /GRA/ N, IDPTH, IDEG
! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 CONNECTED COMPONENTS. ! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 CONNECTED COMPONENTS.

Write Preview
Loading…
Cancel
Save