Chimie Théorique » OpenPath

       subroutine Header(String)

! This short subroutine print a header in a nice way

         IMPLICIT NONE

         CHARACTER(*) :: String

         CHARACTER(70) :: Head1,Sep

         INTEGER, PARAMETER :: I=70

         INTEGER :: LenS,Len1,Pos1

         Head1="====================================================================="

           Sep="                                                                     "

         LenS=len(String)

 !        WRITE(*,*) "DBG Head:",LenS, String

         Pos1=34-Int(LenS/2)

         Len1=67-LenS-Pos1

         WRITe(*,'(A)') Head1

         WRITE(*,'(A)') "=" // Sep(1:Pos1) // String(1:LenS) // Sep(1:Len1) // "="

         WRITe(*,'(A)') Head1

       END subroutine Header