<div style="line-height:1.7;color:#000000;font-size:14px;font-family:arial"><DIV>Hello, Barry<BR>    <BR>    I try to use MatCreateSeqAIJWithArrays to deal with my problem. Since <BR>there is no example in the doc, I find some examples in the web and use it.<BR>And I get some errors.</DIV>
<DIV> </DIV>
<DIV>    When the processor is 1(mpiexec -n 1 ./ex4f), the results are ok. While<BR>it is more than one, I get the errors. So I think I miss some piece of<BR>information about MatCreateSeqAIJWithArrays.</DIV>
<DIV>    Thanks. <BR>                                          Jim</DIV>
<DIV> </DIV>
<DIV>----------------------------code-------------------------------------------<BR>      call MatCreate(PETSC_COMM_WORLD,A,ierr)<BR>      call MatSetType(A,MATAIJ,ierr)<BR>      call MatSetSizes(A,PETSC_DECIDE,PETSC_DECIDE,m,n,ierr)<BR>      call MatSetFromOptions(A,ierr)<BR>      call MatGetOwnershipRange(A,Istart,Iend,ierr)</DIV>
<DIV><BR>      !NROWIN,NNZIJ,values:the CSR variables of the main function<BR>      !NROWIN,NNZIJ:one-based,so get zero-based variables rowIndex,columns<BR>      allocate(rowIndex(JFLNG+1))<BR>      allocate(columns(MAXNNZ))<BR>      rowIndex=NROWIN-1<BR>      columns=NNZIJ-1<BR>    <BR>      call MatCreateSeqAIJWithArrays(MPI_COMM_WORLD,m,n,rowIndex,columns,<BR>     &       values,A, ierr)</DIV>
<DIV><BR>      call MatAssemblyBegin(A,MAT_FINAL_ASSEMBLY,ierr)<BR>      call MatAssemblyEnd(A,MAT_FINAL_ASSEMBLY,ierr)<BR>----------------------------code-------------------------------------------</DIV>
<DIV> </DIV>
<DIV>----------------------------Error Message----------------------------------</DIV>
<DIV>.........<BR>[1]PETSC ERROR: --------------------- Error Message ------------------------------------<BR>[1]PETSC ERROR: Object is in wrong state!<BR>[1]PETSC ERROR: Mat object's type is not set: Argument # 1!<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: Petsc Release Version 3.2.0, Patch 7, Thu Mar 15 09:30:51 CDT 2012 <BR>[1]PETSC ERROR: See docs/changes/index.html for recent updates.<BR>[1]PETSC ERROR: See docs/faq.html for hints about trouble shooting.<BR>[1]PETSC ERROR: See docs/index.html for manual pages.<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: ./ex4f on a arch-linu named ubuntu by geo Sun Jun 10 01:28:48 2012<BR>[1]PETSC ERROR: Libraries linked from /home/geo/soft/petsc/petsc-3.2-p7/arch-linux2-c-debug/lib<BR>[1]PETSC ERROR: Configure run at Sat Jun  2 00:53:03 2012<BR>[1]PETSC ERROR: Configure options --with-mpi-dir=/home/geo/soft/mpich2 --download-f-blas-lapack=1 --with-x=1<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: MatScaleSystem() line 920 in src/mat/interface/matrix.c<BR>[1]PETSC ERROR: PCPreSolve() line 1376 in src/ksp/pc/interface/precon.c<BR>[1]PETSC ERROR: KSPSolve() line 404 in src/ksp/ksp/interface/itfunc.c<BR>[1]PETSC ERROR: --------------------- Error Message ------------------------------------<BR>[1]PETSC ERROR: Argument out of range!<BR>[1]PETSC ERROR: Comm must be of size 1!<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: Petsc Release Version 3.2.0, Patch 7, Thu Mar 15 09:30:51 CDT 2012 <BR>[1]PETSC ERROR: See docs/changes/index.html for recent updates.<BR>[1]PETSC ERROR: See docs/faq.html for hints about trouble shooting.<BR>[1]PETSC ERROR: See docs/index.html for manual pages.<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: ./ex4f on a arch-linu named ubuntu by geo Sun Jun 10 01:28:48 2012<BR>[1]PETSC ERROR: Libraries linked from /home/geo/soft/petsc/petsc-3.2-p7/arch-linux2-c-debug/lib<BR>[1]PETSC ERROR: Configure run at Sat Jun  2 00:53:03 2012<BR>[1]PETSC ERROR: Configure options --with-mpi-dir=/home/geo/soft/mpich2 --download-f-blas-lapack=1 --with-x=1<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: MatCreate_SeqAIJ() line 3794 in src/mat/impls/aij/seq/aij.c<BR>[1]PETSC ERROR: MatSetType() line 73 in src/mat/interface/matreg.c<BR>[1]PETSC ERROR: MatCreateSeqAIJWithArrays() line 4171 in src/mat/impls/aij/seq/aij.c<BR>[1]PETSC ERROR: --------------------- Error Message ------------------------------------<BR>[1]PETSC ERROR: Object is in wrong state!<BR>[1]PETSC ERROR: Mat object's type is not set: Argument # 1!<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: Petsc Release Version 3.2.0, Patch 7, Thu Mar 15 09:30:51 CDT 2012 <BR>[1]PETSC ERROR: See docs/changes/index.html for recent updates.<BR>[1]PETSC ERROR: See docs/faq.html for hints about trouble shooting.<BR>[1]PETSC ERROR: See docs/index.html for manual pages.<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: ./ex4f on a arch-linu named ubuntu by geo Sun Jun 10 01:28:48 2012<BR>[1]PETSC ERROR: Libraries linked from /home/geo/soft/petsc/petsc-3.2-p7/arch-linux2-c-debug/lib<BR>[1]PETSC ERROR: Configure run at Sat Jun  2 00:53:03 2012<BR>[1]PETSC ERROR: Configure options --with-mpi-dir=/home/geo/soft/mpich2 --download-f-blas-lapack=1 --with-x=1<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: MatAssemblyBegin() line 4760 in src/mat/interface/matrix.c<BR>[1]PETSC ERROR: --------------------- Error Message ------------------------------------<BR>[1]PETSC ERROR: Object is in wrong state!<BR>[1]PETSC ERROR: Mat object's type is not set: Argument # 1!<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: Petsc Release Version 3.2.0, Patch 7, Thu Mar 15 09:30:51 CDT 2012 <BR>[1]PETSC ERROR: See docs/changes/index.html for recent updates.<BR>[1]PETSC ERROR: See docs/faq.html for hints about trouble shooting.<BR>[1]PETSC ERROR: See docs/index.html for manual pages.<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: ./ex4f on a arch-linu named ubuntu by geo Sun Jun 10 01:28:48 2012<BR>[1]PETSC ERROR: Libraries linked from /home/geo/soft/petsc/petsc-3.2-p7/arch-linux2-c-debug/lib<BR>[1]PETSC ERROR: Configure run at Sat Jun  2 00:53:03 2012<BR>[1]PETSC ERROR: Configure options --with-mpi-dir=/home/geo/soft/mpich2 --download-f-blas-lapack=1 --with-x=1<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: MatAssemblyEnd() line 4937 in src/mat/interface/matrix.c<BR>[1]PETSC ERROR: --------------------- Error Message ------------------------------------<BR>[1]PETSC ERROR: Object is in wrong state!<BR>[1]PETSC ERROR: Mat object's type is not set: Argument # 1!<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: Petsc Release Version 3.2.0, Patch 7, Thu Mar 15 09:30:51 CDT 2012 <BR>[1]PETSC ERROR: See docs/changes/index.html for recent updates.<BR>[1]PETSC ERROR: See docs/faq.html for hints about trouble shooting.<BR>[1]PETSC ERROR: See docs/index.html for manual pages.<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: ./ex4f on a arch-linu named ubuntu by geo Sun Jun 10 01:28:48 2012<BR>[1]PETSC ERROR: Libraries linked from /home/geo/soft/petsc/petsc-3.2-p7/arch-linux2-c-debug/lib<BR>[1]PETSC ERROR: Configure run at Sat Jun  2 00:53:03 2012<BR>[1]PETSC ERROR: Configure options --with-mpi-dir=/home/geo/soft/mpich2 --download-f-blas-lapack=1 --with-x=1<BR>[1]PETSC ERROR: ------------------------------------------------------------------------<BR>[1]PETSC ERROR: MatScaleSystem() line 920 in src/mat/interface/matrix.c<BR>[1]PETSC ERROR: PCPreSolve() line 1376 in src/ksp/pc/interface/precon.c<BR>[1]PETSC ERROR: KSPSolve() line 404 in src/ksp/ksp/interface/itfunc.c</DIV>
<DIV>----------------------------Error Message----------------------------------<BR><BR></DIV>
<DIV></DIV>
<DIV id="divNeteaseMailCard"></DIV>
<DIV><BR></DIV><PRE><BR>At 2012-06-09 06:10:50,"Barry Smith" <bsmith@mcs.anl.gov> wrote:
>
>http://www.mcs.anl.gov/petsc/petsc-current/docs/manualpages/Mat/MatCreateSeqAIJWithArrays.html
>http://www.mcs.anl.gov/petsc/petsc-current/docs/manualpages/Mat/MatCreateMPIAIJWithArrays.html
>
>
>
>On Jun 8, 2012, at 1:31 AM, w_ang_temp wrote:
>
>> Hello,
>>     When solving a linear system Ax=b, the first step is assigning values to
>> matrix A. In my program, the subroutine PETSCSOLVE, which is used to slove Ax=b
>> with PETSc, gets the CSR format matrix(values, columns, rowIndex) to set values
>> to PETSc Mat A.
>>     The variables 'values'กข'columns'กข'rowIndex' belong to the main function.
>> They are used to represent a matrix in CSR format. The following table describes
>> the arrays in terms of the values, row, and column positions of the non-zero
>> elements in a sparse matrix. 
>>     values: A real or complex array that contains the non-zero elements of a 
>>             sparse matrix. The non-zero elements are mapped into the values
>>             array using the row-major upper triangular storage mapping described
>>             above. 
>>     columns: Element i of the integer array columns is the number of the column
>>              that contains the i-th element in the values array. 
>>     rowIndex: Element j of the integer array rowIndex gives the index of the 
>>               element in the values array that is first non-zero element in a row j.
>> 
>> codes:
>> ---------Set Values to A From CSR Format(values,rowIndex,columns)-------------------
>>       !values:Non-Symmetric Matrix
>>       ione = 1
>>       do 10,II=Istart+1,Iend
>>         !non-zero numbers of this row
>>         rowNum=rowIndex(II+1)-rowIndex(II)
>>         do 11,JJ=1,rowNum
>>         
>>             !elemnt index of the values/columns
>>             kValNn=rowIndex(II)+JJ-1
>>             !column index of this element
>>             nCol=columns(kValNn)-1
>>             
>>             !Setdata:II-RowIndex,nCol-ColIndex
>>             nRow=II-1
>>             call MatSetValues(A,ione,nRow,ione,nCol,values(kValNn),INSERT_VALUES,ierr)
>>   11    continue      
>>   10  continue
>> --------------------------------------------------------------------------------------
>> 
>>     As we can see, it has to loop a number of times because it can only set one data per
>> time. And this leads to low efficiency.
>>     So is there a better way to do this?
>>     Thank you.
>>                                       Jim
>>  
>> 
>> 
>
</PRE></div><br><br><span title="neteasefooter"><span id="netease_mail_footer"></span></span>