root / src / Header.f90 @ 1
Historique | Voir | Annoter | Télécharger (728 octet)
| 1 | 1 | equemene | subroutine Header(String) |
|---|---|---|---|
| 2 | 1 | equemene | ! This short subroutine print a header in a nice way |
| 3 | 1 | equemene | |
| 4 | 1 | equemene | IMPLICIT NONE |
| 5 | 1 | equemene | |
| 6 | 1 | equemene | CHARACTER(*) :: String |
| 7 | 1 | equemene | CHARACTER(70) :: Head1,Sep |
| 8 | 1 | equemene | INTEGER, PARAMETER :: I=70 |
| 9 | 1 | equemene | INTEGER :: LenS,Len1,Pos1 |
| 10 | 1 | equemene | |
| 11 | 1 | equemene | Head1="=====================================================================" |
| 12 | 1 | equemene | Sep=" " |
| 13 | 1 | equemene | |
| 14 | 1 | equemene | LenS=len(String) |
| 15 | 1 | equemene | ! WRITE(*,*) "DBG Head:",LenS, String |
| 16 | 1 | equemene | Pos1=34-Int(LenS/2) |
| 17 | 1 | equemene | Len1=67-LenS-Pos1 |
| 18 | 1 | equemene | |
| 19 | 1 | equemene | WRITe(*,'(A)') Head1 |
| 20 | 1 | equemene | WRITE(*,'(A)') "=" // Sep(1:Pos1) // String(1:LenS) // Sep(1:Len1) // "=" |
| 21 | 1 | equemene | WRITe(*,'(A)') Head1 |
| 22 | 1 | equemene | |
| 23 | 1 | equemene | END subroutine Header |