mp_set_file_handle Subroutine

private elemental subroutine mp_set_file_handle(file, handle)

Type Bound

mp_file_type

Arguments

Type IntentOptional Attributes Name
class(mp_file_type), intent(inout) :: file
integer, intent(in) :: handle

Source Code

      ELEMENTAL SUBROUTINE mp_set_file_handle(file, handle)
         CLASS(mp_file_type), INTENT(INOUT) :: file
         INTEGER, INTENT(IN) :: handle

#if defined(__parallel) && defined(__USE_MPI_F08)
         file%handle%mpi_val = handle
#else
         file%handle = handle
#endif

      END SUBROUTINE mp_set_file_handle