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