forked from vzhorin/Spectra
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfast.f90
executable file
·48 lines (38 loc) · 4.1 KB
/
fast.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
module fast
type blockJ
integer Jmin !minimum 2J-value for configuration
integer Jmax !maximum 2J-value
character *40 number !number of terms for each J(char3)
character*1200 list !list of LS-terms (char3)
end type blockJ
type (blockJ), dimension(7) :: blJ
data blJ(1).Jmin /5/
data blJ(1).Jmax /7/
data blJ(1).number /' 1 1'/
data blJ(1).list /'2F 2F '/
data blJ(2).Jmin /0/
data blJ(2).Jmax /12/
data blJ(2).number /' 2 1 3 1 3 1 2'/
data blJ(2).list /'3P 1S 3P 3P 3F 1D 3F 3F 3H 1G 3H 3H 1I '/
data blJ(3).Jmin /1/
data blJ(3).Jmax /17/
data blJ(3).number /' 2 6 7 7 7 5 3 3 1'/
data blJ(3).list /'4D 2P 4S 4D 4F 2P 2D12D24D 4F 4G 2D12D22F12F24D 4F 4G 2F12F22G12G24F 4G 4I 2G12G22H12H24G 4I 2H12H22I 4I 2I 2K 4I 2K 2L 2L '/
data blJ(4).Jmin /0/
data blJ(4).Jmax /20/
data blJ(4).number /' 6 7 17 13 19 14 13 7 7 2 2'/
data blJ(4).list /'5D 3P13P23P31S11S25D 5F 3P13P23P33D13D25S 5D 5F 5G 3P13P23P33D13D23F13F23F33F41D11D21D31D45D 5F 5G 3D13D23F13F23F33F43G13G23G31F 5D 5F 5G 5I 3F13F23F33F43G13G23G33H13H23H33H41G11G21G31G45F 5G 5I 3G13G23G33H13H23H33H43I13I21H11H25G 5I 3H13H23H33H43I13I23K13K21I11I21I35I 3I13I23K13K23L 1K 5I 3K13K23L 3M 1L11L23L 3M 3M 1N '/
data blJ(5).Jmin /1/
data blJ(5).Jmax /23/
data blJ(5).number /' 10 21 28 30 29 26 20 16 9 5 3 1'/
data blJ(5).list /'6F 4P14P24D14D24D32P12P22P32P46P 6F 4S 4P14P24D14D24D34F14F24F34F42P12P22P32P42D12D22D32D42D56P 6F 6H 4P14P24D14D24D34F14F24F34F44G14G24G34G42D12D22D32D42D52F12F22F32F42F52F62F76P 6F 6H 4D14D24D34F14F24F34F44G14G24G34G44H14H24H32F12F22F32F42F52F62F72G12G22G32G42G52G66F 6H 4F14F24F34F44G14G24G34G44H14H24H34I14I24I32G12G22G32G42G52G62H12H22H32H42H52H62H76F 6H 4G14G24G34G44H14H24H34I14I24I34K14K22H12H22H32H42H52H62H72I12I22I32I42I56H 4H14H24H34I14I24I34K14K24L 2I12I22I32I42I52K12K22K32K42K56H 4I14I24I34K14K24L 4M 2K12K22K32K42K52L12L22L34K14K24L 4M 2L12L22L32M12M24L 4M 2M12M22N 4M 2N 2O 2O '/
data blJ(6).Jmin /0/
data blJ(6).Jmax /24/
data blJ(6).number /' 14 19 37 37 46 37 38 24 20 11 8 2 2'/
data blJ(6).list /'7F 5D15D25D33P13P23P33P43P53P61S11S21S31S47F 5P 5D15D25D35F15F23P13P23P33P43P53P63D13D23D33D43D51P 7F 5S 5P 5D15D25D35F15F25G15G25G33P13P23P33P43P53P63D13D23D33D43D53F13F23F33F43F53F63F73F83F91D11D21D31D41D51D67F 5P 5D15D25D35F15F25G15G25G35H15H23D13D23D33D43D53F13F23F33F43F53F63F73F83F93G13G23G33G43G53G63G71F11F21F31F47F 5D15D25D35F15F25G15G25G35H15H25I15I23F13F23F33F43F53F63F73F83F93G13G23G33G43G53G63G73H13H23H33H43H53H63H73H83H91G11G21G31G41G51G61G71G87F 5F15F25G15G25G35H15H25I15I25K 3G13G23G33G43G53G63G73H13H23H33H43H53H63H73H83H93I13I23I33I43I53I61H11H21H31H47F 5G15G25G35H15H25I15I25K 5L 3H13H23H33H43H53H63H73H83H93I13I23I33I43I53I63K13K23K33K43K53K61I11I21I31I41I51I61I75H15H25I15I25K 5L 3I13I23I33I43I53I63K13K23K33K43K53K63L13L23L31K11K21K35I15I25K 5L 3K13K23K33K43K53K63L13L23L33M13M23M31L11L21L31L45K 5L 3L13L23L33M13M23M33N 1M11M25L 3M13M23M33N 3O 1N11N23N 3O 3O 1Q '/
data blJ(7).Jmin /1/
data blJ(7).Jmax /25/
data blJ(7).number /' 17 31 42 50 46 42 35 26 18 11 5 3 1'/
data blJ(7).list /'6D 6F 4P14P24D14D24D34D44D54D62S12S22P12P22P32P42P56P 6D 6F 6G 4S14S24P14P24D14D24D34D44D54D64F14F24F34F44F52P12P22P32P42P52D12D22D32D42D52D62D76P 6D 6F 6G 6H 4P14P24D14D24D34D44D54D64F14F24F34F44F54G14G24G34G44G54G64G72D12D22D32D42D52D62D72F12F22F32F42F52F62F72F82F92F08S 6P 6D 6F 6G 6H 6I 4D14D24D34D44D54D64F14F24F34F44F54G14G24G34G44G54G64G74H14H24H34H44H52F12F22F32F42F52F62F72F82F92F02G12G22G32G42G52G62G72G82G92G06D 6F 6G 6H 6I 4F14F24F34F44F54G14G24G34G44G54G64G74H14H24H34H44H54I14I24I34I44I52G12G22G32G42G52G62G72G82G92G02H12H22H32H42H52H62H72H82H96F 6G 6H 6I 4G14G24G34G44G54G64G74H14H24H34H44H54I14I24I34I44I54K14K24K32H12H22H32H42H52H62H72H82H92I12I22I32I42I52I62I72I82I96G 6H 6I 4H14H24H34H44H54I14I24I34I44I54K14K24K34L14L24L32I12I22I32I42I52I62I72I82I92K12K22K32K42K52K62K76H 6I 4I14I24I34I44I54K14K24K34L14L24L34M 2K12K22K32K42K52K62K72L12L22L32L42L56I 4K14K24K34L14L24L34M 4N 2L12L22L32L42L52M12M22M32M44L14L24L34M 4N 2M12M22M32M42N12N24M 4N 2N12N22O 4N 2O 2Q 2Q '/
real, allocatable,save :: fmat(:,:)
end module fast