CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corrected improper quotes

Browse Source
This commit is contained in:
vhenson 1996-08-15 21:51:53 +00:00
parent a6af03a19f
commit a3ecda5ab7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
seq_linear_solvers/amg/amg/amg.f
View File

@ -13,7 +13,7 @@ C
IMPLICIT REAL*8 (A-H,O-Z) IMPLICIT REAL*8 (A-H,O-Z)
integer TOLD,TNEW,TAMG integer TOLD,TNEW,TAMG
C C
include `params.amg' include 'params.amg'
COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP
DIMENSION A(ndima),JA(ndima),IA(ndimu), DIMENSION A(ndima),JA(ndima),IA(ndimu),
* U(ndimu),F(ndimu) * U(ndimu),F(ndimu)

2
seq_ls/amg/amg/amg.f
View File

@ -13,7 +13,7 @@ C
IMPLICIT REAL*8 (A-H,O-Z) IMPLICIT REAL*8 (A-H,O-Z)
integer TOLD,TNEW,TAMG integer TOLD,TNEW,TAMG
C C
include `params.amg' include 'params.amg'
COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP COMMON /SCONN/ KSTRNG,ISTRNG,NSWEEP
DIMENSION A(ndima),JA(ndima),IA(ndimu), DIMENSION A(ndima),JA(ndima),IA(ndimu),
* U(ndimu),F(ndimu) * U(ndimu),F(ndimu)