radioss_title.F

Go to the documentation of this file.

Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
!||====================================================================
!||    radioss_title    ../starter/source/starter/radioss_title.F
!||--- called by ------------------------------------------------------
!||    checksum_check   ../starter/source/output/checksum/checksum_check.F90
!||    starter0         ../starter/source/starter/starter0.F
!||--- calls      -----------------------------------------------------
!||    printcenter      ../starter/source/starter/radioss_title.F
!||====================================================================
      SUBROUTINE radioss_title(IOUT,CPUNAM,ARCHTITLE,
     *             FILNAM,ROOTLEN,CHRUN,IRESP,IFLAG)
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)') ' ' 
 
      END
 
 
!||====================================================================
!||    printcenter     ../starter/source/starter/radioss_title.F
!||--- called by ------------------------------------------------------
!||    r2r_group       ../starter/source/coupling/rad2rad/r2r_group.F
!||    radioss_title   ../starter/source/starter/radioss_title.F
!||    starter0        ../starter/source/starter/starter0.f
!||====================================================================
      SUBROUTINE printcenter(ARRAY,ARRLEN,LINOUT,FLAG)
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
 
      END