OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
fredec3.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!|| fredec3 ../engine/source/output/message/fredec3.F
25!||--- called by ------------------------------------------------------
26!|| build_msg ../common_source/tools/memory/my_alloc.F90
27!||--- calls -----------------------------------------------------
28!|| arret ../engine/source/system/arret.F
29!||--- uses -----------------------------------------------------
30!|| names_and_titles_mod ../common_source/modules/names_and_titles_mod.F
31!||====================================================================
32 SUBROUTINE fredec3(LINE,KEY)
33C-----------------------------------------------
34C M o d u l e s
35C-----------------------------------------------
37C-----------------------------------------------
38C I m p l i c i t T y p e s
39C-----------------------------------------------
40#include "implicit_f.inc"
41#include "units_c.inc"
42C-----------------------------------------------
43C D u m m y A r g u m e n t s
44C-----------------------------------------------
45 CHARACTER(LEN=NCHARLINE100)::LINE,KEY
46C-----------------------------------------------
47C L o c a l V a r i a b l e s
48C-----------------------------------------------
49 INTEGER I,J1,J2,J
50 key=' '
51 i=2
52 DO WHILE(line(i:i)/='/')
53 i=i+1
54 IF(i>ncharline100) GOTO 900
55 ENDDO
56 i=i+1
57 DO WHILE(line(i:i)/='/')
58 i=i+1
59 IF(i>ncharline100) GOTO 900
60 ENDDO
61 i=i+1
62 IF(i>ncharline100) GOTO 900
63 j1=i
64 DO WHILE(line(i:i)/='/')
65 i=i+1
66 IF(i>ncharline100) THEN
68 GOTO 10
69 END IF
70 ENDDO
71 j2=i-1
72 10 CONTINUE
73C
74 key=trim(line(j1:j2))
75 RETURN
76C
77C cannot use ANCMSG : used to build message structure
78 900 CONTINUE
79 WRITE(istdo,*)
80 . ' ** error in fredec3 WHILE getting key',
81 . ' ** line=',LINE
82 WRITE(IOUT,*)
83 . ' ** error in fredec3 WHILE getting key',
84 . ' ** line=',LINE
85 CALL ARRET(2)
86 RETURN
87 END
subroutine fredec3(line, key)
Definition fredec3.F:33
integer, parameter ncharline100