OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
create_h3d_parts_all.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!|| create_h3d_parts_all ../engine/source/output/h3d/h3d_build_fortran/create_h3d_parts_all.f
25!||--- called by ------------------------------------------------------
26!|| lech3d ../engine/source/output/h3d/h3d_build_fortran/lech3d.F
27!||--- calls -----------------------------------------------------
28!|| arret ../engine/source/system/arret.F
29!||--- uses -----------------------------------------------------
30!|| h3d_mod ../engine/share/modules/h3d_mod.F
31!|| names_and_titles_mod ../common_source/modules/names_and_titles_mod.F
32!||====================================================================
33 SUBROUTINE create_h3d_parts_all(H3D_DATA,IPART)
34C-----------------------------------------------
35C M o d u l e s
36C-----------------------------------------------
38 USE h3d_mod
39C-----------------------------------------------
40C I m p l i c i t T y p e s
41C-----------------------------------------------
42#include "implicit_f.inc"
43C-----------------------------------------------
44C D u m m y A r g u m e n t s
45C-----------------------------------------------
46 TYPE (H3D_DATABASE) :: H3D_DATA
47 INTEGER IPART(LIPART1,*)
48C-----------------------------------------------
49C C o m m o n B l o c k s
50C-----------------------------------------------
51#include "com04_c.inc"
52#include "scr17_c.inc"
53C-----------------------------------------------
54C E x t e r n a l F u n c t i o n s
55C-----------------------------------------------
56 INTEGER NVAR
57C-----------------------------------------------
58C L o c a l V a r i a b l e s
59C-----------------------------------------------
60 CHARACTER(LEN=NCHARLINE100) :: CARTE,CARTE1
61 INTEGER I,J,L,N_H3D_PART
62C=========================================================================
63
64 ALLOCATE(h3d_data%PARTS(1)%PART(npart))
65c
66 DO i=1,npart
67 h3d_data%PARTS(1)%PART(i) = 1
68c print *,'I,PARTS(1)%PART(I)',I,H3D_DATA%PARTS(1)%PART(I)
69 ENDDO
70
71
72 RETURN
73 999 print *,'error lecture'
74 CALL arret(0)
75 END
subroutine create_h3d_parts_all(h3d_data, ipart)
integer, parameter ncharline100
subroutine arret(nn)
Definition arret.F:87