1ce78bad3SBarry Smith! 2ce78bad3SBarry Smith! PETSc Program to test PetscReal2d 3ce78bad3SBarry Smith! 4ce78bad3SBarry Smith program main 5ce78bad3SBarry Smith#include <petsc/finclude/petscsys.h> 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 enddo 18ce78bad3SBarry Smith do i=1,10 19ce78bad3SBarry Smith deallocate(dbleptr(i)%ptr) 20ce78bad3SBarry Smith enddo 21ce78bad3SBarry Smith deallocate(dbleptr) 22ce78bad3SBarry Smith 23ce78bad3SBarry Smith PetscCallA(PetscFinalize(ierr)) 24ce78bad3SBarry Smith end 25ce78bad3SBarry Smith 26ce78bad3SBarry Smith!/*TEST 27ce78bad3SBarry Smith! 28ce78bad3SBarry Smith! test: 29*3886731fSPierre Jolivet! output_file: output/empty.out 30ce78bad3SBarry Smith! 31ce78bad3SBarry Smith!TEST*/ 32