1*ce78bad3SBarry Smith! 2*ce78bad3SBarry Smith! PETSc Program to test PetscReal2d 3*ce78bad3SBarry Smith! 4*ce78bad3SBarry Smith program main 5*ce78bad3SBarry Smith#include <petsc/finclude/petscsys.h> 6*ce78bad3SBarry Smith use petscsys 7*ce78bad3SBarry Smith implicit none 8*ce78bad3SBarry Smith PetscReal2d, pointer :: dbleptr(:) 9*ce78bad3SBarry Smith PetscInt i 10*ce78bad3SBarry Smith PetscErrorCode ierr 11*ce78bad3SBarry Smith 12*ce78bad3SBarry Smith PetscCallA(PetscInitialize(ierr)) 13*ce78bad3SBarry Smith 14*ce78bad3SBarry Smith allocate(dbleptr(10)) 15*ce78bad3SBarry Smith do i=1,10 16*ce78bad3SBarry Smith allocate(dbleptr(i)%ptr(20)) 17*ce78bad3SBarry Smith enddo 18*ce78bad3SBarry Smith do i=1,10 19*ce78bad3SBarry Smith deallocate(dbleptr(i)%ptr) 20*ce78bad3SBarry Smith enddo 21*ce78bad3SBarry Smith deallocate(dbleptr) 22*ce78bad3SBarry Smith 23*ce78bad3SBarry Smith PetscCallA(PetscFinalize(ierr)) 24*ce78bad3SBarry Smith end 25*ce78bad3SBarry Smith 26*ce78bad3SBarry Smith!/*TEST 27*ce78bad3SBarry Smith! 28*ce78bad3SBarry Smith! test: 29*ce78bad3SBarry Smith! 30*ce78bad3SBarry Smith!TEST*/ 31