1. Exascale FastForward
  2. ParallelIO

Source

Raw file
Source viewDiff to previous
    err = PIOc_writemap_from_f90(trim(file)//C_NULL_CHAR, ndims, gdims, int(size(dof),C_SIZE_T), dof, comm)
 
1
!>
2
!! @file pio_support.F90
3
!! @brief internal code for compiler workarounds, aborts and debug functions
4
!!
5
!<
6
module pio_support
7
  use pio_kinds
8
  use iso_c_binding
9
#ifndef NO_MPIMOD
10
  use mpi !_EXTERNAL
11
#endif
12
  implicit none
13
  private
14
#ifdef NO_MPIMOD
15
  include 'mpif.h'    ! _EXTERNAL
16
#endif
17
  public :: piodie
18
  public :: CheckMPIreturn
19
  public :: pio_readdof
20
  public :: pio_writedof
21
  public :: replace_c_null
22
​
23
  logical, public :: Debug=.FALSE.
24
  logical, public :: DebugIO=.FALSE.
25
  logical, public :: DebugAsync=.FALSE.
26
  integer,private,parameter :: versno = 1001
27
​
28
  character(len=*), parameter :: modName='pio_support'
29
​
30
contains
31
!>
32
!! @public
33
!! @brief Remove null termination (C-style) from strings for Fortran.
34
!<
35
  subroutine replace_c_null(istr, ilen)
36
    use iso_c_binding, only : C_NULL_CHAR
37
    character(len=*),intent(inout) :: istr
38
    integer(kind=pio_offset_kind), optional, intent(in) :: ilen
39
    integer :: i, slen
40
    if(present(ilen)) then
41
       slen = ilen
42
    else
43
       slen = len(istr)
44
    endif
45
    do i=1,slen
46
       if(istr(i:i) == C_NULL_CHAR) exit
47
    end do
48
    istr(i:slen)=''
49
  end subroutine replace_c_null
50
​
51
!>