1022 CHARACTER(LEN=LTITLE) :: title
1023 CHARACTER(LEN=LROOTNAME) :: rootname
1024 CHARACTER(LEN=LCHRUN) :: chrun
1025 CHARACTER(LEN=LCHRUN0) :: chrun0
1026 CHARACTER(LEN=LVERS) :: vers
1027 CHARACTER(LEN=LIMVW_REFPATH) :: imvw_refpath
1028 INTEGER :: rootname_length
1045 names_and_titles%TITLE=
' '
1046 names_and_titles%ROOTNAME=
' '
1047 names_and_titles%ROOTNAME_LENGTH=0
1048 names_and_titles%CHRUN=
' '
1049 names_and_titles%CHRUN0=
' '
1050 names_and_titles%VERS=
' '
subroutine alloc_surf_str(igrsurf)
subroutine cmatini4(elbuf_str, jft, jlt, nft, nel, istrain, sigsh, nsigsh, numel, ix, nix, numsh, ptsh, ir, is, npt, igtyp, igeo, nlay, npg, ipg)
subroutine create_box_clause(clause, jclause, is_available, lsubmodel, keyset, itabm1, ibox, x, skew, ixs10, set_title, ipart, sh4tree, sh3tree, iparts, ipartq, ipartc, ipartg, ipartt, ipartp, ipartr, ixs, ixq, ixc, ixtg, ixt, ixp, ixr, knod2els, nod2els, knod2elc, nod2elc, knod2eltg, nod2eltg, knod2elq, nod2elq, opt_a, opt_o, opt_e, delbuf, rby_msn, irbodym)
subroutine h3d_gene_keyword(key2_read, key2, key3_read, key3_glob, nb_key, cpt_key, multi_fvm, is_model_npt, is_model_layer, is_model_ply, is_mdsvar, is_mdsvar_def, is_ply_all, is_layer_all, is_ipt, is_layer, is_ply, is_id)
integer, parameter lrootname
integer, parameter nchartitle
integer, parameter line120
integer, parameter ltitle
integer, parameter limvw_refpath
subroutine names_and_title_init(names_and_titles)
integer, parameter ncharline100
integer, parameter ncharkey
integer, parameter lchrun
integer, parameter lchrun0
integer, parameter ncharfield
integer, parameter ncharline
subroutine csigini4(elbuf_str, ihbe, jft, jlt, nft, npt, istrain, thk, eint, gstr, hh, for, mom, sigsh, nsigsh, numel, ix, nix, numsh, ptsh, igeo, ir, is, ipg, npg, g_pla, epsp, thke, igtyp, nel, isigsh, e1x, e2x, e3x, e1y, e2y, e3y, e1z, e2z, e3z, dir_a, dir_b, posly)