127!||
genani ../engine/source/output/anim/generate/
genani.f
132!|| get_u_func_x ../engine/source/user_interface/ufunc.f
169!||
i22ass2 ../engine/source/interfaces/int22/i22assembly.f
219!||
imp_pcgh ../engine/source/
implicit/imp_pcg.f
256!|| mulaw8 ../engine/source/materials/mat_share/mulaw8.f90
291!||
restalloc ../engine/source/output/restart/arralloc.f
321!||
sp_a2 ../engine/source/
implicit/imp_fsa_inv.f
396!|| table_mat_vinterp_c1 ../engine/source/materials/tools/table_mat_vinterp_c1.f90
419!|| checksum_option_checksum_file ../common_source/modules/output/
checksum_mod.f90
447 USE file_descriptor_mod
451#include "implicit_f.inc"
455#include "comlock.inc"
456#include
"scr20_c.inc"
457#include "com01_c.inc"
459#include "scr06_c.inc"
460#include "scr07_c.inc"
461#include "rad2r_c.inc"
462#include "chara_c.inc"
463#include "userlib.inc"
473 INTEGER :: LEN_TMP_NAME
474 CHARACTER(len=2148) :: TMP_NAME
505 IF (output_ptr%TH%TH_WRITE_TYPE == 3)
THEN
512 IF (output_ptr%CHECKSUM%CHECKSUM_COUNT >0)
THEN
515 * c_loc(output_ptr%TH%TH_FILENAME),
516 * len_trim(output_ptr%TH%TH_FILENAME),
523 IF (ispmd == 0 .AND. nabfile /= 0 .AND.
524 . (abinp /= 0 .AND. about /= 0 ) )
THEN
527 CALL release_abfpipe(abinp,about)
529 IF(abfile(1) /= 0)
THEN
530 iname=rootnam(1:rootlen)//
'_'//chrun//
'.tmp'
537 IF(abfile(2) /= 0)
THEN
538 iname=rootnam(1:rootlen)//
'_'//chrun//
'_a.tmp'
545 IF(abfile(3) /= 0)
THEN
546 iname=rootnam(1:rootlen)//
'_'//chrun//
'_b.tmp'
553 IF(abfile(4) /= 0)
THEN
554 iname=rootnam(1:rootlen)//
'_'//chrun//
'_c.tmp'
561 IF(abfile(5) /= 0)
THEN
562 iname=rootnam(1:rootlen)//
'_'//chrun//
'_d.tmp'
569 IF(abfile(6) /= 0)
THEN
570 iname=rootnam(1:rootlen)//
'_'//chrun//
'_e.tmp'
577 IF(abfile(7) /= 0)
THEN
578 iname=rootnam(1:rootlen)//
'_'//chrun//
'_f.tmp'
585 IF(abfile(8) /= 0)
THEN
586 iname=rootnam(1:rootlen)//
'_'//chrun//
'_g.tmp'
593 IF(abfile(9) /= 0)
THEN
594 iname=rootnam(1:rootlen)//
'_'//chrun//
'_h.tmp'
601 IF(abfile(10) /= 0)
THEN
602 iname=rootnam(1:rootlen)//
'_'//chrun//
'_i.tmp'
620 IF(mds_avail==1)
THEN
659 WRITE(iout,1200) ncycle
660 WRITE(istdo,1250) ncycle
664 IF (ihtml == 1)
CALL report(ih3dreader,n,imvw,output_ptr%TH%WFEXT,output_ptr%TH%WFEXT_MD)
666 IF ((irad2r==1).AND.(ispmd==0))
CALL send_ibuf_c(1,1)
672 IF (output_ptr%CHECKSUM%CHECKSUM_COUNT > 0 )
THEN
675 * c_loc(output_ptr%OUT_FILENAME),
676 * len_trim(output_ptr%OUT_FILENAME),
688 if (output_ptr%checksum%checksum_count > 0)
then
689 CALL checksum_option_checksum_file(output_ptr%checksum,rootnam,rootlen,chrun)
699 IF(ispmd == 0 .AND. iout/= 0)
CLOSE(unit=iout)
718 WRITE(iout,1200) ncycle
719 WRITE(istdo,1250) ncycle
722 IF (ihtml == 1)
CALL report(ih3dreader,n,imvw,output_ptr%TH%WFEXT,output_ptr%TH%WFEXT_MD)
757 1000
FORMAT(///
' NORMAL TERMINATION ')
758 1050
FORMAT(
' NORMAL TERMINATION ')
759 1100
FORMAT(///
' ERROR TERMINATION')
760 1400
FORMAT(/
' ERROR TERMINATION')
761 1150
FORMAT(
' ERROR TERMINATION')
762 1200
FORMAT(///
' TOTAL NUMBER OF CYCLES :', i8 / )
763 1250
FORMAT(
' TOTAL NUMBER OF CYCLES :', i8)
764 1300
FORMAT(
' USER BREAK ')
subroutine restalloc(element, nodes, multi_fvm, h3d_data, pinch_data, ale_connectivity, segvar, interfaces, skews, glob_therm, rbe3)
subroutine blero2(alph, volo, rhon, flux, flu1, off, pm, ngl, voln, aire, d1, d2, d3, d4, d5, d6, vd2, dvol, vy1, vy2, vy3, vy4, vz1, vz2, vz3, vz4, mat)
void compute_binary_checksum(checksum *cs_output_files, char *file, int len, int izip)
subroutine create_h3d_1d_torsor(h3d_data, id_1d_torsor, id_input, text1, stext1, comment, scomment, ipart, key3_glob, igrpart)
subroutine create_h3d_solid_scalar(h3d_data, id_solid_scalar, id_input, text1, stext1, comment, scomment, ipart, key3_glob, layer, ir, is, it, iuvar, idmds, ivarmds, id_mat_mds, mds_label, smds_label, id, mode, igrpart)
subroutine print_runtime()
subroutine fredec2i(line, id)
subroutine frefunc(ikad, key0, kfunc, nfct)
subroutine frenois(ikad, key0, knoise)
subroutine fvvent0(elsout, aoutot, nvent, nelt, ittf, elarea, elsini, elem, itagel, svent, ibaghol, rvolu, rbaghol, poro, p, eltg, iparg, mattg, nel, porosity, ipm, pm, elbuf_tab, igroupc, igrouptg)
subroutine genani(x, d, v, a, bufel, ixs, ixq, ixc, ixt, ixp, ixr, ixtg, swaft, smas, sxnorm, siad, iparg, pm, geo, ms, sinvert, cont, smater, icut, skew, xcut, fint, itab, sel2fa, fext, fopt, anin, lpby, npby, nstrf, rwbuf, nprw, tani, elbuf_tab, mat_param, dd_iad, weight, eani, ipart, cluster, iparts, ipartq, ipartc, ipartt, ipartp, ipartr, ipartur, iparttg, rby, swa4, tors, nom_opt, igrsurf, bufsf, idata, rdata, siadg, bufmat, bufgeo, kxx, ixx, ipartx, suix, sxusr, snfacptx, sixedge, sixfacet, sixsolid, snumx1, snumx2, snumx3, soffx1, soffx2, soffx3, smass1, smass2, smass3, sfunc1, sfunc2, sfunc3, kxsp, ixsp, nod2sp, ipartsp, spbuf, ixs10, ixs20, ixs16, vr, monvol, volmon, ipm, igeo, nodglob, iad_elem, fr_elem, fr_sec, fr_rby2, iad_rby2, fr_wall, iflow, rflow, fncont, ftcont, temp, thke, err_thk_sh4, err_thk_sh3, diag_sms, ipari, fncont2, dr, ale_connectivity, irbe2, irbe3, lrbe2, lrbe3, fr_rbe2, fr_rbe3m, iad_rbe2, dxancg, nod_pxfem, iel_pxfem, zi_ply, vgaz, fcontg, fncontg, ftcontg, fanreac, inod_crk, iel_crk, elcutc, iadc_crk, pdama2, res_sms, weight_md, nodglobxfe, nodedge, fcluster, mcluster, xfem_tab, w, nv46, ipartig3d, kxig3d, ixig3d, sig3dsolid, knot, wige, nercvois, nesdvois, lercvois, lesdvois, crkedge, indx_crk, xedge4n, xedge3n, stack, sph2sol, stifn, stifr, igrnod, h3d_data, subset, multi_fvm, knotlocpc, knotlocel, fcont_max, fncontp2, ftcontp2, glob_therm, drape_sh4n, drape_sh3n, drapeg, output)
subroutine i17lll4(llt, lll, jll, sll, xll, n_mul_mx, itied, nint, nkmax, nc, v, a, iadll, iii, iiis, ni_m, ni_s, nx, ny, nz, vit, comntag, icont, rm, tm, rs, ts)
subroutine i17lagm(x, v, lll, jll, sll, xll, candn, cande, i_stok, ixs, ixs16, iadll, eminx, neles, nelem, nc, n_mul_mx, itask, a, itied, nint, nkmax, eminxs, comntag)
subroutine i17tri(tzinf, ixs, ixs16, ixs20, nelem, neles, maxsiz, cand_n, cand_e, minbox, cont, nb_n_b, eminx, i_stok_glob, nme, itask, noint, x, v, a, mx_cand, eminxs, esh_t, maxsizs, i_add_max, xyzm, nmes, nmesr, nin)
subroutine i20for3(jlt, a, va, ibcc, icodt, fsav, gap, fric, ms, visc, viscf, noint, stfa, itab, cn_loc, stiglo, stifn, stif, fskyi, isky, nx1, nx2, nx3, nx4, ny1, ny2, ny3, ny4, nz1, nz2, nz3, nz4, lb1, lb2, lb3, lb4, lc1, lc2, lc3, lc4, p1, p2, p3, p4, fcont, ix1l, ix2l, ix3l, ix4l, nsvg, ivis2, neltst, ityptst, dt2t, gapv, inacti, index, niskyfi, kinet, newfront, isecin, nstrf, secfcum, x, xa, ce_loc, mfrot, ifq, frot_p, cand_fx, cand_fy, cand_fz, alpha0, ifpen, gapr, dxanc, nln, nlg, ibag, icontact, nsv, penis, penim, viscn, vxi, vyi, vzi, msi, kini, nin, nisub, lisub, addsubs, addsubm, lisubs, lisubm, fsavsub, cand_n, ilagm, icurv, nod_normal, fncont, ftcont, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, iadm, rcurvi, rcontact, acontact, pcontact, anglmi, padm, intth, phi, fthe, ftheskyi, daanc6, temp, tempi, rstif, iform, gap_s, igap, alphak, mskyi_sms, iskyi_sms, nsms, cmaj, jtask, isensint, fsavparit, nft, h3d_data)
subroutine i20ass2(jlt, cs_loc, n1, n2, m1, m2, hs1, hs2, hm1, hm2, fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fskyi, isky, niskyfie, stif, nrts, nin, noint)
subroutine i22ass2(jlt, ix1, ix2, ix3, ix4, itab, nsvg, h1, h2, h3, h4, stif, fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fxi, fyi, fzi, fskyi, isky, niskyfi, nin, noint, intth, phi, ftheskyi, phi1, phi2, phi3, phi4, cb_loc, ce_loc, irect, ixs)
subroutine i24ass2(jlt, ix1, ix2, ix3, ix4, nsvg, h1, h2, h3, h4, stif, fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fxi, fyi, fzi, fskyi, isky, niskyfi, nin, noint, intth, phi, ftheskyi, phi1, phi2, phi3, phi4, itab, intply, iply, inod, irtse, nsne, is2se, is2pt, tagip)
subroutine i24for3(jlt, a, v, ibcc, icodt, fsav, gap, fric, ms, visc, viscf, noint, stfn, itab, cn_loc, stiglo, stifn, stif, fskyi, isky, n1, n2, n3, h1, h2, h3, h4, fcont, pene, ix1, ix2, ix3, ix4, nsvg, ivis2, neltst, ityptst, dt2t, subtria, gapv, inacti, index, niskyfi, kinet, newfront, isecin, nstrf, secfcum, x, irect, ce_loc, mfrot, ifq, frot_p, secnd_fr, alpha0, ibag, icontact, irtlm, viscn, vxi, vyi, vzi, msi, kini, nin, nisub, lisub, addsubs, addsubm, lisubs, lisubm, fsavsub, cand_n, ilagm, icurv, fncont, ftcont, nsn, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, iadm, rcurvi, rcontact, acontact, pcontact, anglmi, padm, intth, phi, fthe, ftheskyi, temp, tempi, rstif, iform, mskyi_sms, iskyi_sms, nsms, cand_n_n, pene_old, stif_old, mbinflg, ilev, igsti, kmin, intply, iply, inod_pxfem, nm1, nm2, nm3, nrebou, irtse, nsne, is2se, is2pt, msegtyp, jtask, isensint, fsavparit, nft, h3d_data, fricc, viscffric, fric_coefs, t2main_sms, intnitsche, forneqsi, iorthfric, fric_coefs2, fricc2, viscffric2, nforth, nfisot, indexorth, indexisot, dir1, dir2, t2fac_sms, f_pfit, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, typsub, inflg_subs, inflg_subm, ninloadp, dgaploadint, s_loadpinter, dist, ixx, interefric, intcarea, parameters, penref, kmax, s_addsubm, s_lisubm, s_typsub, nisubmax, i_stok, nrtm, nrtse, nsnr)
subroutine i7lagm(lll, jll, sll, xll, iadll, n_mul_mx, itask, nint, nkmax, jlt, a, v, itag, xtag, gap, noint, stfn, itab, cn_loc, nx1, nx2, nx3, nx4, ny1, ny2, ny3, ny4, nz1, nz2, nz3, nz4, lb1, lb2, lb3, lb4, lc1, lc2, lc3, lc4, p1, p2, p3, p4, ix1, ix2, ix3, ix4, nsvg, gapv, newfront, ibag, icontact, stif, comntag, iadm)
subroutine i7main_lmult(nin, ipari, intbuf_tab, x, v, a, itask, ms, iadll, lll, jll, sll, xll, n_mul_mx, nkmax, itab, index2, nb_jlt, nb_jlt_new, nb_stok_n, newfront, icontact, itag, xtag, comntag, kinet)
subroutine imp_dsolv(graphe, k_diag, k_lt, iadk, jdik, nddl, nb, b, x, itab, iprint, nddli7, iadi7, jdii7, i7_diag, i7_lt, i7tok)
subroutine imp_dsolv_iter(graphe, k_diag, k_lt, iadk, jdik, nddl, nb, b, x, itab, it, fac_k, ipiv_k, nk, iprint, nddli7, iadi7, jdii7, i7_diag, i7_lt, i7tok)
subroutine imp_fsa_invh(nddl, nnz, iadk, jdik, diag_k, lt_k, diag_m, lt_m, maxc, max_a, nne, idlft0, idlft1, max_d, itask)
subroutine sp_a2(nddl, nc, jm, maxc, ifsai)
subroutine imp_fsa_inv2(nddl, iadk, jdik, diag_k, lt_k, iadm, jdim, diag_m, lt_m, maxc, max_a, nne, d_tol, p_mach)
subroutine imp_pc_inv(nddl, nnz, iadk, jdik, diag_k, lt_k, iadm, jdim, diag_m, lt_m, psi, nnzm, maxc, maxa, max_l, iopt, nne)
subroutine imp_pcgh(iprec, nddl, nnz, iadk, jdik, diag_k, lt_k, nddli, itok, iadi, jdii, lt_i, nnzm, iadm, jdim, diag_m, lt_m, x, r, itol, tol, p, z, y, itask, iprint, n_max, eps_m, f_x, istop, w_ddl, a, ar, ve, ms, xe, d, dr, ndof, ipari, intbuf_tab, num_imp, ns_imp, ne_imp, nsrem, nsl, nmonv, imonv, monvol, igrsurf, volmon, fr_mv, ibfv, skew, xframe, graphe, iad_elem, fr_elem, itab, insolv, itn, fac_k, ipiv_k, nk, mumps_par, cddlp, isolv, idsc, iddl, ikc, inloc, ind_imp, xi_c, r0, nddli_g, intp_c, irbe3, lrbe3, irbe2, lrbe2)
subroutine joint_block_stiffness(itab, ms, in, stifn, stifr, weight, ixr, ipart, x, ipartr, igeo, geo, npby, iparg, elbuf_tab, dmas, diner)
subroutine lag_mult_hp(nc, lenh, lhmax, ms, in, diag, hh, iadll, lll, jll, xll, ltsm, iadhf, jcihf, iadh, jcih, rbyl, npbyl, icftag, jcftag, ncf_s, ncf_e, ncr, indexlag)
subroutine lag_mult_h(nc, lenh, lhmax, ms, in, diag, hh, iadll, lll, jll, xll, ltsm, iadhf, jcihf, iadh, jcih, rbyl, npbyl, icftag, jcftag, ncf_s, ncf_e, ncr)
subroutine lag_mult_sdp(nh, nc, ncr, a, v, mas, iadll, lll, jll, xll, iadh, jcih, hh, z, p, r, q, ltsm, hl, diag_h, diag_l, work1, work2, work3, lambda, rbyl, npbyl, ar, vr, in, iadhf, jcihf, icftag, jcftag, ncf_s, ncf_e, indexlag)
subroutine lag_mult_solv(nh, nc, ncr, a, v, mas, iadll, lll, jll, xll, iadh, jcih, hh, z, p, r, q, ltsm, hl, diag_h, diag_l, work1, work2, work3, lambda, rbyl, npbyl, ar, vr, in, iadhf, jcihf, icftag, jcftag, ncf_s, ncf_e)
subroutine lecinv(niniv, x, v, vr, itab, iframe, xframe, igrnod, fxbipm, fxbvit, fxbrpm)
subroutine multi_i18_force_pon(jlt, ix1, ix2, ix3, ix4, nsvg, h1, h2, h3, h4, stif, fx1, fy1, fz1, fx2, fy2, fz2, fx3, fy3, fz3, fx4, fy4, fz4, fxi, fyi, fzi, fskyi, isky, niskyfi, nin, noint, multi_fvm, dt, jtask)
type(dyn_lib_type), dimension(:), allocatable dlib_struct
integer, parameter id_engine_user_finalize
character(len=outfile_char_len) outfile_name
subroutine qaclose()
@purpose close QA extract fileCare when routine is called from Fortran (because of binding)
character(len=10192) iusc4_fnam
character(len=10192) ifxm_fn
character(len=10192) ieigm_fn
character(len=10192) ifxs_fn
subroutine pblast_2(pblast, iloadp, fac, a, v, x, iadc, fsky, lloadp, fext, noda_surf, noda_pext, itab, h3d_data, nl, dtmin_loc, wfext_loc, th_surf, nsegpl)
subroutine pblast_3(pblast, iloadp, fac, a, v, x, iadc, fsky, lloadp, fext, noda_surf, noda_pext, itab, h3d_data, nl, dtmin_loc, wfext_loc, th_surf, nsegpl)
void send_ibuf_c(int *ibuf, int *len)
subroutine rdresa(itstv1, lheader, lvarint, lvarrea, pradios, presfil, multi_fvm, h3d_data, pinch_data, dynain_data, interfaces, sensors, loads, mat_elem, names_and_titles, skews, glob_therm, pblast, rbe3)
subroutine report(ih3dreader, n, imvw, wfext, wfext_md)
subroutine section_read(ttt, nstrf, secbuf)
subroutine sigeps53(nel, nuparam, nuvar, mfunc, kfunc, npf, tf, time, timestep, uparam, rho0, rho, volume, eint, epspxx, epspyy, epspzz, epspxy, epspyz, epspzx, depsxx, depsyy, depszz, depsxy, depsyz, depszx, epsxx, epsyy, epszz, epsxy, epsyz, epszx, sigoxx, sigoyy, sigozz, sigoxy, sigoyz, sigozx, signxx, signyy, signzz, signxy, signyz, signzx, sigvxx, sigvyy, sigvzz, sigvxy, sigvyz, sigvzx, soundsp, viscmax, uvar, off, ngl, ipt, ipm, mat, epsp, ipla, seq_output)
subroutine sortie_mvw(imvw, imvw_ref)
subroutine spmd_exch_min_max(iad_elem, fr_elem, min_array, max_array)
subroutine spmd_tri11vox(irects, nrts, x, v, ms, bminmal, weight, stifs, nin, isendto, ircvfrom, iad_elem, fr_elem, nrtsr, inacti, gap_s, penis, itab, igap, tzinf, nodnx_sms, gap_s_l, nsnfiold, iform, intth, ielec, areas, temp, nisub, addsubs, lisubs, intfric, ipartfrics, inflg_subs)
subroutine spmd_tri10box(nsv, nsn, x, v, ms, bminmal, weight, stifn, nin, isendto, ircvfrom, iad_elem, fr_elem, nsnr, igap, gap_s, nsnfiold, nodnx_sms, itab, itied)
subroutine spmd_kill(icode)
subroutine s20deri3(ngl, off, r, s, t, w, dnidr, dnids, dnidt, dxdr, dydr, dzdr, dxds, dyds, dzds, dxdt, dydt, dzdt, xx, yy, zz, px, py, pz, vol, deltax, deltax2, ip, nip, ul, volg, voldp)
subroutine arret_message(ity, intid, ipenmax)
subroutine arret_message_slid(ity, intid)
subroutine usermat_shell(timers, elbuf_str, mat_elem, jft, jlt, nel, pm, for, mom, gstr, thk, eint, off, dir_a, dir_b, mat, area, exx, eyy, exy, exz, eyz, kxx, kyy, kxy, geo, thk_ly, pid, tf, npf, mtn, dt1c, dm, bufmat, ssp, rho, viscmx, ipla, iofc, indx, ngl, thkly, matly, zcfac, ng, shf, gs, sigy, thk0, epsd_pg, posly, igeo, ipm, failwave, fwave_el, ifailure, aldt, tempel, die, r11, r12, r13, r21, r22, r23, r31, r32, r33, table, ixfem, elcrkini, dir1_crk, dir2_crk, iparg, jhbe, ismstr, jthe, tensx, ir, is, nlay, npt, ixlay, ixel, ithk, f_def, ishplyxfem, itask, pm_stack, isubstack, stack, alpe, ply_exx, ply_eyy, ply_exy, ply_exz, ply_eyz, ply_f, varnl, nloc_dmg, nlay_max, laynpt_max, dt)
void delete_tmpfile(char *name, int *size)
1.15.0