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 12: PetscCallA(PetscInitialize(ierr)) 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) 23: PetscCallA(PetscFinalize(ierr)) 24: end 26: !/*TEST 27: ! 28: ! test: 29: ! output_file: output/empty.out 30: ! 31: !TEST*/