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

Fixed remaining myprow etc. variables.

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 88a13631f5
commit b35b455e72
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File

6
test/Fileread/hbio.f90
Unescape Escape View File

@ -54,8 +54,7 @@ contains
character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20 character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20
integer :: indcrd, ptrcrd, totcrd,& integer :: indcrd, ptrcrd, totcrd,&
& valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix
integer :: ircode, i,iel,ptr,nzr,infile,& integer :: ircode, i,iel,ptr,nzr,infile, j, info
& j, root, nprow, npcol, myprow, mypcol, info
character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)'
character(len=*), parameter :: fmt11='(a1,13x,2i14)' character(len=*), parameter :: fmt11='(a1,13x,2i14)'
character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)'
@ -314,8 +313,7 @@ contains
character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20 character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20
integer :: indcrd, ptrcrd, totcrd,& integer :: indcrd, ptrcrd, totcrd,&
& valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix
integer :: ircode, i,iel,ptr,nzr,infile,& integer :: ircode, i,iel,ptr,nzr,infile,j, info
& j, root, nprow, npcol, myprow, mypcol, info
character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)'
character(len=*), parameter :: fmt11='(a1,13x,2i14)' character(len=*), parameter :: fmt11='(a1,13x,2i14)'
character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)'

6
test/Fileread/mmio.f90
Unescape Escape View File

@ -50,8 +50,7 @@ contains
character :: mmheader*15, fmt*15, object*10, type*10, sym*15 character :: mmheader*15, fmt*15, object*10, type*10, sym*15
character(1024) :: line character(1024) :: line
integer :: nrow, ncol, nnzero, neltvl, nrhs, nrhsix integer :: nrow, ncol, nnzero, neltvl, nrhs, nrhsix
integer :: ircode, i,iel,nzr,infile,& integer :: ircode, i,iel,nzr,infile, j
& j, liwork, root, nprow, npcol, myprow, mypcol
logical, parameter :: debug=.false. logical, parameter :: debug=.false.
iret = 0 iret = 0
@ -206,8 +205,7 @@ contains
character :: mmheader*15, fmt*15, object*10, type*10, sym*15 character :: mmheader*15, fmt*15, object*10, type*10, sym*15
character(1024) :: line character(1024) :: line
integer :: nrow, ncol, nnzero, neltvl, nrhs, nrhsix integer :: nrow, ncol, nnzero, neltvl, nrhs, nrhsix
integer :: ircode, i,iel,nzr,infile,& integer :: ircode, i,iel,nzr,infile,j
& j, liwork, root, nprow, npcol, myprow, mypcol
real(kind(1.d0)) :: are, aim real(kind(1.d0)) :: are, aim
logical, parameter :: debug=.false. logical, parameter :: debug=.false.

Write Preview
Loading…
Cancel
Save