Date: 2024-09-25T09:34:47+00:00

Actual source code: test4.c
slepc-3.21.2 2024-09-25
Report Typos and Errors

      1: /*
      2:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3:    SLEPc - Scalable Library for Eigenvalue Problem Computations
      4:    Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain

      6:    This file is part of SLEPc.
      7:    SLEPc is distributed under a 2-clause BSD license (see LICENSE).
      8:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      9: */

     11: static char help[] = "Test setting FN parameters from the command line.\n\n";

     13: #include <slepcfn.h>

     15: int main(int argc,char **argv)
     16: {
     17:   FN             fn1,fn2;

     19:   PetscFunctionBeginUser;
     20:   PetscCall(SlepcInitialize(&argc,&argv,(char*)0,help));
     21:   PetscCall(FNCreate(PETSC_COMM_WORLD,&fn1));
     22:   PetscCall(FNSetOptionsPrefix(fn1,"f1_"));
     23:   PetscCall(FNSetFromOptions(fn1));
     24:   PetscCall(FNView(fn1,NULL));
     25:   PetscCall(FNDestroy(&fn1));
     26:   PetscCall(FNCreate(PETSC_COMM_WORLD,&fn2));
     27:   PetscCall(FNSetOptionsPrefix(fn2,"f2_"));
     28:   PetscCall(FNSetFromOptions(fn2));
     29:   PetscCall(FNView(fn2,NULL));
     30:   PetscCall(FNDestroy(&fn2));
     31:   PetscCall(SlepcFinalize());
     32:   return 0;
     33: }

     35: /*TEST

     37:    test:
     38:       suffix: 1
     39:       nsize: 1
     40:       args: -f1_fn_type exp -f1_fn_scale -2.5 -f2_fn_type rational -f2_fn_rational_numerator -1,1 -f2_fn_rational_denominator 1,-6,4

     42: TEST*/