fortran_handle 39 ompi/errhandler/errhandler_invoke.c MPI_Fint fortran_handle, fortran_err_code = OMPI_INT_2_FINT(err_code); fortran_handle 67 ompi/errhandler/errhandler_invoke.c fortran_handle = OMPI_INT_2_FINT(comm->c_f_to_c_index); fortran_handle 68 ompi/errhandler/errhandler_invoke.c errhandler->eh_fort_fn(&fortran_handle, &fortran_err_code); fortran_handle 87 ompi/errhandler/errhandler_invoke.c fortran_handle = OMPI_INT_2_FINT(win->w_f_to_c_index); fortran_handle 88 ompi/errhandler/errhandler_invoke.c errhandler->eh_fort_fn(&fortran_handle, &fortran_err_code); fortran_handle 107 ompi/errhandler/errhandler_invoke.c fortran_handle = OMPI_INT_2_FINT(file->f_f_to_c_index); fortran_handle 108 ompi/errhandler/errhandler_invoke.c errhandler->eh_fort_fn(&fortran_handle, &fortran_err_code); fortran_handle 59 ompi/mca/io/romio321/romio/adio/common/ad_close.c if (fd->fortran_handle != -1) { fortran_handle 60 ompi/mca/io/romio321/romio/adio/common/ad_close.c ADIOI_Ftable[fd->fortran_handle] = MPI_FILE_NULL; fortran_handle 78 ompi/mca/io/romio321/romio/adio/common/ad_open.c fd->fortran_handle = -1; fortran_handle 237 ompi/mca/io/romio321/romio/adio/include/adio.h int fortran_handle; /* handle for Fortran interface if needed */ fortran_handle 69 ompi/mca/io/romio321/romio/mpi-io/glue/mpich/mpio_file.c if (fh->fortran_handle != -1) fortran_handle 70 ompi/mca/io/romio321/romio/mpi-io/glue/mpich/mpio_file.c return fh->fortran_handle; fortran_handle 89 ompi/mca/io/romio321/romio/mpi-io/glue/mpich/mpio_file.c fh->fortran_handle = ADIOI_Ftable_ptr;