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.

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 cararct  res
         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	filnam,
		integer	rootlen,
		character	chrun,
		integer	iresp,
		integer	iflag )

Definition at line 30 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 CPUNAM*20,FILNAM*100,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,LENBT,LENCPUNAM,LENARCHTIT,LBT
      CHARACTER RADVERS*68,COPYRIGHTLINE*68,
     *          ARCH_TIT*66
C-----------------------------------------------
       lenarchtit=len_trim(archtitle)
       arch_tit(1:66)=''
       arch_tit(1:lenarchtit)=archtitle(1:lenarchtit)
 
       len=len_trim(vers)
       lbt=len_trim(btag)
      
       IF( got_inspire_alm == 1)THEN
          WRITE(radvers,'(A,A)') 'Altair Solver ',vers
          len = len + 14
       ELSE
          WRITE(radvers,'(A)') 'OpenRadioss Engine'
          len = len_trim(radvers)
       ENDIF
 
       lenbt = len_trim(btag)
       lencpunam=len_trim(cpunam)
       lenarchtit=len_trim(arch_tit)
       
       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(ARCH_TIT,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,LENBT,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)') ' ' 
       IF (IFLAG==1)
     *    WRITE(IOUT,'(A,A,A,A)') ' ROOT: ',FILNAM(1:ROOTLEN),
     *          '  RESTART: ',CHRUN