|
|
@ -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)'
|
|
|
|