Tomography solver based on the PETSc library written in Fortran