SUBROUTINE mp_file_write_at_all_l (fh, offset, msg)
INTEGER(KIND=int_8), INTENT(IN) :: msg
TYPE(mp_file_type), INTENT(IN) :: fh
INTEGER(kind=file_offset), INTENT(IN) :: offset
#if defined(__parallel)
CHARACTER(LEN=*), PARAMETER :: routineN = 'mp_file_write_at_all_l'
INTEGER :: ierr
ierr = 0
CALL MPI_FILE_WRITE_AT_ALL(fh%handle, offset, msg, 1, MPI_INTEGER8, MPI_STATUS_IGNORE, ierr)
IF (ierr .NE. 0) &
DBCSR_ABORT("mpi_file_write_at_all_l @ "//routineN)
#else
WRITE (UNIT=fh%handle, POS=offset + 1) msg
#endif
END SUBROUTINE mp_file_write_at_all_l