Searched refs:warg (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/sys/objects/ftn-custom/ |
| H A D | zstart.c | 75 int warg = 256; in PETScParseFortranArgs_Private() local
84 …PetscCall(PetscMallocAlign((*argc + 1) * (warg * sizeof(char) + sizeof(char *)), PETSC_FALSE, 0, N… in PETScParseFortranArgs_Private()
88 PetscCall(PetscMemzero((*argv)[0], (*argc) * warg * sizeof(char))); in PETScParseFortranArgs_Private()
90 (*argv)[i + 1] = (*argv)[i] + warg; in PETScParseFortranArgs_Private()
91 petscgetcommandargument_(&i, (*argv)[i], warg); in PETScParseFortranArgs_Private()
93 p = (*argv)[i] + warg - 1; in PETScParseFortranArgs_Private()
100 PetscCallMPI(MPI_Bcast((*argv)[0], *argc * warg, MPI_CHAR, 0, PETSC_COMM_WORLD)); in PETScParseFortranArgs_Private()
102 for (i = 0; i < *argc; i++) (*argv)[i + 1] = (*argv)[i] + warg; in PETScParseFortranArgs_Private()
|