39 character(len=1024) :: fname
41 integer :: start_counter = 0
43 logical :: serial = .false.
64 class(*),
target,
intent(in) :: data
65 real(kind=
rp),
intent(in),
optional :: t
73 class(*),
target,
intent(inout) :: data
83 character(len=*) :: fname
93 integer,
intent(in) :: n
100 integer,
intent(in) :: n
101 this%start_counter = n
112 logical :: file_exists
113 integer :: neko_mpi_ierr
115 file_exists = .false.
117 if (
pe_rank .eq. 0 .or. this%serial)
then
119 inquire(
file=this%fname, exist=file_exists)
121 if (.not. this%serial)
then
122 call mpi_bcast(file_exists, 1, mpi_logical, 0,
neko_comm, neko_mpi_ierr)
125 if (.not. file_exists)
then
126 call neko_error(
'File does not exist: '//trim(this%fname))
type(mpi_comm) neko_comm
MPI communicator.
Module for file I/O operations.
subroutine generic_file_check_exists(this)
check if the file exists
subroutine generic_file_set_start_counter(this, n)
Set the file start counter to n.
subroutine generic_file_init(this, fname)
Generic file constructor.
subroutine generic_file_set_counter(this, n)
Set the file counter to n.
integer, parameter, public rp
Global precision used in computations.