52 lines
1.7 KiB
Fortran
52 lines
1.7 KiB
Fortran
!
|
|
!=======================================================================
|
|
!
|
|
MODULE PRINT_ASYMPTOTIC
|
|
!
|
|
USE ACCURACY_REAL
|
|
!
|
|
CONTAINS
|
|
!
|
|
!=======================================================================
|
|
!
|
|
SUBROUTINE PRINT_ASYMPT_VALUES
|
|
!
|
|
! This subroutine prints the asymptotic values gamma_0, gamma_inf
|
|
! and g(0) in the log file
|
|
!
|
|
!
|
|
! Author : D. Sébilleau
|
|
!
|
|
! Last modified : 3 Dec 2020
|
|
!
|
|
!
|
|
USE ASYMPT
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
INTEGER :: LOGF
|
|
!
|
|
LOGF = 6 ! log file unit
|
|
!
|
|
WRITE(LOGF,10) !
|
|
WRITE(LOGF,30) !
|
|
WRITE(LOGF,20) !
|
|
WRITE(LOGF,40) G0 !
|
|
WRITE(LOGF,50) GI !
|
|
WRITE(LOGF,60) GR0 !
|
|
WRITE(LOGF,70) !
|
|
!
|
|
! Formats
|
|
!
|
|
10 FORMAT(6X,'_________________________________________________________')
|
|
20 FORMAT(5X,'| |')
|
|
30 FORMAT(5X,'| Asymptotic values : |')
|
|
40 FORMAT(5X,'|',5X,'gamma_0 : ',F8.3,15X,' |')
|
|
50 FORMAT(5X,'|',5X,'gamma_i : ',F8.3,15X,' |')
|
|
60 FORMAT(5X,'|',5X,'g(0) : ',F8.3,15X,' |')
|
|
70 FORMAT(5X,'|_________________________________________________________|',/)
|
|
!
|
|
END SUBROUTINE PRINT_ASYMPT_VALUES
|
|
!
|
|
END MODULE PRINT_ASYMPTOTIC
|