mp_file_write_at_all_l Subroutine

private subroutine mp_file_write_at_all_l(fh, offset, msg)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: fh
integer(kind=file_offset), intent(in) :: offset
integer(kind=int_8), intent(in) :: msg

Contents

Source Code

mp_file_write_at_all_l

Source Code

      SUBROUTINE mp_file_write_at_all_l (fh, offset, msg)
         INTEGER(KIND=int_8), 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_all_l'

         INTEGER                                    :: ierr

         ierr = 0
         CALL MPI_FILE_WRITE_AT_ALL(fh, 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, POS=offset + 1) msg
#endif
      END SUBROUTINE mp_file_write_at_all_l