OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
radioss_title.F File Reference
#include "implicit_f.inc"
#include "build_info.inc"
#include "commandline.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine radioss_title (iout, cpunam, archtitle, filnam, rootlen, chrun, iresp, iflag)
subroutine printcenter (array, arrlen, linout, flag)

Function/Subroutine Documentation

◆ printcenter()

subroutine printcenter ( character, dimension(*) array,
integer arrlen,
integer linout,
integer flag )

Definition at line 111 of file radioss_title.F.

112C-----------------------------------------------
113C I m p l i c i t T y p e s
114C-----------------------------------------------
115#include "implicit_f.inc"
116C-----------------------------------------------
117C D u m m y A r g u m e n t s
118C-----------------------------------------------
119 INTEGER ARRLEN, LINOUT,FLAG
120 CHARACTER ARRAY(*)
121C-----------------------------------------------
122C L o c a l V a r i a b l e s
123C-----------------------------------------------
124 CHARACTER PRINTOUT(72)
125 INTEGER POS,I
126C-----------------------------------------------
127C Initialisation
128 printout=' '
129 printout(1)='*'
130 printout(2)='*'
131 printout(71)='*'
132 printout(72)='*'
133
134C Flag = 0 ligne blanche
135
136 IF (flag==1)THEN
137C Flag = 1 que des * dans la ligne
138 printout(1:72)='*'
139
140
141 ELSEIF (flag==2) THEN
142C du texte center
143
144C Test si sortie n'excede pas 68 cararcteres
145 IF (arrlen>68) THEN
146 WRITE(linout,'(A)') "ERROR PRINTOUT FORMAT"
147 RETURN
148 ENDIF
149
150 pos= 3+(68-arrlen)/2
151
152 DO i=1,arrlen
153 printout(pos+i-1)=array(i)
154 ENDDO
155
156 ELSEIF (flag==3) THEN
157C print left
158 pos = 4
159 DO i=1,arrlen
160 printout(pos+i-1)=array(i)
161 ENDDO
162
163
164 ENDIF
165
166 WRITE(linout,'(72A)') printout
167

◆ radioss_title()

subroutine radioss_title ( integer iout,
character cpunam,
character archtitle,
character(len=2148) filnam,
integer rootlen,
character chrun,
integer iresp,
integer iflag )

Definition at line 31 of file radioss_title.F.

33C-----------------------------------------------
34C I m p l i c i t T y p e s
35C-----------------------------------------------
36#include "implicit_f.inc"
37C-----------------------------------------------
38C C o m m o n B l o c k s
39C-----------------------------------------------
40#include "build_info.inc"
41#include "commandline.inc"
42C-----------------------------------------------
43C D u m m y A r g u m e n t s
44C-----------------------------------------------
45 INTEGER IOUT,ROOTLEN,IRESP,IFLAG
46 CHARACTER(LEN=2148) :: FILNAM
47 CHARACTER CPUNAM*20,CHRUN*4,ARCHTITLE*66
48C-----------------------------------------------
49C L o c a l V a r i a b l e s
50C-----------------------------------------------
51 INTEGER LEN,LEN_RAD,LENCPUNAM,LENARCHTIT,CT,RESC,LBT
52 CHARACTER RADVERS*68,COPYRIGHTLINE*68
53C-----------------------------------------------
54 len=len_trim(vers)
55
56 IF( got_inspire_alm == 1)THEN
57 WRITE(radvers,'(A,A)') 'Altair Solver ',vers
58 len = len + 15
59 ELSE
60 WRITE(radvers,'(A)') 'OpenRadioss Starter'
61 len = len_trim(radvers)
62 ENDIF
63
64 lbt=len_trim(btag)
65 lencpunam=len_trim(cpunam)
66 lenarchtit=len_trim(archtitle)
67 yearstring(1:4)=bdate(8:11)
68 WRITE(copyrightline,'(A,A,A)') 'COPYRIGHT (C) 1986-'//yearstring(1:4)//' Altair Engineering, Inc.'
69
70 CALL printcenter(" ",0,iout,1)
71 CALL printcenter(" ",0,iout,0)
72 CALL printcenter(" ",0,iout,0)
73 CALL printcenter(radvers,len,iout,2)
74 CALL printcenter(" ",0,iout,0)
75 CALL printcenter("Non-linear Finite Element Analysis Software",
76 . 43,iout,2)
77 CALL printcenter(" ",0,iout,0)
78 CALL printcenter(" ",0,iout,0)
79 CALL printcenter(" ",0,iout,0)
80 CALL printcenter(archtitle,lenarchtit,iout,2)
81 IF (iresp == 1) THEN
82 CALL printcenter("Extended Single Precision Version",33,iout,2)
83 ELSE
84 CALL printcenter("Double Precision Version",24,iout,2)
85 ENDIF
86 IF (pmsg ==1)THEN
87 CALL printcenter(msgo,len_msg,iout,2)
88 ELSE
89 CALL printcenter(" ",0,iout,0)
90 ENDIF
91 CALL printcenter(" ",0,iout,0)
92 CALL printcenter(btag,lbt,iout,3)
93 CALL printcenter(" ",0,iout,1)
94 CALL printcenter("OpenRadioss Software",20,iout,3)
95 CALL printcenter(copyrightline,64,iout,3)
96 CALL printcenter("Licensed under GNU Affero General Public License.",49,iout,3)
97 CALL printcenter("See License file.",17,iout,3)
98 CALL printcenter(" ",0,iout,1)
99 WRITE(iout,'(A)') ' '
100
subroutine printcenter(array, arrlen, linout, flag)