OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
i7cdcor3.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!|| i7cdcor3 ../engine/source/interfaces/int07/i7cdcor3.F
25!||--- called by ------------------------------------------------------
26!|| i10mainf ../engine/source/interfaces/int10/i10mainf.f
27!|| i18main_kine_i ../engine/source/interfaces/int18/i18main_kine.F
28!|| i20mainf ../engine/source/interfaces/int20/i20mainf.F
29!|| i21mainf ../engine/source/interfaces/int21/i21mainf.f
30!|| i23mainf ../engine/source/interfaces/int23/i23mainf.F
31!|| i7main_lmult ../engine/source/interfaces/int07/i7main_lmult.F
32!|| i7mainf ../engine/source/interfaces/int07/i7mainf.F
33!|| imp_i10mainf ../engine/source/interfaces/int10/i10ke3.F
34!|| imp_i7mainf ../engine/source/interfaces/int07/i7ke3.f
35!||====================================================================
36 SUBROUTINE i7cdcor3(JLT,INDEX,CAND_E,CAND_N,CAND_E_N,
37 . CAND_N_N)
38C============================================================================
39C cette routine est appelee par : I10MAINF(/int10/i10mainf.F)
40C I7MAINF(/int7/i7mainf.F)
41C----------------------------------------------------------------------------
42C cette routine appelle : -
43C============================================================================
44C-----------------------------------------------
45C D u m m y A r g u m e n t s
46C-----------------------------------------------
47 INTEGER JLT, INDEX(*), CAND_E(*), CAND_N(*),
48 . cand_e_n(*), cand_n_n(*)
49C-----------------------------------------------
50C L o c a l V a r i a b l e s
51C-----------------------------------------------
52 INTEGER I
53C-----------------------------------------------
54C
55 !initialization of local buffer (1:MVSIZ)
56 DO i=1,jlt
57 cand_e_n(i) = cand_e(index(i))
58 cand_n_n(i) = cand_n(index(i))
59 ENDDO
60C
61 RETURN
62 END
i10mainf
subroutine i10mainf(ipari, x, a, icodt, fsav, v, ms, dt2t, neltst, ityptst, itab, stifn, fskyi, isky, fcont, lindmax, jtask, nb_jlt, nb_jlt_new, nb_stok_n, niskyfi, nstrf, secfcum, viscn, nin, fsavsub, num_imp, ns_imp, ne_imp, ind_imp, fncont, ftcont, mskyi_sms, iskyi_sms, nodnx_sms, icontact, intbuf_tab, fbsav6, isensint, dimfb, h3d_data, nodadt_therm)
Definition i10mainf.F:50
i21mainf
subroutine i21mainf(timers, ipari, intbuf_tab, x, a, icodt, fsav, v, ms, itab, stifn, fskyi, isky, fcont, nin, lindmax, jtask, nb_jlt, nb_jlt_new, nb_stok_n, nstrf, secfcum, icontact, viscn, num_imp, ns_imp, ne_imp, ind_imp, nrtmdim, fncont, ftcont, rcontact, acontact, pcontact, intstamp, weight, temp, fthe, ftheskyi, mskyi_sms, iskyi_sms, nodnx_sms, nodglob, npc, tf, qfricint, ncont, indexcont, tagcont, condn, condnskyi, dt2t, neltst, ityptst, kinet, fbsav6, isensint, dimfb, niskyfi, h3d_data, pskids, tagncont, kloadpinter, loadpinter, loadp_hyd_inter, dgaploadint, s_loadpinter, interefric, nodadt_therm, theaccfact, intbuf_fric_tab)
Definition i21mainf.F:66
i7cdcor3
subroutine i7cdcor3(jlt, index, cand_e, cand_n, cand_e_n, cand_n_n)
Definition i7cdcor3.F:38
i7ke3
subroutine i7ke3(a, v, ms, ipari, intbuf_tab, x, nin, num_imp, cand_n, cand_e, index2, iddl, k_diag, k_lt, iadk, jdik, gap_imp, lrem)
Definition i7ke3.F:42
imp_i7mainf
subroutine imp_i7mainf(ipari, intbuf_tab, x, v, ms, nin, lindmax, jtask, num_imp, ns_imp, ne_imp, ind_imp)
Definition i7ke3.F:403