Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | fh | |||
integer(kind=file_offset), | intent(in) | :: | offset | |||
real(kind=real_4), | intent(in) | :: | msg |
SUBROUTINE mp_file_write_at_r (fh, offset, msg)
REAL(kind=real_4), INTENT(IN) :: msg
INTEGER, INTENT(IN) :: fh
INTEGER(kind=file_offset), INTENT(IN) :: offset
#if defined(__parallel)
CHARACTER(LEN=*), PARAMETER :: routineN = 'mp_file_write_at_r'
INTEGER :: ierr
ierr = 0
CALL MPI_FILE_WRITE_AT(fh, offset, msg, 1, MPI_REAL, MPI_STATUS_IGNORE, ierr)
IF (ierr .NE. 0) &
DBCSR_ABORT("mpi_file_write_at_r @ "//routineN)
#else
WRITE (UNIT=fh, POS=offset + 1) msg
#endif
END SUBROUTINE mp_file_write_at_r