mat/tests/ex269f.F90

! Test MatCreateNest() with NULL index sets

program main
#include <petsc/finclude/petscmat.h>
use petscmat
implicit none

  Mat                   :: A,D,Id
  Mat,dimension(4)      :: mats
  Vec                   :: v,w
  PetscInt              :: i,rstart,rend
  PetscInt,parameter    :: n=6,nb=2
  PetscScalar,parameter :: one=1.0, two=2.0
  PetscErrorCode        :: ierr

  PetscCallA(PetscInitialize(ierr))

  PetscCallA(MatCreateConstantDiagonal(PETSC_COMM_WORLD,PETSC_DETERMINE,PETSC_DETERMINE,n,n,one,Id,ierr))
  PetscCallA(MatCreateVecs(Id,v,w,ierr))
  PetscCallA(VecGetOwnershipRange(v,rstart,rend,ierr))
  do i=rstart,rend-1
    PetscCallA(VecSetValue(v,i,two/(i+1),INSERT_VALUES,ierr))
  end do
  PetscCallA(VecAssemblyBegin(v,ierr))
  PetscCallA(VecAssemblyEnd(v,ierr))
  PetscCallA(MatCreateDiagonal(v,D,ierr))

  mats(1) = PETSC_NULL_MAT
  mats(2) = D
  mats(3) = Id
  mats(4) = PETSC_NULL_MAT
  PetscCallA(MatCreateNest(PETSC_COMM_WORLD,nb,PETSC_NULL_IS_ARRAY,nb,PETSC_NULL_IS_ARRAY,mats,A,ierr))
  PetscCallA(MatView(A,PETSC_VIEWER_STDOUT_WORLD,ierr))

  PetscCallA(MatDestroy(Id,ierr))
  PetscCallA(VecDestroy(v,ierr))
  PetscCallA(VecDestroy(w,ierr))
  PetscCallA(MatDestroy(D,ierr))
  PetscCallA(MatDestroy(A,ierr))
  PetscCallA(PetscFinalize(ierr))

end program

!/*TEST
!
!   test:
!      nsize: 2
!
!TEST*/