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.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ARRLEN, LINOUT,FLAG
      CHARACTER ARRAY(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
       CHARACTER PRINTOUT(72)
       INTEGER POS,I
C-----------------------------------------------
C Initialisation
       printout=' ' 
       printout(1)='*'
       printout(2)='*'
       printout(71)='*'
       printout(72)='*'
 
C Flag = 0 ligne blanche
 
       IF (flag==1)THEN
C Flag = 1 que des * dans la ligne
         printout(1:72)='*'
 
 
       ELSEIF (flag==2) THEN
C du texte center
 
C Test si sortie n'excede pas 68 cararcteres
         IF (arrlen>68) THEN
           WRITE(linout,'(A)') "ERROR PRINTOUT FORMAT"
           RETURN
         ENDIF
 
         pos= 3+(68-arrlen)/2
 
         DO i=1,arrlen
           printout(pos+i-1)=array(i)
          ENDDO
 
       ELSEIF (flag==3) THEN
C print left
         pos = 4
         DO i=1,arrlen
           printout(pos+i-1)=array(i)
          ENDDO
 
 
       ENDIF
 
       WRITE(linout,'(72A)') printout
 

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.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "build_info.inc"
#include      "commandline.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IOUT,ROOTLEN,IRESP,IFLAG
      CHARACTER(LEN=2148) :: FILNAM
      CHARACTER CPUNAM*20,CHRUN*4,ARCHTITLE*66
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER LEN,LEN_RAD,LENCPUNAM,LENARCHTIT,CT,RESC,LBT
      CHARACTER RADVERS*68,COPYRIGHTLINE*68
C-----------------------------------------------
       len=len_trim(vers)
 
       IF( got_inspire_alm == 1)THEN
         WRITE(radvers,'(A,A)') 'Altair Solver ',vers
         len = len + 15
       ELSE
         WRITE(radvers,'(A)') 'OpenRadioss Starter'
         len = len_trim(radvers)
       ENDIF
 
       lbt=len_trim(btag)
       lencpunam=len_trim(cpunam)
       lenarchtit=len_trim(archtitle)
       yearstring(1:4)=bdate(8:11)    
       WRITE(copyrightline,'(A,A,A)') 'COPYRIGHT (C) 1986-'//yearstring(1:4)//' Altair Engineering, Inc.'
 
       CALL printcenter(" ",0,iout,1)
       CALL printcenter(" ",0,iout,0)
       CALL printcenter(" ",0,iout,0)
       CALL printcenter(radvers,len,iout,2)
       CALL printcenter(" ",0,iout,0)
       CALL printcenter("Non-linear Finite Element Analysis Software",
     .                   43,iout,2)
       CALL printcenter(" ",0,iout,0)
       CALL printcenter(" ",0,iout,0)
       CALL printcenter(" ",0,iout,0)
       CALL printcenter(archtitle,lenarchtit,iout,2)
       IF (iresp == 1) THEN
         CALL printcenter("Extended Single Precision Version",33,iout,2)
       ELSE
         CALL printcenter("Double Precision Version",24,iout,2)
       ENDIF
        IF (pmsg ==1)THEN
         CALL printcenter(msgo,len_msg,iout,2)
       ELSE
         CALL printcenter(" ",0,iout,0)
       ENDIF
       CALL printcenter(" ",0,iout,0)
       CALL printcenter(btag,lbt,iout,3)
       CALL printcenter(" ",0,iout,1)
       CALL printcenter("OpenRadioss Software",20,iout,3)
       CALL printcenter(copyrightline,64,iout,3)
       CALL printcenter("Licensed under GNU Affero General Public License.",49,iout,3)
       CALL printcenter("See License file.",17,iout,3)
       CALL printcenter(" ",0,iout,1)
       WRITE(iout,'(A)') ' '