1c4762a1bSJed Brown static char help[] = "Demonstrates PetscDataTypeFromString().\n\n";
2c4762a1bSJed Brown
3c4762a1bSJed Brown #include <petscsys.h>
main(int argc,char ** argv)4d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv)
5d71ae5a4SJacob Faibussowitsch {
6c4762a1bSJed Brown PetscDataType dtype;
7c4762a1bSJed Brown PetscBool found;
8c4762a1bSJed Brown
9c4762a1bSJed Brown /*
10c4762a1bSJed Brown Every PETSc routine should begin with the PetscInitialize() routine.
11c4762a1bSJed Brown argc, argv - These command line arguments are taken to extract the options
12c4762a1bSJed Brown supplied to PETSc and options supplied to MPI.
13c4762a1bSJed Brown help - When PETSc executable is invoked with the option -help,
14c4762a1bSJed Brown it prints the various options that can be applied at
15c4762a1bSJed Brown runtime. The user can use the "help" variable place
16c4762a1bSJed Brown additional help messages in this printout.
17c4762a1bSJed Brown */
18327415f7SBarry Smith PetscFunctionBeginUser;
19c8025a54SPierre Jolivet PetscCall(PetscInitialize(&argc, &argv, NULL, help));
20c4762a1bSJed Brown
219566063dSJacob Faibussowitsch PetscCall(PetscDataTypeFromString("Scalar", &dtype, &found));
2228b400f6SJacob Faibussowitsch PetscCheck(found, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Did not find scalar datatype");
2308401ef6SPierre Jolivet PetscCheck(dtype == PETSC_SCALAR, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Found wrong datatype for scalar");
24c4762a1bSJed Brown
259566063dSJacob Faibussowitsch PetscCall(PetscDataTypeFromString("INT", &dtype, &found));
2628b400f6SJacob Faibussowitsch PetscCheck(found, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Did not find int datatype");
2708401ef6SPierre Jolivet PetscCheck(dtype == PETSC_INT, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Found wrong datatype for int");
28c4762a1bSJed Brown
299566063dSJacob Faibussowitsch PetscCall(PetscDataTypeFromString("real", &dtype, &found));
3028b400f6SJacob Faibussowitsch PetscCheck(found, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Did not find real datatype");
3108401ef6SPierre Jolivet PetscCheck(dtype == PETSC_REAL, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Found wrong datatype for real");
32c4762a1bSJed Brown
339566063dSJacob Faibussowitsch PetscCall(PetscDataTypeFromString("abogusdatatype", &dtype, &found));
3428b400f6SJacob Faibussowitsch PetscCheck(!found, PETSC_COMM_WORLD, PETSC_ERR_ARG_WRONG, "Found a bogus datatype");
35c4762a1bSJed Brown
369566063dSJacob Faibussowitsch PetscCall(PetscFinalize());
37b122ec5aSJacob Faibussowitsch return 0;
38c4762a1bSJed Brown }
39c4762a1bSJed Brown
40c4762a1bSJed Brown /*TEST
41c4762a1bSJed Brown
42c4762a1bSJed Brown test:
43*3886731fSPierre Jolivet output_file: output/empty.out
44c4762a1bSJed Brown
45c4762a1bSJed Brown TEST*/
46