307 …PI_Comm comm, const char path[PETSC_MAX_PATH_LEN], const PetscInt char_array_len, PetscInt dims[2],  in PhastaDatFileOpen()
319   for (PetscInt i = 0; i < ndims; i++) dims[i] = atoi(array[i]);  in PhastaDatFileOpen()
335   PetscInt       dims[2];  in PhastaDatFileGetNRows()  local
339   PetscCall(PhastaDatFileOpen(comm, path, char_array_len, dims, &fp));  in PhastaDatFileGetNRows()
340   *nrows = dims[0];  in PhastaDatFileGetNRows()
346   PetscInt       dims[2];  in PhastaDatFileReadToArrayReal()  local
352   PetscCall(PhastaDatFileOpen(comm, path, char_array_len, dims, &fp));  in PhastaDatFileReadToArrayReal()
354   for (PetscInt i = 0; i < dims[0]; i++) {  in PhastaDatFileReadToArrayReal()
360     PetscCheck(ndims == dims[1], comm, PETSC_ERR_FILE_UNEXPECTED,  in PhastaDatFileReadToArrayReal()
361 …of %s does not contain enough columns (%d instead of %" PetscInt_FMT ")", i, path, ndims, dims[1]);  in PhastaDatFileReadToArrayReal()
363     for (PetscInt j = 0; j < dims[1]; j++) array[i * dims[1] + j] = (PetscReal)atof(row_array[j]);  in PhastaDatFileReadToArrayReal()