:orphan:
# PetscPClose
Closes (ends) a program on MPI rank 0 run with `PetscPOpen()` 
## Synopsis
```
PetscErrorCode PetscPClose(MPI_Comm comm, FILE *fd)
```
Collective, but only MPI rank 0 does anything


## Input Parameters

- ***comm -*** MPI communicator, only rank 0 performs the close
- ***fd -*** the file pointer where program input or output may be read or `NULL` if don't care





## Note
Does not work under Microsoft Windows


## See Also
 `PetscFOpen()`, `PetscFClose()`, `PetscPOpen()`

## Level
intermediate

## Location
<A HREF="PETSC_DOC_OUT_ROOT_PLACEHOLDER/src/sys/fileio/mpiuopen.c.html#PetscPClose">src/sys/fileio/mpiuopen.c</A>


---
[Edit on GitLab](https://gitlab.com/petsc/petsc/-/edit/release/src/sys/fileio/mpiuopen.c)


[Index of all Sys routines](index.md)  
[Table of Contents for all manual pages](/manualpages/index.md)  
[Index of all manual pages](/manualpages/singleindex.md)