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 118 of file radioss_title.F.

119C-----------------------------------------------
120C I m p l i c i t T y p e s
121C-----------------------------------------------
122#include "implicit_f.inc"
123C-----------------------------------------------
124C D u m m y A r g u m e n t s
125C-----------------------------------------------
126 INTEGER ARRLEN, LINOUT,FLAG
127 CHARACTER ARRAY(*)
128C-----------------------------------------------
129C L o c a l V a r i a b l e s
130C-----------------------------------------------
131 CHARACTER PRINTOUT(72)
132 INTEGER POS,I
133C-----------------------------------------------
134C Initialisation
135 printout=' '
136 printout(1)='*'
137 printout(2)='*'
138 printout(71)='*'
139 printout(72)='*'
140
141C Flag = 0 ligne blanche
142
143 IF (flag==1)THEN
144C Flag = 1 only * characters in the line
145 printout(1:72)='*'
146
147
148 ELSEIF (flag==2) THEN
149C centered text
150
151C Test if output does not exceed 68 CARRCT Res
152 IF (arrlen>68) THEN
153 WRITE(linout,'(A)') "ERROR PRINTOUT FORMAT"
154 RETURN
155 ENDIF
156
157 pos= 3+(68-arrlen)/2
158
159 DO i=1,arrlen
160 printout(pos+i-1)=array(i)
161 ENDDO
162
163 ELSEIF (flag==3) THEN
164C print left
165 pos = 4
166 DO i=1,arrlen
167 printout(pos+i-1)=array(i)
168 ENDDO
169
170
171 ENDIF
172
173 WRITE(linout,'(72A)') printout
174

◆ radioss_title()

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

Definition at line 30 of file radioss_title.F.

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