1*f236b2adSBarry Smith static char help[] = "Tests ().\n\n"; 2*f236b2adSBarry Smith 3*f236b2adSBarry Smith #include <petscpf.h> 4*f236b2adSBarry Smith #include <petscvec.h> 5*f236b2adSBarry Smith 6*f236b2adSBarry Smith int main(int argc, char **argv) 7*f236b2adSBarry Smith { 8*f236b2adSBarry Smith PetscScalar x = 2, f; 9*f236b2adSBarry Smith PF pf; 10*f236b2adSBarry Smith 11*f236b2adSBarry Smith PetscFunctionBeginUser; 12*f236b2adSBarry Smith PetscCall(PetscInitialize(&argc, &argv, (char *)0, help)); 13*f236b2adSBarry Smith 14*f236b2adSBarry Smith PetscCall(PFCreate(PETSC_COMM_WORLD, 1, 1, &pf)); 15*f236b2adSBarry Smith PetscCall(PFSetType(pf, PFSTRING, (void *)"f = 2*x;")); 16*f236b2adSBarry Smith PetscCall(PFSetFromOptions(pf)); 17*f236b2adSBarry Smith PetscCall(PFApply(pf, 1, &x, &f)); 18*f236b2adSBarry Smith PetscCheck(f == 4, PETSC_COMM_WORLD, PETSC_ERR_PLIB, "Error in calling string function"); 19*f236b2adSBarry Smith PetscCall(PFDestroy(&pf)); 20*f236b2adSBarry Smith 21*f236b2adSBarry Smith PetscCall(PetscFinalize()); 22*f236b2adSBarry Smith return 0; 23*f236b2adSBarry Smith } 24*f236b2adSBarry Smith 25*f236b2adSBarry Smith /*TEST 26*f236b2adSBarry Smith 27*f236b2adSBarry Smith test: 28*f236b2adSBarry Smith requires: defined(PETSC_HAVE_POPEN) defined(PETSC_USE_SHARED_LIBRARIES) defined(PETSC_HAVE_DYNAMIC_LIBRARIES) 29*f236b2adSBarry Smith args: -pf_view 30*f236b2adSBarry Smith 31*f236b2adSBarry Smith TEST*/ 32