| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | module athena__io_utils | ||
| 2 | !! Module for handling errors and io calls in the program. | ||
| 3 | !! | ||
| 4 | !! This module provides the expected procedure for stopping a program. | ||
| 5 | implicit none | ||
| 6 | |||
| 7 | character(len=*), parameter :: athena__version__ = "2.0.0" | ||
| 8 | |||
| 9 | private | ||
| 10 | |||
| 11 | public :: athena__version__ | ||
| 12 | public :: print_version, print_build_info | ||
| 13 | |||
| 14 | |||
| 15 | contains | ||
| 16 | |||
| 17 | !############################################################################### | ||
| 18 | − | subroutine print_version() | |
| 19 | !! Print the version number of the program. | ||
| 20 | implicit none | ||
| 21 | |||
| 22 | − | write(*,'("version: ",A)') athena__version__ | |
| 23 | − | end subroutine print_version | |
| 24 | !############################################################################### | ||
| 25 | |||
| 26 | |||
| 27 | !############################################################################### | ||
| 28 | − | subroutine print_build_info() | |
| 29 | !! Print the build information of the program. | ||
| 30 | implicit none | ||
| 31 | |||
| 32 | write(*,'("ATHENA: & | ||
| 33 | − | &Adaptive Training for High Efficiency Neural network Applications")') | |
| 34 | − | write(*,'(" version: ",A)') athena__version__ | |
| 35 | − | write(*,'(" (build ",A,1X,A,")")') __DATE__, __TIME__ | |
| 36 | |||
| 37 | − | end subroutine print_build_info | |
| 38 | !############################################################################### | ||
| 39 | |||
| 40 | end module athena__io_utils | ||
| 41 |