-
Notifications
You must be signed in to change notification settings - Fork 1
/
jj2lsj_data_1_C.f90
executable file
·6009 lines (6009 loc) · 408 KB
/
jj2lsj_data_1_C.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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
!
!***********************************************************************
! *
MODULE jj2lsj_data_1_C
! *
! Set-up the LS-jj transformation coefficients *
! * for p^N shell, N = 3, 4, 5, 6 *
! * for d^N shell, N = 3, 4, 5, 6, 7, 8, 9, 10 *
! * for f^N shell, N = 3, 4, 5 *
! *
! Written by G. Gaigalas, *
! NIST last update: May 2011 *
! *
!***********************************************************************
!-----------------------------------------------
! M o d u l e s
!-----------------------------------------------
USE Coupling_structures
!-----------------------------------------------
!
! w,2Q,2L,2S,2J, Nm,2Qm,2Jm,2Qp,2Jp,fac,nom,denom
! p^3 shell
type(LS_jj_me), dimension(1:10), parameter :: &
LS_jj_p_3 = (/ &
LS_jj_me(0, 2, 2, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1), &
LS_jj_me(0, 0, 0, 3, 3, 0, 1, 0, 1, 3,-1, 2, 9), &
LS_jj_me(0, 0, 0, 3, 3, 1, 0, 1, 0, 4, 1, 5, 9), &
LS_jj_me(0, 0, 0, 3, 3, 2, 1, 0, 1, 3, 1, 2, 9), &
LS_jj_me(0, 2, 2, 1, 3, 0, 1, 0, 1, 3, 1, 1, 2), &
LS_jj_me(0, 2, 2, 1, 3, 2, 1, 0, 1, 3, 1, 1, 2), &
LS_jj_me(0, 0, 4, 1, 3, 0, 1, 0, 1, 3, 1, 5,18), &
LS_jj_me(0, 0, 4, 1, 3, 1, 0, 1, 0, 4, 1, 4, 9), &
LS_jj_me(0, 0, 4, 1, 3, 2, 1, 0, 1, 3,-1, 5,18), &
LS_jj_me(0, 0, 4, 1, 5, 1, 0, 1, 0, 4, 1, 1, 1) /)
!
! p^4 shell
type(LS_jj_me), dimension(1:9), parameter :: &
LS_jj_p_4 = (/ &
LS_jj_me(0, 3, 0, 0, 0, 0, 1, 0, 2, 0, 1, 1, 3), &
LS_jj_me(0, 3, 0, 0, 0, 2, 1, 0, 2, 0, 1, 2, 3), &
LS_jj_me(0, 1, 2, 2, 0, 0, 1, 0, 2, 0,-1, 2, 3), &
LS_jj_me(0, 1, 2, 2, 0, 2, 1, 0, 2, 0, 1, 1, 3), &
LS_jj_me(0, 1, 2, 2, 2, 1, 0, 1, 1, 3, 1, 1, 1), &
LS_jj_me(0, 1, 2, 2, 4, 1, 0, 1, 1, 3, 1, 1, 3), &
LS_jj_me(0, 1, 2, 2, 4, 2, 1, 0, 0, 4, 1, 2, 3), &
LS_jj_me(0, 1, 4, 0, 4, 1, 0, 1, 1, 3,-1, 2, 3), &
LS_jj_me(0, 1, 4, 0, 4, 2, 1, 0, 0, 4, 1, 1, 3) /)
!
! p^5 shell
type(LS_jj_me), dimension(1:2), parameter :: &
LS_jj_p_5 = (/ &
LS_jj_me(0, 2, 2, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1), &
LS_jj_me(0, 2, 2, 1, 3, 2, 1, 0, 1, 3, 1, 1, 1) /)
!
! p^6 shell
type(LS_jj_me), dimension(1:1), parameter :: &
LS_jj_p_6 = (/ &
LS_jj_me(0, 3, 0, 0, 0, 2, 1, 0, 2, 0, 1, 1, 1) /)
!
! d^3 shell
type(LS_jj_me), dimension(1:65), parameter :: &
LS_jj_d_3 = (/ &
LS_jj_me(0, 2, 2, 3, 1, 1, 1, 3, 1, 4,-1, 7, 15), &
LS_jj_me(0, 2, 2, 3, 1, 2, 0, 4, 2, 5,-1, 8, 15), &
LS_jj_me(0, 2, 2, 1, 1, 1, 1, 3, 1, 4,-1, 8, 15), &
LS_jj_me(0, 2, 2, 1, 1, 2, 0, 4, 2, 5, 1, 7, 15), &
LS_jj_me(0, 2, 2, 3, 3, 0, 2, 0, 0, 3,-1, 21,125), &
LS_jj_me(0, 2, 2, 3, 3, 1, 1, 3, 3, 0, 1, 8,375), &
LS_jj_me(0, 2, 2, 3, 3, 1, 1, 3, 1, 4,-1, 28, 75), &
LS_jj_me(0, 2, 2, 3, 3, 2, 0, 4, 2, 5,-1, 28, 75), &
LS_jj_me(0, 2, 2, 3, 3, 3, 1, 3, 3, 0,-1, 8,125), &
LS_jj_me(0, 2, 2, 1, 3, 0, 2, 0, 0, 3,-1, 12, 25), &
LS_jj_me(0, 2, 2, 1, 3, 1, 1, 3, 3, 0,-1, 7,150), &
LS_jj_me(0, 2, 2, 1, 3, 1, 1, 3, 1, 4,-1, 1, 15), &
LS_jj_me(0, 2, 2, 1, 3, 2, 0, 4, 2, 5, 1, 4, 15), &
LS_jj_me(0, 2, 2, 1, 3, 3, 1, 3, 3, 0, 1, 7, 50), &
LS_jj_me(0, 4, 4, 1, 3, 1, 1, 3, 3, 0, 1, 3, 4), &
LS_jj_me(0, 4, 4, 1, 3, 3, 1, 3, 3, 0, 1, 1, 4), &
LS_jj_me(0, 2, 4, 1, 3, 0, 2, 0, 0, 3,-1, 8, 25), &
LS_jj_me(0, 2, 4, 1, 3, 1, 1, 3, 3, 0, 1, 7,100), &
LS_jj_me(0, 2, 4, 1, 3, 1, 1, 3, 1, 4, 1, 2, 5), &
LS_jj_me(0, 2, 4, 1, 3, 3, 1, 3, 3, 0,-1, 21,100), &
LS_jj_me(0, 2, 6, 3, 3, 0, 2, 0, 0, 3, 1, 4,125), &
LS_jj_me(0, 2, 6, 3, 3, 1, 1, 3, 3, 0, 1, 14,125), &
LS_jj_me(0, 2, 6, 3, 3, 1, 1, 3, 1, 4,-1, 4, 25), &
LS_jj_me(0, 2, 6, 3, 3, 2, 0, 4, 2, 5, 1, 9, 25), &
LS_jj_me(0, 2, 6, 3, 3, 3, 1, 3, 3, 0,-1, 42,125), &
LS_jj_me(0, 2, 2, 3, 5, 0, 2, 0, 2, 5, 1, 24,125), &
LS_jj_me(0, 2, 2, 3, 5, 1, 1, 3, 1, 4,-1, 1, 25), &
LS_jj_me(0, 2, 2, 3, 5, 1, 1, 3, 1, 8,-1, 72,125), &
LS_jj_me(0, 2, 2, 3, 5, 2, 2, 0, 2, 5,-1, 24,125), &
LS_jj_me(0, 4, 4, 1, 5, 0, 2, 0, 2, 5, 1, 1, 2), &
LS_jj_me(0, 4, 4, 1, 5, 2, 2, 0, 2, 5, 1, 1, 2), &
LS_jj_me(0, 2, 4, 1, 5, 0, 2, 0, 2, 5,-1, 7,150), &
LS_jj_me(0, 2, 4, 1, 5, 1, 1, 3, 1, 4, 1, 16, 35), &
LS_jj_me(0, 2, 4, 1, 5, 1, 1, 3, 1, 8,-1, 32,175), &
LS_jj_me(0, 2, 4, 1, 5, 2, 2, 0, 2, 5, 1, 7,150), &
LS_jj_me(0, 2, 4, 1, 5, 2, 0, 4, 2, 5, 1, 4, 15), &
LS_jj_me(0, 2, 6, 3, 5, 0, 2, 0, 2, 5, 1, 28,375), &
LS_jj_me(0, 2, 6, 3, 5, 1, 1, 3, 1, 4,-1, 8,175), &
LS_jj_me(0, 2, 6, 3, 5, 1, 1, 3, 1, 8, 1,121,875), &
LS_jj_me(0, 2, 6, 3, 5, 2, 2, 0, 2, 5,-1, 28,375), &
LS_jj_me(0, 2, 6, 3, 5, 2, 0, 4, 2, 5, 1, 2, 3), &
LS_jj_me(0, 2, 6, 1, 5, 0, 2, 0, 2, 5, 1, 14, 75), &
LS_jj_me(0, 2, 6, 1, 5, 1, 1, 3, 1, 4, 1, 16, 35), &
LS_jj_me(0, 2, 6, 1, 5, 1, 1, 3, 1, 8, 1, 18,175), &
LS_jj_me(0, 2, 6, 1, 5, 2, 2, 0, 2, 5,-1, 14, 75), &
LS_jj_me(0, 2, 6, 1, 5, 2, 0, 4, 2, 5,-1, 1, 15), &
LS_jj_me(0, 2, 6, 3, 7, 1, 1, 3, 1, 4,-1, 3, 35), &
LS_jj_me(0, 2, 6, 3, 7, 1, 1, 3, 1, 8, 1, 5, 7), &
LS_jj_me(0, 2, 6, 3, 7, 2, 0, 4, 2, 5, 1, 1, 5), &
LS_jj_me(0, 2, 6, 1, 7, 1, 1, 3, 1, 4, 1,121,280), &
LS_jj_me(0, 2, 6, 1, 7, 1, 1, 3, 1, 8, 1, 15, 56), &
LS_jj_me(0, 2, 6, 1, 7, 2, 0, 4, 2, 5,-1, 3, 10), &
LS_jj_me(0, 2, 8, 1, 7, 1, 1, 3, 1, 4,-1, 27, 56), &
LS_jj_me(0, 2, 8, 1, 7, 1, 1, 3, 1, 8, 1, 1, 56), &
LS_jj_me(0, 2, 8, 1, 7, 2, 0, 4, 2, 5,-1, 1, 2), &
LS_jj_me(0, 2, 6, 3, 9, 0, 2, 0, 0, 9,-1, 12, 25), &
LS_jj_me(0, 2, 6, 3, 9, 1, 1, 3, 1, 8, 1, 11, 25), &
LS_jj_me(0, 2, 6, 3, 9, 2, 0, 4, 2, 5, 1, 2, 25), &
LS_jj_me(0, 2, 8, 1, 9, 0, 2, 0, 0, 9,-1, 54,125), &
LS_jj_me(0, 2, 8, 1, 9, 1, 1, 3, 1, 8,-1, 22,125), &
LS_jj_me(0, 2, 8, 1, 9, 2, 0, 4, 2, 5,-1, 49,125), &
LS_jj_me(0, 2,10, 1, 9, 0, 2, 0, 0, 9,-1, 11,125), &
LS_jj_me(0, 2,10, 1, 9, 1, 1, 3, 1, 8,-1, 48,125), &
LS_jj_me(0, 2,10, 1, 9, 2, 0, 4, 2, 5, 1, 66,125), &
LS_jj_me(0, 2,10, 1,11, 1, 1, 3, 1, 8,-1, 1, 1) /)
!
! d^4 shell
type(LS_jj_me), dimension(1:166), parameter :: &
LS_jj_d_4 = (/ &
LS_jj_me(0, 5, 0, 0, 0, 0, 2, 0, 3, 0, 1, 3, 10), &
LS_jj_me(0, 5, 0, 0, 0, 2, 2, 0, 3, 0, 1, 3, 5), &
LS_jj_me(0, 5, 0, 0, 0, 4, 2, 0, 3, 0, 1, 1, 10), &
LS_jj_me(0, 1, 0, 0, 0, 0, 2, 0, 3, 0,-1, 7, 250), &
LS_jj_me(0, 1, 0, 0, 0, 1, 1, 3, 0, 3,-1, 64, 125), &
LS_jj_me(0, 1, 0, 0, 0, 2, 2, 0, 3, 0, 1, 7, 125), &
LS_jj_me(0, 1, 0, 0, 0, 2, 0, 4, 1, 4, 1, 8, 25), &
LS_jj_me(0, 1, 0, 0, 0, 4, 2, 0, 3, 0,-1, 21, 250), &
LS_jj_me(0, 3, 2, 2, 0, 0, 2, 0, 3, 0,-1, 8, 15), &
LS_jj_me(0, 3, 2, 2, 0, 2, 2, 0, 3, 0, 1, 1, 15), &
LS_jj_me(0, 3, 2, 2, 0, 4, 2, 0, 3, 0, 1, 2, 5), &
LS_jj_me(0, 1, 2, 2, 0, 0, 2, 0, 3, 0,-1, 28, 375), &
LS_jj_me(0, 1, 2, 2, 0, 1, 1, 3, 0, 3, 1, 54, 125), &
LS_jj_me(0, 1, 2, 2, 0, 2, 2, 0, 3, 0, 1, 56, 375), &
LS_jj_me(0, 1, 2, 2, 0, 2, 0, 4, 1, 4, 1, 3, 25), &
LS_jj_me(0, 1, 2, 2, 0, 4, 2, 0, 3, 0,-1, 28, 125), &
LS_jj_me(0, 1, 4, 4, 0, 0, 2, 0, 3, 0,-1, 8, 125), &
LS_jj_me(0, 1, 4, 4, 0, 1, 1, 3, 0, 3,-1, 7, 125), &
LS_jj_me(0, 1, 4, 4, 0, 2, 2, 0, 3, 0, 1, 16, 125), &
LS_jj_me(0, 1, 4, 4, 0, 2, 0, 4, 1, 4,-1, 14, 25), &
LS_jj_me(0, 1, 4, 4, 0, 4, 2, 0, 3, 0,-1, 24, 125), &
LS_jj_me(0, 3, 2, 2, 2, 1, 1, 3, 2, 5, 1, 2, 3), &
LS_jj_me(0, 3, 2, 2, 2, 3, 1, 3, 2, 5, 1, 1, 3), &
LS_jj_me(0, 1, 2, 2, 2, 1, 1, 3, 2, 5, 1, 7, 75), &
LS_jj_me(0, 1, 2, 2, 2, 1, 1, 3, 0, 3, 1, 9, 25), &
LS_jj_me(0, 1, 2, 2, 2, 2, 0, 4, 1, 4, 1, 9, 25), &
LS_jj_me(0, 1, 2, 2, 2, 3, 1, 3, 2, 5,-1, 14, 75), &
LS_jj_me(0, 1, 4, 4, 2, 1, 1, 3, 2, 5, 1, 6, 25), &
LS_jj_me(0, 1, 4, 4, 2, 1, 1, 3, 0, 3,-1, 7, 50), &
LS_jj_me(0, 1, 4, 4, 2, 2, 0, 4, 1, 4,-1, 7, 50), &
LS_jj_me(0, 1, 4, 4, 2, 3, 1, 3, 2, 5,-1, 12, 25), &
LS_jj_me(0, 1, 4, 2, 2, 1, 1, 3, 0, 3, 1, 1, 2), &
LS_jj_me(0, 1, 4, 2, 2, 2, 0, 4, 1, 4,-1, 1, 2), &
LS_jj_me(0, 3, 2, 2, 4, 0, 2, 0, 1, 4, 1, 56, 375), &
LS_jj_me(0, 3, 2, 2, 4, 1, 1, 3, 2, 5, 1, 42, 125), &
LS_jj_me(0, 3, 2, 2, 4, 2, 2, 0, 1, 4, 1,112, 375), &
LS_jj_me(0, 3, 2, 2, 4, 2, 0, 4, 3, 0,-1, 6, 125), &
LS_jj_me(0, 3, 2, 2, 4, 3, 1, 3, 2, 5, 1, 21, 125), &
LS_jj_me(0, 1, 2, 2, 4, 0, 2, 0, 1, 4,-1, 64, 375), &
LS_jj_me(0, 1, 2, 2, 4, 1, 1, 3, 2, 5,-1, 3, 125), &
LS_jj_me(0, 1, 2, 2, 4, 1, 1, 3, 0, 3, 1, 27, 125), &
LS_jj_me(0, 1, 2, 2, 4, 2, 2, 0, 1, 4, 1, 32, 375), &
LS_jj_me(0, 1, 2, 2, 4, 2, 0, 4, 1, 4, 1, 3, 35), &
LS_jj_me(0, 1, 2, 2, 4, 2, 0, 4, 1, 8, 1,324, 875), &
LS_jj_me(0, 1, 2, 2, 4, 3, 1, 3, 2, 5, 1, 6, 125), &
LS_jj_me(0, 1, 4, 4, 4, 0, 2, 0, 1, 4, 1, 2, 25), &
LS_jj_me(0, 1, 4, 4, 4, 1, 1, 3, 2, 5, 1, 2, 25), &
LS_jj_me(0, 1, 4, 4, 4, 1, 1, 3, 0, 3,-1, 1, 50), &
LS_jj_me(0, 1, 4, 4, 4, 2, 2, 0, 1, 4,-1, 1, 25), &
LS_jj_me(0, 1, 4, 4, 4, 2, 0, 4, 1, 4,-1, 1, 14), &
LS_jj_me(0, 1, 4, 4, 4, 2, 0, 4, 1, 8, 1, 96, 175), &
LS_jj_me(0, 1, 4, 4, 4, 3, 1, 3, 2, 5,-1, 4, 25), &
LS_jj_me(0, 1, 4, 2, 4, 0, 2, 0, 1, 4,-1, 6, 25), &
LS_jj_me(0, 1, 4, 2, 4, 1, 1, 3, 2, 5, 1, 8, 75), &
LS_jj_me(0, 1, 4, 2, 4, 1, 1, 3, 0, 3, 1, 3, 50), &
LS_jj_me(0, 1, 4, 2, 4, 2, 2, 0, 1, 4, 1, 3, 25), &
LS_jj_me(0, 1, 4, 2, 4, 2, 0, 4, 1, 4,-1, 3, 14), &
LS_jj_me(0, 1, 4, 2, 4, 2, 0, 4, 1, 8,-1, 8, 175), &
LS_jj_me(0, 1, 4, 2, 4, 3, 1, 3, 2, 5,-1, 16, 75), &
LS_jj_me(0, 3, 4, 0, 4, 0, 2, 0, 1, 4, 1, 4, 25), &
LS_jj_me(0, 3, 4, 0, 4, 1, 1, 3, 2, 5,-1, 4, 25), &
LS_jj_me(0, 3, 4, 0, 4, 2, 2, 0, 1, 4, 1, 8, 25), &
LS_jj_me(0, 3, 4, 0, 4, 2, 0, 4, 3, 0, 1, 7, 25), &
LS_jj_me(0, 3, 4, 0, 4, 3, 1, 3, 2, 5,-1, 2, 25), &
LS_jj_me(0, 1, 4, 0, 4, 0, 2, 0, 1, 4,-1, 2, 25), &
LS_jj_me(0, 1, 4, 0, 4, 1, 1, 3, 2, 5,-1, 2, 25), &
LS_jj_me(0, 1, 4, 0, 4, 1, 1, 3, 0, 3,-1, 8, 25), &
LS_jj_me(0, 1, 4, 0, 4, 2, 2, 0, 1, 4, 1, 1, 25), &
LS_jj_me(0, 1, 4, 0, 4, 2, 0, 4, 1, 4,-1, 2, 7), &
LS_jj_me(0, 1, 4, 0, 4, 2, 0, 4, 1, 8, 1, 6, 175), &
LS_jj_me(0, 1, 4, 0, 4, 3, 1, 3, 2, 5, 1, 4, 25), &
LS_jj_me(0, 3, 6, 2, 4, 0, 2, 0, 1, 4,-1, 3, 125), &
LS_jj_me(0, 3, 6, 2, 4, 1, 1, 3, 2, 5, 1, 64, 375), &
LS_jj_me(0, 3, 6, 2, 4, 2, 2, 0, 1, 4,-1, 6, 125), &
LS_jj_me(0, 3, 6, 2, 4, 2, 0, 4, 3, 0, 1, 84, 125), &
LS_jj_me(0, 3, 6, 2, 4, 3, 1, 3, 2, 5, 1, 32, 375), &
LS_jj_me(0, 1, 6, 2, 4, 0, 2, 0, 1, 4,-1, 12, 125), &
LS_jj_me(0, 1, 6, 2, 4, 1, 1, 3, 2, 5, 1, 16, 375), &
LS_jj_me(0, 1, 6, 2, 4, 1, 1, 3, 0, 3,-1, 48, 125), &
LS_jj_me(0, 1, 6, 2, 4, 2, 2, 0, 1, 4, 1, 6, 125), &
LS_jj_me(0, 1, 6, 2, 4, 2, 0, 4, 1, 4, 1, 12, 35), &
LS_jj_me(0, 1, 6, 2, 4, 2, 0, 4, 1, 8, 1, 1, 875), &
LS_jj_me(0, 1, 6, 2, 4, 3, 1, 3, 2, 5,-1, 32, 375), &
LS_jj_me(0, 1, 4, 4, 6, 1, 1, 3, 2, 5, 1, 1, 25), &
LS_jj_me(0, 1, 4, 4, 6, 1, 1, 3, 0, 3, 1, 2, 175), &
LS_jj_me(0, 1, 4, 4, 6, 1, 1, 3, 0, 9,-1, 3, 7), &
LS_jj_me(0, 1, 4, 4, 6, 2, 0, 4, 1, 4,-1, 2, 175), &
LS_jj_me(0, 1, 4, 4, 6, 2, 0, 4, 1, 8, 1, 3, 7), &
LS_jj_me(0, 1, 4, 4, 6, 3, 1, 3, 2, 5,-1, 2, 25), &
LS_jj_me(0, 1, 4, 2, 6, 1, 1, 3, 2, 5, 1, 2, 21), &
LS_jj_me(0, 1, 4, 2, 6, 1, 1, 3, 0, 3, 1, 3, 49), &
LS_jj_me(0, 1, 4, 2, 6, 1, 1, 3, 0, 9, 1, 18, 49), &
LS_jj_me(0, 1, 4, 2, 6, 2, 0, 4, 1, 4,-1, 12, 49), &
LS_jj_me(0, 1, 4, 2, 6, 2, 0, 4, 1, 8, 1, 2, 49), &
LS_jj_me(0, 1, 4, 2, 6, 3, 1, 3, 2, 5,-1, 4, 21), &
LS_jj_me(0, 3, 6, 2, 6, 1, 1, 3, 2, 5, 1, 2, 3), &
LS_jj_me(0, 3, 6, 2, 6, 3, 1, 3, 2, 5, 1, 1, 3), &
LS_jj_me(0, 1, 6, 2, 6, 1, 1, 3, 2, 5, 1, 1, 600), &
LS_jj_me(0, 1, 6, 2, 6, 1, 1, 3, 0, 3,-1, 48, 175), &
LS_jj_me(0, 1, 6, 2, 6, 1, 1, 3, 0, 9, 1, 9, 56), &
LS_jj_me(0, 1, 6, 2, 6, 2, 0, 4, 1, 4, 1, 48, 175), &
LS_jj_me(0, 1, 6, 2, 6, 2, 0, 4, 1, 8, 1, 2, 7), &
LS_jj_me(0, 1, 6, 2, 6, 3, 1, 3, 2, 5,-1, 1, 300), &
LS_jj_me(0, 1, 6, 0, 6, 1, 1, 3, 2, 5,-1, 1, 10), &
LS_jj_me(0, 1, 6, 0, 6, 1, 1, 3, 0, 3, 1, 16, 35), &
LS_jj_me(0, 1, 6, 0, 6, 1, 1, 3, 0, 9, 1, 3, 70), &
LS_jj_me(0, 1, 6, 0, 6, 2, 0, 4, 1, 4, 1, 1, 35), &
LS_jj_me(0, 1, 6, 0, 6, 2, 0, 4, 1, 8, 1, 6, 35), &
LS_jj_me(0, 1, 6, 0, 6, 3, 1, 3, 2, 5, 1, 1, 5), &
LS_jj_me(0, 1, 8, 2, 6, 1, 1, 3, 2, 5, 1, 27, 280), &
LS_jj_me(0, 1, 8, 2, 6, 1, 1, 3, 0, 3, 1, 48, 245), &
LS_jj_me(0, 1, 8, 2, 6, 1, 1, 3, 0, 9,-1, 1,1960), &
LS_jj_me(0, 1, 8, 2, 6, 2, 0, 4, 1, 4, 1,108, 245), &
LS_jj_me(0, 1, 8, 2, 6, 2, 0, 4, 1, 8,-1, 18, 245), &
LS_jj_me(0, 1, 8, 2, 6, 3, 1, 3, 2, 5,-1, 27, 140), &
LS_jj_me(0, 1, 4, 4, 8, 0, 2, 0, 1, 8, 1, 24, 125), &
LS_jj_me(0, 1, 4, 4, 8, 1, 1, 3, 2, 5, 1, 3, 125), &
LS_jj_me(0, 1, 4, 4, 8, 1, 1, 3, 0, 9,-1, 11, 25), &
LS_jj_me(0, 1, 4, 4, 8, 2, 2, 0, 1, 8,-1, 12, 125), &
LS_jj_me(0, 1, 4, 4, 8, 2, 0, 4, 1, 4, 1, 2, 175), &
LS_jj_me(0, 1, 4, 4, 8, 2, 0, 4, 1, 8, 1, 33, 175), &
LS_jj_me(0, 1, 4, 4, 8, 3, 1, 3, 2, 5,-1, 6, 125), &
LS_jj_me(0, 3, 6, 2, 8, 0, 2, 0, 1, 8, 1, 4, 15), &
LS_jj_me(0, 3, 6, 2, 8, 1, 1, 3, 2, 5, 1, 2, 15), &
LS_jj_me(0, 3, 6, 2, 8, 2, 2, 0, 1, 8, 1, 8, 15), &
LS_jj_me(0, 3, 6, 2, 8, 3, 1, 3, 2, 5, 1, 1, 15), &
LS_jj_me(0, 1, 6, 2, 8, 0, 2, 0, 1, 8,-1, 64, 375), &
LS_jj_me(0, 1, 6, 2, 8, 1, 1, 3, 2, 5, 1,289,3000), &
LS_jj_me(0, 1, 6, 2, 8, 1, 1, 3, 0, 9, 1, 11, 200), &
LS_jj_me(0, 1, 6, 2, 8, 2, 2, 0, 1, 8, 1, 32, 375), &
LS_jj_me(0, 1, 6, 2, 8, 2, 0, 4, 1, 4, 1, 4, 175), &
LS_jj_me(0, 1, 6, 2, 8, 2, 0, 4, 1, 8, 1, 66, 175), &
LS_jj_me(0, 1, 6, 2, 8, 3, 1, 3, 2, 5,-1,289,1500), &
LS_jj_me(0, 1, 8, 2, 8, 0, 2, 0, 1, 8, 1, 16, 125), &
LS_jj_me(0, 1, 8, 2, 8, 1, 1, 3, 2, 5, 1, 81,1000), &
LS_jj_me(0, 1, 8, 2, 8, 1, 1, 3, 0, 9, 1, 33, 200), &
LS_jj_me(0, 1, 8, 2, 8, 2, 2, 0, 1, 8,-1, 8, 125), &
LS_jj_me(0, 1, 8, 2, 8, 2, 0, 4, 1, 4, 1, 48, 175), &
LS_jj_me(0, 1, 8, 2, 8, 2, 0, 4, 1, 8,-1, 22, 175), &
LS_jj_me(0, 1, 8, 2, 8, 3, 1, 3, 2, 5,-1, 81, 500), &
LS_jj_me(0, 3, 8, 0, 8, 0, 2, 0, 1, 8, 1, 1, 15), &
LS_jj_me(0, 3, 8, 0, 8, 1, 1, 3, 2, 5,-1, 8, 15), &
LS_jj_me(0, 3, 8, 0, 8, 2, 2, 0, 1, 8, 1, 2, 15), &
LS_jj_me(0, 3, 8, 0, 8, 3, 1, 3, 2, 5,-1, 4, 15), &
LS_jj_me(0, 1, 8, 0, 8, 0, 2, 0, 1, 8,-1, 44, 375), &
LS_jj_me(0, 1, 8, 0, 8, 1, 1, 3, 2, 5,-1, 11, 750), &
LS_jj_me(0, 1, 8, 0, 8, 1, 1, 3, 0, 9,-1, 9, 50), &
LS_jj_me(0, 1, 8, 0, 8, 2, 2, 0, 1, 8, 1, 22, 375), &
LS_jj_me(0, 1, 8, 0, 8, 2, 0, 4, 1, 4, 1, 99, 175), &
LS_jj_me(0, 1, 8, 0, 8, 2, 0, 4, 1, 8,-1, 6, 175), &
LS_jj_me(0, 1, 8, 0, 8, 3, 1, 3, 2, 5, 1, 11, 375), &
LS_jj_me(0, 1,10, 2, 8, 0, 2, 0, 1, 8, 1, 22, 375), &
LS_jj_me(0, 1,10, 2, 8, 1, 1, 3, 2, 5,-1, 44, 375), &
LS_jj_me(0, 1,10, 2, 8, 1, 1, 3, 0, 9, 1, 4, 25), &
LS_jj_me(0, 1,10, 2, 8, 2, 2, 0, 1, 8,-1, 11, 375), &
LS_jj_me(0, 1,10, 2, 8, 2, 0, 4, 1, 4, 1, 22, 175), &
LS_jj_me(0, 1,10, 2, 8, 2, 0, 4, 1, 8, 1, 48, 175), &
LS_jj_me(0, 1,10, 2, 8, 3, 1, 3, 2, 5, 1, 88, 375), &
LS_jj_me(0, 1, 8, 2,10, 1, 1, 3, 0, 9, 1, 16, 25), &
LS_jj_me(0, 1, 8, 2,10, 2, 0, 4, 1, 8,-1, 9, 25), &
LS_jj_me(0, 1,10, 2,10, 1, 1, 3, 0, 9, 1, 9, 25), &
LS_jj_me(0, 1,10, 2,10, 2, 0, 4, 1, 8, 1, 16, 25), &
LS_jj_me(0, 1,10, 2,12, 1, 1, 3, 0, 9, 1, 3, 5), &
LS_jj_me(0, 1,10, 2,12, 2, 0, 4, 1, 8, 1, 2, 5), &
LS_jj_me(0, 1,12, 0,12, 1, 1, 3, 0, 9, 1, 2, 5), &
LS_jj_me(0, 1,12, 0,12, 2, 0, 4, 1, 8,-1, 3, 5) /)
!
! d^5 shell
type(LS_jj_me), dimension(1:184), parameter :: &
LS_jj_d_5 = (/ &
LS_jj_me(0, 0, 0, 1, 1, 1, 1, 3, 1, 4, 1, 2, 5), &
LS_jj_me(0, 0, 0, 1, 1, 2, 0, 4, 0, 3, 1, 1, 5), &
LS_jj_me(0, 0, 0, 1, 1, 3, 1, 3, 1, 4,-1, 2, 5), &
LS_jj_me(0, 2, 2, 3, 1, 1, 1, 3, 1, 4,-1, 7, 30), &
LS_jj_me(0, 2, 2, 3, 1, 2, 0, 4, 2, 5,-1, 8, 15), &
LS_jj_me(0, 2, 2, 3, 1, 3, 1, 3, 1, 4,-1, 7, 30), &
LS_jj_me(0, 2, 2, 1, 1, 1, 1, 3, 1, 4,-1, 4, 15), &
LS_jj_me(0, 2, 2, 1, 1, 2, 0, 4, 2, 5, 1, 7, 15), &
LS_jj_me(0, 2, 2, 1, 1, 3, 1, 3, 1, 4,-1, 4, 15), &
LS_jj_me(0, 0, 4, 3, 1, 1, 1, 3, 1, 4, 1, 1, 10), &
LS_jj_me(0, 0, 4, 3, 1, 2, 0, 4, 0, 3,-1, 4, 5), &
LS_jj_me(0, 0, 4, 3, 1, 3, 1, 3, 1, 4,-1, 1, 10), &
LS_jj_me(0, 2, 2, 3, 3, 1, 1, 3, 3, 0, 1, 16, 375), &
LS_jj_me(0, 2, 2, 3, 3, 1, 1, 3, 1, 4,-1, 14, 75), &
LS_jj_me(0, 2, 2, 3, 3, 2, 2, 0, 0, 3,-1, 21, 125), &
LS_jj_me(0, 2, 2, 3, 3, 2, 0, 4, 2, 5,-1, 28, 75), &
LS_jj_me(0, 2, 2, 3, 3, 3, 1, 3, 3, 0,-1, 16, 375), &
LS_jj_me(0, 2, 2, 3, 3, 3, 1, 3, 1, 4,-1, 14, 75), &
LS_jj_me(0, 2, 2, 1, 3, 1, 1, 3, 3, 0,-1, 7, 75), &
LS_jj_me(0, 2, 2, 1, 3, 1, 1, 3, 1, 4,-1, 1, 30), &
LS_jj_me(0, 2, 2, 1, 3, 2, 2, 0, 0, 3,-1, 12, 25), &
LS_jj_me(0, 2, 2, 1, 3, 2, 0, 4, 2, 5, 1, 4, 15), &
LS_jj_me(0, 2, 2, 1, 3, 3, 1, 3, 3, 0, 1, 7, 75), &
LS_jj_me(0, 2, 2, 1, 3, 3, 1, 3, 1, 4,-1, 1, 30), &
LS_jj_me(0, 4, 4, 1, 3, 1, 1, 3, 3, 0, 1, 1, 2), &
LS_jj_me(0, 4, 4, 1, 3, 3, 1, 3, 3, 0, 1, 1, 2), &
LS_jj_me(0, 2, 4, 1, 3, 1, 1, 3, 3, 0, 1, 7, 50), &
LS_jj_me(0, 2, 4, 1, 3, 1, 1, 3, 1, 4, 1, 1, 5), &
LS_jj_me(0, 2, 4, 1, 3, 2, 2, 0, 0, 3,-1, 8, 25), &
LS_jj_me(0, 2, 4, 1, 3, 3, 1, 3, 3, 0,-1, 7, 50), &
LS_jj_me(0, 2, 4, 1, 3, 3, 1, 3, 1, 4, 1, 1, 5), &
LS_jj_me(0, 0, 4, 3, 3, 1, 1, 3, 1, 4, 1, 2, 5), &
LS_jj_me(0, 0, 4, 3, 3, 2, 0, 4, 0, 3,-1, 1, 5), &
LS_jj_me(0, 0, 4, 3, 3, 3, 1, 3, 1, 4,-1, 2, 5), &
LS_jj_me(0, 0, 4, 1, 3, 1, 1, 3, 1, 4,-1, 1, 10), &
LS_jj_me(0, 0, 4, 1, 3, 2, 0, 4, 0, 3,-1, 4, 5), &
LS_jj_me(0, 0, 4, 1, 3, 3, 1, 3, 1, 4, 1, 1, 10), &
LS_jj_me(0, 2, 6, 3, 3, 1, 1, 3, 3, 0, 1, 28, 125), &
LS_jj_me(0, 2, 6, 3, 3, 1, 1, 3, 1, 4,-1, 2, 25), &
LS_jj_me(0, 2, 6, 3, 3, 2, 2, 0, 0, 3, 1, 4, 125), &
LS_jj_me(0, 2, 6, 3, 3, 2, 0, 4, 2, 5, 1, 9, 25), &
LS_jj_me(0, 2, 6, 3, 3, 3, 1, 3, 3, 0,-1, 28, 125), &
LS_jj_me(0, 2, 6, 3, 3, 3, 1, 3, 1, 4,-1, 2, 25), &
LS_jj_me(0, 0, 0, 5, 5, 0, 2, 0, 2, 5,-1, 24, 625), &
LS_jj_me(0, 0, 0, 5, 5, 1, 1, 3, 1, 4, 1, 2, 125), &
LS_jj_me(0, 0, 0, 5, 5, 1, 1, 3, 1, 8, 1, 144, 625), &
LS_jj_me(0, 0, 0, 5, 5, 2, 2, 0, 2, 5, 1, 24, 625), &
LS_jj_me(0, 0, 0, 5, 5, 2, 0, 4, 0, 3,-1, 1, 125), &
LS_jj_me(0, 0, 0, 5, 5, 2, 0, 4, 0, 9,-1, 48, 125), &
LS_jj_me(0, 0, 0, 5, 5, 3, 1, 3, 1, 4,-1, 2, 125), &
LS_jj_me(0, 0, 0, 5, 5, 3, 1, 3, 1, 8,-1, 144, 625), &
LS_jj_me(0, 0, 0, 5, 5, 4, 2, 0, 2, 5,-1, 24, 625), &
LS_jj_me(0, 2, 2, 3, 5, 0, 2, 0, 2, 5, 1, 24, 125), &
LS_jj_me(0, 2, 2, 3, 5, 1, 1, 3, 1, 4,-1, 1, 50), &
LS_jj_me(0, 2, 2, 3, 5, 1, 1, 3, 1, 8,-1, 36, 125), &
LS_jj_me(0, 2, 2, 3, 5, 3, 1, 3, 1, 4,-1, 1, 50), &
LS_jj_me(0, 2, 2, 3, 5, 3, 1, 3, 1, 8,-1, 36, 125), &
LS_jj_me(0, 2, 2, 3, 5, 4, 2, 0, 2, 5,-1, 24, 125), &
LS_jj_me(0, 4, 4, 1, 5, 0, 2, 0, 2, 5, 1, 1, 6), &
LS_jj_me(0, 4, 4, 1, 5, 2, 2, 0, 2, 5, 1, 2, 3), &
LS_jj_me(0, 4, 4, 1, 5, 4, 2, 0, 2, 5, 1, 1, 6), &
LS_jj_me(0, 2, 4, 1, 5, 0, 2, 0, 2, 5,-1, 7, 150), &
LS_jj_me(0, 2, 4, 1, 5, 1, 1, 3, 1, 4, 1, 8, 35), &
LS_jj_me(0, 2, 4, 1, 5, 1, 1, 3, 1, 8,-1, 16, 175), &
LS_jj_me(0, 2, 4, 1, 5, 2, 0, 4, 2, 5, 1, 4, 15), &
LS_jj_me(0, 2, 4, 1, 5, 3, 1, 3, 1, 4, 1, 8, 35), &
LS_jj_me(0, 2, 4, 1, 5, 3, 1, 3, 1, 8,-1, 16, 175), &
LS_jj_me(0, 2, 4, 1, 5, 4, 2, 0, 2, 5, 1, 7, 150), &
LS_jj_me(0, 0, 4, 3, 5, 0, 2, 0, 2, 5,-1, 8, 75), &
LS_jj_me(0, 0, 4, 3, 5, 1, 1, 3, 1, 4, 1, 81, 490), &
LS_jj_me(0, 0, 4, 3, 5, 1, 1, 3, 1, 8,-1, 4, 1225), &
LS_jj_me(0, 0, 4, 3, 5, 2, 2, 0, 2, 5, 1, 8, 75), &
LS_jj_me(0, 0, 4, 3, 5, 2, 0, 4, 0, 3,-1, 36, 245), &
LS_jj_me(0, 0, 4, 3, 5, 2, 0, 4, 0, 9, 1, 48, 245), &
LS_jj_me(0, 0, 4, 3, 5, 3, 1, 3, 1, 4,-1, 81, 490), &
LS_jj_me(0, 0, 4, 3, 5, 3, 1, 3, 1, 8, 1, 4, 1225), &
LS_jj_me(0, 0, 4, 3, 5, 4, 2, 0, 2, 5,-1, 8, 75), &
LS_jj_me(0, 0, 4, 1, 5, 0, 2, 0, 2, 5, 1, 7, 75), &
LS_jj_me(0, 0, 4, 1, 5, 1, 1, 3, 1, 4, 1, 4, 35), &
LS_jj_me(0, 0, 4, 1, 5, 1, 1, 3, 1, 8,-1, 8, 175), &
LS_jj_me(0, 0, 4, 1, 5, 2, 2, 0, 2, 5,-1, 7, 75), &
LS_jj_me(0, 0, 4, 1, 5, 2, 0, 4, 0, 3,-1, 8, 35), &
LS_jj_me(0, 0, 4, 1, 5, 2, 0, 4, 0, 9,-1, 6, 35), &
LS_jj_me(0, 0, 4, 1, 5, 3, 1, 3, 1, 4,-1, 4, 35), &
LS_jj_me(0, 0, 4, 1, 5, 3, 1, 3, 1, 8, 1, 8, 175), &
LS_jj_me(0, 0, 4, 1, 5, 4, 2, 0, 2, 5, 1, 7, 75), &
LS_jj_me(0, 2, 6, 3, 5, 0, 2, 0, 2, 5, 1, 28, 375), &
LS_jj_me(0, 2, 6, 3, 5, 1, 1, 3, 1, 4,-1, 4, 175), &
LS_jj_me(0, 2, 6, 3, 5, 1, 1, 3, 1, 8, 1, 121, 1750), &
LS_jj_me(0, 2, 6, 3, 5, 2, 0, 4, 2, 5, 1, 2, 3), &
LS_jj_me(0, 2, 6, 3, 5, 3, 1, 3, 1, 4,-1, 4, 175), &
LS_jj_me(0, 2, 6, 3, 5, 3, 1, 3, 1, 8, 1, 121, 1750), &
LS_jj_me(0, 2, 6, 3, 5, 4, 2, 0, 2, 5,-1, 28, 375), &
LS_jj_me(0, 2, 6, 1, 5, 0, 2, 0, 2, 5, 1, 14, 75), &
LS_jj_me(0, 2, 6, 1, 5, 1, 1, 3, 1, 4, 1, 8, 35), &
LS_jj_me(0, 2, 6, 1, 5, 1, 1, 3, 1, 8, 1, 9, 175), &
LS_jj_me(0, 2, 6, 1, 5, 2, 0, 4, 2, 5,-1, 1, 15), &
LS_jj_me(0, 2, 6, 1, 5, 3, 1, 3, 1, 4, 1, 8, 35), &
LS_jj_me(0, 2, 6, 1, 5, 3, 1, 3, 1, 8, 1, 9, 175), &
LS_jj_me(0, 2, 6, 1, 5, 4, 2, 0, 2, 5,-1, 14, 75), &
LS_jj_me(0, 0, 6, 1, 5, 0, 2, 0, 2, 5, 1, 14, 375), &
LS_jj_me(0, 0, 6, 1, 5, 1, 1, 3, 1, 4,-1, 8, 175), &
LS_jj_me(0, 0, 6, 1, 5, 1, 1, 3, 1, 8, 1, 121, 875), &
LS_jj_me(0, 0, 6, 1, 5, 2, 2, 0, 2, 5,-1, 14, 375), &
LS_jj_me(0, 0, 6, 1, 5, 2, 0, 4, 0, 3,-1, 64, 175), &
LS_jj_me(0, 0, 6, 1, 5, 2, 0, 4, 0, 9, 1, 27, 175), &
LS_jj_me(0, 0, 6, 1, 5, 3, 1, 3, 1, 4, 1, 8, 175), &
LS_jj_me(0, 0, 6, 1, 5, 3, 1, 3, 1, 8,-1, 121, 875), &
LS_jj_me(0, 0, 6, 1, 5, 4, 2, 0, 2, 5, 1, 14, 375), &
LS_jj_me(0, 0, 8, 3, 5, 0, 2, 0, 2, 5,-1, 36, 625), &
LS_jj_me(0, 0, 8, 3, 5, 1, 1, 3, 1, 4,-1, 972, 6125), &
LS_jj_me(0, 0, 8, 3, 5, 1, 1, 3, 1, 8,-1,5043,61250), &
LS_jj_me(0, 0, 8, 3, 5, 2, 2, 0, 2, 5, 1, 36, 625), &
LS_jj_me(0, 0, 8, 3, 5, 2, 0, 4, 0, 3,-1,1536, 6125), &
LS_jj_me(0, 0, 8, 3, 5, 2, 0, 4, 0, 9,-1, 578, 6125), &
LS_jj_me(0, 0, 8, 3, 5, 3, 1, 3, 1, 4, 1, 972, 6125), &
LS_jj_me(0, 0, 8, 3, 5, 3, 1, 3, 1, 8, 1,5043,61250), &
LS_jj_me(0, 0, 8, 3, 5, 4, 2, 0, 2, 5,-1, 36, 625), &
LS_jj_me(0, 0, 4, 3, 7, 1, 1, 3, 1, 4,-1, 2, 245), &
LS_jj_me(0, 0, 4, 3, 7, 1, 1, 3, 1, 8,-1, 54, 245), &
LS_jj_me(0, 0, 4, 3, 7, 2, 0, 4, 0, 3, 1, 1, 245), &
LS_jj_me(0, 0, 4, 3, 7, 2, 0, 4, 0, 9, 1, 132, 245), &
LS_jj_me(0, 0, 4, 3, 7, 3, 1, 3, 1, 4, 1, 2, 245), &
LS_jj_me(0, 0, 4, 3, 7, 3, 1, 3, 1, 8, 1, 54, 245), &
LS_jj_me(0, 2, 6, 3, 7, 1, 1, 3, 1, 4,-1, 3, 70), &
LS_jj_me(0, 2, 6, 3, 7, 1, 1, 3, 1, 8, 1, 5, 14), &
LS_jj_me(0, 2, 6, 3, 7, 2, 0, 4, 2, 5, 1, 1, 5), &
LS_jj_me(0, 2, 6, 3, 7, 3, 1, 3, 1, 4,-1, 3, 70), &
LS_jj_me(0, 2, 6, 3, 7, 3, 1, 3, 1, 8, 1, 5, 14), &
LS_jj_me(0, 2, 6, 1, 7, 1, 1, 3, 1, 4, 1, 121, 560), &
LS_jj_me(0, 2, 6, 1, 7, 1, 1, 3, 1, 8, 1, 15, 112), &
LS_jj_me(0, 2, 6, 1, 7, 2, 0, 4, 2, 5,-1, 3, 10), &
LS_jj_me(0, 2, 6, 1, 7, 3, 1, 3, 1, 4, 1, 121, 560), &
LS_jj_me(0, 2, 6, 1, 7, 3, 1, 3, 1, 8, 1, 15, 112), &
LS_jj_me(0, 0, 6, 1, 7, 1, 1, 3, 1, 4,-1, 25, 112), &
LS_jj_me(0, 0, 6, 1, 7, 1, 1, 3, 1, 8, 1, 243, 2800), &
LS_jj_me(0, 0, 6, 1, 7, 2, 0, 4, 0, 3,-1, 2, 7), &
LS_jj_me(0, 0, 6, 1, 7, 2, 0, 4, 0, 9, 1, 33, 350), &
LS_jj_me(0, 0, 6, 1, 7, 3, 1, 3, 1, 4, 1, 25, 112), &
LS_jj_me(0, 0, 6, 1, 7, 3, 1, 3, 1, 8,-1, 243, 2800), &
LS_jj_me(0, 2, 8, 1, 7, 1, 1, 3, 1, 4,-1, 27, 112), &
LS_jj_me(0, 2, 8, 1, 7, 1, 1, 3, 1, 8, 1, 1, 112), &
LS_jj_me(0, 2, 8, 1, 7, 2, 0, 4, 2, 5,-1, 1, 2), &
LS_jj_me(0, 2, 8, 1, 7, 3, 1, 3, 1, 4,-1, 27, 112), &
LS_jj_me(0, 2, 8, 1, 7, 3, 1, 3, 1, 8, 1, 1, 112), &
LS_jj_me(0, 0, 8, 3, 7, 1, 1, 3, 1, 4,-1, 9, 98), &
LS_jj_me(0, 0, 8, 3, 7, 1, 1, 3, 1, 8,-1,1369, 7350), &
LS_jj_me(0, 0, 8, 3, 7, 2, 0, 4, 0, 3,-1, 4, 49), &
LS_jj_me(0, 0, 8, 3, 7, 2, 0, 4, 0, 9,-1,1331, 3675), &
LS_jj_me(0, 0, 8, 3, 7, 3, 1, 3, 1, 4, 1, 9, 98), &
LS_jj_me(0, 0, 8, 3, 7, 3, 1, 3, 1, 8, 1,1369, 7350), &
LS_jj_me(0, 0, 8, 1, 7, 1, 1, 3, 1, 4,-1, 99, 560), &
LS_jj_me(0, 0, 8, 1, 7, 1, 1, 3, 1, 8, 1, 11, 1680), &
LS_jj_me(0, 0, 8, 1, 7, 2, 0, 4, 0, 3, 1, 22, 35), &
LS_jj_me(0, 0, 8, 1, 7, 2, 0, 4, 0, 9,-1, 1, 210), &
LS_jj_me(0, 0, 8, 1, 7, 3, 1, 3, 1, 4, 1, 99, 560), &
LS_jj_me(0, 0, 8, 1, 7, 3, 1, 3, 1, 8,-1, 11, 1680), &
LS_jj_me(0, 2, 6, 3, 9, 1, 1, 3, 1, 8, 1, 11, 50), &
LS_jj_me(0, 2, 6, 3, 9, 2, 2, 0, 0, 9,-1, 12, 25), &
LS_jj_me(0, 2, 6, 3, 9, 2, 0, 4, 2, 5, 1, 2, 25), &
LS_jj_me(0, 2, 6, 3, 9, 3, 1, 3, 1, 8, 1, 11, 50), &
LS_jj_me(0, 2, 8, 1, 9, 1, 1, 3, 1, 8,-1, 11, 125), &
LS_jj_me(0, 2, 8, 1, 9, 2, 2, 0, 0, 9,-1, 54, 125), &
LS_jj_me(0, 2, 8, 1, 9, 2, 0, 4, 2, 5,-1, 49, 125), &
LS_jj_me(0, 2, 8, 1, 9, 3, 1, 3, 1, 8,-1, 11, 125), &
LS_jj_me(0, 0, 8, 3, 9, 1, 1, 3, 1, 8,-1, 1, 6), &
LS_jj_me(0, 0, 8, 3, 9, 2, 0, 4, 0, 9,-1, 2, 3), &
LS_jj_me(0, 0, 8, 3, 9, 3, 1, 3, 1, 8, 1, 1, 6), &
LS_jj_me(0, 0, 8, 1, 9, 1, 1, 3, 1, 8, 1, 1, 3), &
LS_jj_me(0, 0, 8, 1, 9, 2, 0, 4, 0, 9,-1, 1, 3), &
LS_jj_me(0, 0, 8, 1, 9, 3, 1, 3, 1, 8,-1, 1, 3), &
LS_jj_me(0, 2,10, 1, 9, 1, 1, 3, 1, 8,-1, 24, 125), &
LS_jj_me(0, 2,10, 1, 9, 2, 2, 0, 0, 9,-1, 11, 125), &
LS_jj_me(0, 2,10, 1, 9, 2, 0, 4, 2, 5, 1, 66, 125), &
LS_jj_me(0, 2,10, 1, 9, 3, 1, 3, 1, 8,-1, 24, 125), &
LS_jj_me(0, 0, 8, 3,11, 1, 1, 3, 1, 8,-1, 6, 25), &
LS_jj_me(0, 0, 8, 3,11, 2, 0, 4, 0, 9,-1, 13, 25), &
LS_jj_me(0, 0, 8, 3,11, 3, 1, 3, 1, 8, 1, 6, 25), &
LS_jj_me(0, 2,10, 1,11, 1, 1, 3, 1, 8,-1, 1, 2), &
LS_jj_me(0, 2,10, 1,11, 3, 1, 3, 1, 8,-1, 1, 2), &
LS_jj_me(0, 0,12, 1,11, 1, 1, 3, 1, 8, 1, 13, 50), &
LS_jj_me(0, 0,12, 1,11, 2, 0, 4, 0, 9,-1, 12, 25), &
LS_jj_me(0, 0,12, 1,11, 3, 1, 3, 1, 8,-1, 13, 50), &
LS_jj_me(0, 0,12, 1,13, 2, 0, 4, 0, 9,-1, 1, 1) /)
!
! d^6 shell
type(LS_jj_me), dimension(1:166), parameter :: &
LS_jj_d_6 = (/ &
LS_jj_me(0, 5, 0, 0, 0, 0, 2, 0, 3, 0, 1, 1, 10), &
LS_jj_me(0, 5, 0, 0, 0, 2, 2, 0, 3, 0, 1, 3, 5), &
LS_jj_me(0, 5, 0, 0, 0, 4, 2, 0, 3, 0, 1, 3, 10), &
LS_jj_me(0, 1, 0, 0, 0, 0, 2, 0, 3, 0,-1, 21, 250), &
LS_jj_me(0, 1, 0, 0, 0, 2, 2, 0, 3, 0, 1, 7, 125), &
LS_jj_me(0, 1, 0, 0, 0, 2, 0, 4, 1, 4, 1, 8, 25), &
LS_jj_me(0, 1, 0, 0, 0, 3, 1, 3, 0, 3,-1, 64, 125), &
LS_jj_me(0, 1, 0, 0, 0, 4, 2, 0, 3, 0,-1, 7, 250), &
LS_jj_me(0, 3, 2, 2, 0, 0, 2, 0, 3, 0,-1, 2, 5), &
LS_jj_me(0, 3, 2, 2, 0, 2, 2, 0, 3, 0,-1, 1, 15), &
LS_jj_me(0, 3, 2, 2, 0, 4, 2, 0, 3, 0, 1, 8, 15), &
LS_jj_me(0, 1, 2, 2, 0, 0, 2, 0, 3, 0,-1, 28, 125), &
LS_jj_me(0, 1, 2, 2, 0, 2, 2, 0, 3, 0, 1, 56, 375), &
LS_jj_me(0, 1, 2, 2, 0, 2, 0, 4, 1, 4, 1, 3, 25), &
LS_jj_me(0, 1, 2, 2, 0, 3, 1, 3, 0, 3, 1, 54, 125), &
LS_jj_me(0, 1, 2, 2, 0, 4, 2, 0, 3, 0,-1, 28, 375), &
LS_jj_me(0, 1, 4, 4, 0, 0, 2, 0, 3, 0,-1, 24, 125), &
LS_jj_me(0, 1, 4, 4, 0, 2, 2, 0, 3, 0, 1, 16, 125), &
LS_jj_me(0, 1, 4, 4, 0, 2, 0, 4, 1, 4,-1, 14, 25), &
LS_jj_me(0, 1, 4, 4, 0, 3, 1, 3, 0, 3,-1, 7, 125), &
LS_jj_me(0, 1, 4, 4, 0, 4, 2, 0, 3, 0,-1, 8, 125), &
LS_jj_me(0, 3, 2, 2, 2, 1, 1, 3, 2, 5, 1, 1, 3), &
LS_jj_me(0, 3, 2, 2, 2, 3, 1, 3, 2, 5, 1, 2, 3), &
LS_jj_me(0, 1, 2, 2, 2, 1, 1, 3, 2, 5, 1, 14, 75), &
LS_jj_me(0, 1, 2, 2, 2, 2, 0, 4, 1, 4, 1, 9, 25), &
LS_jj_me(0, 1, 2, 2, 2, 3, 1, 3, 2, 5,-1, 7, 75), &
LS_jj_me(0, 1, 2, 2, 2, 3, 1, 3, 0, 3, 1, 9, 25), &
LS_jj_me(0, 1, 4, 4, 2, 1, 1, 3, 2, 5, 1, 12, 25), &
LS_jj_me(0, 1, 4, 4, 2, 2, 0, 4, 1, 4,-1, 7, 50), &
LS_jj_me(0, 1, 4, 4, 2, 3, 1, 3, 2, 5,-1, 6, 25), &
LS_jj_me(0, 1, 4, 4, 2, 3, 1, 3, 0, 3,-1, 7, 50), &
LS_jj_me(0, 1, 4, 2, 2, 2, 0, 4, 1, 4,-1, 1, 2), &
LS_jj_me(0, 1, 4, 2, 2, 3, 1, 3, 0, 3, 1, 1, 2), &
LS_jj_me(0, 3, 2, 2, 4, 1, 1, 3, 2, 5, 1, 21, 125), &
LS_jj_me(0, 3, 2, 2, 4, 2, 2, 0, 1, 4, 1,112, 375), &
LS_jj_me(0, 3, 2, 2, 4, 2, 0, 4, 3, 0,-1, 6, 125), &
LS_jj_me(0, 3, 2, 2, 4, 3, 1, 3, 2, 5, 1, 42, 125), &
LS_jj_me(0, 3, 2, 2, 4, 4, 2, 0, 1, 4, 1, 56, 375), &
LS_jj_me(0, 1, 2, 2, 4, 1, 1, 3, 2, 5,-1, 6, 125), &
LS_jj_me(0, 1, 2, 2, 4, 2, 2, 0, 1, 4,-1, 32, 375), &
LS_jj_me(0, 1, 2, 2, 4, 2, 0, 4, 1, 4, 1, 3, 35), &
LS_jj_me(0, 1, 2, 2, 4, 2, 0, 4, 1, 8, 1,324, 875), &
LS_jj_me(0, 1, 2, 2, 4, 3, 1, 3, 2, 5, 1, 3, 125), &
LS_jj_me(0, 1, 2, 2, 4, 3, 1, 3, 0, 3, 1, 27, 125), &
LS_jj_me(0, 1, 2, 2, 4, 4, 2, 0, 1, 4, 1, 64, 375), &
LS_jj_me(0, 1, 4, 4, 4, 1, 1, 3, 2, 5, 1, 4, 25), &
LS_jj_me(0, 1, 4, 4, 4, 2, 2, 0, 1, 4, 1, 1, 25), &
LS_jj_me(0, 1, 4, 4, 4, 2, 0, 4, 1, 4,-1, 1, 14), &
LS_jj_me(0, 1, 4, 4, 4, 2, 0, 4, 1, 8, 1, 96, 175), &
LS_jj_me(0, 1, 4, 4, 4, 3, 1, 3, 2, 5,-1, 2, 25), &
LS_jj_me(0, 1, 4, 4, 4, 3, 1, 3, 0, 3,-1, 1, 50), &
LS_jj_me(0, 1, 4, 4, 4, 4, 2, 0, 1, 4,-1, 2, 25), &
LS_jj_me(0, 1, 4, 2, 4, 1, 1, 3, 2, 5, 1, 16, 75), &
LS_jj_me(0, 1, 4, 2, 4, 2, 2, 0, 1, 4,-1, 3, 25), &
LS_jj_me(0, 1, 4, 2, 4, 2, 0, 4, 1, 4,-1, 3, 14), &
LS_jj_me(0, 1, 4, 2, 4, 2, 0, 4, 1, 8,-1, 8, 175), &
LS_jj_me(0, 1, 4, 2, 4, 3, 1, 3, 2, 5,-1, 8, 75), &
LS_jj_me(0, 1, 4, 2, 4, 3, 1, 3, 0, 3, 1, 3, 50), &
LS_jj_me(0, 1, 4, 2, 4, 4, 2, 0, 1, 4, 1, 6, 25), &
LS_jj_me(0, 3, 4, 0, 4, 1, 1, 3, 2, 5,-1, 2, 25), &
LS_jj_me(0, 3, 4, 0, 4, 2, 2, 0, 1, 4, 1, 8, 25), &
LS_jj_me(0, 3, 4, 0, 4, 2, 0, 4, 3, 0, 1, 7, 25), &
LS_jj_me(0, 3, 4, 0, 4, 3, 1, 3, 2, 5,-1, 4, 25), &
LS_jj_me(0, 3, 4, 0, 4, 4, 2, 0, 1, 4, 1, 4, 25), &
LS_jj_me(0, 1, 4, 0, 4, 1, 1, 3, 2, 5,-1, 4, 25), &
LS_jj_me(0, 1, 4, 0, 4, 2, 2, 0, 1, 4,-1, 1, 25), &
LS_jj_me(0, 1, 4, 0, 4, 2, 0, 4, 1, 4,-1, 2, 7), &
LS_jj_me(0, 1, 4, 0, 4, 2, 0, 4, 1, 8, 1, 6, 175), &
LS_jj_me(0, 1, 4, 0, 4, 3, 1, 3, 2, 5, 1, 2, 25), &
LS_jj_me(0, 1, 4, 0, 4, 3, 1, 3, 0, 3,-1, 8, 25), &
LS_jj_me(0, 1, 4, 0, 4, 4, 2, 0, 1, 4, 1, 2, 25), &
LS_jj_me(0, 3, 6, 2, 4, 1, 1, 3, 2, 5, 1, 32, 375), &
LS_jj_me(0, 3, 6, 2, 4, 2, 2, 0, 1, 4,-1, 6, 125), &
LS_jj_me(0, 3, 6, 2, 4, 2, 0, 4, 3, 0, 1, 84, 125), &
LS_jj_me(0, 3, 6, 2, 4, 3, 1, 3, 2, 5, 1, 64, 375), &
LS_jj_me(0, 3, 6, 2, 4, 4, 2, 0, 1, 4,-1, 3, 125), &
LS_jj_me(0, 1, 6, 2, 4, 1, 1, 3, 2, 5, 1, 32, 375), &
LS_jj_me(0, 1, 6, 2, 4, 2, 2, 0, 1, 4,-1, 6, 125), &
LS_jj_me(0, 1, 6, 2, 4, 2, 0, 4, 1, 4, 1, 12, 35), &
LS_jj_me(0, 1, 6, 2, 4, 2, 0, 4, 1, 8, 1, 1, 875), &
LS_jj_me(0, 1, 6, 2, 4, 3, 1, 3, 2, 5,-1, 16, 375), &
LS_jj_me(0, 1, 6, 2, 4, 3, 1, 3, 0, 3,-1, 48, 125), &
LS_jj_me(0, 1, 6, 2, 4, 4, 2, 0, 1, 4, 1, 12, 125), &
LS_jj_me(0, 1, 4, 4, 6, 1, 1, 3, 2, 5, 1, 2, 25), &
LS_jj_me(0, 1, 4, 4, 6, 2, 0, 4, 1, 4,-1, 2, 175), &
LS_jj_me(0, 1, 4, 4, 6, 2, 0, 4, 1, 8, 1, 3, 7), &
LS_jj_me(0, 1, 4, 4, 6, 3, 1, 3, 2, 5,-1, 1, 25), &
LS_jj_me(0, 1, 4, 4, 6, 3, 1, 3, 0, 3, 1, 2, 175), &
LS_jj_me(0, 1, 4, 4, 6, 3, 1, 3, 0, 9,-1, 3, 7), &
LS_jj_me(0, 1, 4, 2, 6, 1, 1, 3, 2, 5, 1, 4, 21), &
LS_jj_me(0, 1, 4, 2, 6, 2, 0, 4, 1, 4,-1, 12, 49), &
LS_jj_me(0, 1, 4, 2, 6, 2, 0, 4, 1, 8, 1, 2, 49), &
LS_jj_me(0, 1, 4, 2, 6, 3, 1, 3, 2, 5,-1, 2, 21), &
LS_jj_me(0, 1, 4, 2, 6, 3, 1, 3, 0, 3, 1, 3, 49), &
LS_jj_me(0, 1, 4, 2, 6, 3, 1, 3, 0, 9, 1, 18, 49), &
LS_jj_me(0, 3, 6, 2, 6, 1, 1, 3, 2, 5, 1, 1, 3), &
LS_jj_me(0, 3, 6, 2, 6, 3, 1, 3, 2, 5, 1, 2, 3), &
LS_jj_me(0, 1, 6, 2, 6, 1, 1, 3, 2, 5, 1, 1, 300), &
LS_jj_me(0, 1, 6, 2, 6, 2, 0, 4, 1, 4, 1, 48, 175), &
LS_jj_me(0, 1, 6, 2, 6, 2, 0, 4, 1, 8, 1, 2, 7), &
LS_jj_me(0, 1, 6, 2, 6, 3, 1, 3, 2, 5,-1, 1, 600), &
LS_jj_me(0, 1, 6, 2, 6, 3, 1, 3, 0, 3,-1, 48, 175), &
LS_jj_me(0, 1, 6, 2, 6, 3, 1, 3, 0, 9, 1, 9, 56), &
LS_jj_me(0, 1, 6, 0, 6, 1, 1, 3, 2, 5,-1, 1, 5), &
LS_jj_me(0, 1, 6, 0, 6, 2, 0, 4, 1, 4, 1, 1, 35), &
LS_jj_me(0, 1, 6, 0, 6, 2, 0, 4, 1, 8, 1, 6, 35), &
LS_jj_me(0, 1, 6, 0, 6, 3, 1, 3, 2, 5, 1, 1, 10), &
LS_jj_me(0, 1, 6, 0, 6, 3, 1, 3, 0, 3, 1, 16, 35), &
LS_jj_me(0, 1, 6, 0, 6, 3, 1, 3, 0, 9, 1, 3, 70), &
LS_jj_me(0, 1, 8, 2, 6, 1, 1, 3, 2, 5, 1, 27, 140), &
LS_jj_me(0, 1, 8, 2, 6, 2, 0, 4, 1, 4, 1,108, 245), &
LS_jj_me(0, 1, 8, 2, 6, 2, 0, 4, 1, 8,-1, 18, 245), &
LS_jj_me(0, 1, 8, 2, 6, 3, 1, 3, 2, 5,-1, 27, 280), &
LS_jj_me(0, 1, 8, 2, 6, 3, 1, 3, 0, 3, 1, 48, 245), &
LS_jj_me(0, 1, 8, 2, 6, 3, 1, 3, 0, 9,-1, 1,1960), &
LS_jj_me(0, 1, 4, 4, 8, 1, 1, 3, 2, 5, 1, 6, 125), &
LS_jj_me(0, 1, 4, 4, 8, 2, 2, 0, 1, 8, 1, 12, 125), &
LS_jj_me(0, 1, 4, 4, 8, 2, 0, 4, 1, 4, 1, 2, 175), &
LS_jj_me(0, 1, 4, 4, 8, 2, 0, 4, 1, 8, 1, 33, 175), &
LS_jj_me(0, 1, 4, 4, 8, 3, 1, 3, 2, 5,-1, 3, 125), &
LS_jj_me(0, 1, 4, 4, 8, 3, 1, 3, 0, 9,-1, 11, 25), &
LS_jj_me(0, 1, 4, 4, 8, 4, 2, 0, 1, 8,-1, 24, 125), &
LS_jj_me(0, 3, 6, 2, 8, 1, 1, 3, 2, 5, 1, 1, 15), &
LS_jj_me(0, 3, 6, 2, 8, 2, 2, 0, 1, 8, 1, 8, 15), &
LS_jj_me(0, 3, 6, 2, 8, 3, 1, 3, 2, 5, 1, 2, 15), &
LS_jj_me(0, 3, 6, 2, 8, 4, 2, 0, 1, 8, 1, 4, 15), &
LS_jj_me(0, 1, 6, 2, 8, 1, 1, 3, 2, 5, 1,289,1500), &
LS_jj_me(0, 1, 6, 2, 8, 2, 2, 0, 1, 8,-1, 32, 375), &
LS_jj_me(0, 1, 6, 2, 8, 2, 0, 4, 1, 4, 1, 4, 175), &
LS_jj_me(0, 1, 6, 2, 8, 2, 0, 4, 1, 8, 1, 66, 175), &
LS_jj_me(0, 1, 6, 2, 8, 3, 1, 3, 2, 5,-1,289,3000), &
LS_jj_me(0, 1, 6, 2, 8, 3, 1, 3, 0, 9, 1, 11, 200), &
LS_jj_me(0, 1, 6, 2, 8, 4, 2, 0, 1, 8, 1, 64, 375), &
LS_jj_me(0, 1, 8, 2, 8, 1, 1, 3, 2, 5, 1, 81, 500), &
LS_jj_me(0, 1, 8, 2, 8, 2, 2, 0, 1, 8, 1, 8, 125), &
LS_jj_me(0, 1, 8, 2, 8, 2, 0, 4, 1, 4, 1, 48, 175), &
LS_jj_me(0, 1, 8, 2, 8, 2, 0, 4, 1, 8,-1, 22, 175), &
LS_jj_me(0, 1, 8, 2, 8, 3, 1, 3, 2, 5,-1, 81,1000), &
LS_jj_me(0, 1, 8, 2, 8, 3, 1, 3, 0, 9, 1, 33, 200), &
LS_jj_me(0, 1, 8, 2, 8, 4, 2, 0, 1, 8,-1, 16, 125), &
LS_jj_me(0, 3, 8, 0, 8, 1, 1, 3, 2, 5,-1, 4, 15), &
LS_jj_me(0, 3, 8, 0, 8, 2, 2, 0, 1, 8, 1, 2, 15), &
LS_jj_me(0, 3, 8, 0, 8, 3, 1, 3, 2, 5,-1, 8, 15), &
LS_jj_me(0, 3, 8, 0, 8, 4, 2, 0, 1, 8, 1, 1, 15), &
LS_jj_me(0, 1, 8, 0, 8, 1, 1, 3, 2, 5,-1, 11, 375), &
LS_jj_me(0, 1, 8, 0, 8, 2, 2, 0, 1, 8,-1, 22, 375), &
LS_jj_me(0, 1, 8, 0, 8, 2, 0, 4, 1, 4, 1, 99, 175), &
LS_jj_me(0, 1, 8, 0, 8, 2, 0, 4, 1, 8,-1, 6, 175), &
LS_jj_me(0, 1, 8, 0, 8, 3, 1, 3, 2, 5, 1, 11, 750), &
LS_jj_me(0, 1, 8, 0, 8, 3, 1, 3, 0, 9,-1, 9, 50), &
LS_jj_me(0, 1, 8, 0, 8, 4, 2, 0, 1, 8, 1, 44, 375), &
LS_jj_me(0, 1,10, 2, 8, 1, 1, 3, 2, 5,-1, 88, 375), &
LS_jj_me(0, 1,10, 2, 8, 2, 2, 0, 1, 8, 1, 11, 375), &
LS_jj_me(0, 1,10, 2, 8, 2, 0, 4, 1, 4, 1, 22, 175), &
LS_jj_me(0, 1,10, 2, 8, 2, 0, 4, 1, 8, 1, 48, 175), &
LS_jj_me(0, 1,10, 2, 8, 3, 1, 3, 2, 5, 1, 44, 375), &
LS_jj_me(0, 1,10, 2, 8, 3, 1, 3, 0, 9, 1, 4, 25), &
LS_jj_me(0, 1,10, 2, 8, 4, 2, 0, 1, 8,-1, 22, 375), &
LS_jj_me(0, 1, 8, 2,10, 2, 0, 4, 1, 8,-1, 9, 25), &
LS_jj_me(0, 1, 8, 2,10, 3, 1, 3, 0, 9, 1, 16, 25), &
LS_jj_me(0, 1,10, 2,10, 2, 0, 4, 1, 8, 1, 16, 25), &
LS_jj_me(0, 1,10, 2,10, 3, 1, 3, 0, 9, 1, 9, 25), &
LS_jj_me(0, 1,10, 2,12, 2, 0, 4, 1, 8, 1, 2, 5), &
LS_jj_me(0, 1,10, 2,12, 3, 1, 3, 0, 9, 1, 3, 5), &
LS_jj_me(0, 1,12, 0,12, 2, 0, 4, 1, 8,-1, 3, 5), &
LS_jj_me(0, 1,12, 0,12, 3, 1, 3, 0, 9, 1, 2, 5) /)
!
! d^7 shell
type(LS_jj_me), dimension(1:65), parameter :: &
LS_jj_d_7 = (/ &
LS_jj_me(0, 2, 2, 3, 1, 2, 0, 4, 2, 5,-1, 8, 15), &
LS_jj_me(0, 2, 2, 3, 1, 3, 1, 3, 1, 4,-1, 7, 15), &
LS_jj_me(0, 2, 2, 1, 1, 2, 0, 4, 2, 5, 1, 7, 15), &
LS_jj_me(0, 2, 2, 1, 1, 3, 1, 3, 1, 4,-1, 8, 15), &
LS_jj_me(0, 2, 2, 3, 3, 1, 1, 3, 3, 0, 1, 8,125), &
LS_jj_me(0, 2, 2, 3, 3, 2, 0, 4, 2, 5,-1, 28, 75), &
LS_jj_me(0, 2, 2, 3, 3, 3, 1, 3, 3, 0,-1, 8,375), &
LS_jj_me(0, 2, 2, 3, 3, 3, 1, 3, 1, 4,-1, 28, 75), &
LS_jj_me(0, 2, 2, 3, 3, 4, 2, 0, 0, 3,-1, 21,125), &
LS_jj_me(0, 2, 2, 1, 3, 1, 1, 3, 3, 0,-1, 7, 50), &
LS_jj_me(0, 2, 2, 1, 3, 2, 0, 4, 2, 5, 1, 4, 15), &
LS_jj_me(0, 2, 2, 1, 3, 3, 1, 3, 3, 0, 1, 7,150), &
LS_jj_me(0, 2, 2, 1, 3, 3, 1, 3, 1, 4,-1, 1, 15), &
LS_jj_me(0, 2, 2, 1, 3, 4, 2, 0, 0, 3,-1, 12, 25), &
LS_jj_me(0, 4, 4, 1, 3, 1, 1, 3, 3, 0, 1, 1, 4), &
LS_jj_me(0, 4, 4, 1, 3, 3, 1, 3, 3, 0, 1, 3, 4), &
LS_jj_me(0, 2, 4, 1, 3, 1, 1, 3, 3, 0, 1, 21,100), &
LS_jj_me(0, 2, 4, 1, 3, 3, 1, 3, 3, 0,-1, 7,100), &
LS_jj_me(0, 2, 4, 1, 3, 3, 1, 3, 1, 4, 1, 2, 5), &
LS_jj_me(0, 2, 4, 1, 3, 4, 2, 0, 0, 3,-1, 8, 25), &
LS_jj_me(0, 2, 6, 3, 3, 1, 1, 3, 3, 0, 1, 42,125), &
LS_jj_me(0, 2, 6, 3, 3, 2, 0, 4, 2, 5, 1, 9, 25), &
LS_jj_me(0, 2, 6, 3, 3, 3, 1, 3, 3, 0,-1, 14,125), &
LS_jj_me(0, 2, 6, 3, 3, 3, 1, 3, 1, 4,-1, 4, 25), &
LS_jj_me(0, 2, 6, 3, 3, 4, 2, 0, 0, 3, 1, 4,125), &
LS_jj_me(0, 2, 2, 3, 5, 2, 2, 0, 2, 5, 1, 24,125), &
LS_jj_me(0, 2, 2, 3, 5, 3, 1, 3, 1, 4,-1, 1, 25), &
LS_jj_me(0, 2, 2, 3, 5, 3, 1, 3, 1, 8,-1, 72,125), &
LS_jj_me(0, 2, 2, 3, 5, 4, 2, 0, 2, 5,-1, 24,125), &
LS_jj_me(0, 4, 4, 1, 5, 2, 2, 0, 2, 5, 1, 1, 2), &
LS_jj_me(0, 4, 4, 1, 5, 4, 2, 0, 2, 5, 1, 1, 2), &
LS_jj_me(0, 2, 4, 1, 5, 2, 2, 0, 2, 5,-1, 7,150), &
LS_jj_me(0, 2, 4, 1, 5, 2, 0, 4, 2, 5, 1, 4, 15), &
LS_jj_me(0, 2, 4, 1, 5, 3, 1, 3, 1, 4, 1, 16, 35), &
LS_jj_me(0, 2, 4, 1, 5, 3, 1, 3, 1, 8,-1, 32,175), &
LS_jj_me(0, 2, 4, 1, 5, 4, 2, 0, 2, 5, 1, 7,150), &
LS_jj_me(0, 2, 6, 3, 5, 2, 2, 0, 2, 5, 1, 28,375), &
LS_jj_me(0, 2, 6, 3, 5, 2, 0, 4, 2, 5, 1, 2, 3), &
LS_jj_me(0, 2, 6, 3, 5, 3, 1, 3, 1, 4,-1, 8,175), &
LS_jj_me(0, 2, 6, 3, 5, 3, 1, 3, 1, 8, 1,121,875), &
LS_jj_me(0, 2, 6, 3, 5, 4, 2, 0, 2, 5,-1, 28,375), &
LS_jj_me(0, 2, 6, 1, 5, 2, 2, 0, 2, 5, 1, 14, 75), &
LS_jj_me(0, 2, 6, 1, 5, 2, 0, 4, 2, 5,-1, 1, 15), &
LS_jj_me(0, 2, 6, 1, 5, 3, 1, 3, 1, 4, 1, 16, 35), &
LS_jj_me(0, 2, 6, 1, 5, 3, 1, 3, 1, 8, 1, 18,175), &
LS_jj_me(0, 2, 6, 1, 5, 4, 2, 0, 2, 5,-1, 14, 75), &
LS_jj_me(0, 2, 6, 3, 7, 2, 0, 4, 2, 5, 1, 1, 5), &
LS_jj_me(0, 2, 6, 3, 7, 3, 1, 3, 1, 4,-1, 3, 35), &
LS_jj_me(0, 2, 6, 3, 7, 3, 1, 3, 1, 8, 1, 5, 7), &
LS_jj_me(0, 2, 6, 1, 7, 2, 0, 4, 2, 5,-1, 3, 10), &
LS_jj_me(0, 2, 6, 1, 7, 3, 1, 3, 1, 4, 1,121,280), &
LS_jj_me(0, 2, 6, 1, 7, 3, 1, 3, 1, 8, 1, 15, 56), &
LS_jj_me(0, 2, 8, 1, 7, 2, 0, 4, 2, 5,-1, 1, 2), &
LS_jj_me(0, 2, 8, 1, 7, 3, 1, 3, 1, 4,-1, 27, 56), &
LS_jj_me(0, 2, 8, 1, 7, 3, 1, 3, 1, 8, 1, 1, 56), &
LS_jj_me(0, 2, 6, 3, 9, 2, 0, 4, 2, 5, 1, 2, 25), &
LS_jj_me(0, 2, 6, 3, 9, 3, 1, 3, 1, 8, 1, 11, 25), &
LS_jj_me(0, 2, 6, 3, 9, 4, 2, 0, 0, 9,-1, 12, 25), &
LS_jj_me(0, 2, 8, 1, 9, 2, 0, 4, 2, 5,-1, 49,125), &
LS_jj_me(0, 2, 8, 1, 9, 3, 1, 3, 1, 8,-1, 22,125), &
LS_jj_me(0, 2, 8, 1, 9, 4, 2, 0, 0, 9,-1, 54,125), &
LS_jj_me(0, 2,10, 1, 9, 2, 0, 4, 2, 5, 1, 66,125), &
LS_jj_me(0, 2,10, 1, 9, 3, 1, 3, 1, 8,-1, 48,125), &
LS_jj_me(0, 2,10, 1, 9, 4, 2, 0, 0, 9,-1, 11,125), &
LS_jj_me(0, 2,10, 1,11, 3, 1, 3, 1, 8,-1, 1, 1) /)
!
! d^8 shell
type(LS_jj_me), dimension(1:19), parameter :: &
LS_jj_d_8 = (/ &
LS_jj_me(0, 5, 0, 0, 0, 2, 2, 0, 3, 0, 1, 2, 5), &
LS_jj_me(0, 5, 0, 0, 0, 4, 2, 0, 3, 0, 1, 3, 5), &
LS_jj_me(0, 3, 2, 2, 0, 2, 2, 0, 3, 0,-1, 3, 5), &
LS_jj_me(0, 3, 2, 2, 0, 4, 2, 0, 3, 0, 1, 2, 5), &
LS_jj_me(0, 3, 2, 2, 2, 3, 1, 3, 2, 5, 1, 1, 1), &
LS_jj_me(0, 3, 2, 2, 4, 2, 0, 4, 3, 0,-1, 6,125), &
LS_jj_me(0, 3, 2, 2, 4, 3, 1, 3, 2, 5, 1,63,125), &
LS_jj_me(0, 3, 2, 2, 4, 4, 2, 0, 1, 4, 1,56,125), &
LS_jj_me(0, 3, 4, 0, 4, 2, 0, 4, 3, 0, 1, 7, 25), &
LS_jj_me(0, 3, 4, 0, 4, 3, 1, 3, 2, 5,-1, 6, 25), &
LS_jj_me(0, 3, 4, 0, 4, 4, 2, 0, 1, 4, 1,12, 25), &
LS_jj_me(0, 3, 6, 2, 4, 2, 0, 4, 3, 0, 1,84,125), &
LS_jj_me(0, 3, 6, 2, 4, 3, 1, 3, 2, 5, 1,32,125), &
LS_jj_me(0, 3, 6, 2, 4, 4, 2, 0, 1, 4,-1, 9,125), &
LS_jj_me(0, 3, 6, 2, 6, 3, 1, 3, 2, 5, 1, 1, 1), &
LS_jj_me(0, 3, 6, 2, 8, 3, 1, 3, 2, 5, 1, 1, 5), &
LS_jj_me(0, 3, 6, 2, 8, 4, 2, 0, 1, 8, 1, 4, 5), &
LS_jj_me(0, 3, 8, 0, 8, 3, 1, 3, 2, 5,-1, 4, 5), &
LS_jj_me(0, 3, 8, 0, 8, 4, 2, 0, 1, 8, 1, 1, 5) /)
!
! d^9 shell
type(LS_jj_me), dimension(1:2), parameter :: &
LS_jj_d_9 = (/ &
LS_jj_me(0, 4, 4, 1, 3, 3, 1, 3, 3, 0, 1, 1, 1), &
LS_jj_me(0, 4, 4, 1, 5, 4, 2, 0, 2, 5, 1, 1, 1) /)
!
! d^10 shell
type(LS_jj_me), dimension(1:1), parameter :: &
LS_jj_d_10 = (/ &
LS_jj_me(0, 5, 0, 0, 0, 4, 2, 0, 3, 0, 1, 1, 1) /)
!
! f^3 shell
type(LS_jj_me), dimension(1:216), parameter :: &
LS_jj_f_3 = (/ &
LS_jj_me(1, 4, 4, 3, 1, 1, 2, 5, 2, 4,-1, 2, 7), &
LS_jj_me(1, 4, 4, 3, 1, 2, 1, 8, 3, 7,-1, 5, 7), &
LS_jj_me(1, 4, 2, 1, 1, 1, 2, 5, 2, 4, 1, 5, 7), &
LS_jj_me(1, 4, 2, 1, 1, 2, 1, 8, 3, 7,-1, 2, 7), &
LS_jj_me(1, 4, 0, 3, 3, 0, 3, 0, 1, 3,-1, 40, 343), &
LS_jj_me(1, 4, 0, 3, 3, 1, 2, 5, 2, 4,-1, 30, 2401), &
LS_jj_me(1, 4, 0, 3, 3, 1, 2, 5, 2, 8, 1, 1188, 2401), &
LS_jj_me(1, 4, 0, 3, 3, 2, 1, 4, 3, 7, 1, 810, 2401), &
LS_jj_me(1, 4, 0, 3, 3, 2, 1, 8, 3, 7,-1, 30, 2401), &
LS_jj_me(1, 4, 0, 3, 3, 3, 0, 3, 4, 0, 1, 9, 343), &
LS_jj_me(1, 4, 4, 3, 3, 0, 3, 0, 1, 3,-1, 12, 343), &
LS_jj_me(1, 4, 4, 3, 3, 1, 2, 5, 2, 4,-1, 961, 2401), &
LS_jj_me(1, 4, 4, 3, 3, 1, 2, 5, 2, 8,-1, 110, 2401), &
LS_jj_me(1, 4, 4, 3, 3, 2, 1, 4, 3, 7,-1, 75, 2401), &
LS_jj_me(1, 4, 4, 3, 3, 2, 1, 8, 3, 7,-1, 961, 2401), &
LS_jj_me(1, 4, 4, 3, 3, 3, 0, 3, 4, 0, 1, 30, 343), &
LS_jj_me(1, 4, 6, 3, 3, 0, 3, 0, 1, 3, 1, 18, 343), &
LS_jj_me(1, 4, 6, 3, 3, 1, 2, 5, 2, 4,-1, 486, 2401), &
LS_jj_me(1, 4, 6, 3, 3, 1, 2, 5, 2, 8, 1, 165, 2401), &
LS_jj_me(1, 4, 6, 3, 3, 2, 1, 4, 3, 7,-1, 200, 2401), &
LS_jj_me(1, 4, 6, 3, 3, 2, 1, 8, 3, 7, 1, 864, 2401), &
LS_jj_me(1, 4, 6, 3, 3, 3, 0, 3, 4, 0, 1, 80, 343), &
LS_jj_me(1, 4, 2, 1, 3, 0, 3, 0, 1, 3, 1, 135, 343), &
LS_jj_me(1, 4, 2, 1, 3, 1, 2, 5, 2, 4, 1, 5, 2401), &
LS_jj_me(1, 4, 2, 1, 3, 1, 2, 5, 2, 8,-1, 198, 2401), &
LS_jj_me(1, 4, 2, 1, 3, 2, 1, 4, 3, 7, 1, 3375, 9604), &
LS_jj_me(1, 4, 2, 1, 3, 2, 1, 8, 3, 7,-1, 125, 9604), &
LS_jj_me(1, 4, 2, 1, 3, 3, 0, 3, 4, 0, 1, 54, 343), &
LS_jj_me(1, 4, 4, 1, 3, 0, 3, 0, 1, 3,-1, 867, 2401), &
LS_jj_me(1, 4, 4, 1, 3, 1, 2, 5, 2, 4, 1, 1681, 16807), &
LS_jj_me(1, 4, 4, 1, 3, 1, 2, 5, 2, 8,-1, 2750, 16807), &
LS_jj_me(1, 4, 4, 1, 3, 2, 1, 4, 3, 7, 1, 507, 67228), &
LS_jj_me(1, 4, 4, 1, 3, 2, 1, 8, 3, 7, 1, 3721, 67228), &
LS_jj_me(1, 4, 4, 1, 3, 3, 0, 3, 4, 0, 1, 750, 2401), &
LS_jj_me(2, 4, 4, 1, 3, 0, 3, 0, 1, 3,-1, 99, 2401), &
LS_jj_me(2, 4, 4, 1, 3, 1, 2, 5, 2, 4,-1, 4752, 16807), &
LS_jj_me(2, 4, 4, 1, 3, 1, 2, 5, 2, 8,-1, 2430, 16807), &
LS_jj_me(2, 4, 4, 1, 3, 2, 1, 4, 3, 7, 1, 3179, 16807), &
LS_jj_me(2, 4, 4, 1, 3, 2, 1, 8, 3, 7, 1, 2673, 16807), &
LS_jj_me(2, 4, 4, 1, 3, 3, 0, 3, 4, 0,-1, 440, 2401), &
LS_jj_me(1, 4, 4, 3, 5, 0, 3, 0, 1, 5, 1, 176, 1029), &
LS_jj_me(1, 4, 4, 3, 5, 1, 2, 5, 4, 0, 1, 10, 343), &
LS_jj_me(1, 4, 4, 3, 5, 1, 2, 5, 2, 4,-1, 48, 343), &
LS_jj_me(1, 4, 4, 3, 5, 1, 2, 5, 2, 8,-1, 220, 1029), &
LS_jj_me(1, 4, 4, 3, 5, 2, 1, 4, 3, 7,-1, 100, 343), &
LS_jj_me(1, 4, 4, 3, 5, 2, 1, 8, 3, 7,-1, 33, 343), &
LS_jj_me(1, 4, 4, 3, 5, 3, 2, 5, 4, 0,-1, 20, 343), &
LS_jj_me(1, 4, 6, 3, 5, 0, 3, 0, 1, 5, 1, 11, 196), &
LS_jj_me(1, 4, 6, 3, 5, 1, 2, 5, 4, 0,-1, 5, 294), &
LS_jj_me(1, 4, 6, 3, 5, 1, 2, 5, 2, 4,-1, 1, 196), &
LS_jj_me(1, 4, 6, 3, 5, 1, 2, 5, 2, 8, 1, 55, 196), &
LS_jj_me(1, 4, 6, 3, 5, 2, 1, 4, 3, 7,-1, 75, 196), &
LS_jj_me(1, 4, 6, 3, 5, 2, 1, 8, 3, 7, 1, 11, 49), &
LS_jj_me(1, 4, 6, 3, 5, 3, 2, 5, 4, 0, 1, 5, 147), &
LS_jj_me(1, 4, 8, 3, 5, 0, 3, 0, 1, 5, 1, 15, 1372), &
LS_jj_me(1, 4, 8, 3, 5, 1, 2, 5, 4, 0,-1, 99, 686), &
LS_jj_me(1, 4, 8, 3, 5, 1, 2, 5, 2, 4, 1, 165, 1372), &
LS_jj_me(1, 4, 8, 3, 5, 1, 2, 5, 2, 8, 1, 3, 1372), &
LS_jj_me(1, 4, 8, 3, 5, 2, 1, 4, 3, 7,-1, 55, 1372), &
LS_jj_me(1, 4, 8, 3, 5, 2, 1, 8, 3, 7,-1, 135, 343), &
LS_jj_me(1, 4, 8, 3, 5, 3, 2, 5, 4, 0, 1, 99, 343), &
LS_jj_me(1, 4, 4, 1, 5, 0, 3, 0, 1, 5,-1, 88, 1029), &
LS_jj_me(1, 4, 4, 1, 5, 1, 2, 5, 4, 0,-1, 5, 343), &
LS_jj_me(1, 4, 4, 1, 5, 1, 2, 5, 2, 4, 1, 54, 343), &
LS_jj_me(1, 4, 4, 1, 5, 1, 2, 5, 2, 8,-1, 440, 1029), &
LS_jj_me(1, 4, 4, 1, 5, 2, 1, 4, 3, 7,-1, 32, 343), &
LS_jj_me(1, 4, 4, 1, 5, 2, 1, 8, 3, 7, 1, 66, 343), &
LS_jj_me(1, 4, 4, 1, 5, 3, 2, 5, 4, 0, 1, 10, 343), &
LS_jj_me(2, 4, 4, 1, 5, 0, 3, 0, 1, 5, 1, 162, 343), &
LS_jj_me(2, 4, 4, 1, 5, 1, 2, 5, 4, 0,-1, 55, 1029), &
LS_jj_me(2, 4, 4, 1, 5, 1, 2, 5, 2, 4,-1, 11, 686), &
LS_jj_me(2, 4, 4, 1, 5, 1, 2, 5, 2, 8,-1, 45, 686), &
LS_jj_me(2, 4, 4, 1, 5, 2, 1, 4, 3, 7, 1, 66, 343), &
LS_jj_me(2, 4, 4, 1, 5, 2, 1, 8, 3, 7, 1, 32, 343), &
LS_jj_me(2, 4, 4, 1, 5, 3, 2, 5, 4, 0, 1, 110, 1029), &
LS_jj_me(1, 6, 6, 1, 5, 1, 2, 5, 4, 0, 1, 2, 3), &
LS_jj_me(1, 6, 6, 1, 5, 3, 2, 5, 4, 0, 1, 1, 3), &
LS_jj_me(2, 4, 6, 1, 5, 0, 3, 0, 1, 5,-1, 10, 49), &
LS_jj_me(2, 4, 6, 1, 5, 1, 2, 5, 4, 0,-1, 11, 147), &
LS_jj_me(2, 4, 6, 1, 5, 1, 2, 5, 2, 4,-1, 55, 98), &
LS_jj_me(2, 4, 6, 1, 5, 1, 2, 5, 2, 8,-1, 1, 98), &
LS_jj_me(2, 4, 6, 1, 5, 3, 2, 5, 4, 0, 1, 22, 147), &
LS_jj_me(1, 4, 4, 3, 7, 0, 3, 0, 3, 7, 1, 60, 343), &
LS_jj_me(1, 4, 4, 3, 7, 1, 2, 5, 2, 4,-1, 3, 343), &
LS_jj_me(1, 4, 4, 3, 7, 1, 2, 5, 2, 8,-1, 25, 343), &
LS_jj_me(1, 4, 4, 3, 7, 1, 2, 5, 2,12,-1, 195, 343), &
LS_jj_me(1, 4, 4, 3, 7, 2, 3, 0, 3, 7,-1, 60, 343), &
LS_jj_me(1, 4, 6, 3, 7, 0, 3, 0, 3, 7,-1, 3, 98), &
LS_jj_me(1, 4, 6, 3, 7, 1, 2, 5, 2, 4,-1, 5, 294), &
LS_jj_me(1, 4, 6, 3, 7, 1, 2, 5, 2, 8, 1, 45, 98), &
LS_jj_me(1, 4, 6, 3, 7, 1, 2, 5, 2,12,-1, 26, 147), &
LS_jj_me(1, 4, 6, 3, 7, 2, 3, 0, 3, 7, 1, 3, 98), &
LS_jj_me(1, 4, 6, 3, 7, 2, 1, 4, 3, 7,-1, 45, 196), &
LS_jj_me(1, 4, 6, 3, 7, 2, 1, 8, 3, 7, 1, 11, 196), &
LS_jj_me(1, 4, 8, 3, 7, 0, 3, 0, 3, 7,-1, 55, 686), &
LS_jj_me(1, 4, 8, 3, 7, 1, 2, 5, 2, 4, 1, 275, 6174), &
LS_jj_me(1, 4, 8, 3, 7, 1, 2, 5, 2, 8,-1, 507, 7546), &
LS_jj_me(1, 4, 8, 3, 7, 1, 2, 5, 2,12,-1, 2080, 33957), &
LS_jj_me(1, 4, 8, 3, 7, 2, 3, 0, 3, 7, 1, 55, 686), &
LS_jj_me(1, 4, 8, 3, 7, 2, 1, 4, 3, 7,-1, 11, 84), &
LS_jj_me(1, 4, 8, 3, 7, 2, 1, 8, 3, 7,-1, 15, 28), &
LS_jj_me(1, 6, 6, 1, 7, 0, 3, 0, 3, 7, 1, 1, 2), &
LS_jj_me(1, 6, 6, 1, 7, 2, 3, 0, 3, 7, 1, 1, 2), &
LS_jj_me(2, 4, 6, 1, 7, 0, 3, 0, 3, 7, 1, 11, 196), &
LS_jj_me(2, 4, 6, 1, 7, 1, 2, 5, 2, 4,-1, 55, 196), &
LS_jj_me(2, 4, 6, 1, 7, 1, 2, 5, 2, 8,-1, 15, 539), &
LS_jj_me(2, 4, 6, 1, 7, 1, 2, 5, 2,12, 1, 325, 2156), &
LS_jj_me(2, 4, 6, 1, 7, 2, 3, 0, 3, 7,-1, 11, 196), &
LS_jj_me(2, 4, 6, 1, 7, 2, 1, 4, 3, 7,-1, 165, 392), &
LS_jj_me(2, 4, 6, 1, 7, 2, 1, 8, 3, 7,-1, 3, 392), &
LS_jj_me(1, 4, 8, 1, 7, 0, 3, 0, 3, 7,-1, 11, 686), &
LS_jj_me(1, 4, 8, 1, 7, 1, 2, 5, 2, 4,-1, 1760, 3087), &
LS_jj_me(1, 4, 8, 1, 7, 1, 2, 5, 2, 8, 1, 120, 3773), &
LS_jj_me(1, 4, 8, 1, 7, 1, 2, 5, 2,12,-1, 416, 33957), &
LS_jj_me(1, 4, 8, 1, 7, 2, 3, 0, 3, 7, 1, 11, 686), &
LS_jj_me(1, 4, 8, 1, 7, 2, 1, 4, 3, 7, 1, 220, 1029), &
LS_jj_me(1, 4, 8, 1, 7, 2, 1, 8, 3, 7,-1, 48, 343), &
LS_jj_me(2, 4, 8, 1, 7, 0, 3, 0, 3, 7,-1, 195, 1372), &
LS_jj_me(2, 4, 8, 1, 7, 1, 2, 5, 2, 4,-1, 325, 4116), &
LS_jj_me(2, 4, 8, 1, 7, 1, 2, 5, 2, 8,-1, 117, 343), &
LS_jj_me(2, 4, 8, 1, 7, 1, 2, 5, 2,12,-1, 125, 4116), &
LS_jj_me(2, 4, 8, 1, 7, 2, 3, 0, 3, 7, 1, 195, 1372), &
LS_jj_me(2, 4, 8, 1, 7, 2, 1, 4, 3, 7,-1, 13, 2744), &
LS_jj_me(2, 4, 8, 1, 7, 2, 1, 8, 3, 7, 1, 715, 2744), &
LS_jj_me(1, 4, 6, 3, 9, 0, 3, 0, 1, 9, 1, 429, 1372), &
LS_jj_me(1, 4, 6, 3, 9, 1, 2, 5, 2, 4,-1, 169, 28812), &
LS_jj_me(1, 4, 6, 3, 9, 1, 2, 5, 2, 8, 1, 2025, 9604), &
LS_jj_me(1, 4, 6, 3, 9, 1, 2, 5, 2,12,-1, 13, 42), &
LS_jj_me(1, 4, 6, 3, 9, 2, 1, 4, 3, 7,-1, 891, 9604), &
LS_jj_me(1, 4, 6, 3, 9, 2, 1, 8, 3, 7, 1, 143, 2401), &
LS_jj_me(1, 4, 6, 3, 9, 3, 0, 9, 4, 0, 1, 3, 343), &
LS_jj_me(1, 4, 8, 3, 9, 0, 3, 0, 1, 9,-1, 325, 15092), &
LS_jj_me(1, 4, 8, 3, 9, 1, 2, 5, 2, 4, 1, 9025, 86436), &
LS_jj_me(1, 4, 8, 3, 9, 1, 2, 5, 2, 8,-1,220323,1162084), &
LS_jj_me(1, 4, 8, 3, 9, 1, 2, 5, 2,12,-1, 6877, 15246), &
LS_jj_me(1, 4, 8, 3, 9, 2, 1, 4, 3, 7,-1, 9025, 316932), &
LS_jj_me(1, 4, 8, 3, 9, 2, 1, 8, 3, 7,-1, 429, 2401), &
LS_jj_me(1, 4, 8, 3, 9, 3, 0, 9, 4, 0,-1, 9, 343), &
LS_jj_me(1, 4,12, 3, 9, 0, 3, 0, 1, 9, 1, 48, 3773), &
LS_jj_me(1, 4,12, 3, 9, 1, 2, 5, 2, 4, 1, 156, 2401), &
LS_jj_me(1, 4,12, 3, 9, 1, 2, 5, 2, 8,-1, 20800, 290521), &
LS_jj_me(1, 4,12, 3, 9, 1, 2, 5, 2,12, 1, 6, 847), &
LS_jj_me(1, 4,12, 3, 9, 2, 1, 4, 3, 7,-1, 468, 26411), &
LS_jj_me(1, 4,12, 3, 9, 2, 1, 8, 3, 7, 1, 891, 2401), &
LS_jj_me(1, 4,12, 3, 9, 3, 0, 9, 4, 0,-1, 156, 343), &
LS_jj_me(1, 4, 8, 1, 9, 0, 3, 0, 1, 9, 1, 832, 2401), &
LS_jj_me(1, 4, 8, 1, 9, 1, 2, 5, 2, 4,-1, 7436, 151263), &
LS_jj_me(1, 4, 8, 1, 9, 1, 2, 5, 2, 8,-1, 11532, 184877), &
LS_jj_me(1, 4, 8, 1, 9, 1, 2, 5, 2,12,-1, 26, 4851), &
LS_jj_me(1, 4, 8, 1, 9, 2, 1, 4, 3, 7, 1, 23104, 50421), &
LS_jj_me(1, 4, 8, 1, 9, 2, 1, 8, 3, 7,-1, 624, 16807), &
LS_jj_me(1, 4, 8, 1, 9, 3, 0, 9, 4, 0,-1, 99, 2401), &
LS_jj_me(2, 4, 8, 1, 9, 0, 3, 0, 1, 9,-1, 330, 2401), &
LS_jj_me(2, 4, 8, 1, 9, 1, 2, 5, 2, 4,-1, 23465, 100842), &
LS_jj_me(2, 4, 8, 1, 9, 1, 2, 5, 2, 8,-1, 14157, 168070), &
LS_jj_me(2, 4, 8, 1, 9, 1, 2, 5, 2,12,-1, 121, 735), &
LS_jj_me(2, 4, 8, 1, 9, 2, 1, 4, 3, 7, 1, 4576, 84035), &
LS_jj_me(2, 4, 8, 1, 9, 2, 1, 8, 3, 7, 1, 22528, 84035), &
LS_jj_me(2, 4, 8, 1, 9, 3, 0, 9, 4, 0, 1, 702, 12005), &
LS_jj_me(1, 4,10, 1, 9, 0, 3, 0, 1, 9,-1, 104, 1029), &
LS_jj_me(1, 4,10, 1, 9, 1, 2, 5, 2, 4, 1, 1408, 7203), &
LS_jj_me(1, 4,10, 1, 9, 1, 2, 5, 2, 8, 1, 7442, 26411), &
LS_jj_me(1, 4,10, 1, 9, 1, 2, 5, 2,12,-1, 13, 231), &
LS_jj_me(1, 4,10, 1, 9, 2, 1, 4, 3, 7, 1, 800, 2401), &
LS_jj_me(1, 4,10, 1, 9, 2, 1, 8, 3, 7, 1, 26, 2401), &
LS_jj_me(1, 4,10, 1, 9, 3, 0, 9, 4, 0,-1, 22, 1029), &
LS_jj_me(2, 4,10, 1, 9, 0, 3, 0, 1, 9, 1, 10, 147), &
LS_jj_me(2, 4,10, 1, 9, 1, 2, 5, 2, 4, 1, 715, 2058), &
LS_jj_me(2, 4,10, 1, 9, 1, 2, 5, 2, 8,-1, 3757, 37730), &
LS_jj_me(2, 4,10, 1, 9, 1, 2, 5, 2,12, 1, 1, 165), &
LS_jj_me(2, 4,10, 1, 9, 2, 1, 4, 3, 7, 1, 26, 1715), &
LS_jj_me(2, 4,10, 1, 9, 2, 1, 8, 3, 7, 1, 128, 1715), &
LS_jj_me(2, 4,10, 1, 9, 3, 0, 9, 4, 0, 1, 286, 735), &
LS_jj_me(1, 4, 8, 3,11, 0, 3, 0, 1,11,-1, 30, 77), &
LS_jj_me(1, 4, 8, 3,11, 1, 2, 5, 2, 8,-1, 39, 847), &
LS_jj_me(1, 4, 8, 3,11, 1, 2, 5, 2,12,-1, 390, 847), &
LS_jj_me(1, 4, 8, 3,11, 2, 1, 4, 3, 7,-1, 8, 77), &
LS_jj_me(1, 4,12, 3,11, 0, 3, 0, 1,11,-1, 52, 1617), &
LS_jj_me(1, 4,12, 3,11, 1, 2, 5, 2, 8,-1, 10, 363), &
LS_jj_me(1, 4,12, 3,11, 1, 2, 5, 2,12, 1, 867, 5929), &
LS_jj_me(1, 4,12, 3,11, 2, 1, 4, 3, 7,-1, 65, 539), &
LS_jj_me(1, 4,12, 3,11, 2, 1, 8, 3, 7, 1, 33, 49), &
LS_jj_me(1, 4,10, 1,11, 0, 3, 0, 1,11,-1, 1, 21), &
LS_jj_me(1, 4,10, 1,11, 1, 2, 5, 2, 8, 1, 130, 231), &
LS_jj_me(1, 4,10, 1,11, 1, 2, 5, 2,12,-1, 13, 231), &
LS_jj_me(1, 4,10, 1,11, 2, 1, 4, 3, 7, 1, 5, 28), &
LS_jj_me(1, 4,10, 1,11, 2, 1, 8, 3, 7, 1, 13, 84), &
LS_jj_me(2, 4,10, 1,11, 0, 3, 0, 1,11,-1, 65, 147), &
LS_jj_me(2, 4,10, 1,11, 1, 2, 5, 2, 8,-1, 2, 33), &
LS_jj_me(2, 4,10, 1,11, 1, 2, 5, 2,12, 1, 320, 1617), &
LS_jj_me(2, 4,10, 1,11, 2, 1, 4, 3, 7, 1, 13, 49), &
LS_jj_me(2, 4,10, 1,11, 2, 1, 8, 3, 7,-1, 5, 147), &
LS_jj_me(1, 4,12, 1,11, 0, 3, 0, 1,11, 1, 13, 147), &
LS_jj_me(1, 4,12, 1,11, 1, 2, 5, 2, 8,-1, 10, 33), &
LS_jj_me(1, 4,12, 1,11, 1, 2, 5, 2,12,-1, 75, 539), &
LS_jj_me(1, 4,12, 1,11, 2, 1, 4, 3, 7, 1, 65, 196), &
LS_jj_me(1, 4,12, 1,11, 2, 1, 8, 3, 7, 1, 27, 196), &
LS_jj_me(1, 4,12, 3,13, 1, 2, 5, 2, 8,-1, 10, 77), &
LS_jj_me(1, 4,12, 3,13, 1, 2, 5, 2,12, 1, 8, 11), &
LS_jj_me(1, 4,12, 3,13, 2, 1, 8, 3, 7, 1, 1, 7), &
LS_jj_me(1, 4,12, 1,13, 1, 2, 5, 2, 8,-1, 289, 539), &
LS_jj_me(1, 4,12, 1,13, 1, 2, 5, 2,12,-1, 20, 77), &
LS_jj_me(1, 4,12, 1,13, 2, 1, 8, 3, 7, 1, 10, 49), &
LS_jj_me(1, 4,14, 1,13, 1, 2, 5, 2, 8, 1, 180, 539), &
LS_jj_me(1, 4,14, 1,13, 1, 2, 5, 2,12,-1, 1, 77), &
LS_jj_me(1, 4,14, 1,13, 2, 1, 8, 3, 7, 1, 32, 49), &
LS_jj_me(1, 4,12, 3,15, 0, 3, 0, 1,15,-1, 30, 49), &
LS_jj_me(1, 4,12, 3,15, 1, 2, 5, 2,12, 1, 17, 49), &
LS_jj_me(1, 4,12, 3,15, 2, 1, 8, 3, 7, 1, 2, 49), &
LS_jj_me(1, 4,14, 1,15, 0, 3, 0, 1,15, 1, 135, 392), &
LS_jj_me(1, 4,14, 1,15, 1, 2, 5, 2,12, 1, 17, 49), &
LS_jj_me(1, 4,14, 1,15, 2, 1, 8, 3, 7, 1, 121, 392), &
LS_jj_me(1, 4,16, 1,15, 0, 3, 0, 1,15,-1, 17, 392), &
LS_jj_me(1, 4,16, 1,15, 1, 2, 5, 2,12,-1, 15, 49), &
LS_jj_me(1, 4,16, 1,15, 2, 1, 8, 3, 7, 1, 255, 392), &
LS_jj_me(1, 4,16, 1,17, 1, 2, 5, 2,12,-1, 1, 1) /)
!
! f^4 shell
type(LS_jj_me), dimension(1:1210), parameter :: &
LS_jj_f_4 = (/ &
LS_jj_me(1, 3, 4, 4, 0, 0, 3, 0, 4, 0, 1, 30, 343), &
LS_jj_me(1, 3, 4, 4, 0, 1, 2, 5, 1, 5,-1, 11, 343), &
LS_jj_me(1, 3, 4, 4, 0, 2, 3, 0, 4, 0,-1, 60, 343), &
LS_jj_me(1, 3, 4, 4, 0, 2, 1, 4, 2, 4, 1, 72, 343), &
LS_jj_me(1, 3, 4, 4, 0, 2, 1, 8, 2, 8, 1, 110, 343), &
LS_jj_me(1, 3, 4, 4, 0, 4, 3, 0, 4, 0, 1, 60, 343), &
LS_jj_me(1, 5, 2, 2, 0, 0, 3, 0, 4, 0,-1, 18, 35), &
LS_jj_me(1, 5, 2, 2, 0, 2, 3, 0, 4, 0, 1, 1, 35), &
LS_jj_me(1, 5, 2, 2, 0, 4, 3, 0, 4, 0, 1, 16, 35), &
LS_jj_me(2, 3, 2, 2, 0, 0, 3, 0, 4, 0,-1, 1, 3430), &
LS_jj_me(2, 3, 2, 2, 0, 1, 2, 5, 1, 5, 1, 275, 1029), &
LS_jj_me(2, 3, 2, 2, 0, 2, 3, 0, 4, 0, 1, 1, 1715), &
LS_jj_me(2, 3, 2, 2, 0, 2, 1, 4, 2, 4,-1, 625, 2058), &
LS_jj_me(2, 3, 2, 2, 0, 2, 1, 8, 2, 8, 1, 440, 1029), &
LS_jj_me(2, 3, 2, 2, 0, 4, 3, 0, 4, 0,-1, 1, 1715), &
LS_jj_me(3, 3, 2, 2, 0, 0, 3, 0, 4, 0,-1, 55, 686), &
LS_jj_me(3, 3, 2, 2, 0, 1, 2, 5, 1, 5,-1, 361, 1029), &
LS_jj_me(3, 3, 2, 2, 0, 2, 3, 0, 4, 0, 1, 55, 343), &