mod_version_info Module
- People who wrote it
-
- 48 statements
- Source File
Wrapper module for the generation of version and serial headers. It helps to track what data was generated with which version of the code.
Note
This module can be exported to the other KKR codes, to use them one just needs to comment out the correct pre-compilation flag defined as the begining of the file.
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=5), | private, | parameter | :: | codename | = | 'JuKKR' | |
| character(len=:), | public, | allocatable | :: | serialnr |
Subroutines
public subroutine construct_serialnr()
- License
- Category
- input-output, sanity-check, version-control ,KKRhost
Take information from version file and create serial number with time stamp
Arguments
Nonepublic subroutine version_print_header(unit, addition, disable_print)
- License
- Category
- input-output, sanity-check, version-control, KKRhost
This is called after an open statement of a file that is written, prints header line
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | unit | |||
| character(len=*), | intent(in), | optional | :: | addition | ||
| logical, | intent(in), | optional | :: | disable_print |
public subroutine version_check_header(unit)
- License
- Category
- input-output, sanity-check, version-control, KKRhost
Checks if a header with serial-number is in the first line
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | unit |