OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
csens3.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!|| csens3 ../engine/source/elements/shell/coque/csens3.F
25!||--- called by ------------------------------------------------------
26!|| c3forc3 ../engine/source/elements/sh3n/coque3n/c3forc3.F
27!|| c3forc3_crk ../engine/source/elements/xfem/c3forc3_crk.F
28!|| cforc3 ../engine/source/elements/shell/coque/cforc3.f
29!|| cforc3_crk ../engine/source/elements/xfem/cforc3_crk.F
30!||--- calls -----------------------------------------------------
31!|| get_u_numsens ../engine/source/user_interface/usensor.F
32!|| get_u_sens_fpar ../engine/source/user_interface/usensor.F
33!|| get_u_sens_value ../engine/source/user_interface/usensor.f
34!|| set_u_sens_maxvalue ../engine/source/user_interface/usensor.F
35!|| set_u_sens_value ../engine/source/user_interface/usensor.F
36!||====================================================================
37 SUBROUTINE csens3 (JFT ,JLT ,PID ,IGEO ,EPSP )
38C-----------------------------------------------
39C I m p l i c i t T y p e s
40C-----------------------------------------------
41#include "implicit_f.inc"
42C-----------------------------------------------
43C G l o b a l P a r a m e t e r s
44C-----------------------------------------------
45#include "mvsiz_p.inc"
46C-----------------------------------------------
47C C o m m o n B l o c k s
48C-----------------------------------------------
49#include "param_c.inc"
50C-----------------------------------------------
51C D u m m y A r g u m e n t s
52C-----------------------------------------------
53 INTEGER JFT, JLT, IGEO(NPROPGI,*), PID(MVSIZ)
54 my_real
55 . epsp(mvsiz)
56C-----------------------------------------------
57C E x t e r n a l F u n c t i o n s
58C-----------------------------------------------
59 INTEGER GET_U_NUMSENS,GET_U_SENS_FPAR,
60 . GET_U_SENS_VALUE,SET_U_SENS_VALUE,
61 . SET_U_SENS_MAXVALUE
62 EXTERNAL get_u_numsens,get_u_sens_fpar,
63 . get_u_sens_value,set_u_sens_value,
64 . set_u_sens_maxvalue
65C-----------------------------------------------
66C L o c a l V a r i a b l e s
67C-----------------------------------------------
68 INTEGER I,ID,ISEN,IVAR,IERR
69C======================================================================|
70 ivar = 1
71 DO i=jft,jlt
72 id = igeo(3,pid(i))
73 IF (id /= 0) THEN
74 isen = get_u_numsens(id)
75 ierr = set_u_sens_maxvalue(isen,ivar,epsp(i))
76 ENDIF
77 ENDDO
78C-------------------------
79 RETURN
80 END
cforc3
subroutine cforc3(timers, elbuf_str, jft, jlt, pm, ixc, x, f, m, v, vr, failwave, nvc, mtn, geo, tf, npf, bufmat, partsav, dt2t, neltst, ityptst, stifn, stifr, fsky, iadc, itab, d, dr, tani, offset, eani, f11, f12, f13, f14, f21, f22, f23, f24, f31, f32, f33, f34, m11, m12, m13, m14, m21, m22, m23, m24, m31, m32, m33, m34, indxof, ipartc, thke, group_param, mat_elem, nel, istrain, ihbe, ithk, iofc, ipla, nft, ismstr, npt, kfts, fzero, igeo, ipm, ifailure, itask, jthe, temp, fthe, fthesky, iexpan, gresav, grth, xedge4n, igrth, msc, dmelc, jsms, table, iparg, ixfem, knod2elc, sensors, elcutc, inod_crk, iel_crk, ibordnode, nodenr, iadc_crk, nodedge, crknodiad, condn, condnsky, stack, isubstack, xfem_str, ig, crkedge, drape_sh4n, ipri, nloc_dmg, indx_drape, igre, jtur, output, dt, snpc, stf, glob_therm, userl_avail, maxfunc, sbufmat, ipart)
Definition cforc3.F:113
my_real
#define my_real
Definition cppsort.cpp:32
csens3
subroutine csens3(jft, jlt, pid, igeo, epsp)
Definition csens3.F:38
get_u_sens_value
integer function get_u_sens_value(nsens, ivar, var)
Definition usensor.F:190