-
Notifications
You must be signed in to change notification settings - Fork 0
/
versions.f90
38 lines (38 loc) · 1.12 KB
/
versions.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
!
! Report versions of all modules in this build
!
subroutine versions
use accuracy
use block_determinant
use block_diag
use block_matrices
use constants
use gamess_internal
use import_gamess
use lapack
use math
use os_integral_operators
use printing
use sd_core
use sort_tools
use superdyson
use timer
use tr_1rdm
!
write (out,"(t5,a)") trim(rcsid_accuracy)
write (out,"(t5,a)") trim(rcsid_block_determinant)
write (out,"(t5,a)") trim(rcsid_block_diag)
write (out,"(t5,a)") trim(rcsid_block_matrices)
write (out,"(t5,a)") trim(rcsid_constants)
write (out,"(t5,a)") trim(rcsid_gamess_internal)
write (out,"(t5,a)") trim(rcsid_import_gamess)
write (out,"(t5,a)") trim(rcsid_lapack)
write (out,"(t5,a)") trim(rcsid_math)
write (out,"(t5,a)") trim(rcsid_os_integral_operators)
write (out,"(t5,a)") trim(rcsid_printing)
write (out,"(t5,a)") trim(rcsid_sd_core)
write (out,"(t5,a)") trim(rcsid_sort_tools)
write (out,"(t5,a)") trim(rcsid_superdyson)
write (out,"(t5,a)") trim(rcsid_timer)
write (out,"(t5,a)") trim(rcsid_tr_1rdm)
end subroutine versions