mp_file_op_ne Function

private impure elemental function mp_file_op_ne(file1, file2)

Type Bound

mp_file_type

Arguments

Type IntentOptional Attributes Name
class(mp_file_type), intent(in) :: file1
class(mp_file_type), intent(in) :: file2

Return Value logical


Source Code

      ELEMENTAL IMPURE LOGICAL FUNCTION mp_file_op_ne(file1, file2)
         CLASS(mp_file_type), INTENT(IN) :: file1, file2

#if defined(__parallel) && defined(__USE_MPI_F08)
         mp_file_op_ne = (file1%handle%mpi_val .NE. file2%handle%mpi_val)
#else
         mp_file_op_ne = (file1%handle .NE. file2%handle)
#endif

      END FUNCTION mp_file_op_ne