1*9681e660STapashree Pradhan program main 2*9681e660STapashree Pradhan#include <petsc/finclude/petscsys.h> 3*9681e660STapashree Pradhan use petscsys 4*9681e660STapashree Pradhan implicit none 5*9681e660STapashree Pradhan character(len=256) :: filename 6*9681e660STapashree Pradhan character(len=1) :: mode 7*9681e660STapashree Pradhan PetscBool :: exists 8*9681e660STapashree Pradhan PetscErrorCode :: ierr 9*9681e660STapashree Pradhan PetscCallA(PetscInitialize(ierr)) 10*9681e660STapashree Pradhan filename = 'filename' 11*9681e660STapashree Pradhan mode = 'r' 12*9681e660STapashree Pradhan PetscCallA(PetscTestFile(filename, mode, exists, ierr)) 13*9681e660STapashree Pradhan write(*, '(A, A, A, I0)') "File ", trim(filename), " doesn't exist = ", merge(1, 0, exists) 14*9681e660STapashree Pradhan PetscCallA(PetscFinalize(ierr)) 15*9681e660STapashree Pradhan end 16*9681e660STapashree Pradhan!/*TEST 17*9681e660STapashree Pradhan! 18*9681e660STapashree Pradhan! test: 19*9681e660STapashree Pradhan! 20*9681e660STapashree Pradhan!TEST*/ 21