OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
put_etfac.F
Go to the documentation of this file.
1Copyright> OpenRadioss
2Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3Copyright>
4Copyright> This program is free software: you can redistribute it and/or modify
5Copyright> it under the terms of the GNU Affero General Public License as published by
6Copyright> the Free Software Foundation, either version 3 of the License, or
7Copyright> (at your option) any later version.
8Copyright>
9Copyright> This program is distributed in the hope that it will be useful,
10Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12Copyright> GNU Affero General Public License for more details.
13Copyright>
14Copyright> You should have received a copy of the GNU Affero General Public License
15Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16Copyright>
17Copyright>
18Copyright> Commercial Alternative: Altair Radioss Software
19Copyright>
20Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21Copyright> software under a commercial license. Contact Altair to discuss further if the
22Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23!||====================================================================
24!|| put_etfac ../engine/source/elements/solid/solide8z/put_etfac.F
25!||--- called by ------------------------------------------------------
26!|| cmain3 ../engine/source/materials/mat_share/cmain3.f
27!|| mmain ../engine/source/materials/mat_share/mmain.F90
28!|| mmain8 ../engine/source/materials/mat_share/mmain8.F
29!||--- calls -----------------------------------------------------
30!|| iktmat_ini ../engine/source/implicit/imp_init.F
31!||--- uses -----------------------------------------------------
32!|| imp_ktan ../engine/share/modules/impbufdef_mod.F
33!|| imp_ktan_def ../engine/share/modules/impbufdef_mod.F
34!||====================================================================
35 SUBROUTINE put_etfac(NEL ,ET ,MTN)
36C-----------------------------------------------
37C M o d u l e s
38C-----------------------------------------------
39 USE imp_ktan
40 USE imp_ktan_def
41C-----------------------------------------------
42C I m p l i c i t T y p e s
43C-----------------------------------------------
44#include "implicit_f.inc"
45C-----------------------------------------------
46C C o m m o n B l o c k s
47C-----------------------------------------------
48#include "impl1_c.inc"
49C-----------------------------------------------
50C D u m m y A r g u m e n t s
51C-----------------------------------------------
52 INTEGER NEL,MTN
53C REAL
55 . et(*)
56C-----------------------------------------------
57C L o c a l V a r i a b l e s
58C-----------------------------------------------
59 INTEGER I ,J ,MPT,NPTS,IKTMAT
60C REAL
62 . etf
63C-----------------------------------------------
64 CALL iktmat_ini(mtn,iktmat)
65 IF (imconv < 0.OR.iktmat==0) RETURN
66 IF (mtn==2.OR.mtn==36.OR.mtn==78) THEN
67 DO i = 1,nel
68 etf=ktbuf_str(ng_imp)%ETFAC(i)
69 ktbuf_str(ng_imp)%ETFAC(i) = min(etf,et(i))
70 ENDDO
71 ELSE
72 DO i = 1,nel
73 etf=ktbuf_str(ng_imp)%ETFAC(i)
74 ktbuf_str(ng_imp)%ETFAC(i) = max(etf,et(i))
75 ENDDO
76 ENDIF
77C
78 RETURN
79 END
subroutine cmain3(timers, elbuf_str, jft, jlt, nft, iparg, nel, mtn, ipla, ithk, group_param, pm, geo, npf, tf, bufmat, ssp, rho, viscmx, dt1c, sigy, area, exx, eyy, exy, exz, eyz, kxx, kyy, kxy, nu, off, thk0, mat, pid, mat_elem, for, mom, gstr, failwave, fwave_el, thk, eint, iofc, g, a11, a12, vol0, indxdel, ngl, zcfac, shf, gs, epsd_pg, kfts, jhbe, alpe, dir_a, dir_b, igeo, ipm, ifailure, npg, fheat, tempel, die, jthe, iexpan, tempel0, ishplyxfem, ply_exx, ply_eyy, ply_exy, ply_exz, ply_eyz, ply_f, del_ply, th_iply, sig_iply, e1x, e1y, e1z, e2x, e2y, e2z, e3x, e3y, e3z, ng, table, ixfem, offi, sensors, a11_iply, elcrkini, dir1_crk, dir2_crk, aldt, idt_therm, theaccfact, ismstr, ir, is, nlay, npt, ixlay, ixel, isubstack, stack, f_def, itask, drape, varnl, nloc_dmg, indx_drape, thke, sedrape, numel_drape, dt, ncycle, snpc, stf, nxlaymax, idel7nok, userl_avail, maxfunc, varnl_npttot, sbufmat, sdir_a, sdir_b, for_g)
Definition cmain3.F:87
#define my_real
Definition cppsort.cpp:32
subroutine iktmat_ini(mtn, iktmat)
Definition imp_init.F:349
#define min(a, b)
Definition macros.h:20
#define max(a, b)
Definition macros.h:21
type(ktbuf_struct_), dimension(:), allocatable, target ktbuf_str
subroutine put_etfac(nel, et, mtn)
Definition put_etfac.F:36