550#include "implicit_f.inc"
555 CHARACTER*(*),
INTENT(IN)::NAME
558 INTEGER,
INTENT(OUT)::IVAL
563 INTEGER ,VALUE_TYPE,SUB_ID
564 LOGICAL(KIND=C_BOOL) C_IS_AVAILABLE
570 CALL cpp_get_intv(name(1:len_trim(name)),len_trim(name),ival,sub_id,c_is_available,value_type)
571 is_available = c_is_available
subroutine accele(a, ar, v, ms, in, size_nale, nale, ms_2d, size_npby, npby)
subroutine hm_elngr(ix, nix, nix1, nix2, ngrele, elchar, id, igrelem, tagbuf, titr, flag, lsubmodel)
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
subroutine hm_pre_read_link(num, igrnod, lsubmodel)
subroutine hm_preread_impdisp(nimpdisp, igrnod, ipart, ipartr, unitab, lsubmodel)
subroutine hm_read_definter_type02(ntyp, def_inter, lsubmodel)
subroutine hm_read_definter_type11(ntyp, def_inter, lsubmodel)
subroutine hm_read_ebcs_fluxout(igrsurf, multi_fvm, unitab, id, titr, uid, lsubmodel, ebcs)
subroutine hm_read_fail_rtcl(fail, mat_id, fail_id, irupt, lsubmodel, unitab)
subroutine hm_read_rbe2(irbe2, lrbe2, itab, itabm1, igrnod, iskn, ikine, iddlevel, nom_opt, itagnd, icdns10, lsubmodel)
subroutine hm_preread_rbe2(lnum, lreal, igrnod, lsubmodel)
subroutine lecacc(laccelm, accelm, itabm1, unitab, ixc, iskn, nom_opt, lsubmodel)
subroutine read_impvel_lagmul(nlagmul, inum, iopt, fbfvel, ibfvel, itab, itabm1, igrnod, nom_opt, x0, ixr, ipart, ipartr, iskn, ikine, unitab, lsubmodel)