176 PetscErrorCode PetscStackCopy(PetscStack *sint, PetscStack *sout)  in PetscStackCopy()  argument
178   if (sint) {  in PetscStackCopy()
179     for (int i = 0; i < sint->currentsize; ++i) {  in PetscStackCopy()
180       sout->function[i]     = sint->function[i];  in PetscStackCopy()
181       sout->file[i]         = sint->file[i];  in PetscStackCopy()
182       sout->line[i]         = sint->line[i];  in PetscStackCopy()
183       sout->petscroutine[i] = sint->petscroutine[i];  in PetscStackCopy()
185     sout->currentsize = sint->currentsize;  in PetscStackCopy()
216 PetscErrorCode PetscStackPrint(PetscStack *sint, FILE *fp)  in PetscStackPrint()  argument
218   if (sint) {  in PetscStackPrint()
219     for (int i = sint->currentsize; i >= 0; --i) {  in PetscStackPrint()
220 … (sint->file[i]) fprintf(fp, "      [%d]  %s() at %s:%d\n", PetscGlobalRank, sint->function[i], Pe…  in PetscStackPrint()
221       else fprintf(fp, "      [%d]  %s()\n", PetscGlobalRank, sint->function[i]);  in PetscStackPrint()