OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
bitget.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!|| bitget ../starter/source/interfaces/inter3d1/bitget.F
25!||--- called by ------------------------------------------------------
26!|| i20dst3 ../starter/source/interfaces/inter3d1/i20dst3.F
27!|| i20gap1 ../starter/source/interfaces/inter3d1/i20dst3.F
28!|| i20sti3 ../starter/source/interfaces/inter3d1/i20sti3.F
29!|| i24s1s2 ../starter/source/interfaces/inter3d1/i24buc1.F
30!|| i25neigh ../starter/source/interfaces/inter3d1/i25neigh.F
31!|| i25s1s2 ../starter/source/interfaces/inter3d1/i25sto.F
32!|| i25trivox_edg ../starter/source/interfaces/inter3d1/i25trivox_edg.F
33!|| i7remnode_init ../starter/source/interfaces/inter3d1/i7remnode.F
34!|| inintsub_25 ../starter/source/output/subinterface/inintsub_25.F
35!||====================================================================
36 INTEGER FUNCTION bitget(I,N)
37 INTEGER i,n
38 INTEGER b,s,i2p(0:12)
39 DATA i2p/1,2,4,8,16,32,64,128,256,512,1024,2048,4096/
40
41 s = i/i2p(n)
42 bitget = s - (s/2)*2
43 RETURN
44 END
45
46!||====================================================================
47!|| bitset ../starter/source/interfaces/inter3d1/bitget.F
48!||--- called by ------------------------------------------------------
49!|| i20bord ../starter/source/interfaces/inter3d1/i20surfi.F
50!|| i20dst3 ../starter/source/interfaces/inter3d1/i20dst3.F
51!|| i20edge1 ../starter/source/interfaces/inter3d1/i20surfi.F
52!|| i20gap1 ../starter/source/interfaces/inter3d1/i20dst3.f
53!|| i20sti3 ../starter/source/interfaces/inter3d1/i20sti3.F
54!|| i20surfi ../starter/source/interfaces/inter3d1/i20surfi.F
55!|| i24edge1 ../starter/source/interfaces/inter3d1/i24surfi.F
56!|| i24edge2 ../starter/source/interfaces/inter3d1/i24surfi.F
57!|| i24surfi ../starter/source/interfaces/inter3d1/i24surfi.F
58!|| i25neigh ../starter/source/interfaces/inter3d1/i25neigh.f
59!|| i25surfi ../starter/source/interfaces/inter3d1/i25surfi.F
60!|| inintsub ../starter/source/interfaces/interf1/inintsub.F
61!|| inintsub_11 ../starter/source/output/subinterface/inintsub_11.F
62!|| inintsub_25 ../starter/source/output/subinterface/inintsub_25.F
63!|| inintsub_7 ../starter/source/output/subinterface/inintsub_7.f
64!||====================================================================
65 INTEGER FUNCTION bitset(I,N)
66 INTEGER i,n
67 INTEGER b,s,i2p(0:12)
68 DATA i2p/1,2,4,8,16,32,64,128,256,512,1024,2048,4096/
69
70 s = i/i2p(n)
71 IF(s - (s/2)*2 == 0) i = i + i2p(n)
72 bitset = i
73 RETURN
74 END
75
76!||====================================================================
77!|| bitunset ../starter/source/interfaces/inter3d1/bitget.F
78!||--- called by ------------------------------------------------------
79!|| i20dst3 ../starter/source/interfaces/inter3d1/i20dst3.F
80!|| i20gap1 ../starter/source/interfaces/inter3d1/i20dst3.F
81!|| i20sti3 ../starter/source/interfaces/inter3d1/i20sti3.F
82!||====================================================================
83 INTEGER FUNCTION bitunset(I,N)
84 INTEGER i,n
85 INTEGER b,s,i2p(0:12)
86 DATA i2p/1,2,4,8,16,32,64,128,256,512,1024,2048,4096/
87
88 s = i/i2p(n)
89 IF(s - (s/2)*2 == 1) i = i - i2p(n)
90 bitunset = i
91 RETURN
92 END
93
bitget
integer function bitget(i, n)
Definition bitget.F:37
bitset
integer function bitset(i, n)
Definition bitget.F:66
bitunset
integer function bitunset(i, n)
Definition bitget.F:84
i25neigh
subroutine i25neigh(nrtm, nsn, nsv, irect, irtlm, mvoisin, evoisin, mseglo, msegtyp, itab, x, id, titr, igeo, nadmsr, admsr, adskyn, iadnor, nrtm_sh, iedge, nedge, ledge, lbound, edg_cos, nisub, lisub, addsubm, lisubm, inflg_subm, nisube, addsube, lisube, inflg_sube, noint, nmn, msr, nom_opt, ilev, mbinflg, ebinflg, ielem_m, idel_solid)
Definition i25neigh.F:45
inintsub_7
subroutine inintsub_7(itab, igrnod, igrsurf, nom_opt, intbuf_tab, nrtm, nrtm0, nsn, nisubs, nisubm, noint, ni, nod2nsv, nod2rtm, kad, tagnod, tagrtm, iadd, nt19)
Definition inintsub_7.F:38
i20dst3
subroutine i20dst3(igap, gap_sh, cand_e, cand_n, gapv, gap, gap_s, gap_m, gapmax, gapmin, irect, nln, nlg, solidn_normal, nsv, nbinflg, tag, ix3, ix4, x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4, xi, yi, zi, x0, y0, z0, nx1, ny1, nz1, nx2, ny2, nz2, nx3, ny3, nz3, nx4, ny4, nz4, p1, p2, p3, p4, lb1, lb2, lb3, lb4, lc1, lc2, lc3, lc4)
Definition i20dst3.F:47
i20gap1
subroutine i20gap1(nrtm, nsn, nln, gap_m, gap_sh, gap_s, nbinflg, nsv, nlg, tag)
Definition i20dst3.F:799
starter
program starter
Definition starter.F:39