OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
sta_txt.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!|| strs_txt ../engine/source/output/sta/sta_txt.F
25!||--- calls -----------------------------------------------------
26!|| write_c_c ../common_source/tools/input_output/write_routines.c
27!||====================================================================
28 SUBROUTINE strs_txt(TEXT,LEN)
29C-----------------------------------------------
30C I m p l i c i t T y p e s
31C-----------------------------------------------
32#include "implicit_f.inc"
33C-----------------------------------------------
34C D u m m y A r g u m e n t s
35C-----------------------------------------------
36 CHARACTER*80 TEXT
37 INTEGER LEN
38C-----------------------------------------------
39C L o c a l V a r i a b l e s
40C-----------------------------------------------
41 INTEGER CTEXT(81),I
42C
43 DO 100 i=1,len
44 100 ctext(i)=ichar(text(i:i))
45 ctext(len+1)=0
46C
47 CALL write_c_c(ctext,81)
48C
49 RETURN
50 END
51C
52!||====================================================================
53!|| strs_txt50 ../engine/source/output/sta/sta_txt.F
54!||--- called by ------------------------------------------------------
55!|| dynain_c_strag ../engine/source/output/dynain/dynain_c_strag.F
56!|| dynain_c_strsg ../engine/source/output/dynain/dynain_c_strsg.F
57!|| dynain_node ../engine/source/output/dynain/dynain_node.F
58!|| dynain_shel_mp ../engine/source/output/dynain/dynain_shel_mp.F
59!|| dynain_shel_spmd ../engine/source/output/dynain/dynain_shel_spmd.F
60!|| gendynain ../engine/source/output/dynain/gendynain.F
61!|| genstat ../engine/source/output/sta/genstat.F
62!|| stat_c_auxf ../engine/source/output/sta/stat_c_auxf.F
63!|| stat_c_epspf ../engine/source/output/sta/stat_c_epspf.F
64!|| stat_c_fail ../engine/source/output/sta/stat_c_fail.F
65!|| stat_c_off ../engine/source/output/sta/stat_c_off.F
66!|| stat_c_orth_loc ../engine/source/output/sta/stat_c_orth_loc.F
67!|| stat_c_straf ../engine/source/output/sta/stat_c_straf.F
68!|| stat_c_strafg ../engine/source/output/sta/stat_c_strafg.F
69!|| stat_c_strsf ../engine/source/output/sta/stat_c_strsf.F
70!|| stat_c_strsfg ../engine/source/output/sta/stat_c_strsfg.F
71!|| stat_c_thk ../engine/source/output/sta/stat_c_thk.F
72!|| stat_n_bcs ../engine/source/output/sta/stat_n_bcs.F
73!|| stat_n_temp ../engine/source/output/sta/stat_n_temp.F
74!|| stat_n_vel ../engine/source/output/sta/state_n_vel.F
75!|| stat_p_aux ../engine/source/output/sta/stat_p_aux.F
76!|| stat_s_auxf ../engine/source/output/sta/stat_s_auxf.F
77!|| stat_s_eref ../engine/source/output/sta/stat_s_eref.F
78!|| stat_s_fail ../engine/source/output/sta/stat_s_fail.F
79!|| stat_s_ortho ../engine/source/output/sta/stat_s_ortho.F
80!|| stat_s_straf ../engine/source/output/sta/stat_s_straf.F
81!|| stat_s_strsf ../engine/source/output/sta/stat_s_strsf.F
82!|| tab_strs_txt50 ../engine/source/output/sta/sta_txt.F
83!||--- calls -----------------------------------------------------
84!|| write_c_c_txt ../common_source/tools/input_output/write_routines.c
85!||====================================================================
86 SUBROUTINE strs_txt50(TEXT,LENGTH)
87C-----------------------------------------------
88C I m p l i c i t T y p e s
89C-----------------------------------------------
90#include "implicit_f.inc"
91C-----------------------------------------------
92C D u m m y A r g u m e n t s
93C-----------------------------------------------
94 INTEGER LENGTH
95 CHARACTER(LEN = LENGTH) :: TEXT
96C-----------------------------------------------
97C L o c a l V a r i a b l e s
98C-----------------------------------------------
99 INTEGER TEXT_LEN
100 text_len=len_trim(text)
101
102 CALL write_c_c_txt(text,text_len)
103C
104 RETURN
105 END
106!||====================================================================
107!|| tab_strs_txt50 ../engine/source/output/sta/sta_txt.F
108!||--- called by ------------------------------------------------------
109!|| stat_c_auxf ../engine/source/output/sta/stat_c_auxf.F
110!|| stat_c_epspf ../engine/source/output/sta/stat_c_epspf.F
111!|| stat_c_fail ../engine/source/output/sta/stat_c_fail.F
112!|| stat_c_straf ../engine/source/output/sta/stat_c_straf.F
113!|| stat_c_strafg ../engine/source/output/sta/stat_c_strafg.F
114!|| stat_c_strsf ../engine/source/output/sta/stat_c_strsf.F
115!|| stat_c_strsfg ../engine/source/output/sta/stat_c_strsfg.F
116!|| stat_p_aux ../engine/source/output/sta/stat_p_aux.F
117!|| stat_s_auxf ../engine/source/output/sta/stat_s_auxf.F
118!|| stat_s_eref ../engine/source/output/sta/stat_s_eref.F
119!|| stat_s_fail ../engine/source/output/sta/stat_s_fail.F
120!|| stat_s_ortho ../engine/source/output/sta/stat_s_ortho.F
121!|| stat_s_straf ../engine/source/output/sta/stat_s_straf.F
122!|| stat_s_strsf ../engine/source/output/sta/stat_s_strsf.F
123!||--- calls -----------------------------------------------------
124!|| strs_txt50 ../engine/source/output/sta/sta_txt.F
125!||====================================================================
126 SUBROUTINE tab_strs_txt50(WAP0,CPT,J,SIZP0,NBPLINE)
127C-----------------------------------------------
128C I m p l i c i t T y p e s
129C-----------------------------------------------
130#include "implicit_f.inc"
131C-----------------------------------------------
132C D u m m y A r g u m e n t s
133C-----------------------------------------------
134 INTEGER CPT,J,SIZP0,NBPLINE
135 double precision
136 . WAP0(SIZP0)
137C-----------------------------------------------
138C L o c a l V a r i a b l e s
139C-----------------------------------------------
140 CHARACTER*100 LINE
141 INTEGER K,K1
142 INTEGER J1
143C
144 j1 = j
145 IF (nbpline > 5)nbpline = 5
146 DO k=1,cpt
147 IF (mod(k,nbpline) == 0) THEN
148 SELECT CASE (nbpline)
149 CASE (1)
150 WRITE(line,'(1P1E20.13)')(wap0(j1 + k1),k1=1,nbpline)
151 CALL strs_txt50(line,20)
152 CASE (2)
153 WRITE(line,'(1P2E20.13)')(wap0(j1 + k1),k1=1,nbpline)
154 CALL strs_txt50(line,40)
155 CASE (3)
156 WRITE(line,'(1P3E20.13)')(wap0(j1 + k1),k1=1,nbpline)
157 CALL strs_txt50(line,60)
158 CASE (4)
159 WRITE(line,'(1P4E20.13)')(wap0(j1 + k1),k1=1,nbpline)
160 CALL strs_txt50(line,80)
161 CASE (5)
162 WRITE(line,'(1P5E20.13)')(wap0(j1 + k1),k1=1,nbpline)
163 CALL strs_txt50(line,100)
164 END SELECT
165 j1 = j1 + nbpline
166 ELSEIF (k == cpt) THEN
167 SELECT CASE (mod(k,nbpline))
168 CASE (1)
169 WRITE(line,'(1P1E20.13)')(wap0(j1 + k1),k1=1,mod(k,nbpline))
170 CALL strs_txt50(line,20)
171 CASE (2)
172 WRITE(line,'(1P2E20.13)')(wap0(j1 + k1),k1=1,mod(k,nbpline))
173 CALL strs_txt50(line,40)
174 CASE (3)
175 WRITE(line,'(1P3E20.13)')(wap0(j1 + k1),k1=1,mod(k,nbpline))
176 CALL strs_txt50(line,60)
177 CASE (4)
178 WRITE(line,'(1P4E20.13)')(wap0(j1 + k1),k1=1,mod(k,nbpline))
179 CALL strs_txt50(line,80)
180 CASE (5)
181 WRITE(line,'(1P5E20.13)')(wap0(j1 + k1),k1=1,mod(k,nbpline))
182 CALL strs_txt50(line,100)
183 END SELECT
184 ENDIF
185 ENDDO
186C
187 RETURN
188 END
189C
strs_txt50
subroutine strs_txt50(text, length)
Definition sta_txt.F:87
tab_strs_txt50
subroutine tab_strs_txt50(wap0, cpt, j, sizp0, nbpline)
Definition sta_txt.F:127
strs_txt
subroutine strs_txt(text, len)
Definition sta_txt.F:29
write_c_c_txt
void write_c_c_txt(char *w, int *len)
Definition write_routines.c:612
write_c_c
void write_c_c(int *w, int *len)
Definition write_routines.c:591