-
Notifications
You must be signed in to change notification settings - Fork 1
/
Coupling_data.f90
executable file
·134 lines (134 loc) · 6.35 KB
/
Coupling_data.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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
!
!***********************************************************************
! *
module Coupling_data
! *
! Written by G. Gaigalas, *
! *
! *
! NIST last update: Oct 2015 *
! *
!***********************************************************************
!-----------------------------------------------
! M o d u l e s
!-----------------------------------------------
use Coupling_constants
use Coupling_structures
!-----------------------------------------------
! G l o b a l V a r i a b l e s
!-----------------------------------------------
public :: fill_up_coupling_descriptions
integer, parameter, public :: NR_OF_AVIALABLE_COUPLINGS = 13
! coupling_descriptions
type(coupling_description), dimension(NR_OF_AVIALABLE_COUPLINGS) &
:: coupling_descriptions
! all the states under consideration
type(set_of_states)::states
! all the expansions under consideration
type(set_of_set_of_coupling_expansions) ::all_expansions
! all the classification data under consideration
type(couplings_classification_data) :: all_classifications
! all the classifications evaluation data under consideration
type(couplings_evaluation_data) :: all_evaluations
!-----------------------------------------------
!
contains
!
!***********************************************************************
! *
subroutine fill_up_coupling_descriptions
! *
! This subroutine fills the array coupling_descriptions *
! (the array is used for printing - short and long names *
! of the couplings) *
! *
! 1 - LS coupling *
! 2 - JJ coupling *
! 3 - LK coupling *
! 4 - JK coupling *
! 5 - LS3 coupling *
! 6 - LSJ3 coupling *
! 7 - LK3 coupling *
! 8 - JK3 coupling *
! 9 - cLSJ3 coupling *
! 10 - LScjj coupling *
! 11 - jj1 coupling *
! 12 - jj2 coupling *
! 13 - jj3 coupling *
! *
!***********************************************************************
!
coupling_descriptions(1)%short_name='LS'
coupling_descriptions(1)%long_name ='LS coupling'
coupling_descriptions(1)%iM1_name ='L_i'
coupling_descriptions(1)%iM2_name ='S_i'
!
coupling_descriptions(2)%short_name='JJ'
coupling_descriptions(2)%long_name ='JJ coupling'
coupling_descriptions(2)%iM1_name ='Ji'
coupling_descriptions(2)%iM2_name ='J_i'
!
coupling_descriptions(3)%short_name='LK'
coupling_descriptions(3)%long_name ='LK coupling'
coupling_descriptions(3)%iM1_name ='iM1'
coupling_descriptions(3)%iM2_name ='iM2'
!
coupling_descriptions(4)%short_name='JK'
coupling_descriptions(4)%long_name ='JK coupling'
coupling_descriptions(4)%iM1_name ='iM1'
coupling_descriptions(4)%iM2_name ='iM2'
!
coupling_descriptions(5)%short_name='LS3'
coupling_descriptions(5)%long_name ='LS3 coupling'
coupling_descriptions(5)%iM1_name ='L_i'
coupling_descriptions(5)%iM2_name ='S_i'
!
coupling_descriptions(6)%short_name='LSJ3'
coupling_descriptions(6)%long_name ='LSJ3 coupling'
coupling_descriptions(6)%iM1_name ='L_i'
coupling_descriptions(6)%iM2_name ='S_i'
coupling_descriptions(6)%iJ_name ='J_i'
!
coupling_descriptions(7)%short_name='LK3'
coupling_descriptions(7)%long_name ='LK3 coupling'
coupling_descriptions(7)%iM1_name ='iM1'
coupling_descriptions(7)%iM2_name ='iM2'
!
coupling_descriptions(8)%short_name='JK3'
coupling_descriptions(8)%long_name ='JK3 coupling'
coupling_descriptions(8)%iM1_name ='iM1'
coupling_descriptions(8)%iM2_name ='iM2'
coupling_descriptions(8)%iJ_name ='J_i'
!
coupling_descriptions(9)%short_name='cLSJ3'
coupling_descriptions(9)%long_name ='cLSJ3 coupling'
coupling_descriptions(9)%iM1_name ='L_i'
coupling_descriptions(9)%iM2_name ='S_i'
coupling_descriptions(9)%iJ_name ='J_i'
!
coupling_descriptions(10)%short_name='LScjj'
coupling_descriptions(10)%long_name ='LScjj coupling'
coupling_descriptions(10)%iM1_name ='L_i'
coupling_descriptions(10)%iM2_name ='S_i'
coupling_descriptions(10)%iJ_name ='J_i'
!
coupling_descriptions(11)%short_name='jj1'
coupling_descriptions(11)%long_name ='jj1 coupling'
coupling_descriptions(11)%iM1_name ='L_i'
coupling_descriptions(11)%iM2_name ='S_i'
coupling_descriptions(11)%iJ_name ='J_i'
!
coupling_descriptions(12)%short_name='jj2'
coupling_descriptions(12)%long_name ='jj2 coupling'
coupling_descriptions(12)%iM1_name ='L_1'
coupling_descriptions(12)%iM2_name ='S_1'
coupling_descriptions(12)%iJ_name ='J_i'
!
coupling_descriptions(13)%short_name='jj3'
coupling_descriptions(13)%long_name ='jj3 coupling'
coupling_descriptions(13)%iM1_name ='L_i'
coupling_descriptions(13)%iM2_name ='S_i'
coupling_descriptions(13)%iJ_name ='J_i'
end subroutine fill_up_coupling_descriptions
!
end module Coupling_data