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: enddo 18: do i=1,10 19: deallocate(dbleptr(i)%ptr) 20: enddo 21: deallocate(dbleptr) 23: PetscCallA(PetscFinalize(ierr)) 24: end 26: !/*TEST 27: ! 28: ! test: 29: ! 30: !TEST*/