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