1! 2! PETSc Program to test PetscReal2d 3! 4 program main 5#include <petsc/finclude/petscsys.h> 6 use petscsys 7 implicit none 8 PetscReal2d, pointer :: dbleptr(:) 9 PetscInt i 10 PetscErrorCode ierr 11 12 PetscCallA(PetscInitialize(ierr)) 13 14 allocate(dbleptr(10)) 15 do i=1,10 16 allocate(dbleptr(i)%ptr(20)) 17 enddo 18 do i=1,10 19 deallocate(dbleptr(i)%ptr) 20 enddo 21 deallocate(dbleptr) 22 23 PetscCallA(PetscFinalize(ierr)) 24 end 25 26!/*TEST 27! 28! test: 29! output_file: output/empty.out 30! 31!TEST*/ 32