1! 2! PETSc Program to test PetscReal2d 3! 4#include <petsc/finclude/petscsys.h> 5program main 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 end do 18 do i = 1, 10 19 deallocate (dbleptr(i)%ptr) 20 end do 21 deallocate (dbleptr) 22 23 PetscCallA(PetscFinalize(ierr)) 24end 25 26!/*TEST 27! 28! test: 29! output_file: output/empty.out 30! 31!TEST*/ 32