-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathgckpp_JacobianSP.F90
1093 lines (1079 loc) · 78.1 KB
/
gckpp_JacobianSP.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
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
! Sparse Jacobian Data Structures File
!
! Generated by KPP-3.1.1 symbolic chemistry Kinetics PreProcessor
! (https:/github.com/KineticPreProcessor/KPP
! KPP is distributed under GPL, the general public licence
! (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2022, A. Sandu, Michigan Tech, Virginia Tech
! With important contributions from:
! M. Damian, Villanova University, Philadelphia, PA, USA
! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! M. Long, Renaissance Fiber, LLC, North Carolina, USA
! H. Lin, Harvard University, Cambridge, MA, USA
! R. Yantosca, Harvard University, Cambridge, MA, USA
!
! File : gckpp_JacobianSP.F90
! Equation file : gckpp.kpp
! Output root filename : gckpp
!
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
MODULE gckpp_JacobianSP
PUBLIC
SAVE
! Sparse Jacobian Data
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ &
1, 2, 3, 4, 4, 4, 4, 4, 5, 5, 6, 6, & ! index 1 - 12
6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 13 - 24
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 25 - 36
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 37 - 48
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 49 - 60
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! index 61 - 72
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, & ! index 73 - 84
8, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, & ! index 85 - 96
10, 10, 10, 10, 10, 11, 11, 11, 12, 12, 12, 13, & ! index 97 - 108
13, 13, 13, 13, 14, 14, 14, 15, 15, 15, 16, 16, & ! index 109 - 120
16, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 20, & ! index 121 - 132
20, 20, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, & ! index 133 - 144
24, 24, 24, 24, 24, 24, 25, 25, 25, 26, 26, 26, & ! index 145 - 156
27, 27, 27, 27, 27, 28, 28, 28, 29, 29, 29, 29, & ! index 157 - 168
30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 32, 32, & ! index 169 - 180
32, 32, 32, 33, 33, 33, 33, 34, 34, 34, 34, 34, & ! index 181 - 192
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 193 - 204
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 205 - 216
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 217 - 228
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 229 - 240
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 241 - 252
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 253 - 264
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 265 - 276
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 277 - 288
34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 289 - 300
34, 34, 34, 34, 34, 35, 35, 35, 35, 35, 35, 35, & ! index 301 - 312
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 313 - 324
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 325 - 336
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 337 - 348
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35 /) ! index up to 360
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ &
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 361 - 372
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 373 - 384
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 385 - 396
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 397 - 408
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 409 - 420
35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 36, & ! index 421 - 432
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 433 - 444
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 445 - 456
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 457 - 468
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 469 - 480
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 481 - 492
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 493 - 504
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 505 - 516
36, 36, 36, 36, 37, 37, 37, 37, 37, 38, 38, 38, & ! index 517 - 528
38, 38, 38, 38, 38, 38, 38, 38, 39, 39, 39, 39, & ! index 529 - 540
39, 40, 40, 40, 40, 40, 40, 40, 40, 40, 41, 41, & ! index 541 - 552
42, 42, 43, 43, 44, 44, 45, 45, 45, 45, 46, 46, & ! index 553 - 564
47, 47, 48, 48, 49, 49, 50, 50, 51, 51, 52, 52, & ! index 565 - 576
53, 53, 54, 54, 55, 55, 55, 56, 56, 56, 57, 57, & ! index 577 - 588
57, 58, 58, 58, 59, 59, 59, 60, 60, 61, 61, 62, & ! index 589 - 600
62, 62, 63, 63, 63, 63, 64, 64, 64, 64, 65, 65, & ! index 601 - 612
65, 65, 66, 66, 66, 66, 66, 67, 67, 67, 68, 68, & ! index 613 - 624
68, 69, 69, 69, 70, 70, 70, 70, 71, 71, 71, 71, & ! index 625 - 636
72, 72, 72, 72, 73, 73, 73, 73, 74, 74, 74, 74, & ! index 637 - 648
75, 75, 75, 76, 76, 76, 77, 77, 77, 77, 77, 77, & ! index 649 - 660
78, 78, 78, 79, 79, 79, 80, 80, 80, 81, 81, 81, & ! index 661 - 672
82, 82, 83, 83, 83, 83, 84, 84, 84, 85, 85, 85, & ! index 673 - 684
86, 86, 86, 87, 87, 87, 88, 88, 88, 88, 89, 89, & ! index 685 - 696
89, 89, 90, 90, 90, 90, 91, 91, 91, 91, 92, 92, & ! index 697 - 708
92, 92, 93, 93, 93, 93, 94, 94, 94, 95, 95, 95 /) ! index up to 720
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_2 = (/ &
95, 96, 96, 96, 96, 96, 96, 96, 97, 97, 97, 97, & ! index 721 - 732
98, 98, 98, 98, 99, 99, 99, 99,100,100,100,100, & ! index 733 - 744
101,101,102,102,102,102,103,103,103,103,103,103, & ! index 745 - 756
103,103,103,103,103,103,103,103,104,104,104,104, & ! index 757 - 768
104,104,104,104,105,105,105,106,106,106,106,106, & ! index 769 - 780
106,107,107,107,107,108,108,108,108,109,109,109, & ! index 781 - 792
109,110,110,110,110,110,110,110,111,111,111,111, & ! index 793 - 804
112,112,112,112,113,113,113,113,114,114,114,114, & ! index 805 - 816
115,115,115,115,115,115,116,116,116,116,117,117, & ! index 817 - 828
117,117,117,117,117,118,118,118,118,118,119,119, & ! index 829 - 840
119,119,119,120,120,120,120,120,121,121,121,121, & ! index 841 - 852
121,121,122,122,122,122,123,123,123,123,124,124, & ! index 853 - 864
124,124,125,125,125,125,126,126,126,126,127,127, & ! index 865 - 876
127,127,128,128,128,128,128,128,129,129,129,129, & ! index 877 - 888
129,129,129,129,129,129,129,129,130,130,130,130, & ! index 889 - 900
130,131,131,131,131,131,131,132,132,132,132,132, & ! index 901 - 912
133,133,133,133,133,134,134,134,134,134,134,134, & ! index 913 - 924
134,134,134,134,134,135,135,135,135,135,136,136, & ! index 925 - 936
136,136,136,137,137,137,137,138,138,138,138,139, & ! index 937 - 948
139,139,139,140,140,140,140,141,141,141,141,142, & ! index 949 - 960
142,142,142,143,143,143,143,144,144,144,144,144, & ! index 961 - 972
145,145,145,145,145,145,145,145,145,146,146,146, & ! index 973 - 984
146,146,146,147,147,147,147,148,148,148,148,148, & ! index 985 - 996
148,148,148,148,149,149,149,150,150,150,150,150, & ! index 997 - 1008
151,151,151,151,151,151,152,152,152,152,152,152, & ! index 1009 - 1020
153,153,153,153,153,153,154,154,154,154,154,154, & ! index 1021 - 1032
155,155,155,155,155,155,156,156,156,156,156,156, & ! index 1033 - 1044
157,157,157,157,157,157,157,157,157,157,157,157, & ! index 1045 - 1056
157,157,158,158,158,158,158,158,158,159,159,159, & ! index 1057 - 1068
159,160,160,160,160,160,161,161,161,161,161,162 /) ! index up to 1080
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_3 = (/ &
162,162,162,162,162,163,163,163,163,163,163,163, & ! index 1081 - 1092
163,164,164,164,164,164,165,165,165,165,165,166, & ! index 1093 - 1104
166,166,166,166,167,167,167,167,168,168,168,168, & ! index 1105 - 1116
169,169,169,169,169,169,170,170,170,170,170,170, & ! index 1117 - 1128
170,170,171,171,171,171,171,171,172,172,172,172, & ! index 1129 - 1140
172,172,173,173,173,173,173,173,173,173,173,173, & ! index 1141 - 1152
173,173,174,174,174,174,174,174,175,175,175,175, & ! index 1153 - 1164
176,176,176,176,176,176,177,177,177,177,177,177, & ! index 1165 - 1176
177,177,177,178,178,178,178,178,178,178,179,179, & ! index 1177 - 1188
179,179,179,180,180,180,180,180,181,181,181,181, & ! index 1189 - 1200
182,182,182,182,182,182,183,183,183,183,183,184, & ! index 1201 - 1212
184,184,184,184,185,185,185,185,185,185,185,185, & ! index 1213 - 1224
185,186,186,186,186,187,187,187,187,188,188,188, & ! index 1225 - 1236
188,188,188,188,188,188,188,188,188,188,189,189, & ! index 1237 - 1248
189,189,189,189,189,189,190,190,190,190,190,190, & ! index 1249 - 1260
191,191,191,191,192,192,192,192,193,193,193,193, & ! index 1261 - 1272
193,193,194,194,194,194,194,194,195,195,195,195, & ! index 1273 - 1284
195,195,196,196,196,196,196,196,196,197,197,197, & ! index 1285 - 1296
197,197,197,197,198,198,198,198,198,198,198,199, & ! index 1297 - 1308
199,199,199,200,200,200,201,201,201,201,201,201, & ! index 1309 - 1320
201,201,201,202,202,202,202,202,202,202,202,203, & ! index 1321 - 1332
203,203,203,203,203,203,203,203,203,203,203,203, & ! index 1333 - 1344
203,203,203,204,204,204,204,204,204,204,204,204, & ! index 1345 - 1356
204,204,204,204,205,205,205,205,205,205,206,206, & ! index 1357 - 1368
206,206,206,207,207,207,207,207,208,208,208,208, & ! index 1369 - 1380
208,208,208,208,208,208,208,208,209,209,209,209, & ! index 1381 - 1392
210,210,210,210,210,210,210,210,210,210,210,211, & ! index 1393 - 1404
211,211,211,211,211,212,212,212,212,212,212,212, & ! index 1405 - 1416
213,213,213,213,213,213,213,213,214,214,214,214, & ! index 1417 - 1428
214,214,214,215,215,215,215,215,215,215,215,215 /) ! index up to 1440
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_4 = (/ &
215,215,215,215,215,215,215,215,215,215,215,215, & ! index 1441 - 1452
215,215,215,215,216,216,216,216,216,216,216,216, & ! index 1453 - 1464
216,216,216,216,217,217,217,217,217,217,217,217, & ! index 1465 - 1476
217,217,217,217,218,218,218,218,218,218,219,219, & ! index 1477 - 1488
219,219,220,220,220,220,221,221,221,221,221,221, & ! index 1489 - 1500
221,221,221,221,221,221,221,222,222,222,222,222, & ! index 1501 - 1512
222,223,223,223,223,223,223,223,224,224,224,224, & ! index 1513 - 1524
224,224,224,225,225,225,225,225,225,225,225,225, & ! index 1525 - 1536
225,225,225,226,226,226,226,226,226,227,227,227, & ! index 1537 - 1548
227,227,227,227,227,227,227,227,227,227,227,227, & ! index 1549 - 1560
227,227,228,228,228,228,228,228,228,229,229,229, & ! index 1561 - 1572
229,229,229,230,230,230,230,230,230,231,231,231, & ! index 1573 - 1584
231,231,231,232,232,232,232,232,232,232,232,233, & ! index 1585 - 1596
233,233,233,233,233,233,233,234,234,234,234,234, & ! index 1597 - 1608
234,234,234,234,234,234,235,235,235,235,235,235, & ! index 1609 - 1620
235,235,235,235,235,235,236,236,236,236,236,236, & ! index 1621 - 1632
236,236,236,236,236,236,236,236,237,237,237,237, & ! index 1633 - 1644
237,237,237,237,237,238,238,238,238,238,238,238, & ! index 1645 - 1656
238,238,238,238,239,239,239,239,239,239,239,239, & ! index 1657 - 1668
239,239,239,239,239,239,239,239,239,239,239,239, & ! index 1669 - 1680
239,240,240,240,240,240,240,240,240,240,241,241, & ! index 1681 - 1692
241,241,241,241,241,241,242,242,242,242,242,242, & ! index 1693 - 1704
242,242,242,242,242,242,243,243,243,243,243,243, & ! index 1705 - 1716
243,243,243,243,243,243,244,244,244,244,244,244, & ! index 1717 - 1728
244,244,244,244,244,244,244,244,244,244,245,245, & ! index 1729 - 1740
245,245,245,245,245,245,245,245,245,245,245,245, & ! index 1741 - 1752
246,246,246,246,246,246,246,247,247,247,247,247, & ! index 1753 - 1764
247,247,247,247,247,247,247,247,247,247,247,247, & ! index 1765 - 1776
247,247,247,247,247,248,248,248,248,248,248,248, & ! index 1777 - 1788
248,248,248,248,248,248,248,248,249,249,249,249 /) ! index up to 1800
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_5 = (/ &
249,249,249,250,250,250,250,250,250,250,250,250, & ! index 1801 - 1812
251,251,251,251,251,251,251,252,252,252,252,252, & ! index 1813 - 1824
252,252,253,253,253,253,253,253,253,253,253,253, & ! index 1825 - 1836
253,254,254,254,254,254,254,254,254,254,254,254, & ! index 1837 - 1848
255,255,255,255,255,255,255,255,255,255,256,256, & ! index 1849 - 1860
256,256,256,256,256,256,256,256,256,256,256,256, & ! index 1861 - 1872
256,256,256,256,256,256,256,256,257,257,257,257, & ! index 1873 - 1884
257,257,257,257,257,257,257,257,257,257,258,258, & ! index 1885 - 1896
258,258,258,258,258,258,258,258,258,258,258,258, & ! index 1897 - 1908
258,259,259,259,259,259,259,259,259,259,259,260, & ! index 1909 - 1920
260,260,260,260,260,260,260,260,260,261,261,261, & ! index 1921 - 1932
261,261,261,261,261,261,261,261,261,261,261,261, & ! index 1933 - 1944
261,261,262,262,262,262,262,262,262,262,262,262, & ! index 1945 - 1956
262,262,263,263,263,263,263,263,263,263,263,263, & ! index 1957 - 1968
263,263,263,263,263,263,263,263,263,263,263,263, & ! index 1969 - 1980
263,263,263,263,263,263,263,263,263,263,263,263, & ! index 1981 - 1992
264,264,264,264,264,264,264,264,264,264,264,264, & ! index 1993 - 2004
264,264,264,264,265,265,265,265,265,265,265,265, & ! index 2005 - 2016
265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2017 - 2028
265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2029 - 2040
266,266,266,266,266,266,266,266,266,266,266,266, & ! index 2041 - 2052
266,266,266,266,266,266,266,267,267,267,267,267, & ! index 2053 - 2064
267,268,268,268,268,268,268,268,269,269,269,269, & ! index 2065 - 2076
269,269,269,269,269,269,269,269,269,269,269,269, & ! index 2077 - 2088
270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2089 - 2100
270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2101 - 2112
270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2113 - 2124
270,270,270,270,270,270,270,270,270,271,271,271, & ! index 2125 - 2136
271,271,271,271,271,272,272,272,272,272,272,272, & ! index 2137 - 2148
272,272,272,272,273,273,273,273,273,273,273,273 /) ! index up to 2160
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_6 = (/ &
273,273,273,273,273,274,274,274,274,274,274,274, & ! index 2161 - 2172
274,274,274,274,274,274,274,274,274,274,274,274, & ! index 2173 - 2184
274,274,274,274,275,275,275,275,275,275,275,275, & ! index 2185 - 2196
275,275,275,276,276,276,276,276,277,277,277,277, & ! index 2197 - 2208
277,277,277,277,277,277,277,278,278,278,278,278, & ! index 2209 - 2220
278,278,278,278,278,278,278,278,278,278,279,279, & ! index 2221 - 2232
279,279,279,279,279,279,279,280,280,280,280,280, & ! index 2233 - 2244
280,280,280,280,280,280,280,280,280,280,280,281, & ! index 2245 - 2256
281,281,281,281,281,281,281,281,281,281,282,282, & ! index 2257 - 2268
282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2269 - 2280
282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2281 - 2292
282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2293 - 2304
283,283,283,283,283,283,283,283,283,283,283,283, & ! index 2305 - 2316
283,283,283,283,283,283,283,283,283,283,283,283, & ! index 2317 - 2328
283,283,283,283,283,283,283,283,283,283,283,284, & ! index 2329 - 2340
284,284,284,284,284,284,284,284,284,284,284,284, & ! index 2341 - 2352
284,285,285,285,285,285,285,285,285,285,285,285, & ! index 2353 - 2364
285,285,285,285,285,285,285,285,285,286,286,286, & ! index 2365 - 2376
286,286,286,286,286,286,286,286,286,286,286,286, & ! index 2377 - 2388
286,286,286,286,286,287,287,287,287,287,287,287, & ! index 2389 - 2400
287,287,287,287,287,287,287,287,287,287,287,287, & ! index 2401 - 2412
287,287,287,287,287,287,287,287,287,287,287,287, & ! index 2413 - 2424
287,287,287,288,288,288,288,288,288,288,288,288, & ! index 2425 - 2436
288,288,288,288,288,288,288,288,288,288,288,288, & ! index 2437 - 2448
288,288,288,288,288,288,288,288,288,288,288,288, & ! index 2449 - 2460
289,289,289,289,289,289,289,289,289,289,289,289, & ! index 2461 - 2472
289,290,290,290,290,290,290,290,291,291,291,291, & ! index 2473 - 2484
291,291,291,291,291,292,292,292,292,292,292,292, & ! index 2485 - 2496
292,292,292,292,292,292,292,292,292,292,292,292, & ! index 2497 - 2508
292,292,292,292,292,292,292,292,292,292,292,293 /) ! index up to 2520
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_7 = (/ &
293,293,293,293,293,293,293,293,293,293,293,293, & ! index 2521 - 2532
293,294,294,294,294,294,294,294,294,294,294,294, & ! index 2533 - 2544
294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2545 - 2556
294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2557 - 2568
294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2569 - 2580
294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2581 - 2592
294,294,294,294,295,295,295,295,295,295,295,295, & ! index 2593 - 2604
295,295,295,295,295,295,295,295,295,295,295,295, & ! index 2605 - 2616
295,295,295,295,295,295,295,295,295,295,295,295, & ! index 2617 - 2628
296,296,296,296,296,296,296,296,296,296,296,296, & ! index 2629 - 2640
296,296,296,296,296,296,296,296,296,296,296,297, & ! index 2641 - 2652
297,297,297,297,297,297,297,297,297,297,297,298, & ! index 2653 - 2664
298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2665 - 2676
298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2677 - 2688
298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2689 - 2700
298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2701 - 2712
298,298,298,298,299,299,299,299,299,299,299,299, & ! index 2713 - 2724
299,299,299,299,299,299,299,299,299,299,299,299, & ! index 2725 - 2736
299,299,300,300,300,300,300,300,300,300,300,300, & ! index 2737 - 2748
300,300,301,301,301,301,301,301,301,301,301,301, & ! index 2749 - 2760
301,301,301,301,301,301,301,302,302,302,302,302, & ! index 2761 - 2772
302,302,302,302,302,302,302,302,302,302,302,302, & ! index 2773 - 2784
302,302,302,302,302,302,302,302,302,302,302,303, & ! index 2785 - 2796
303,303,303,303,303,303,303,303,303,303,303,303, & ! index 2797 - 2808
303,303,303,303,303,303,303,303,303,303,303,303, & ! index 2809 - 2820
303,304,304,304,304,304,304,304,304,304,304,304, & ! index 2821 - 2832
304,304,304,305,305,305,305,305,305,305,305,305, & ! index 2833 - 2844
305,305,305,305,305,306,306,306,306,306,306,306, & ! index 2845 - 2856
306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2857 - 2868
306,306,306,306,306,306,306,306,306,306,306,306 /) ! index up to 2880
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_8 = (/ &
306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2881 - 2892
306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2893 - 2904
306,306,306,307,307,307,307,307,307,307,307,307, & ! index 2905 - 2916
307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2917 - 2928
307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2929 - 2940
307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2941 - 2952
307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2953 - 2964
307,307,307,307,307,307,308,308,308,308,308,308, & ! index 2965 - 2976
308,308,308,308,308,308,308,308,308,308,308,308, & ! index 2977 - 2988
308,308,309,309,309,309,309,309,309,309,309,309, & ! index 2989 - 3000
309,309,309,309,309,309,309,309,309,309,309,309, & ! index 3001 - 3012
309,310,310,310,310,310,310,310,310,310,310,310, & ! index 3013 - 3024
310,311,311,311,311,311,311,311,311,311,311,311, & ! index 3025 - 3036
311,312,312,312,312,312,312,312,312,312,312,312, & ! index 3037 - 3048
312,312,312,312,312,312,312,312,312,312,312,312, & ! index 3049 - 3060
312,312,312,313,313,313,313,313,313,313,313,313, & ! index 3061 - 3072
313,313,313,313,313,313,313,313,313,313,313,313, & ! index 3073 - 3084
313,313,313,313,313,313,313,314,314,314,314,314, & ! index 3085 - 3096
314,314,314,314,314,314,314,314,314,314,314,314, & ! index 3097 - 3108
314,314,314,314,314,314,314,314,314,314,314,314, & ! index 3109 - 3120
315,315,315,315,315,315,315,315,315,315,315,315, & ! index 3121 - 3132
315,315,315,315,315,315,315,315,315,315,315,315, & ! index 3133 - 3144
315,316,316,316,316,316,316,316,316,316,316,316, & ! index 3145 - 3156
316,316,316,316,316,316,316,317,317,317,317,317, & ! index 3157 - 3168
317,317,317,317,317,317,317,317,318,318,318,318, & ! index 3169 - 3180
318,318,318,318,318,318,318,318,318,319,319,319, & ! index 3181 - 3192
319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3193 - 3204
319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3205 - 3216
320,320,320,320,320,320,320,320,320,320,320,320, & ! index 3217 - 3228
320,320,320,321,321,321,321,321,321,321,321,321 /) ! index up to 3240
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_9 = (/ &
321,321,321,321,321,321,321,321,321,321,321,321, & ! index 3241 - 3252
321,321,321,322,322,322,322,322,322,322,322,322, & ! index 3253 - 3264
322,322,322,322,322,322,322,322,322,322,322,322, & ! index 3265 - 3276
322,322,322,322,322,322,322,322,322,322,322,323, & ! index 3277 - 3288
323,323,323,323,323,323,323,323,323,323,323,323, & ! index 3289 - 3300
323,323,323,323,323,323,323,323,323,323,323,324, & ! index 3301 - 3312
324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3313 - 3324
324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3325 - 3336
324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3337 - 3348
324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3349 - 3360
324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3361 - 3372
324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3373 - 3384
324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3385 - 3396
324,324,324,325,325,325,325,325,325,325,325,325, & ! index 3397 - 3408
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3409 - 3420
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3421 - 3432
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3433 - 3444
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3445 - 3456
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3457 - 3468
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3469 - 3480
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3481 - 3492
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3493 - 3504
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3505 - 3516
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3517 - 3528
325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3529 - 3540
325,325,325,326,326,326,326,326,326,326,326,326, & ! index 3541 - 3552
326,326,326,326,326,326,326,326,326,326,326,326, & ! index 3553 - 3564
326,326,326,326,326,326,326,326,326,326,326,326, & ! index 3565 - 3576
326,326,326,326,326,326,326,326,326,327,327,327, & ! index 3577 - 3588
327,327,327,327,327,327,327,327,327,327,327,327 /) ! index up to 3600
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_10 = (/ &
327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3601 - 3612
327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3613 - 3624
327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3625 - 3636
327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3637 - 3648
327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3649 - 3660
327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3661 - 3672
327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3673 - 3684
327,327,327,327,328,328,328,328,328,328,328,328, & ! index 3685 - 3696
328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3697 - 3708
328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3709 - 3720
328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3721 - 3732
328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3733 - 3744
328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3745 - 3756
328,328,328,328,328,329,329,329,329,329,329,329, & ! index 3757 - 3768
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3769 - 3780
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3781 - 3792
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3793 - 3804
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3805 - 3816
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3817 - 3828
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3829 - 3840
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3841 - 3852
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3853 - 3864
329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3865 - 3876
329,329,329,329,329,329,329,329,330,330,330,330, & ! index 3877 - 3888
330,330,330,330,330,330,330,330,330,330,330,330, & ! index 3889 - 3900
330,330,330,331,331,331,331,331,331,331,331,331, & ! index 3901 - 3912
331,331,331,331,331,331,331,331,331,331,331,331, & ! index 3913 - 3924
331,331,331,331,331,331,331,331,332,332,332,332, & ! index 3925 - 3936
332,332,332,332,332,332,332,332,332,332,332,332, & ! index 3937 - 3948
332,332,332,333,333,333,333,333,333,333,333,333 /) ! index up to 3960
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_11 = (/ &
333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3961 - 3972
333,333,333,333,333,333,333,333,333,333,333,334, & ! index 3973 - 3984
334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3985 - 3996
334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3997 - 4008
334,334,334,334,334,334,334,334,334,334,334,334, & ! index 4009 - 4020
334,334,334,334,334,334,334,334,334,334,334,334, & ! index 4021 - 4032
334,335,335,335,335,335,335,335,335,335,335,335, & ! index 4033 - 4044
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4045 - 4056
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4057 - 4068
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4069 - 4080
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4081 - 4092
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4093 - 4104
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4105 - 4116
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4117 - 4128
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4129 - 4140
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4141 - 4152
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4153 - 4164
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4165 - 4176
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4177 - 4188
335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4189 - 4200
335,335,335,335,335,335,335,336,336,336,336,336, & ! index 4201 - 4212
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4213 - 4224
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4225 - 4236
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4237 - 4248
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4249 - 4260
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4261 - 4272
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4273 - 4284
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4285 - 4296
336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4297 - 4308
337,337,337,337,337,337,337,337,337,337,337,337 /) ! index up to 4320
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_12 = (/ &
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4321 - 4332
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4333 - 4344
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4345 - 4356
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4357 - 4368
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4369 - 4380
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4381 - 4392
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4393 - 4404
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4405 - 4416
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4417 - 4428
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4429 - 4440
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4441 - 4452
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4453 - 4464
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4465 - 4476
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4477 - 4488
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4489 - 4500
337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4501 - 4512
337,337,337,337,338,338,338,338,338,338,338,338, & ! index 4513 - 4524
338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4525 - 4536
338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4537 - 4548
338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4549 - 4560
338,338,338,338,338,338,338,338,338,338,338,339, & ! index 4561 - 4572
339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4573 - 4584
339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4585 - 4596
339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4597 - 4608
339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4609 - 4620
339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4621 - 4632
339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4633 - 4644
339,339,339,339,340,340,340,340,340,340,340,340, & ! index 4645 - 4656
340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4657 - 4668
340,340,340,340,340,340,340,340,340,340,340,340 /) ! index up to 4680
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_13 = (/ &
340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4681 - 4692
340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4693 - 4704
340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4705 - 4716
340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4717 - 4728
340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4729 - 4740
340,340,340,341,341,341,341,341,341,341,341,341, & ! index 4741 - 4752
341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4753 - 4764
341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4765 - 4776
341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4777 - 4788
341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4789 - 4800
341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4801 - 4812
341,341,341,341,341,341,341,341,342,342,342,342, & ! index 4813 - 4824
342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4825 - 4836
342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4837 - 4848
342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4849 - 4860
342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4861 - 4872
342,342,342,342,343,343,343,343,343,343,343,343, & ! index 4873 - 4884
343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4885 - 4896
343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4897 - 4908
343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4909 - 4920
343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4921 - 4932
343,343,343,343,344,344,344,344,344,344,344,344, & ! index 4933 - 4944
344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4945 - 4956
344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4957 - 4968
344,345,345,345,345,345,345,345,345,345,345,345, & ! index 4969 - 4980
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4981 - 4992
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4993 - 5004
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5005 - 5016
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5017 - 5028
345,345,345,345,345,345,345,345,345,345,345,345 /) ! index up to 5040
INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_14 = (/ &
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5041 - 5052
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5053 - 5064
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5065 - 5076
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5077 - 5088
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5089 - 5100
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5101 - 5112
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5113 - 5124
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5125 - 5136
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5137 - 5148
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5149 - 5160
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5161 - 5172
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5173 - 5184
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5185 - 5196
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5197 - 5208
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5209 - 5220
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5221 - 5232
345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5233 - 5244
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5245 - 5256
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5257 - 5268
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5269 - 5280
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5281 - 5292
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5293 - 5304
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5305 - 5316
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5317 - 5328
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5329 - 5340
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5341 - 5352
346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5353 - 5364
346,347,347,347,347,347,347,347,347,347,347,347, & ! index 5365 - 5376
347,347,347,347,347,347,347,347,347,347,347,347, & ! index 5377 - 5388
347,347,347,347,347,347,347,347,347,348,348,348 /) ! index up to 5400
INTEGER, PARAMETER, DIMENSION(283) :: LU_IROW_15 = (/ &
348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5401 - 5412
348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5413 - 5424
348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5425 - 5436
348,348,349,349,349,349,349,349,349,349,349,349, & ! index 5437 - 5448
349,349,349,349,349,349,349,349,349,349,349,349, & ! index 5449 - 5460
349,349,349,349,350,350,350,350,350,350,350,350, & ! index 5461 - 5472
350,350,350,350,350,350,350,350,350,350,350,350, & ! index 5473 - 5484
350,350,350,350,350,350,351,351,351,351,351,351, & ! index 5485 - 5496
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5497 - 5508
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5509 - 5520
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5521 - 5532
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5533 - 5544
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5545 - 5556
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5557 - 5568
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5569 - 5580
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5581 - 5592
351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5593 - 5604
351,351,351,351,351,351,351,352,352,352,352,352, & ! index 5605 - 5616
352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5617 - 5628
352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5629 - 5640
352,352,352,352,352,352,352,352,352,352,353,353, & ! index 5641 - 5652
353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5653 - 5664
353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5665 - 5676
353,353,353,353,353,353,353 /) ! index up to 5683
INTEGER, PARAMETER, DIMENSION(5683) :: LU_IROW = (/&
LU_IROW_0, LU_IROW_1, LU_IROW_2, LU_IROW_3, LU_IROW_4, &
LU_IROW_5, LU_IROW_6, LU_IROW_7, LU_IROW_8, LU_IROW_9, &
LU_IROW_10, LU_IROW_11, LU_IROW_12, LU_IROW_13, LU_IROW_14, &
LU_IROW_15 /)
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ &
1, 2, 3, 4, 42, 44, 55, 73, 5,269, 6, 41, & ! index 1 - 12
345, 7, 66, 68, 71, 74, 90, 92,115,130,133,135, & ! index 13 - 24
139,159,169,173,182,194,198,213,216,235,238,240, & ! index 25 - 36
241,246,249,250,257,259,260,261,263,265,269,274, & ! index 37 - 48
275,276,277,280,281,283,287,290,291,296,300,306, & ! index 49 - 60
307,308,310,311,312,313,315,318,319,320,321,322, & ! index 61 - 72
323,324,328,329,337,340,341,345,346,351, 8, 45, & ! index 73 - 84
103, 9, 42, 44, 55, 73,252,330,332, 10, 42, 44, & ! index 85 - 96
55, 73,252,330,332, 11, 13,337, 12, 13,346, 13, & ! index 97 - 108
143,337,345,346, 14,276,345, 15,276,351, 16, 18, & ! index 109 - 120
337, 17, 18,346, 18, 19,337,345,346, 19,345, 20, & ! index 121 - 132
22,337, 21, 22,346, 22, 82,337,345,346, 23, 24, & ! index 133 - 144
24,187,192,199,209,345, 25, 27,337, 26, 27,346, & ! index 145 - 156
27,101,337,345,346, 28, 94,345, 29,166,341,348, & ! index 157 - 168
30,115,270,294, 31,107,128,151,152,215, 32,241, & ! index 169 - 180
312,345,348, 33, 89,345,348, 34, 45, 56, 57, 63, & ! index 181 - 192
67, 70, 80, 83, 90, 91, 93, 95,103,108,110,113, & ! index 193 - 204
114,116,121,122,124,126,127,132,133,135,137,138, & ! index 205 - 216
139,148,154,162,165,170,171,172,176,177,178,180, & ! index 217 - 228
182,184,189,190,193,196,197,205,206,207,211,212, & ! index 229 - 240
213,217,223,224,226,232,234,235,236,239,240,241, & ! index 241 - 252
243,245,246,249,250,253,254,257,259,260,263,269, & ! index 253 - 264
271,272,273,274,275,277,278,280,281,285,286,289, & ! index 265 - 276
291,293,296,297,300,302,304,305,308,310,311,312, & ! index 277 - 288
313,315,317,318,319,320,321,322,323,324,327,328, & ! index 289 - 300
335,337,340,345,346, 35, 42, 44, 49, 50, 55, 63, & ! index 301 - 312
64, 65, 68, 69, 76, 87, 94, 96,105,109,120,140, & ! index 313 - 324
142,149,154,158,163,166,167,168,175,179,181,183, & ! index 325 - 336
186,191,195,197,200,201,202,203,204,211,213,214, & ! index 337 - 348
216,217,218,219,220,221,222,225,228,229,234,235 /) ! index up to 360
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ &
236,237,240,242,246,248,251,252,255,256,257,261, & ! index 361 - 372
262,263,264,266,267,268,270,272,273,274,275,276, & ! index 373 - 384
277,278,280,281,284,289,290,291,292,294,297,298, & ! index 385 - 396
299,302,303,306,308,309,310,311,312,314,316,317, & ! index 397 - 408
325,326,328,330,332,333,334,335,336,337,338,339, & ! index 409 - 420
341,343,344,345,347,348,349,350,351,352,353, 36, & ! index 421 - 432
60, 68, 75, 79, 82,101,107,113,114,119,122,124, & ! index 433 - 444
126,127,132,139,143,144,146,147,150,153,159,167, & ! index 445 - 456
181,182,184,185,187,191,192,194,197,199,200,201, & ! index 457 - 468
204,208,209,210,215,216,220,221,225,227,230,231, & ! index 469 - 480
233,238,243,248,253,255,258,259,261,266,267,268, & ! index 481 - 492
269,270,276,285,286,287,290,294,295,298,301,304, & ! index 493 - 504
305,306,307,309,314,325,326,328,337,340,341,342, & ! index 505 - 516
343,345,346,351, 37,241,312,329,345, 38, 89,179, & ! index 517 - 528
241,264,312,316,333,341,345,348, 39,228,334,340, & ! index 529 - 540
345, 40,241,276,312,314,336,337,341,345, 41,345, & ! index 541 - 552
42, 96, 43,345, 44,284, 45,154,242,256, 46,334, & ! index 553 - 564
47,334, 48,334, 49,334, 50,334, 51,334, 52,345, & ! index 565 - 576
53,334, 54,334, 55, 96,284, 56,257,335, 57,274, & ! index 577 - 588
335, 58,200,345, 59,335,342, 60,345, 61,334, 62, & ! index 589 - 600
331,346, 63, 67,334,335, 64,179,327,351, 65,166, & ! index 601 - 612
327,351, 66,257,328,337,345, 67,335,346, 68,343, & ! index 613 - 624
345, 69,345,351, 70,234,345,346, 71,235,337,345, & ! index 625 - 636
72,213,337,345, 73,331,337,345, 74,257,337,345, & ! index 637 - 648
75,340,345, 76,338,345, 77,252,330,332,349,350, & ! index 649 - 660
78,334,345, 79,340,345, 80,328,335, 81,334,345, & ! index 661 - 672
82,345, 83,296,345,346, 84,334,345, 85,334,345, & ! index 673 - 684
86,334,345, 87,334,345, 88,312,336,345, 89,325, & ! index 685 - 696
345,348, 90,235,335,345, 91,323,345,346, 92,324, & ! index 697 - 708
337,345, 93,328,345,346, 94,345,351, 95,321,345 /) ! index up to 720
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_2 = (/ &
346, 42, 44, 55, 96,284,346,347, 97,319,337,345, & ! index 721 - 732
98,178,337,345, 99,321,337,345,100,323,337,345, & ! index 733 - 744
101,345,102,300,337,345,103,168,175,186,216,222, & ! index 745 - 756
248,251,266,267,268,299,302,303,104,252,284,330, & ! index 757 - 768
332,338,344,353,105,334,345,106,136,234,328,346, & ! index 769 - 780
351,107,159,184,345,108,335,337,345,109,233,341, & ! index 781 - 792
345, 76,110,328,338,340,345,347,111,277,337,345, & ! index 793 - 804
112,275,337,345,113,246,335,345,114,213,335,345, & ! index 805 - 816
115,194,302,314,341,345,116,189,345,346, 90,117, & ! index 817 - 828
235,236,335,337,345,118,296,315,337,345,119,230, & ! index 829 - 840
231,301,345,120,284,338,345,347, 58,121,200,337, & ! index 841 - 852
345,346,122,240,335,345,123,260,337,345,124,322, & ! index 853 - 864
335,345,125,250,337,345,126,197,335,345,127,212, & ! index 865 - 876
345,346,128,199,209,267,268,345,112,129,138,191, & ! index 877 - 888
275,324,328,337,341,345,346,351,130,274,328,337, & ! index 889 - 900
345,131,258,286,337,345,346,132,233,337,345,346, & ! index 901 - 912
133,230,337,345,346, 89,134,179,241,264,312,316, & ! index 913 - 924
325,333,341,345,348,135,231,337,345,346,136,234, & ! index 925 - 936
328,337,345,137,277,345,346,138,275,345,346,139, & ! index 937 - 948
324,335,345,140,341,345,351,141,340,342,345,142, & ! index 949 - 960
340,345,351,143,220,341,345,144,199,276,304,345, & ! index 961 - 972
145,186,299,310,311,324,328,346,351,121,146,200, & ! index 973 - 984
337,345,346,147,285,286,345,148,218,316,342,345, & ! index 985 - 996
347,349,350,352,149,345,351,150,209,276,305,345, & ! index 997 - 1008
151,168,175,187,192,345,152,168,175,187,192,345, & ! index 1009 - 1020
153,258,285,337,345,346,154,242,256,341,345,351, & ! index 1021 - 1032
155,240,246,322,337,345,156,296,315,328,340,345, & ! index 1033 - 1044
157,218,297,316,317,333,338,339,344,347,349,350, & ! index 1045 - 1056
352,353, 82,101,149,158,200,345,351,159,259,337, & ! index 1057 - 1068
345,160,278,328,337,345,161,273,328,337,345,138 /) ! index up to 1080
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_3 = (/ &
162,273,275,345,346,163,255,272,328,341,345,346, & ! index 1081 - 1092
351,164,328,337,340,345,165,196,337,345,346,166, & ! index 1093 - 1104
327,339,341,348,167,341,345,351,168,304,345,346, & ! index 1105 - 1116
169,272,274,328,337,345, 62,170,252,331,332,345, & ! index 1117 - 1128
346,351,171,230,301,335,337,346,172,231,301,335, & ! index 1129 - 1140
337,346,101,173,200,201,221,240,246,289,322,324, & ! index 1141 - 1152
337,345,174,223,224,232,337,345,175,305,345,346, & ! index 1153 - 1164
137,176,277,278,345,346,177,211,237,255,272,341, & ! index 1165 - 1176
345,346,351, 69, 98,178,337,345,346,351,179,327, & ! index 1177 - 1188
339,341,348,180,299,337,345,346,181,334,340,345, & ! index 1189 - 1200
182,301,303,337,345,346,183,340,342,345,351,184, & ! index 1201 - 1212
259,308,335,345,119,147,185,230,231,285,286,301, & ! index 1213 - 1224
345,186,311,337,345,187,305,337,345,188,249,250, & ! index 1225 - 1236
260,289,300,318,319,320,321,323,328,345,149,189, & ! index 1237 - 1248
200,220,337,345,346,351,168,190,304,337,345,346, & ! index 1249 - 1260
191,341,345,351,192,304,337,345,193,291,341,345, & ! index 1261 - 1272
346,351,194,230,231,301,303,345,143,195,220,341, & ! index 1273 - 1284
345,351,165,178,196,337,345,346,351,126,197,233, & ! index 1285 - 1296
335,337,345,346,174,198,223,224,232,337,345,199, & ! index 1297 - 1308
304,337,345,200,345,351, 82,101,149,158,200,201, & ! index 1309 - 1320
341,345,351,158,195,200,202,220,341,345,351,117, & ! index 1321 - 1332
158,195,200,202,203,220,235,236,328,335,337,341, & ! index 1333 - 1344
345,346,351, 82,101,116,149,189,200,204,220,337, & ! index 1345 - 1356
341,345,346,351,175,205,305,337,345,346,206,268, & ! index 1357 - 1368
337,345,346,207,267,337,345,346,131,147,208,243, & ! index 1369 - 1380
254,258,285,286,288,337,345,346,209,305,337,345, & ! index 1381 - 1392
209,210,223,226,271,276,303,305,337,345,346,211, & ! index 1393 - 1404
281,341,345,346,351,140,212,337,341,345,346,351, & ! index 1405 - 1416
114,213,306,335,337,345,346,351,214,335,336,339, & ! index 1417 - 1428
344,351,353,128,144,150,151,152,168,175,186,187 /) ! index up to 1440
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_4 = (/ &
192,199,209,215,230,231,267,268,276,301,304,305, & ! index 1441 - 1452
311,337,345,346,206,216,226,268,271,293,301,308, & ! index 1453 - 1464
328,337,345,346,181,217,228,325,334,337,339,340, & ! index 1465 - 1476
341,343,345,352,218,335,336,339,342,347,219,341, & ! index 1477 - 1488
345,351,220,341,345,351, 82,101,143,149,195,200, & ! index 1489 - 1500
202,220,221,269,341,345,351,222,310,311,328,337, & ! index 1501 - 1512
345,187,209,223,305,337,345,346,192,199,224,304, & ! index 1513 - 1524
337,345,346,111,137,191,225,277,324,328,337,341, & ! index 1525 - 1536
345,346,351,186,226,311,337,345,346,131,147,153, & ! index 1537 - 1548
194,227,230,231,258,285,286,288,301,302,303,337, & ! index 1549 - 1560
345,346,228,290,326,334,340,341,345,229,291,337, & ! index 1561 - 1572
341,345,351,209,230,276,305,337,345,199,231,276, & ! index 1573 - 1584
304,337,345,187,192,232,304,305,337,345,346,140, & ! index 1585 - 1596
212,233,337,341,345,346,351,109,136,233,234,246, & ! index 1597 - 1608
328,337,341,345,346,351, 71, 90,204,220,235,328, & ! index 1609 - 1620
335,337,341,345,346,351, 71,117,203,204,220,235, & ! index 1621 - 1632
236,328,335,337,341,345,346,351,237,281,324,328, & ! index 1633 - 1644
337,341,345,346,351,199,209,238,267,268,304,305, & ! index 1645 - 1656
328,337,345,346, 64, 65,166,179,239,252,269,297, & ! index 1657 - 1668
327,335,339,341,344,345,346,348,349,350,351,352, & ! index 1669 - 1680
353,122,146,200,240,335,337,345,346,351,241,290, & ! index 1681 - 1692
329,335,336,341,346,348,193,242,280,289,291,324, & ! index 1693 - 1704
328,337,341,345,346,351,128,192,199,209,243,267, & ! index 1705 - 1716
268,304,305,337,345,346,199,224,226,244,271,276, & ! index 1717 - 1728
287,303,304,309,311,313,320,337,345,346,110,245, & ! index 1729 - 1740
297,317,328,333,334,338,339,340,344,345,347,353, & ! index 1741 - 1752
113,246,320,335,337,345,346,125,180,182,206,216, & ! index 1753 - 1764
226,247,250,268,271,293,299,301,303,308,309,311, & ! index 1765 - 1776
328,337,345,346,351,172,205,231,248,253,276,301, & ! index 1777 - 1788
303,304,305,308,335,337,345,346,249,279,324,328 /) ! index up to 1800
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_5 = (/ &
337,345,346,125,250,290,324,328,337,345,346,351, & ! index 1801 - 1812
251,318,319,320,337,345,346,252,331,335,344,349, & ! index 1813 - 1824
350,353,172,231,253,276,301,304,309,335,337,345, & ! index 1825 - 1836
346,171,230,254,276,301,305,314,335,337,345,346, & ! index 1837 - 1848
167,255,281,324,328,337,341,345,346,351,162,176, & ! index 1849 - 1860
177,211,237,255,256,272,273,275,277,278,280,281, & ! index 1861 - 1872
289,324,328,337,341,345,346,351, 56, 74,111,225, & ! index 1873 - 1884
257,277,324,328,335,337,341,345,346,351,174,223, & ! index 1885 - 1896
224,232,243,258,267,268,285,286,304,305,337,345, & ! index 1897 - 1908
346,159,184,259,308,309,335,337,345,346,351,123, & ! index 1909 - 1920
260,290,324,328,337,340,342,345,346,180,182,207, & ! index 1921 - 1932
226,261,267,271,293,299,301,302,303,311,337,345, & ! index 1933 - 1944
346,351,193,219,229,262,291,324,328,337,341,345, & ! index 1945 - 1956
346,351, 82,101,137,138,143,149,158,160,167,176, & ! index 1957 - 1968
193,195,200,202,211,219,220,229,237,255,262,263, & ! index 1969 - 1980
275,277,278,281,291,324,328,337,341,345,346,351, & ! index 1981 - 1992
241,264,276,290,312,314,329,335,336,337,340,341, & ! index 1993 - 2004
343,345,346,348, 60, 88,107,159,184,194,201,221, & ! index 2005 - 2016
230,231,259,265,269,276,301,302,303,304,305,306, & ! index 2017 - 2028
307,308,309,312,335,336,337,340,341,345,346,351, & ! index 2029 - 2040
190,205,206,207,226,243,266,267,268,271,285,286, & ! index 2041 - 2052
303,304,305,311,337,345,346,267,305,311,328,345, & ! index 2053 - 2064
346,268,304,310,311,328,345,346,158,195,200,202, & ! index 2065 - 2076
203,220,235,236,269,328,335,337,341,345,346,351, & ! index 2077 - 2088
60, 82,101,143,185,194,195,198,200,210,220,221, & ! index 2089 - 2100
223,224,226,227,230,231,232,233,258,267,268,269, & ! index 2101 - 2112
270,271,276,285,286,288,301,302,303,304,305,306, & ! index 2113 - 2124
310,311,328,335,337,341,345,346,351,222,271,310, & ! index 2125 - 2136
311,328,337,345,346,211,237,272,281,324,328,337, & ! index 2137 - 2148
341,345,346,351,129,138,161,191,273,275,324,328 /) ! index up to 2160
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_6 = (/ &
337,341,345,346,351, 57,161,162,163,167,169,177, & ! index 2161 - 2172
211,237,255,272,273,274,275,281,324,328,335,337, & ! index 2173 - 2184
341,345,346,351,112,191,219,275,324,328,337,341, & ! index 2185 - 2196
345,346,351,276,340,341,345,351,111,191,219,277, & ! index 2197 - 2208
324,328,337,341,345,346,351, 66, 74,160,225,257, & ! index 2209 - 2220
277,278,324,328,335,337,341,345,346,351,249,279, & ! index 2221 - 2232
300,320,324,328,337,345,346,167,191,193,219,229, & ! index 2233 - 2244
262,280,289,291,324,328,337,341,345,346,351,167, & ! index 2245 - 2256
191,219,281,324,328,337,341,345,346,351,234,246, & ! index 2257 - 2268
249,250,260,272,273,275,277,278,279,281,282,289, & ! index 2269 - 2280
290,291,296,300,306,310,311,313,315,318,319,320, & ! index 2281 - 2292
321,323,324,328,335,337,340,341,342,345,346,351, & ! index 2293 - 2304
201,241,249,250,260,275,277,279,281,283,290,291, & ! index 2305 - 2316
296,300,307,313,315,318,319,320,321,323,324,328, & ! index 2317 - 2328
329,335,336,337,340,341,342,345,346,348,351, 44, & ! index 2329 - 2340
55, 96,284,330,331,332,335,337,338,341,345,346, & ! index 2341 - 2352
347,147,151,152,168,175,187,192,238,267,268,285, & ! index 2353 - 2364
286,304,305,310,311,328,337,345,346,147,151,152, & ! index 2365 - 2376
168,175,187,192,238,267,268,285,286,304,305,310, & ! index 2377 - 2388
311,328,337,345,346,144,192,198,199,223,224,231, & ! index 2389 - 2400
232,238,253,258,266,267,268,271,276,285,286,287, & ! index 2401 - 2412
301,303,304,305,309,310,311,328,335,337,340,341, & ! index 2413 - 2424
345,346,351,150,187,198,209,223,224,230,232,238, & ! index 2425 - 2436
254,266,267,268,271,276,285,286,288,301,303,304, & ! index 2437 - 2448
305,310,311,314,328,335,337,340,341,345,346,351, & ! index 2449 - 2460
167,191,219,280,289,291,324,328,337,341,345,346, & ! index 2461 - 2472
351,290,314,340,341,342,345,351,219,291,324,328, & ! index 2473 - 2484
337,341,345,346,351,160,176,178,219,251,256,262, & ! index 2485 - 2496
272,273,275,277,278,279,280,281,289,291,292,300, & ! index 2497 - 2508
318,319,320,324,328,335,337,341,345,346,351,145 /) ! index up to 2520
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_7 = (/ &
186,222,293,299,303,310,311,324,328,337,345,346, & ! index 2521 - 2532
351, 82,101,107,159,184,185,194,198,199,200,201, & ! index 2533 - 2544
209,215,223,224,227,230,231,232,238,244,247,250, & ! index 2545 - 2556
253,254,258,259,266,267,268,271,276,285,286,287, & ! index 2557 - 2568
288,290,293,294,299,301,302,303,304,305,307,308, & ! index 2569 - 2580
309,310,311,313,314,320,324,328,335,337,340,341, & ! index 2581 - 2592
342,345,346,351, 91,100,160,161,162,176,219,229, & ! index 2593 - 2604
251,262,273,275,277,278,279,291,295,300,318,319, & ! index 2605 - 2616
320,323,324,328,335,337,340,341,342,345,346,351, & ! index 2617 - 2628
173,183,200,201,221,240,246,269,289,291,296,320, & ! index 2629 - 2640
322,324,328,335,337,340,341,342,345,346,351,214, & ! index 2641 - 2652
297,335,336,339,344,345,349,350,351,352,353, 95, & ! index 2653 - 2664
97, 98, 99,102,125,130,161,162,165,169,178,188, & ! index 2665 - 2676
196,201,212,219,221,229,242,249,250,251,260,269, & ! index 2677 - 2688
272,273,274,275,279,280,281,289,290,291,298,300, & ! index 2689 - 2700
314,318,319,320,321,323,324,328,335,337,340,341, & ! index 2701 - 2712
342,345,346,351,180,190,205,206,207,226,267,268, & ! index 2713 - 2724
271,293,299,303,304,305,310,311,324,328,337,345, & ! index 2725 - 2736
346,351,102,142,201,300,324,328,337,340,341,345, & ! index 2737 - 2748
346,351,145,186,267,268,299,301,303,304,305,310, & ! index 2749 - 2760
311,324,328,337,345,346,351,171,190,207,226,230, & ! index 2761 - 2772
254,267,271,276,293,299,301,302,303,304,305,310, & ! index 2773 - 2784
311,314,324,328,335,337,340,341,345,346,351,186, & ! index 2785 - 2796
190,205,206,207,222,223,224,226,232,267,268,271, & ! index 2797 - 2808
293,299,303,304,305,310,311,324,328,337,345,346, & ! index 2809 - 2820
351,186,192,199,276,304,305,311,328,337,340,341, & ! index 2821 - 2832
345,346,351,186,187,209,276,304,305,311,328,337, & ! index 2833 - 2844
340,341,345,346,351, 70,106,113,126,127,132,136, & ! index 2845 - 2856
174,180,197,198,201,202,205,206,212,220,221,223, & ! index 2857 - 2868
224,232,233,234,246,254,258,262,266,267,268,269 /) ! index up to 2880
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_8 = (/ &
271,276,285,286,288,291,293,299,301,302,303,304, & ! index 2881 - 2892
305,306,310,311,314,320,324,328,335,337,340,341, & ! index 2893 - 2904
345,346,351,123,153,154,159,174,184,198,205,207, & ! index 2905 - 2916
215,223,224,230,231,232,242,243,248,253,256,258, & ! index 2917 - 2928
259,260,267,268,271,272,273,275,276,277,278,280, & ! index 2929 - 2940
281,285,286,287,289,290,291,293,299,301,303,304, & ! index 2941 - 2952
305,307,308,309,310,311,313,314,324,328,335,337, & ! index 2953 - 2964
340,341,342,345,346,351,248,253,276,301,303,304, & ! index 2965 - 2976
305,308,309,310,311,324,328,335,337,340,341,345, & ! index 2977 - 2988
346,351,135,144,168,192,199,222,231,276,299,303, & ! index 2989 - 3000
304,305,309,310,311,324,328,337,340,341,345,346, & ! index 3001 - 3012
351,222,276,310,311,324,328,337,340,341,345,346, & ! index 3013 - 3024
351,186,276,310,311,324,328,337,340,341,345,346, & ! index 3025 - 3036
351,109,191,220,233,255,276,281,290,309,310,311, & ! index 3037 - 3048
312,314,324,328,329,335,336,337,340,341,342,345, & ! index 3049 - 3060
346,348,351,244,271,276,287,295,300,301,303,304, & ! index 3061 - 3072
305,309,310,311,313,318,319,320,323,324,328,335, & ! index 3073 - 3084
337,340,341,342,345,346,351, 82,101,133,150,175, & ! index 3085 - 3096
187,209,219,222,229,230,262,276,291,299,303,304, & ! index 3097 - 3108
305,310,311,314,324,328,337,340,341,345,346,351, & ! index 3109 - 3120
118,251,279,292,296,298,300,314,315,318,319,320, & ! index 3121 - 3132
321,322,323,324,328,335,337,340,341,342,345,346, & ! index 3133 - 3144
351,148,218,316,335,336,337,339,341,342,343,344, & ! index 3145 - 3156
345,347,348,349,350,352,353,317,335,336,338,339, & ! index 3157 - 3168
340,343,344,345,349,350,352,353,251,269,318,319, & ! index 3169 - 3180
320,324,328,335,337,341,345,346,351, 97,130,142, & ! index 3181 - 3192
161,162,169,178,249,272,273,274,275,279,281,300, & ! index 3193 - 3204
318,319,320,324,328,335,337,340,341,345,346,351, & ! index 3205 - 3216
219,292,300,318,319,320,324,328,335,337,340,341, & ! index 3217 - 3228
345,346,351, 99,141,251,279,292,298,300,314,318 /) ! index up to 3240
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_9 = (/ &
319,320,321,322,323,324,328,335,337,340,341,342, & ! index 3241 - 3252
345,346,351,124,155,160,176,196,201,221,240,246, & ! index 3253 - 3264
269,277,278,292,298,300,314,318,319,320,321,322, & ! index 3265 - 3276
323,324,328,335,337,340,341,342,345,346,351,100, & ! index 3277 - 3288
141,251,279,292,298,300,314,318,319,320,321,322, & ! index 3289 - 3300
323,324,328,335,337,340,341,342,345,346,351, 92, & ! index 3301 - 3312
107,115,122,130,139,146,159,169,184,185,194,196, & ! index 3313 - 3324
200,208,209,227,230,231,240,243,244,247,249,250, & ! index 3325 - 3336
254,257,258,259,260,261,263,267,268,271,272,274, & ! index 3337 - 3348
275,276,277,278,279,280,281,285,286,287,288,289, & ! index 3349 - 3360
290,291,292,293,294,295,296,299,300,301,302,303, & ! index 3361 - 3372
304,305,307,308,309,310,311,313,314,315,318,319, & ! index 3373 - 3384
320,321,322,323,324,326,328,335,337,340,341,342, & ! index 3385 - 3396
345,346,351, 72, 80, 88, 89, 92, 93, 94,106,109, & ! index 3397 - 3408
112,114,122,123,127,130,136,137,138,139,140,146, & ! index 3409 - 3420
149,159,160,164,165,168,169,175,176,187,190,191, & ! index 3421 - 3432
192,196,197,199,200,205,206,207,208,209,210,211, & ! index 3433 - 3444
212,213,215,219,220,222,223,224,226,228,229,230, & ! index 3445 - 3456
231,233,234,235,236,240,243,244,246,247,249,250, & ! index 3457 - 3468
253,254,255,257,258,259,260,261,262,263,267,268, & ! index 3469 - 3480
270,271,272,273,274,275,276,277,278,279,280,281, & ! index 3481 - 3492
282,285,286,287,288,289,290,291,293,296,299,300, & ! index 3493 - 3504
301,302,303,304,305,306,307,308,309,310,311,312, & ! index 3505 - 3516
313,314,315,318,319,320,321,322,323,324,325,326, & ! index 3517 - 3528
328,329,334,335,336,337,338,340,341,342,343,345, & ! index 3529 - 3540
346,348,351, 83,118,123,124,149,155,156,165,196, & ! index 3541 - 3552
240,241,246,249,250,251,260,279,290,296,300,314, & ! index 3553 - 3564
315,318,319,320,321,322,323,324,326,328,329,335, & ! index 3565 - 3576
336,337,340,341,342,345,346,348,351, 45, 69, 94, & ! index 3577 - 3588
103,142,149,154,158,166,168,175,179,183,186,195 /) ! index up to 3600
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_10 = (/ &
200,202,204,214,216,218,220,222,225,226,242,248, & ! index 3601 - 3612
251,253,256,261,266,267,268,269,270,271,272,273, & ! index 3613 - 3624
275,276,277,278,280,281,285,286,288,289,291,292, & ! index 3625 - 3636
293,294,298,299,300,301,302,303,304,305,306,307, & ! index 3637 - 3648
308,309,310,311,313,314,317,318,319,320,321,322, & ! index 3649 - 3660
323,324,325,326,327,328,329,332,334,335,336,337, & ! index 3661 - 3672
338,339,340,341,342,343,344,345,346,347,348,349, & ! index 3673 - 3684
350,351,352,353, 52, 80, 92, 94,105,139,155,159, & ! index 3685 - 3696
164,181,228,234,235,236,240,246,249,250,251,257, & ! index 3697 - 3708
259,260,263,272,273,274,275,276,277,278,279,280, & ! index 3709 - 3720
281,283,289,290,291,292,295,296,300,304,305,307, & ! index 3721 - 3732
308,309,310,311,313,314,315,318,319,320,321,322, & ! index 3733 - 3744
323,324,326,328,329,334,335,336,337,338,340,341, & ! index 3745 - 3756
342,345,346,348,351, 60, 68, 75, 79, 82,101,107, & ! index 3757 - 3768
113,114,119,122,124,126,127,132,139,143,144,146, & ! index 3769 - 3780
147,150,153,159,167,181,182,184,185,187,191,192, & ! index 3781 - 3792
194,197,199,200,201,204,208,209,210,212,213,215, & ! index 3793 - 3804
216,220,221,223,225,226,227,230,231,233,238,240, & ! index 3805 - 3816
241,243,246,248,253,254,255,258,259,261,266,267, & ! index 3817 - 3828
268,269,270,271,276,277,281,285,286,287,288,290, & ! index 3829 - 3840
293,294,295,298,299,300,301,302,303,304,305,306, & ! index 3841 - 3852
307,308,309,310,311,312,313,314,318,319,320,321, & ! index 3853 - 3864
322,323,324,325,326,328,329,334,335,336,337,338, & ! index 3865 - 3876
340,341,342,343,345,346,348,351,170,252,284,330, & ! index 3877 - 3888
331,332,335,336,337,338,341,344,345,346,347,349, & ! index 3889 - 3900
350,351,353, 1, 2, 3, 44, 52, 62, 73, 77, 96, & ! index 3901 - 3912
104,170,252,284,330,331,332,335,336,337,338,341, & ! index 3913 - 3924
344,345,346,347,349,350,351,353,170,252,284,330, & ! index 3925 - 3936
331,332,335,336,337,338,341,344,345,346,347,349, & ! index 3937 - 3948
350,351,353, 76,120,245,284,297,317,328,329,330 /) ! index up to 3960
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_11 = (/ &
331,332,333,334,335,336,337,338,339,340,341,342, & ! index 3961 - 3972
343,344,345,346,347,348,349,350,351,352,353, 46, & ! index 3973 - 3984
47, 48, 49, 50, 51, 53, 54, 61, 63, 67, 78, 81, & ! index 3985 - 3996
84, 85, 86, 87,105,181,228,245,290,297,314,317, & ! index 3997 - 4008
324,326,328,329,333,334,335,336,337,338,339,340, & ! index 4009 - 4020
341,342,343,344,345,346,347,348,349,350,351,352, & ! index 4021 - 4032
353, 56, 57, 59, 64, 65, 67, 70, 80, 83, 90, 91, & ! index 4033 - 4044
93, 95, 96,108,113,114,116,121,122,124,125,126, & ! index 4045 - 4056
127,132,133,135,137,138,139,140,154,162,163,165, & ! index 4057 - 4068
166,168,171,172,175,176,177,178,179,180,182,184, & ! index 4069 - 4080
186,189,190,193,196,197,200,203,205,206,207,211, & ! index 4081 - 4092
212,213,214,218,220,222,223,224,226,229,230,231, & ! index 4093 - 4104
232,233,234,235,236,237,239,240,241,242,243,246, & ! index 4105 - 4116
247,248,249,250,251,252,253,254,255,256,257,259, & ! index 4117 - 4128
260,261,262,263,266,267,268,269,271,272,273,274, & ! index 4129 - 4140
275,276,277,278,279,280,281,284,285,286,289,290, & ! index 4141 - 4152
291,293,296,297,299,300,301,302,303,304,305,306, & ! index 4153 - 4164
308,309,310,311,312,313,314,315,317,318,319,320, & ! index 4165 - 4176
321,322,323,324,326,327,328,329,330,331,332,334, & ! index 4177 - 4188
335,336,337,338,339,340,341,342,343,344,345,346, & ! index 4189 - 4200
347,348,349,350,351,352,353, 43, 52, 73, 84, 85, & ! index 4201 - 4212
86, 87,105,108,116,164,173,181,183,189,196,200, & ! index 4213 - 4224
201,214,217,218,220,221,228,239,240,241,244,246, & ! index 4225 - 4236
251,252,264,265,269,271,276,279,283,287,289,290, & ! index 4237 - 4248
291,292,295,296,297,298,300,301,302,303,304,305, & ! index 4249 - 4260
306,307,308,309,310,311,312,313,314,315,316,317, & ! index 4261 - 4272
318,319,320,321,322,323,324,325,326,327,328,329, & ! index 4273 - 4284
330,331,332,333,334,335,336,337,338,339,340,341, & ! index 4285 - 4296
342,343,344,345,346,347,348,349,350,351,352,353, & ! index 4297 - 4308
60, 72, 75, 79, 80, 82, 83, 88, 91, 93, 95, 97 /) ! index up to 4320
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_12 = (/ &
98, 99,100,101,102,105,106,108,111,112,115,116, & ! index 4321 - 4332
118,119,121,123,125,127,128,131,132,133,135,136, & ! index 4333 - 4344
137,138,143,144,145,146,147,149,150,151,152,153, & ! index 4345 - 4356
155,156,158,161,164,165,168,171,172,174,175,178, & ! index 4357 - 4368
180,181,182,185,186,187,188,189,190,192,194,195, & ! index 4369 - 4380
196,197,198,199,200,201,202,204,205,206,207,208, & ! index 4381 - 4392
209,210,212,213,216,217,219,220,221,222,223,224, & ! index 4393 - 4404
225,226,227,228,229,230,231,232,233,234,235,236, & ! index 4405 - 4416
238,240,243,246,248,249,250,251,253,254,255,257, & ! index 4417 - 4428
258,259,260,261,262,263,264,265,266,267,268,269, & ! index 4429 - 4440
270,271,272,273,274,275,276,277,278,279,280,281, & ! index 4441 - 4452
282,284,285,286,287,288,289,290,291,293,294,296, & ! index 4453 - 4464
298,299,300,301,302,303,304,305,306,307,308,309, & ! index 4465 - 4476
310,311,312,313,314,315,318,319,320,321,322,323, & ! index 4477 - 4488
324,325,326,328,329,330,331,332,334,335,336,337, & ! index 4489 - 4500
338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4501 - 4512
350,351,352,353, 46, 47, 48, 49, 50, 51, 61, 76, & ! index 4513 - 4524
84, 85, 86, 87,110,120,181,245,284,296,297,315, & ! index 4525 - 4536
317,318,319,320,321,322,323,324,326,328,329,330, & ! index 4537 - 4548
331,332,333,334,335,336,337,338,339,340,341,342, & ! index 4549 - 4560
343,344,345,346,347,348,349,350,351,352,353, 75, & ! index 4561 - 4572
79,141,142,156,164,166,179,181,183,214,218,228, & ! index 4573 - 4584
264,265,269,276,282,283,289,290,291,295,296,297, & ! index 4585 - 4596
300,301,302,303,304,305,306,307,308,309,310,311, & ! index 4597 - 4608
312,313,314,315,316,317,318,319,320,321,322,323, & ! index 4609 - 4620
324,325,326,327,328,329,332,333,334,335,336,337, & ! index 4621 - 4632
338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4633 - 4644
350,351,352,353, 3, 43, 46, 47, 48, 49, 50, 51, & ! index 4645 - 4656
61, 75, 76, 79, 84, 85, 86, 87,104,110,141,142, & ! index 4657 - 4668
156,157,164,181,183,218,228,245,252,264,265,269 /) ! index up to 4680
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_13 = (/ &
276,282,283,284,289,290,291,295,296,297,300,301, & ! index 4681 - 4692
302,303,304,305,306,307,308,309,310,311,312,313, & ! index 4693 - 4704
314,315,316,317,318,319,320,321,322,323,324,325, & ! index 4705 - 4716
326,328,329,330,331,332,333,334,335,336,337,338, & ! index 4717 - 4728
339,340,341,342,343,344,345,346,347,348,349,350, & ! index 4729 - 4740
351,352,353,109,140,166,167,179,191,193,201,202, & ! index 4741 - 4752
203,211,213,217,219,220,221,228,229,233,235,236, & ! index 4753 - 4764
237,240,242,246,255,257,259,262,269,274,275,276, & ! index 4765 - 4776
277,280,281,289,290,291,306,308,309,310,311,312, & ! index 4777 - 4788
314,320,322,323,324,325,326,327,328,329,331,332, & ! index 4789 - 4800
334,335,336,337,338,339,340,341,342,343,344,345, & ! index 4801 - 4812
346,347,348,349,350,351,352,353, 2, 53, 54, 59, & ! index 4813 - 4824
61, 77, 78, 81,105,141,148,157,183,218,252,284, & ! index 4825 - 4836
290,295,297,300,314,316,317,318,319,320,323,324, & ! index 4837 - 4848
325,326,328,329,330,331,332,333,334,335,336,337, & ! index 4849 - 4860
338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4861 - 4872
350,351,352,353, 46, 47, 48, 49, 50, 51, 53, 54, & ! index 4873 - 4884
61, 67, 68, 78, 81, 84, 85, 86, 87,120,181,217, & ! index 4885 - 4896
228,245,264,276,284,290,297,312,314,316,317,324, & ! index 4897 - 4908
325,326,328,329,330,331,332,333,334,335,336,337, & ! index 4909 - 4920
338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4921 - 4932
350,351,352,353,166,214,252,297,316,317,327,328, & ! index 4933 - 4944
329,330,331,332,333,334,335,336,337,338,339,340, & ! index 4945 - 4956
341,342,343,344,345,346,347,348,349,350,351,352, & ! index 4957 - 4968
353, 41, 43, 52, 58, 60, 66, 68, 69, 70, 71, 72, & ! index 4969 - 4980
73, 74, 75, 76, 78, 79, 81, 82, 83, 84, 85, 86, & ! index 4981 - 4992
87, 88, 89, 90, 91, 92, 93, 94, 95, 97, 98, 99, & ! index 4993 - 5004
100,101,102,105,107,108,109,111,112,113,114,115, & ! index 5005 - 5016
116,117,118,119,120,122,123,124,125,126,127,128, & ! index 5017 - 5028
129,130,131,133,134,135,136,137,138,139,140,141 /) ! index up to 5040
INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_14 = (/ &
142,143,144,146,147,148,149,150,151,152,153,154, & ! index 5041 - 5052
155,156,158,159,160,161,162,163,164,167,168,169, & ! index 5053 - 5064
170,171,172,173,174,175,176,177,178,179,180,181, & ! index 5065 - 5076
182,183,184,185,186,187,188,189,190,191,192,193, & ! index 5077 - 5088
194,195,196,197,198,199,200,201,202,204,205,206, & ! index 5089 - 5100
207,208,209,210,211,212,213,216,217,218,219,220, & ! index 5101 - 5112
221,222,223,224,225,226,228,229,230,231,232,233, & ! index 5113 - 5124
234,235,236,237,238,239,240,241,242,243,244,245, & ! index 5125 - 5136
246,247,248,249,250,251,252,253,254,255,256,257, & ! index 5137 - 5148
258,259,260,261,262,263,264,265,266,267,268,269, & ! index 5149 - 5160
270,271,272,273,274,275,276,277,278,279,280,281, & ! index 5161 - 5172
282,283,284,285,286,287,288,289,290,291,292,293, & ! index 5173 - 5184
294,295,296,297,298,299,300,301,302,303,304,305, & ! index 5185 - 5196
306,307,308,309,310,311,312,313,314,315,316,317, & ! index 5197 - 5208
318,319,320,321,322,323,324,325,326,327,328,329, & ! index 5209 - 5220
330,331,332,333,334,335,336,337,338,339,340,341, & ! index 5221 - 5232
342,343,344,345,346,347,348,349,350,351,352,353, & ! index 5233 - 5244
62, 63, 67, 96,121,132,133,135,165,171,172,178, & ! index 5245 - 5256
180,182,189,190,196,197,200,205,206,207,212,213, & ! index 5257 - 5268
220,223,224,226,230,231,232,233,234,235,236,239, & ! index 5269 - 5280
240,241,243,246,249,250,252,253,254,257,259,260, & ! index 5281 - 5292
263,267,268,269,271,272,273,274,275,276,277,278, & ! index 5293 - 5304
279,280,281,284,285,286,289,290,291,293,296,297, & ! index 5305 - 5316
299,300,301,303,304,305,306,308,309,310,311,312, & ! index 5317 - 5328
313,314,315,318,319,320,321,322,323,324,326,327, & ! index 5329 - 5340
328,329,330,331,332,334,335,336,337,338,339,340, & ! index 5341 - 5352
341,342,343,344,345,346,347,348,349,350,351,352, & ! index 5353 - 5364
353, 53, 54, 61, 78, 81,105,218,284,316,330,331, & ! index 5365 - 5376
332,334,335,336,337,338,339,340,341,342,343,344, & ! index 5377 - 5388
345,346,347,348,349,350,351,352,353, 68, 89, 94 /) ! index up to 5400
INTEGER, PARAMETER, DIMENSION(283) :: LU_ICOL_15 = (/ &
134,166,179,241,264,276,290,312,314,316,324,325, & ! index 5401 - 5412
326,327,328,329,332,333,334,335,336,337,338,339, & ! index 5413 - 5424
340,341,342,343,344,345,346,347,348,349,350,351, & ! index 5425 - 5436
352,353,252,297,316,317,330,331,332,335,336,337, & ! index 5437 - 5448