Actual source code: ex79f.F90

  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*/