utils_serafin.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	utils_serafin::identify_typ_elt (NDP, NDIM, TYP_ELT)
subroutine	utils_serafin::identify_endian_type (FILE_NAME, ENDIAN, FILE_ID, IERR)
subroutine	utils_serafin::open_mesh_srf (FILE_NAME, FILE_ID, OPENMODE, FFORMAT, IERR, MESH_NUMBER)
subroutine	utils_serafin::open_bnd_srf (FILE_NAME, FILE_ID, OPENMODE, IERR, MESH_NUMBER)
subroutine	utils_serafin::close_bnd_srf (FILE_ID, IERR, MESH_NUMBER)
subroutine	utils_serafin::close_mesh_srf (FILE_ID, IERR, MESH_NUMBER)
subroutine	utils_serafin::get_mesh_title_srf (FILE_ID, TITLE, IERR)
subroutine	utils_serafin::get_mesh_date_srf (FILE_ID, DATE, IERR)
subroutine	utils_serafin::get_mesh_nelem_srf (FILE_ID, TYP_ELT, NELEM, IERR)
subroutine	utils_serafin::get_mesh_npoin_per_element_srf (FILE_ID, TYP_ELT, NDP, IERR)
subroutine	utils_serafin::get_mesh_connectivity_srf (FILE_ID, TYP_ELT, IKLE, NELEM, NDP, IERR)
subroutine	utils_serafin::get_mesh_npoin_srf (FILE_ID, NPOIN, IERR)
subroutine	utils_serafin::get_mesh_nplan_srf (FILE_ID, NPLAN, IERR)
subroutine	utils_serafin::get_mesh_orig_srf (FILE_ID, X_ORIG, Y_ORIG, IERR)
subroutine	utils_serafin::get_mesh_dimension_srf (FILE_ID, NDIM, IERR)
subroutine	utils_serafin::get_mesh_coord_srf (FILE_ID, JDIM, NPOIN, COORD, IERR)
subroutine	utils_serafin::get_mesh_l2g_numbering_srf (FILE_ID, KNOLG, NPOIN, IERR)
subroutine	utils_serafin::get_mesh_nptir_srf (FILE_ID, NPTIR, IERR)
subroutine	utils_serafin::get_bnd_ipobo_srf (FILE_ID, NPOIN, IPOBO, IERR)
subroutine	utils_serafin::get_bnd_numbering_srf (FILE_ID, TYP_ELEM_BND, NPTFR, NBOR, IERR)
subroutine	utils_serafin::get_bnd_nelem_srf (FILE_ID, TYPE_BND_ELEM, NELEM, IERR)
subroutine	utils_serafin::get_bnd_connectivity_srf (FILE_ID, TYP_BND_ELT, NELEBD, NDP, IKLE, IERR)
subroutine	utils_serafin::get_bnd_color_srf (FILE_ID, TYP_BND_ELT, NELEBD, COLOR, IERR)
subroutine	utils_serafin::get_bnd_value_srf (FILE_ID, TYP_BND_ELEM, NPTFR, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, TRAC, LITBOR, TBOR, ATBOR, BTBOR, IERR)
subroutine	utils_serafin::get_bnd_npoin_srf (FILE_ID, TYPE_BND_ELEM, NPTFR, IERR)
subroutine	utils_serafin::get_data_nvar_srf (FILE_ID, NVAR, IERR)
subroutine	utils_serafin::get_data_var_list_srf (FILE_ID, NVAR, VAR_LIST, UNIT_LIST, IERR)
subroutine	utils_serafin::get_data_ntimestep_srf (FILE_ID, NTIMESTEP, IERR)
subroutine	utils_serafin::get_data_time_srf (FILE_ID, RECORD, TIME, IERR)
subroutine	utils_serafin::get_data_value_srf (FILE_ID, RECORD, VAR_NAME, RES_VALUE, N, IERR)
subroutine	utils_serafin::set_header_srf (FILE_ID, TITLE, NVAR, VAR_NAME, IERR)
pure integer function	utils_serafin::compute_next (N, H, W)
subroutine	utils_serafin::igetmi (M, H, W)
subroutine	utils_serafin::set_mesh_srf (FFORMAT, FILE_ID, MESH_DIM, TYPELT, NDP, NPTFR, NPTIR, NELEM, NPOIN, IKLE, IPOBO, KNOLG, X, Y, NPLAN, DATE, TIME, X_ORIG, Y_ORIG, IERR, IN_PLACE)
subroutine	utils_serafin::add_data_srf (FILE_ID, VAR_NAME, TIME, RECORD, FIRST_VAR, VAR_VALUE, N, IERR)
subroutine	utils_serafin::set_bnd_srf (FILE_ID, TYPE_BND_ELT, NELEBD, NDP, IKLE, LIHBOR, LIUBOR, LIVBOR, HBOR, UBOR, VBOR, CHBORD, LITBOR, TBOR, ATBOR, BTBOR, COLOR, IERR)
logical function	utils_serafin::isopened (FILE_ID)

SUB1
type	utils_serafin::srf_info

Variables
integer, parameter	utils_serafin::var_size = 32
integer, parameter	utils_serafin::title_size = 80
integer, dimension(max_file)	utils_serafin::hash = 0
type(srf_info), dimension(max_file)	utils_serafin::srf_obj_tab