utils_med.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	utils_med::open_mesh_med (FILE_NAME, FILE_ID, OPEN_MODE, IERR, MESH_NUMBER)
subroutine	utils_med::close_mesh_med (FILE_ID, IERR)
subroutine	utils_med::open_bnd_med (FILE_NAME, FILE_ID, OPEN_MODE, IERR, MESH_NUMBER)
subroutine	utils_med::close_bnd_med (FILE_ID, IERR, MESH_NUMBER)
subroutine	utils_med::get_mesh_title_med (FILE_ID, TITLE, IERR)
subroutine	utils_med::get_mesh_nelem_med (FILE_ID, TYPE_ELEM, NELEM, IERR)
subroutine	utils_med::get_mesh_npoin_per_element_med (TYPE_ELEM, NDP, IERR)
subroutine	utils_med::get_mesh_connectivity_med (FILE_ID, TYPE_ELEM, IKLE, NELEM, NDP, IERR)
subroutine	utils_med::get_mesh_npoin_med (FILE_ID, TYPE_ELEM, NPOIN, IERR)
subroutine	utils_med::get_mesh_dimension_med (FILE_ID, NDIM, IERR)
subroutine	utils_med::get_mesh_coord_med (FILE_ID, JDIM, NDIM, NPOIN, COORD_AXE, IERR)
subroutine	utils_med::get_mesh_l2g_numbering_med (FILE_ID, KNOLG, NPOIN, IERR)
subroutine	utils_med::get_mesh_nptir_med (FILE_ID, NPTIR, IERR)
subroutine	utils_med::get_mesh_orig_med (FILE_ID, X_ORIG, Y_ORIG, IERR)
subroutine	utils_med::get_mesh_nplan_med (FILE_ID, NPLAN, IERR)
subroutine	utils_med::get_mesh_date_med (FILE_ID, DATE, IERR)
subroutine	utils_med::get_bnd_ipobo_med (FILE_ID, TYPE_ELEM_BND, NPOIN, IPOBO, IERR)
subroutine	utils_med::get_bnd_numbering_med (FILE_ID, TYPE_ELEM_BND, NPTFR, NBOR, IERR)
subroutine	utils_med::get_bnd_nelem_med (FILE_ID, TYPE_ELEM, BND_NELEM, IERR)
subroutine	utils_med::get_bnd_connectivity_med (FILE_ID, TYPE_ELEM, NELEBD, NDP, BND_IKLE, IERR)
subroutine	utils_med::get_bnd_grp_value_med (FILE_ID, GRP_NAME, VALUE, IERR)
subroutine	utils_med::get_bnd_family_med (FILE_ID, TYPE_BND_ELEM, NELEBD, FAMILY, IERR)
subroutine	utils_med::get_bnd_npoin_med (FILE_ID, TYPE_BND_ELEM, NPTFR, IERR)
subroutine	utils_med::get_bnd_value_med (FILE_ID, TYPE_BND_ELEM, NELEBD, LIHBOR, LIUBOR, LIVBOR, TRAC, LITBOR, NPTFR, IERR)
subroutine	utils_med::get_data_nvar_med (FILE_ID, NVAR, IERR)
subroutine	utils_med::get_data_var_list_med (FILE_ID, NVAR, VAR_LIST, UNIT_LIST, IERR)
subroutine	utils_med::get_data_ntimestep_med (FILE_ID, NTIMESTEP, IERR)
subroutine	utils_med::get_data_time_med (FILE_ID, RECORD, TIME, IERR)
subroutine	utils_med::get_data_value_med (FILE_ID, RECORD, VAR_NAME, RES_VALUE, N, IERR)
subroutine	utils_med::set_header_med (FILE_ID, TITLE, IERR)
subroutine	utils_med::set_mesh_med (FILE_ID, NB_DIM_PB, NB_DIM_MESH, TYPE_ELEM, NDP, NPTIR, NELEM, NPOIN, IKLE, KNOLG, COORD, NPLAN, DATE, TIME, X_ORIG, Y_ORIG, IERR)
subroutine	utils_med::add_data_med (FILE_ID, VAR_NAME, TIME, RECORD, VAR_VALUE, N, IERR)
subroutine	utils_med::transfer_group_info_common_med (SOURCE_ID, DEST_ID, MNAME_SRC, MNAME_DST, HAS_FAM_ON_POINT, IERR)
subroutine	utils_med::transfer_group_part_info_med (SOURCE_ID, DEST_ID, TYP_BND_ELEM, IKLE_BND_DEST, NELEBD_DEST, NDP_DEST, NELEBD_SRC, KNOGL_BND, TRANS_POINT, NPOIN_SRC, NPOIN_DEST, KNOLG, IERR)
subroutine	utils_med::transfer_group_info_med (SOURCE_ID, DEST_ID, TYP_ELEM, TYP_BND_ELEM, IKLE_BND, NELEBD, NDP, TRANS_ELEM, TRANS_POINT, IERR)
subroutine	utils_med::set_bnd_med (FILE_ID, TYPE_BND_ELT, NELEBD, NDP, IKLE_BND, NPTFR, LIHBOR, LIUBOR, LIVBOR, LITBOR, IERR)
subroutine	utils_med::update_data_mesh_med (FILE_ID, TIME, RECORD, NB_DIM_MESH, NPOIN, COORD, IERR)
subroutine	utils_med::ifvector_ (STRING, COMP_NUM, ISVECTOR)
subroutine	utils_med::convert_elem_type (TYPE_ELEM, TYPE_ELEM_MED, IERR)
subroutine	utils_med::ndp_from_element_type_med (TYPE_ELEM_MED, NDP, IERR)
subroutine	utils_med::identify_bnd_elmt (FILE_ID, TYPE_BND_ELEM, IERR)
subroutine	utils_med::seg2point (P1, P2, BND_TYP_P1, BND_TYP_P2, POINT)
subroutine	utils_med::point2seg (P1, P2, BND_TYP_P1, BND_TYP_P2, SEG)

SUB1
type	utils_med::med_info

Variables
integer, parameter	utils_med::kid =K8
integer, dimension(max_file)	utils_med::hash = 0
type(med_info), dimension(max_file)	utils_med::med_obj_tab
integer, parameter	utils_med::sol_bnd = 2
integer, parameter	utils_med::offset = 1000