683 INTEGER,
DIMENSION(:) ,
ALLOCATABLE :: child ! - subset
's child
684 INTEGER, DIMENSION(:) ,ALLOCATABLE :: PART ! - SUBSET's part
685 INTEGER,
DIMENSION(:) ,
ALLOCATABLE :: tpart
687 INTEGER,
DIMENSION(:) ,
ALLOCATABLE :: nvarth
689 CHARACTER(LEN=NCHARTITLE) :: title
702 CHARACTER(LEN=NCHARTITLE) :: title
705 INTEGER,
DIMENSION(:),
ALLOCATABLE :: entity
747 CHARACTER(LEN=NCHARTITLE) ::
764! --> no systeme
radioss ou madymo.
765 INTEGER :: type_madymo
776 INTEGER :: nseg_r2r_all
777 INTEGER :: nseg_r2r_share
779 INTEGER ,
DIMENSION(:) ,
ALLOCATABLE :: reversed
780 INTEGER ,
DIMENSION(:),
ALLOCATABLE :: eltyp
787! ityp = 5 - line of beams
792 INTEGER ,
DIMENSION(:),
ALLOCATABLE :: elem
793 INTEGER ,
DIMENSION(:,:),
ALLOCATABLE :: nodes
795 INTEGER ,
DIMENSION(:),
ALLOCATABLE :: proc
796 INTEGER ,
DIMENSION(:),
ALLOCATABLE :: local_seg
797! field to store
the processor
id (/line only)
803 INTEGER ,
DIMENSION(:),
ALLOCATABLE :: eltyp_ige
804 INTEGER ,
DIMENSION(:),
ALLOCATABLE :: elem_ige
805 INTEGER ,
DIMENSION(:,:),
ALLOCATABLE :: nodes_ige
816! ityp = 2 - surf of quads
end diagonal values have been computed in the(sparse) matrix id.SOL
subroutine hm_bigsbox(numel, ix, nix, nix1, nix2, ieltyp, x, nseg, flag, skew, iskn, isurf0, itabm1, ibox, id, ibufbox, isurflin, iadb, key, sbufbox, titr, mess, tagshellbox, nn, lsubmodel)
subroutine hm_lecgrn(itab, itabm1, igrnod, isubmod, x, geo, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, ipart, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, ipartg, ipartsp, kxsp, flag, maxnnod, skew, iskn, unitab, ibox, ixs10, ixs20, ixs16, rtrans, lsubmodel, ixx, kxx, ipartx, iadboxmax, igrslin, subset, igrbric, igrquad, igrsh4n, igrsh3n, igrtruss, igrbeam, igrspring, igrsurf, nsets)
subroutine hm_read_alebcs(icode, iskew, itab, itabm1, ikine, igrnod, ibcslag, lag_ncf, lag_nkf, lag_nhf, ikine1lag, iskn, nom_opt, lsubmodel)
subroutine hm_read_drape(drape_wrk, iwork_t, iworksh, igrsh3n, igrsh4n, ixc, ixtg, igeo, igeo_stack, lsubmodel, unitab, indxsh)
subroutine hm_read_dt(igrpart)
subroutine hm_read_inter_type18(ipari, stfac, frigap, noint, igrnod, igrsurf, igrbric, xfiltr, fric_p, titr, unitab, lsubmodel, multi_fvm, npari, nparir)
subroutine hm_read_perturb_part_shell(ipart, rnoise, ipartc, ipartg, igrpart, ipm, perturb, lsubmodel, unitab, idperturb, index, index_ityp, npart_shell, offs, qp_iperturb, qp_rperturb)
integer, parameter nchartitle