| /dports/net/openmpi3/openmpi-3.1.6/ompi/mpi/fortran/use-mpi-f08/ |
| H A D | add_error_string_f08.F90 | 14 integer :: c_ierror local
16 call ompi_add_error_string_f(errorcode, string, c_ierror, len(string))
17 if (present(ierror)) ierror = c_ierror
|
| H A D | dims_create_f08.F90 | 14 integer :: c_ierror local
16 call ompi_dims_create_f(nnodes,ndims,dims,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | win_flush_all_f08.F90 | 14 integer :: c_ierror local
16 call ompi_win_flush_all_f(win%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | win_flush_local_all_f08.F90 | 14 integer :: c_ierror local
16 call ompi_win_flush_local_all_f(win%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | win_wait_f08.F90 | 14 integer :: c_ierror local
16 call ompi_win_wait_f(win%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | file_close_f08.F90 | 14 integer :: c_ierror local
16 call ompi_file_close_f(fh%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | grequest_complete_f08.F90 | 14 integer :: c_ierror local
16 call ompi_grequest_complete_f(request%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | group_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_group_free_f(group%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | request_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_request_free_f(request%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| /dports/net/openmpi/openmpi-4.1.1/ompi/mpi/fortran/use-mpi-f08/ |
| H A D | dims_create_f08.F90 | 16 integer :: c_ierror local
18 call ompi_dims_create_f(nnodes,ndims,dims,c_ierror)
19 if (present(ierror)) ierror = c_ierror
|
| /dports/net/openmpi/openmpi-4.1.1/ompi/mpi/fortran/use-mpi-f08/profile/ |
| H A D | pdims_create_f08.F90 | 16 integer :: c_ierror local
18 call ompi_dims_create_f(nnodes,ndims,dims,c_ierror)
19 if (present(ierror)) ierror = c_ierror
|
| /dports/net/openmpi3/openmpi-3.1.6/ompi/mpi/fortran/use-mpi-f08/profile/ |
| H A D | pdims_create_f08.F90 | 14 integer :: c_ierror local
16 call ompi_dims_create_f(nnodes,ndims,dims,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pfile_close_f08.F90 | 14 integer :: c_ierror local
16 call ompi_file_close_f(fh%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pgroup_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_group_free_f(group%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pinfo_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_info_free_f(info%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pwin_unlock_all_f08.F90 | 14 integer :: c_ierror local
16 call ompi_win_unlock_all_f(win%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pcomm_get_parent_f08.F90 | 14 integer :: c_ierror local
16 call ompi_comm_get_parent_f(parent%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pop_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_op_free_f(op%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | ptype_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_type_free_f(datatype%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pwin_complete_f08.F90 | 14 integer :: c_ierror local
16 call ompi_win_complete_f(win%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pcomm_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_comm_free_f(comm%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | perrhandler_free_f08.F90 | 14 integer :: c_ierror local
16 call ompi_errhandler_free_f(errhandler%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pinfo_create_f08.F90 | 14 integer :: c_ierror local
16 call ompi_info_create_f(info%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pstart_f08.F90 | 14 integer :: c_ierror local
16 call ompi_start_f(request%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|
| H A D | pwin_wait_f08.F90 | 14 integer :: c_ierror local
16 call ompi_win_wait_f(win%MPI_VAL,c_ierror)
17 if (present(ierror)) ierror = c_ierror
|