| /petsc/src/sys/tests/ |
| H A D | ex60f90.F90 | 10 PetscInt :: nopt
14 nopt = 3
15 allocate (bopt(nopt))
16 …PetscCallA(PetscOptionsGetBoolArray(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-bopt', bopt, nopt,…
17 write (outputString, '("bopt: ",3(l7," ")," nopt: ",i3," flg ",l7,"\n")') bopt, nopt, flg
20 nopt = 3
21 allocate (sopt(nopt))
22 …tscOptionsGetScalarArray(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-sopt', sopt, nopt, flg, ierr))
23 write (outputString, '("sopt: ",3(es12.5," ")," nopt: ",i3," flg ",l7,"\n")') sopt, nopt, flg
|
| /petsc/src/sys/tutorials/ |
| H A D | ex9f.F90 | 15 PetscInt :: nopt = 3_Pi
38 allocate (iarray(nopt), source=-1_Pi)
39 allocate (rarray(nopt), source=-99.0_pr)
40 allocate (barray(nopt), source=PETSC_FALSE)
41 allocate (sarray(nopt))
50 …tionsBoolArray('-boolarray', 'Get an application bool array', 'Man page', barray, nopt, flg, ierr))
65 …cOptionsIntArray('-intarray', 'Get an application int array', 'Man page', iarray, nopt, flg, ierr))
75 …tionsRealArray('-realarray', 'Get an application real array', 'Man page', rarray, nopt, flg, ierr))
85 …calarArray('-scalararray', 'Get an application scalar array', 'Man page', sarray, nopt, flg, ierr))
|
| /petsc/src/sys/tests/output/ |
| H A D | ex60f90_0.out | 1 bopt: T T F nopt: 3 flg T
2 sopt: -1.00000E+00 2.00000E+00 3.00000E+00 nopt: 3 flg T
|
| /petsc/src/vec/vec/utils/ |
| H A D | vecstash.c | 21 PetscInt max, *opt, nopt; in VecStashCreate_Private() local
32 nopt = stash->size; in VecStashCreate_Private()
33 PetscCall(PetscMalloc1(nopt, &opt)); in VecStashCreate_Private()
34 PetscCall(PetscOptionsGetIntArray(NULL, NULL, "-vecstash_initial_size", opt, &nopt, &flg)); in VecStashCreate_Private()
36 if (nopt == 1) max = opt[0]; in VecStashCreate_Private()
37 else if (nopt == stash->size) max = opt[stash->rank]; in VecStashCreate_Private()
38 else if (stash->rank < nopt) max = opt[stash->rank]; in VecStashCreate_Private()
|
| /petsc/src/mat/utils/ |
| H A D | matstash.c | 30 PetscInt max, *opt, nopt, i; in MatStashCreate_Private() local
44 nopt = stash->size; in MatStashCreate_Private()
45 PetscCall(PetscMalloc1(nopt, &opt)); in MatStashCreate_Private()
46 PetscCall(PetscOptionsGetIntArray(NULL, NULL, "-matstash_initial_size", opt, &nopt, &flg)); in MatStashCreate_Private()
48 if (nopt == 1) max = opt[0]; in MatStashCreate_Private()
49 else if (nopt == stash->size) max = opt[stash->rank]; in MatStashCreate_Private()
50 else if (stash->rank < nopt) max = opt[stash->rank]; in MatStashCreate_Private()
|
| /petsc/src/sys/objects/ |
| H A D | pinit.c | 1445 PetscInt nopt; in PetscFinalize() local
1587 PetscCall(PetscOptionsAllUsed(NULL, &nopt)); in PetscFinalize()
1588 if (nopt) { in PetscFinalize()
1591 if (nopt == 1) { in PetscFinalize()
1594 …rintf(PETSC_COMM_WORLD, "There are %" PetscInt_FMT " unused database options. They are:\n", nopt)); in PetscFinalize()
|
| H A D | options.c | 983 PetscInt i, nopt = 0; in PetscOptionsLeftError() local
988 nopt++; in PetscOptionsLeftError()
991 if (nopt) { in PetscOptionsLeftError()
|