23!||=====================================
90!|| get_u_func_x ../engine/source/user_interface/ufunc.f
142!||
i25asse2_e2s ../engine/source/interfaces/int25/i25ass_e2s.f
146!||
i25sms0e ../engine/source/interfaces/int25/i25smse.f
169!||
imp_kfiltr ../engine/source/
implicit/imp_fsa_inv.f
170!||
imp_pcgh ../engine/source/
implicit/imp_pcg.f
228!|| retractor_table_inv ../engine/source/tools/seatbelts/retractor_table_inv.f90
266!||
soltosphf ../engine/source/elements/sph/soltosph.f
304!||
spmd_inisph ../engine/source/mpi/sph/spmd_sptool.f
366 . I5 ,I6 ,I7 ,I8 ,I9 ,
368 . R5 ,R6 ,R7 ,R8 ,R9 ,
370 . C5 ,C6 ,C7 ,C8 ,C9 )
401#include "implicit_f.inc"
405#include "units_c.inc"
406#include "comlock.inc"
410 INTEGER MSGID,ANMODE,MSGTYPE
434 CHARACTER(LEN=NCHARLINE100):: CBUF(10)
436 CHARACTER(LEN=NCHARLINE100):: TMPLINE,MYFMT,TMPBUF
437 CHARACTER(LEN=NCHAROUT) :: TMPOUT
438 INTEGER ITYPE,ILINE,I,I0,J,J0,SBUFMSG(2),IFILE,IOLD,
439 . indxi,indxr,indxc,indxtmpout,buflen,
441 CHARACTER(LEN=NCHARLINE100):: BUFMSG(2,100),BUFFMT(2,100)
443 WRITE(istdo,
'(/A,I10)')
'MESSAGE ID : ',msgid
445 WRITE(iout,
'(/A,I10)')
'MESSAGE ID : ',msgid
459 IF (
PRESENT(i1))
THEN
461 IF (
PRESENT(i2))
THEN
463 IF (
PRESENT(i3))
THEN
465 IF (
PRESENT(i4))
THEN
467 IF (
PRESENT(i5))
THEN
469 IF (
PRESENT(i6))
THEN
471 IF (
PRESENT(i7))
THEN
473 IF (
PRESENT(i8))
THEN
475 IF (
PRESENT(i9))
THEN
487 IF (
PRESENT(r1))
THEN
489 IF (
PRESENT(r2))
THEN
491 IF (
PRESENT(r3))
THEN
493 IF (
PRESENT(r4))
THEN
495 IF (
PRESENT(r5))
THEN
497 IF (
PRESENT(r6))
THEN
499 IF (
PRESENT(r7))
THEN
501 IF (
PRESENT(r8))
THEN
503 IF (
PRESENT(r9))
THEN
515 IF (
PRESENT(c1))
THEN
517 IF (
PRESENT(c2))
THEN
519 IF (
PRESENT(c3))
THEN
521 IF (
PRESENT(c4))
THEN
523 IF (
PRESENT(c5))
THEN
525 IF (
PRESENT(c6))
THEN
527 IF (
PRESENT(c7))
THEN
529 IF (
PRESENT(c8))
THEN
531 IF (
PRESENT(c9))
THEN
544 IF (
ALLOCATED(
messages(itype,msgid)%MESSAGE))
THEN
545 DO iline=1,
messages(itype,msgid)%SMESSAGE
548 tmpline=
messages(itype,msgid)%MESSAGE(iline)
558 DO WHILE (i+1<=len_trim(tmpline))
559 IF (tmpline(i:i)==achar(92))
then
562 WRITE(tmpbuf,
'(A,A)')tmpline(iold:i-2),tmpline(i:i)
565 WRITE(tmpbuf,
'(A)')tmpline(i:i)
570 ELSE IF (tmpline(i:i)==
'%')
THEN
573 WRITE(tmpbuf,
'(A)')tmpline(iold:i-2)
576 tmpout=tmpout(1:indxtmpout)//tmpbuf(1:buflen)
577 indxtmpout=indxtmpout+buflen
581 IF (tmpline(i:i)==
'd')
THEN
585 IF (indxi<10) indxi=indxi+1
586 WRITE(tmpbuf,myfmt)ibuf(indxi)
587 tmpbuf=adjustl(tmpbuf)
588 buflen=len_trim(tmpbuf)
589 ELSE IF (tmpline(i:i)==
'f')
THEN
593 IF (indxr<10) indxr=indxr+1
594 WRITE(tmpbuf,myfmt)rbuf(indxr)
595 tmpbuf=adjustl(tmpbuf)
596 buflen=len_trim(tmpbuf)
597 ELSE IF (tmpline(i:i)==
's')
THEN
601 IF (indxc<10) indxc=indxc+1
602 WRITE(tmpbuf,myfmt)cbuf(indxc)
603 tmpbuf=adjustl(tmpbuf)
604 buflen=len_trim(tmpbuf)
610 tmpout=tmpout(1:indxtmpout)//tmpbuf(1:buflen)
611 indxtmpout=indxtmpout+buflen
617 . tmpline(iold:len_trim(tmpline))
618 buflen=len_trim(tmpline)-iold+1
620 tmpout=tmpout(1:indxtmpout)//tmpbuf(1:buflen)
621 indxtmpout=indxtmpout+buflen
626 IF (indxtmpout>0)
THEN
629 WRITE(istdo,
'(A)')tmpout(1:indxtmpout)
632 WRITE(iout,
'(A)')tmpout(1:indxtmpout)
subroutine anim_dcod_key_0(key2, key3, key4, key5, key6, jerr, ixitkey)
subroutine bcscyc(ibcscyc, lbcscyc, skew, x, v, a, itab)
subroutine chkv0_cy(nbcy_n, ixcycl, isk, skew, x, v, id, itab)
subroutine soltosphf(a, spbuf, ixs, kxsp, ipartsp, nod2sp, irst, ngrounc, igrounc, iparg, stifn, sol2sph, sph2sol, elbuf_tab, itask, nodft, nodlt, isky, fskyi, igeo, sol2sph_typ)
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9)
subroutine eulro2(rhon, flux, flu1, voln, dvol, ngl)
subroutine fredli7(ikad, key0, kdelin)
subroutine fredli(ikad, key0, kdel, ndel)
subroutine i16lagm(x, v, lll, jll, sll, xll, candn, cande, i_stok, ixs, ixs16, iadll, eminx, nsv, nelem, n_mul_mx, itask, a, itied, nint, nkmax, comntag)
subroutine i16lll(llt, lll, jll, sll, xll, v, xx, yy, zz, iii, iadll, n_mul_mx, a, x, itied, nint, nkmax, comntag)
subroutine i17lll4_pena(llt, itied, nint, v, a, fric, iii, iiis, ni_m, ni_s, s_cm, s_cs, nx, ny, nz, vit, le, les, icont, rm, tm, rs, ts, xx, yy, zz, stifn, fskyi, isky, frotm, frots, area, area_tot, km, ks, fsav, fcont, ms, area_el, niskyfi, noint, h3d_data)
subroutine i17for3(x, v, candn, cande, i_stok, ixs, ixs16, eminxm, neles, nelem, itask, a, itied, nint, eminxs, stifn, fskyi, isky, nme, nse, frotm, frots, km, ks, fric, fsav, fcont, ms, niskyfi, lskyi17, noint, h3d_data)
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 i20buce(xa, irect, nsv, inacti, cand_p, nmn, nrtm, nsn, cand_e, cand_n, gap, noint, ii_stok, tzinf, maxbox, minbox, mwag, curv_max, ncontact, bminma, nb_n_b, eshift, ild, ifq, ifpen, stfa, nin, stf, igap, gap_s, nsnr, ncont, renum, nsnrold, gap_m, gapmin, gapmax, num_imp, nln, nlg, gap_sh, nbinflg, mbinflg, isym, i_mem, intheat, idt_therm, nodadt_therm)
subroutine i20lagm(x, v, lll, jll, sll, xll, candn, cande, i_stok, ixs, ixs20, iadll, eminx, nsv, nelem, n_mul_mx, itask, a, itied, nint, nkmax, comntag)
subroutine i20lll(llt, lll, jll, sll, xll, v, xx, yy, zz, iii, iadll, n_mul_mx, a, x, itied, nint, nkmax, comntag)
subroutine i25asse2_e2s(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, nedge, nin, noint, pene, edge_id, tagip)
subroutine i25sms0e(jlt, cs_loc, n1, n2, m1, m2, hs1, hs2, hm1, hm2, stif, nin, noint, mskyi_sms, iskyi_sms, nsms, k1, k2, k3, k4, c1, c2, c3, c4, nrts, ibm)
subroutine i7ass3(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, i8a, i8stifn)
subroutine i7ass2(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, condnskyi, condint, iform, nodadt_therm)
subroutine i7main_tri(timers, ipari, x, v, ms, nin, itask, mwag, weight, isendto, ircvfrom, retri, iad_elem, fr_elem, itab, kinet, temp, nrtm_t, renum, nsnfiold, eshift, num_imp, ind_imp, nodnx_sms, intbuf_tab, h3d_data, ixs, multi_fvm, glob_therm)
subroutine imp_fsa_invp2(nddl, iadk, jdik, diag_k, lt_k, iadm, jdim, diag_m, lt_m, maxc, max_a, nne, idlft0, idlft1, max_d, d_tol, p_mach)
subroutine imp_kfiltr(ndf, nd, iada, jdia, diag_a, lt_a, tol, e_ps, diag_k)
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 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)
type(tmessage), dimension(:,:), allocatable messages
integer, parameter ncharline100
subroutine rgbodv(v, vr, x, rby, nod, nby, skew, iskew, fs, itab, weight, a, ar, ms, in, isens, id, ifail, fny, expn, fty, expt, crit, nodreac, fthreac, freac)
subroutine s8zforc3(timers, output, elbuf_tab, ng, pm, geo, ixs, x, a, v, ms, w, flux, flu1, veul, fv, ale_connect, iparg, tf, npf, bufmat, partsav, nloc_dmg, dt2t, neltst, ityptst, stifn, fsky, iads, offset, eani, iparts, icp, f11, f21, f31, f12, f22, f32, f13, f23, f33, f14, f24, f34, f15, f25, f35, f16, f26, f36, f17, f27, f37, f18, f28, f38, nel, icsig, smr, sms, smt, mfxx, mfxy, mfxz, mfyx, mfyy, mfyz, mfzx, mfzy, mfzz, nvc, ipm, itask, istrain, temp, fthe, fthesky, iexpan, igeo, nnpt, gresav, grth, igrth, mssa, dmels, table, xdp, voln, condn, condnsky, jfac, d, sensors, ioutprt, mat_elem, h3d_strain, dt, snpc, stf, sbufmat, svis, nsvois, idtmins, iresp, maxfunc, userl_avail, glob_therm, impl_s, idyna)
subroutine schkjabt3(off, det, ngl, offg, nnega, index, nel, ismstr, jlag)
subroutine spmd_exch_tagncont(tagncont, iad_elem, fr_elem, lenr)
subroutine reallocate_fi2(nin, intth, nodfi, lskyfi, h3d_data, nodadt_therm)
subroutine spmd_tri10gat(result, nsn, cand_n, i_stok, nin, igap, nsnr, multimp, ity, intth, h3d_data)
subroutine spmd_tri22vox(irectm, nrtm, x, v, bminmal, stife, nin, isendto, ircvfrom, iad_elem, fr_elem, nshelr, itab, itask)
subroutine suforc3(timers, elbuf_str, lft, llt, nft, nel, ixs, pm, geo, ipm, igeo, x, a, ar, v, vr, w, d, ms, in, tf, npf, bufmat, iparg, iparts, partsav, mat_param, fsky, fr_wave, iads, eani, stifn, stifr, fx, fy, fz, ifailure, mtn, igtyp, npt, jsms, mssa, dmels, itask, ioutprt, jthe, table, idtmins, dtfacs, dtmins)