Lines Matching defs:prim
39 …contract_block(ma_max, mb_max, mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
44 prim(ma_max*mb_max*mc_max*md_max), scale local
4035 … block_default(ma_max, mb_max, mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4039 pac(ma_max*mc_max), prim(ma_max*mb_max*mc_max*md_max), scale local
4083 SUBROUTINE block_1_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4086 pac(1*1), prim(1*1*1*1), scale local
4130 SUBROUTINE block_1_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4133 pac(1*1), prim(1*1*1*2), scale local
4177 SUBROUTINE block_1_1_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4180 pac(1*1), prim(1*1*1*3), scale local
4224 SUBROUTINE block_1_1_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4227 pac(1*1), prim(1*1*1*4), scale local
4271 SUBROUTINE block_1_1_1_5(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4274 pac(1*1), prim(1*1*1*5), scale local
4318 SUBROUTINE block_1_1_1_6(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4321 pac(1*1), prim(1*1*1*6), scale local
4365 SUBROUTINE block_1_1_1_7(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4368 pac(1*1), prim(1*1*1*7), scale local
4412 SUBROUTINE block_1_1_1_9(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4415 pac(1*1), prim(1*1*1*9), scale local
4459 SUBROUTINE block_1_1_1_10(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4462 pad(1*10), pac(1*1), prim(1*1*1*10), & local
4507 SUBROUTINE block_1_1_1_11(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4510 pad(1*11), pac(1*1), prim(1*1*1*11), & local
4555 SUBROUTINE block_1_1_1_15(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4558 pad(1*15), pac(1*1), prim(1*1*1*15), & local
4603 SUBROUTINE block_1_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4606 pac(1*2), prim(1*1*2*1), scale local
4650 SUBROUTINE block_1_1_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4653 pac(1*2), prim(1*1*2*2), scale local
4697 SUBROUTINE block_1_1_2_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4700 pac(1*2), prim(1*1*2*3), scale local
4744 SUBROUTINE block_1_1_2_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4747 pac(1*2), prim(1*1*2*4), scale local
4791 SUBROUTINE block_1_1_2_5(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4794 pac(1*2), prim(1*1*2*5), scale local
4838 SUBROUTINE block_1_1_2_6(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4841 pac(1*2), prim(1*1*2*6), scale local
4885 SUBROUTINE block_1_1_2_7(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4888 pac(1*2), prim(1*1*2*7), scale local
4932 SUBROUTINE block_1_1_2_9(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4935 pac(1*2), prim(1*1*2*9), scale local
4980 SUBROUTINE block_1_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
4983 pad(1*md_max), pac(1*2), prim(1*1*2*md_max), scale local
5027 SUBROUTINE block_1_1_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5030 pac(1*3), prim(1*1*3*1), scale local
5074 SUBROUTINE block_1_1_3_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5077 pac(1*3), prim(1*1*3*2), scale local
5121 SUBROUTINE block_1_1_3_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5124 pac(1*3), prim(1*1*3*3), scale local
5168 SUBROUTINE block_1_1_3_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5171 pac(1*3), prim(1*1*3*4), scale local
5215 SUBROUTINE block_1_1_3_5(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5218 pac(1*3), prim(1*1*3*5), scale local
5262 SUBROUTINE block_1_1_3_6(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5265 pac(1*3), prim(1*1*3*6), scale local
5310 SUBROUTINE block_1_1_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5313 pad(1*md_max), pac(1*3), prim(1*1*3*md_max), scale local
5357 SUBROUTINE block_1_1_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5360 pac(1*4), prim(1*1*4*1), scale local
5404 SUBROUTINE block_1_1_4_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5407 pac(1*4), prim(1*1*4*2), scale local
5451 SUBROUTINE block_1_1_4_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5454 pac(1*4), prim(1*1*4*3), scale local
5498 SUBROUTINE block_1_1_4_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5501 pac(1*4), prim(1*1*4*4), scale local
5546 SUBROUTINE block_1_1_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5549 pad(1*md_max), pac(1*4), prim(1*1*4*md_max), scale local
5593 SUBROUTINE block_1_1_5_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5596 pac(1*5), prim(1*1*5*1), scale local
5640 SUBROUTINE block_1_1_5_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5643 pac(1*5), prim(1*1*5*2), scale local
5687 SUBROUTINE block_1_1_5_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5690 pac(1*5), prim(1*1*5*3), scale local
5735 SUBROUTINE block_1_1_5(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5738 pad(1*md_max), pac(1*5), prim(1*1*5*md_max), scale local
5782 SUBROUTINE block_1_1_6_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5785 pac(1*6), prim(1*1*6*1), scale local
5829 SUBROUTINE block_1_1_6_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5832 pac(1*6), prim(1*1*6*2), scale local
5876 SUBROUTINE block_1_1_6_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5879 pac(1*6), prim(1*1*6*3), scale local
5924 SUBROUTINE block_1_1_6(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5927 pad(1*md_max), pac(1*6), prim(1*1*6*md_max), scale local
5971 SUBROUTINE block_1_1_7_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
5974 pac(1*7), prim(1*1*7*1), scale local
6018 SUBROUTINE block_1_1_7_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6021 pac(1*7), prim(1*1*7*2), scale local
6066 SUBROUTINE block_1_1_7(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6069 pad(1*md_max), pac(1*7), prim(1*1*7*md_max), scale local
6113 SUBROUTINE block_1_1_9_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6116 pac(1*9), prim(1*1*9*1), scale local
6160 SUBROUTINE block_1_1_9_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6163 pac(1*9), prim(1*1*9*2), scale local
6208 SUBROUTINE block_1_1_9(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6211 pad(1*md_max), pac(1*9), prim(1*1*9*md_max), scale local
6255 SUBROUTINE block_1_1_10_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6258 pad(1*1), pac(1*10), prim(1*1*10*1), & local
6304 SUBROUTINE block_1_1_10(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6307 pbc(1*10), pad(1*md_max), pac(1*10), prim(1*1*10*md_max), scale local
6351 SUBROUTINE block_1_1_11_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6354 pad(1*1), pac(1*11), prim(1*1*11*1), & local
6400 SUBROUTINE block_1_1_11(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6403 pbc(1*11), pad(1*md_max), pac(1*11), prim(1*1*11*md_max), scale local
6447 SUBROUTINE block_1_1_15_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6450 pad(1*1), pac(1*15), prim(1*1*15*1), & local
6496 SUBROUTINE block_1_1_15(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6499 pbc(1*15), pad(1*md_max), pac(1*15), prim(1*1*15*md_max), scale local
6543 SUBROUTINE block_1_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6546 pac(1*1), prim(1*2*1*1), scale local
6590 SUBROUTINE block_1_2_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6593 pac(1*1), prim(1*2*1*2), scale local
6637 SUBROUTINE block_1_2_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6640 pac(1*1), prim(1*2*1*3), scale local
6684 SUBROUTINE block_1_2_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6687 pac(1*1), prim(1*2*1*4), scale local
6731 SUBROUTINE block_1_2_1_5(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6734 pac(1*1), prim(1*2*1*5), scale local
6778 SUBROUTINE block_1_2_1_6(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6781 pac(1*1), prim(1*2*1*6), scale local
6825 SUBROUTINE block_1_2_1_7(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6828 pac(1*1), prim(1*2*1*7), scale local
6872 SUBROUTINE block_1_2_1_9(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6875 pac(1*1), prim(1*2*1*9), scale local
6920 SUBROUTINE block_1_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6923 pad(1*md_max), pac(1*1), prim(1*2*1*md_max), scale local
6967 SUBROUTINE block_1_2_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
6970 pac(1*2), prim(1*2*2*1), scale local
7014 SUBROUTINE block_1_2_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7017 pac(1*2), prim(1*2*2*2), scale local
7061 SUBROUTINE block_1_2_2_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7064 pac(1*2), prim(1*2*2*3), scale local
7108 SUBROUTINE block_1_2_2_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7111 pac(1*2), prim(1*2*2*4), scale local
7156 SUBROUTINE block_1_2_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7159 pad(1*md_max), pac(1*2), prim(1*2*2*md_max), scale local
7203 SUBROUTINE block_1_2_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7206 pac(1*3), prim(1*2*3*1), scale local
7250 SUBROUTINE block_1_2_3_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7253 pac(1*3), prim(1*2*3*2), scale local
7297 SUBROUTINE block_1_2_3_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7300 pac(1*3), prim(1*2*3*3), scale local
7345 SUBROUTINE block_1_2_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7348 pad(1*md_max), pac(1*3), prim(1*2*3*md_max), scale local
7392 SUBROUTINE block_1_2_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7395 pac(1*4), prim(1*2*4*1), scale local
7439 SUBROUTINE block_1_2_4_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7442 pac(1*4), prim(1*2*4*2), scale local
7487 SUBROUTINE block_1_2_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7490 pad(1*md_max), pac(1*4), prim(1*2*4*md_max), scale local
7534 SUBROUTINE block_1_2_5_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7537 pac(1*5), prim(1*2*5*1), scale local
7582 SUBROUTINE block_1_2_5(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7585 pad(1*md_max), pac(1*5), prim(1*2*5*md_max), scale local
7629 SUBROUTINE block_1_2_6_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7632 pac(1*6), prim(1*2*6*1), scale local
7677 SUBROUTINE block_1_2_6(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7680 pad(1*md_max), pac(1*6), prim(1*2*6*md_max), scale local
7724 SUBROUTINE block_1_2_7_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7727 pac(1*7), prim(1*2*7*1), scale local
7772 SUBROUTINE block_1_2_7(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7775 pad(1*md_max), pac(1*7), prim(1*2*7*md_max), scale local
7819 SUBROUTINE block_1_2_9_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7822 pac(1*9), prim(1*2*9*1), scale local
7867 SUBROUTINE block_1_2_9(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7870 pad(1*md_max), pac(1*9), prim(1*2*9*md_max), scale local
7916 SUBROUTINE block_1_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7919 pbc(2*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*2*mc_max*md_max), scale local
7963 SUBROUTINE block_1_3_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
7966 pac(1*1), prim(1*3*1*1), scale local
8010 SUBROUTINE block_1_3_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8013 pac(1*1), prim(1*3*1*2), scale local
8057 SUBROUTINE block_1_3_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8060 pac(1*1), prim(1*3*1*3), scale local
8104 SUBROUTINE block_1_3_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8107 pac(1*1), prim(1*3*1*4), scale local
8151 SUBROUTINE block_1_3_1_5(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8154 pac(1*1), prim(1*3*1*5), scale local
8198 SUBROUTINE block_1_3_1_6(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8201 pac(1*1), prim(1*3*1*6), scale local
8246 SUBROUTINE block_1_3_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8249 pad(1*md_max), pac(1*1), prim(1*3*1*md_max), scale local
8293 SUBROUTINE block_1_3_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8296 pac(1*2), prim(1*3*2*1), scale local
8340 SUBROUTINE block_1_3_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8343 pac(1*2), prim(1*3*2*2), scale local
8387 SUBROUTINE block_1_3_2_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8390 pac(1*2), prim(1*3*2*3), scale local
8435 SUBROUTINE block_1_3_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8438 pad(1*md_max), pac(1*2), prim(1*3*2*md_max), scale local
8482 SUBROUTINE block_1_3_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8485 pac(1*3), prim(1*3*3*1), scale local
8529 SUBROUTINE block_1_3_3_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8532 pac(1*3), prim(1*3*3*2), scale local
8577 SUBROUTINE block_1_3_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8580 pad(1*md_max), pac(1*3), prim(1*3*3*md_max), scale local
8624 SUBROUTINE block_1_3_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8627 pac(1*4), prim(1*3*4*1), scale local
8672 SUBROUTINE block_1_3_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8675 pad(1*md_max), pac(1*4), prim(1*3*4*md_max), scale local
8719 SUBROUTINE block_1_3_5_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8722 pac(1*5), prim(1*3*5*1), scale local
8767 SUBROUTINE block_1_3_5(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8770 pad(1*md_max), pac(1*5), prim(1*3*5*md_max), scale local
8814 SUBROUTINE block_1_3_6_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8817 pac(1*6), prim(1*3*6*1), scale local
8862 SUBROUTINE block_1_3_6(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8865 pad(1*md_max), pac(1*6), prim(1*3*6*md_max), scale local
8911 SUBROUTINE block_1_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8914 pbc(3*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*3*mc_max*md_max), scale local
8958 SUBROUTINE block_1_4_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
8961 pac(1*1), prim(1*4*1*1), scale local
9005 SUBROUTINE block_1_4_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9008 pac(1*1), prim(1*4*1*2), scale local
9052 SUBROUTINE block_1_4_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9055 pac(1*1), prim(1*4*1*3), scale local
9099 SUBROUTINE block_1_4_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9102 pac(1*1), prim(1*4*1*4), scale local
9147 SUBROUTINE block_1_4_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9150 pad(1*md_max), pac(1*1), prim(1*4*1*md_max), scale local
9194 SUBROUTINE block_1_4_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9197 pac(1*2), prim(1*4*2*1), scale local
9241 SUBROUTINE block_1_4_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9244 pac(1*2), prim(1*4*2*2), scale local
9289 SUBROUTINE block_1_4_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9292 pad(1*md_max), pac(1*2), prim(1*4*2*md_max), scale local
9336 SUBROUTINE block_1_4_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9339 pac(1*3), prim(1*4*3*1), scale local
9384 SUBROUTINE block_1_4_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9387 pad(1*md_max), pac(1*3), prim(1*4*3*md_max), scale local
9431 SUBROUTINE block_1_4_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9434 pac(1*4), prim(1*4*4*1), scale local
9479 SUBROUTINE block_1_4_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9482 pad(1*md_max), pac(1*4), prim(1*4*4*md_max), scale local
9528 SUBROUTINE block_1_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9531 pbc(4*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*4*mc_max*md_max), scale local
9575 SUBROUTINE block_1_5_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9578 pac(1*1), prim(1*5*1*1), scale local
9622 SUBROUTINE block_1_5_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9625 pac(1*1), prim(1*5*1*2), scale local
9669 SUBROUTINE block_1_5_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9672 pac(1*1), prim(1*5*1*3), scale local
9717 SUBROUTINE block_1_5_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9720 pad(1*md_max), pac(1*1), prim(1*5*1*md_max), scale local
9764 SUBROUTINE block_1_5_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9767 pac(1*2), prim(1*5*2*1), scale local
9812 SUBROUTINE block_1_5_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9815 pad(1*md_max), pac(1*2), prim(1*5*2*md_max), scale local
9859 SUBROUTINE block_1_5_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9862 pac(1*3), prim(1*5*3*1), scale local
9907 SUBROUTINE block_1_5_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9910 pad(1*md_max), pac(1*3), prim(1*5*3*md_max), scale local
9956 SUBROUTINE block_1_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
9959 pbc(5*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*5*mc_max*md_max), scale local
10003 SUBROUTINE block_1_6_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10006 pac(1*1), prim(1*6*1*1), scale local
10050 SUBROUTINE block_1_6_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10053 pac(1*1), prim(1*6*1*2), scale local
10097 SUBROUTINE block_1_6_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10100 pac(1*1), prim(1*6*1*3), scale local
10145 SUBROUTINE block_1_6_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10148 pad(1*md_max), pac(1*1), prim(1*6*1*md_max), scale local
10192 SUBROUTINE block_1_6_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10195 pac(1*2), prim(1*6*2*1), scale local
10240 SUBROUTINE block_1_6_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10243 pad(1*md_max), pac(1*2), prim(1*6*2*md_max), scale local
10287 SUBROUTINE block_1_6_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10290 pac(1*3), prim(1*6*3*1), scale local
10335 SUBROUTINE block_1_6_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10338 pad(1*md_max), pac(1*3), prim(1*6*3*md_max), scale local
10384 SUBROUTINE block_1_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10387 pbc(6*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*6*mc_max*md_max), scale local
10431 SUBROUTINE block_1_7_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10434 pac(1*1), prim(1*7*1*1), scale local
10478 SUBROUTINE block_1_7_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10481 pac(1*1), prim(1*7*1*2), scale local
10526 SUBROUTINE block_1_7_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10529 pad(1*md_max), pac(1*1), prim(1*7*1*md_max), scale local
10573 SUBROUTINE block_1_7_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10576 pac(1*2), prim(1*7*2*1), scale local
10621 SUBROUTINE block_1_7_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10624 pad(1*md_max), pac(1*2), prim(1*7*2*md_max), scale local
10670 SUBROUTINE block_1_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10673 pbc(7*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*7*mc_max*md_max), scale local
10717 SUBROUTINE block_1_9_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10720 pac(1*1), prim(1*9*1*1), scale local
10764 SUBROUTINE block_1_9_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10767 pac(1*1), prim(1*9*1*2), scale local
10812 SUBROUTINE block_1_9_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10815 pad(1*md_max), pac(1*1), prim(1*9*1*md_max), scale local
10859 SUBROUTINE block_1_9_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10862 pac(1*2), prim(1*9*2*1), scale local
10907 SUBROUTINE block_1_9_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10910 pad(1*md_max), pac(1*2), prim(1*9*2*md_max), scale local
10956 SUBROUTINE block_1_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
10959 pbc(9*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*9*mc_max*md_max), scale local
11003 SUBROUTINE block_1_10_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11006 pad(1*1), pac(1*1), prim(1*10*1*1), & local
11052 SUBROUTINE block_1_10_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11055 pbc(10*1), pad(1*md_max), pac(1*1), prim(1*10*1*md_max), scale local
11101 SUBROUTINE block_1_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11104 pbd(10*md_max), pbc(10*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*10*mc_max*md_max), & local
11149 SUBROUTINE block_1_11_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11152 pad(1*1), pac(1*1), prim(1*11*1*1), & local
11198 SUBROUTINE block_1_11_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11201 pbc(11*1), pad(1*md_max), pac(1*1), prim(1*11*1*md_max), scale local
11247 SUBROUTINE block_1_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11250 pbd(11*md_max), pbc(11*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*11*mc_max*md_max), & local
11295 SUBROUTINE block_1_15_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11298 pad(1*1), pac(1*1), prim(1*15*1*1), & local
11344 SUBROUTINE block_1_15_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11347 pbc(15*1), pad(1*md_max), pac(1*1), prim(1*15*1*md_max), scale local
11393 SUBROUTINE block_1_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11396 pbd(15*md_max), pbc(15*mc_max), pad(1*md_max), pac(1*mc_max), prim(1*15*mc_max*md_max), & local
11441 SUBROUTINE block_2_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11444 pac(2*1), prim(2*1*1*1), scale local
11488 SUBROUTINE block_2_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11491 pac(2*1), prim(2*1*1*2), scale local
11535 SUBROUTINE block_2_1_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11538 pac(2*1), prim(2*1*1*3), scale local
11582 SUBROUTINE block_2_1_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11585 pac(2*1), prim(2*1*1*4), scale local
11629 SUBROUTINE block_2_1_1_5(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11632 pac(2*1), prim(2*1*1*5), scale local
11676 SUBROUTINE block_2_1_1_6(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11679 pac(2*1), prim(2*1*1*6), scale local
11723 SUBROUTINE block_2_1_1_7(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11726 pac(2*1), prim(2*1*1*7), scale local
11770 SUBROUTINE block_2_1_1_9(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11773 pac(2*1), prim(2*1*1*9), scale local
11818 SUBROUTINE block_2_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11821 pad(2*md_max), pac(2*1), prim(2*1*1*md_max), scale local
11865 SUBROUTINE block_2_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11868 pac(2*2), prim(2*1*2*1), scale local
11912 SUBROUTINE block_2_1_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11915 pac(2*2), prim(2*1*2*2), scale local
11959 SUBROUTINE block_2_1_2_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
11962 pac(2*2), prim(2*1*2*3), scale local
12006 SUBROUTINE block_2_1_2_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12009 pac(2*2), prim(2*1*2*4), scale local
12054 SUBROUTINE block_2_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12057 pad(2*md_max), pac(2*2), prim(2*1*2*md_max), scale local
12101 SUBROUTINE block_2_1_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12104 pac(2*3), prim(2*1*3*1), scale local
12148 SUBROUTINE block_2_1_3_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12151 pac(2*3), prim(2*1*3*2), scale local
12195 SUBROUTINE block_2_1_3_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12198 pac(2*3), prim(2*1*3*3), scale local
12243 SUBROUTINE block_2_1_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12246 pad(2*md_max), pac(2*3), prim(2*1*3*md_max), scale local
12290 SUBROUTINE block_2_1_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12293 pac(2*4), prim(2*1*4*1), scale local
12337 SUBROUTINE block_2_1_4_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12340 pac(2*4), prim(2*1*4*2), scale local
12385 SUBROUTINE block_2_1_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12388 pad(2*md_max), pac(2*4), prim(2*1*4*md_max), scale local
12432 SUBROUTINE block_2_1_5_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12435 pac(2*5), prim(2*1*5*1), scale local
12480 SUBROUTINE block_2_1_5(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12483 pad(2*md_max), pac(2*5), prim(2*1*5*md_max), scale local
12527 SUBROUTINE block_2_1_6_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12530 pac(2*6), prim(2*1*6*1), scale local
12575 SUBROUTINE block_2_1_6(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12578 pad(2*md_max), pac(2*6), prim(2*1*6*md_max), scale local
12622 SUBROUTINE block_2_1_7_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12625 pac(2*7), prim(2*1*7*1), scale local
12670 SUBROUTINE block_2_1_7(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12673 pad(2*md_max), pac(2*7), prim(2*1*7*md_max), scale local
12717 SUBROUTINE block_2_1_9_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12720 pac(2*9), prim(2*1*9*1), scale local
12765 SUBROUTINE block_2_1_9(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12768 pad(2*md_max), pac(2*9), prim(2*1*9*md_max), scale local
12814 SUBROUTINE block_2_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12817 pbc(1*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*1*mc_max*md_max), scale local
12861 SUBROUTINE block_2_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12864 pac(2*1), prim(2*2*1*1), scale local
12908 SUBROUTINE block_2_2_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12911 pac(2*1), prim(2*2*1*2), scale local
12955 SUBROUTINE block_2_2_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
12958 pac(2*1), prim(2*2*1*3), scale local
13002 SUBROUTINE block_2_2_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13005 pac(2*1), prim(2*2*1*4), scale local
13050 SUBROUTINE block_2_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13053 pad(2*md_max), pac(2*1), prim(2*2*1*md_max), scale local
13097 SUBROUTINE block_2_2_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13100 pac(2*2), prim(2*2*2*1), scale local
13144 SUBROUTINE block_2_2_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13147 pac(2*2), prim(2*2*2*2), scale local
13192 SUBROUTINE block_2_2_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13195 pad(2*md_max), pac(2*2), prim(2*2*2*md_max), scale local
13239 SUBROUTINE block_2_2_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13242 pac(2*3), prim(2*2*3*1), scale local
13287 SUBROUTINE block_2_2_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13290 pad(2*md_max), pac(2*3), prim(2*2*3*md_max), scale local
13334 SUBROUTINE block_2_2_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13337 pac(2*4), prim(2*2*4*1), scale local
13382 SUBROUTINE block_2_2_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13385 pad(2*md_max), pac(2*4), prim(2*2*4*md_max), scale local
13431 SUBROUTINE block_2_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13434 pbc(2*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*2*mc_max*md_max), scale local
13478 SUBROUTINE block_2_3_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13481 pac(2*1), prim(2*3*1*1), scale local
13525 SUBROUTINE block_2_3_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13528 pac(2*1), prim(2*3*1*2), scale local
13572 SUBROUTINE block_2_3_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13575 pac(2*1), prim(2*3*1*3), scale local
13620 SUBROUTINE block_2_3_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13623 pad(2*md_max), pac(2*1), prim(2*3*1*md_max), scale local
13667 SUBROUTINE block_2_3_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13670 pac(2*2), prim(2*3*2*1), scale local
13715 SUBROUTINE block_2_3_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13718 pad(2*md_max), pac(2*2), prim(2*3*2*md_max), scale local
13762 SUBROUTINE block_2_3_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13765 pac(2*3), prim(2*3*3*1), scale local
13810 SUBROUTINE block_2_3_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13813 pad(2*md_max), pac(2*3), prim(2*3*3*md_max), scale local
13859 SUBROUTINE block_2_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13862 pbc(3*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*3*mc_max*md_max), scale local
13906 SUBROUTINE block_2_4_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13909 pac(2*1), prim(2*4*1*1), scale local
13953 SUBROUTINE block_2_4_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
13956 pac(2*1), prim(2*4*1*2), scale local
14001 SUBROUTINE block_2_4_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14004 pad(2*md_max), pac(2*1), prim(2*4*1*md_max), scale local
14048 SUBROUTINE block_2_4_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14051 pac(2*2), prim(2*4*2*1), scale local
14096 SUBROUTINE block_2_4_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14099 pad(2*md_max), pac(2*2), prim(2*4*2*md_max), scale local
14145 SUBROUTINE block_2_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14148 pbc(4*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*4*mc_max*md_max), scale local
14192 SUBROUTINE block_2_5_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14195 pac(2*1), prim(2*5*1*1), scale local
14240 SUBROUTINE block_2_5_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14243 pad(2*md_max), pac(2*1), prim(2*5*1*md_max), scale local
14289 SUBROUTINE block_2_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14292 pbc(5*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*5*mc_max*md_max), scale local
14336 SUBROUTINE block_2_6_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14339 pac(2*1), prim(2*6*1*1), scale local
14384 SUBROUTINE block_2_6_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14387 pad(2*md_max), pac(2*1), prim(2*6*1*md_max), scale local
14433 SUBROUTINE block_2_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14436 pbc(6*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*6*mc_max*md_max), scale local
14480 SUBROUTINE block_2_7_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14483 pac(2*1), prim(2*7*1*1), scale local
14528 SUBROUTINE block_2_7_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14531 pad(2*md_max), pac(2*1), prim(2*7*1*md_max), scale local
14577 SUBROUTINE block_2_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14580 pbc(7*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*7*mc_max*md_max), scale local
14624 SUBROUTINE block_2_9_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14627 pac(2*1), prim(2*9*1*1), scale local
14672 SUBROUTINE block_2_9_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14675 pad(2*md_max), pac(2*1), prim(2*9*1*md_max), scale local
14721 SUBROUTINE block_2_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14724 pbc(9*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*9*mc_max*md_max), scale local
14770 SUBROUTINE block_2_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14773 pbd(10*md_max), pbc(10*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*10*mc_max*md_max), & local
14820 SUBROUTINE block_2_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14823 pbd(11*md_max), pbc(11*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*11*mc_max*md_max), & local
14870 SUBROUTINE block_2_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14873 pbd(15*md_max), pbc(15*mc_max), pad(2*md_max), pac(2*mc_max), prim(2*15*mc_max*md_max), & local
14918 SUBROUTINE block_3_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14921 pac(3*1), prim(3*1*1*1), scale local
14965 SUBROUTINE block_3_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
14968 pac(3*1), prim(3*1*1*2), scale local
15012 SUBROUTINE block_3_1_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15015 pac(3*1), prim(3*1*1*3), scale local
15059 SUBROUTINE block_3_1_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15062 pac(3*1), prim(3*1*1*4), scale local
15106 SUBROUTINE block_3_1_1_5(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15109 pac(3*1), prim(3*1*1*5), scale local
15153 SUBROUTINE block_3_1_1_6(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15156 pac(3*1), prim(3*1*1*6), scale local
15201 SUBROUTINE block_3_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15204 pad(3*md_max), pac(3*1), prim(3*1*1*md_max), scale local
15248 SUBROUTINE block_3_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15251 pac(3*2), prim(3*1*2*1), scale local
15295 SUBROUTINE block_3_1_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15298 pac(3*2), prim(3*1*2*2), scale local
15342 SUBROUTINE block_3_1_2_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15345 pac(3*2), prim(3*1*2*3), scale local
15390 SUBROUTINE block_3_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15393 pad(3*md_max), pac(3*2), prim(3*1*2*md_max), scale local
15437 SUBROUTINE block_3_1_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15440 pac(3*3), prim(3*1*3*1), scale local
15484 SUBROUTINE block_3_1_3_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15487 pac(3*3), prim(3*1*3*2), scale local
15532 SUBROUTINE block_3_1_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15535 pad(3*md_max), pac(3*3), prim(3*1*3*md_max), scale local
15579 SUBROUTINE block_3_1_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15582 pac(3*4), prim(3*1*4*1), scale local
15627 SUBROUTINE block_3_1_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15630 pad(3*md_max), pac(3*4), prim(3*1*4*md_max), scale local
15674 SUBROUTINE block_3_1_5_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15677 pac(3*5), prim(3*1*5*1), scale local
15722 SUBROUTINE block_3_1_5(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15725 pad(3*md_max), pac(3*5), prim(3*1*5*md_max), scale local
15769 SUBROUTINE block_3_1_6_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15772 pac(3*6), prim(3*1*6*1), scale local
15817 SUBROUTINE block_3_1_6(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15820 pad(3*md_max), pac(3*6), prim(3*1*6*md_max), scale local
15866 SUBROUTINE block_3_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15869 pbc(1*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*1*mc_max*md_max), scale local
15913 SUBROUTINE block_3_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15916 pac(3*1), prim(3*2*1*1), scale local
15960 SUBROUTINE block_3_2_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
15963 pac(3*1), prim(3*2*1*2), scale local
16007 SUBROUTINE block_3_2_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16010 pac(3*1), prim(3*2*1*3), scale local
16055 SUBROUTINE block_3_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16058 pad(3*md_max), pac(3*1), prim(3*2*1*md_max), scale local
16102 SUBROUTINE block_3_2_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16105 pac(3*2), prim(3*2*2*1), scale local
16150 SUBROUTINE block_3_2_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16153 pad(3*md_max), pac(3*2), prim(3*2*2*md_max), scale local
16197 SUBROUTINE block_3_2_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16200 pac(3*3), prim(3*2*3*1), scale local
16245 SUBROUTINE block_3_2_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16248 pad(3*md_max), pac(3*3), prim(3*2*3*md_max), scale local
16294 SUBROUTINE block_3_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16297 pbc(2*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*2*mc_max*md_max), scale local
16341 SUBROUTINE block_3_3_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16344 pac(3*1), prim(3*3*1*1), scale local
16388 SUBROUTINE block_3_3_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16391 pac(3*1), prim(3*3*1*2), scale local
16436 SUBROUTINE block_3_3_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16439 pad(3*md_max), pac(3*1), prim(3*3*1*md_max), scale local
16483 SUBROUTINE block_3_3_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16486 pac(3*2), prim(3*3*2*1), scale local
16531 SUBROUTINE block_3_3_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16534 pad(3*md_max), pac(3*2), prim(3*3*2*md_max), scale local
16580 SUBROUTINE block_3_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16583 pbc(3*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*3*mc_max*md_max), scale local
16627 SUBROUTINE block_3_4_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16630 pac(3*1), prim(3*4*1*1), scale local
16675 SUBROUTINE block_3_4_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16678 pad(3*md_max), pac(3*1), prim(3*4*1*md_max), scale local
16724 SUBROUTINE block_3_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16727 pbc(4*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*4*mc_max*md_max), scale local
16771 SUBROUTINE block_3_5_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16774 pac(3*1), prim(3*5*1*1), scale local
16819 SUBROUTINE block_3_5_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16822 pad(3*md_max), pac(3*1), prim(3*5*1*md_max), scale local
16868 SUBROUTINE block_3_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16871 pbc(5*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*5*mc_max*md_max), scale local
16915 SUBROUTINE block_3_6_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16918 pac(3*1), prim(3*6*1*1), scale local
16963 SUBROUTINE block_3_6_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
16966 pad(3*md_max), pac(3*1), prim(3*6*1*md_max), scale local
17012 SUBROUTINE block_3_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17015 pbc(6*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*6*mc_max*md_max), scale local
17061 SUBROUTINE block_3_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17064 pbc(7*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*7*mc_max*md_max), scale local
17110 SUBROUTINE block_3_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17113 pbc(9*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*9*mc_max*md_max), scale local
17159 SUBROUTINE block_3_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17162 pbd(10*md_max), pbc(10*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*10*mc_max*md_max), & local
17209 SUBROUTINE block_3_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17212 pbd(11*md_max), pbc(11*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*11*mc_max*md_max), & local
17259 SUBROUTINE block_3_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17262 pbd(15*md_max), pbc(15*mc_max), pad(3*md_max), pac(3*mc_max), prim(3*15*mc_max*md_max), & local
17307 SUBROUTINE block_4_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17310 pac(4*1), prim(4*1*1*1), scale local
17354 SUBROUTINE block_4_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17357 pac(4*1), prim(4*1*1*2), scale local
17401 SUBROUTINE block_4_1_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17404 pac(4*1), prim(4*1*1*3), scale local
17448 SUBROUTINE block_4_1_1_4(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17451 pac(4*1), prim(4*1*1*4), scale local
17496 SUBROUTINE block_4_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17499 pad(4*md_max), pac(4*1), prim(4*1*1*md_max), scale local
17543 SUBROUTINE block_4_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17546 pac(4*2), prim(4*1*2*1), scale local
17590 SUBROUTINE block_4_1_2_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17593 pac(4*2), prim(4*1*2*2), scale local
17638 SUBROUTINE block_4_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17641 pad(4*md_max), pac(4*2), prim(4*1*2*md_max), scale local
17685 SUBROUTINE block_4_1_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17688 pac(4*3), prim(4*1*3*1), scale local
17733 SUBROUTINE block_4_1_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17736 pad(4*md_max), pac(4*3), prim(4*1*3*md_max), scale local
17780 SUBROUTINE block_4_1_4_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17783 pac(4*4), prim(4*1*4*1), scale local
17828 SUBROUTINE block_4_1_4(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17831 pad(4*md_max), pac(4*4), prim(4*1*4*md_max), scale local
17877 SUBROUTINE block_4_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17880 pbc(1*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*1*mc_max*md_max), scale local
17924 SUBROUTINE block_4_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17927 pac(4*1), prim(4*2*1*1), scale local
17971 SUBROUTINE block_4_2_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
17974 pac(4*1), prim(4*2*1*2), scale local
18019 SUBROUTINE block_4_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18022 pad(4*md_max), pac(4*1), prim(4*2*1*md_max), scale local
18066 SUBROUTINE block_4_2_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18069 pac(4*2), prim(4*2*2*1), scale local
18114 SUBROUTINE block_4_2_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18117 pad(4*md_max), pac(4*2), prim(4*2*2*md_max), scale local
18163 SUBROUTINE block_4_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18166 pbc(2*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*2*mc_max*md_max), scale local
18210 SUBROUTINE block_4_3_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18213 pac(4*1), prim(4*3*1*1), scale local
18258 SUBROUTINE block_4_3_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18261 pad(4*md_max), pac(4*1), prim(4*3*1*md_max), scale local
18307 SUBROUTINE block_4_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18310 pbc(3*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*3*mc_max*md_max), scale local
18354 SUBROUTINE block_4_4_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18357 pac(4*1), prim(4*4*1*1), scale local
18402 SUBROUTINE block_4_4_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18405 pad(4*md_max), pac(4*1), prim(4*4*1*md_max), scale local
18451 SUBROUTINE block_4_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18454 pbc(4*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*4*mc_max*md_max), scale local
18500 SUBROUTINE block_4_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18503 pbc(5*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*5*mc_max*md_max), scale local
18549 SUBROUTINE block_4_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18552 pbc(6*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*6*mc_max*md_max), scale local
18598 SUBROUTINE block_4_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18601 pbc(7*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*7*mc_max*md_max), scale local
18647 SUBROUTINE block_4_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18650 pbc(9*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*9*mc_max*md_max), scale local
18696 SUBROUTINE block_4_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18699 pbd(10*md_max), pbc(10*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*10*mc_max*md_max), & local
18746 SUBROUTINE block_4_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18749 pbd(11*md_max), pbc(11*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*11*mc_max*md_max), & local
18796 SUBROUTINE block_4_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18799 pbd(15*md_max), pbc(15*mc_max), pad(4*md_max), pac(4*mc_max), prim(4*15*mc_max*md_max), & local
18844 SUBROUTINE block_5_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18847 pac(5*1), prim(5*1*1*1), scale local
18891 SUBROUTINE block_5_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18894 pac(5*1), prim(5*1*1*2), scale local
18938 SUBROUTINE block_5_1_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18941 pac(5*1), prim(5*1*1*3), scale local
18986 SUBROUTINE block_5_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
18989 pad(5*md_max), pac(5*1), prim(5*1*1*md_max), scale local
19033 SUBROUTINE block_5_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19036 pac(5*2), prim(5*1*2*1), scale local
19081 SUBROUTINE block_5_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19084 pad(5*md_max), pac(5*2), prim(5*1*2*md_max), scale local
19128 SUBROUTINE block_5_1_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19131 pac(5*3), prim(5*1*3*1), scale local
19176 SUBROUTINE block_5_1_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19179 pad(5*md_max), pac(5*3), prim(5*1*3*md_max), scale local
19225 SUBROUTINE block_5_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19228 pbc(1*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*1*mc_max*md_max), scale local
19272 SUBROUTINE block_5_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19275 pac(5*1), prim(5*2*1*1), scale local
19320 SUBROUTINE block_5_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19323 pad(5*md_max), pac(5*1), prim(5*2*1*md_max), scale local
19369 SUBROUTINE block_5_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19372 pbc(2*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*2*mc_max*md_max), scale local
19416 SUBROUTINE block_5_3_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19419 pac(5*1), prim(5*3*1*1), scale local
19464 SUBROUTINE block_5_3_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19467 pad(5*md_max), pac(5*1), prim(5*3*1*md_max), scale local
19513 SUBROUTINE block_5_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19516 pbc(3*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*3*mc_max*md_max), scale local
19562 SUBROUTINE block_5_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19565 pbc(4*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*4*mc_max*md_max), scale local
19611 SUBROUTINE block_5_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19614 pbc(5*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*5*mc_max*md_max), scale local
19660 SUBROUTINE block_5_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19663 pbc(6*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*6*mc_max*md_max), scale local
19709 SUBROUTINE block_5_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19712 pbc(7*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*7*mc_max*md_max), scale local
19758 SUBROUTINE block_5_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19761 pbc(9*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*9*mc_max*md_max), scale local
19807 SUBROUTINE block_5_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19810 pbd(10*md_max), pbc(10*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*10*mc_max*md_max), & local
19857 SUBROUTINE block_5_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19860 pbd(11*md_max), pbc(11*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*11*mc_max*md_max), & local
19907 SUBROUTINE block_5_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19910 pbd(15*md_max), pbc(15*mc_max), pad(5*md_max), pac(5*mc_max), prim(5*15*mc_max*md_max), & local
19955 SUBROUTINE block_6_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
19958 pac(6*1), prim(6*1*1*1), scale local
20002 SUBROUTINE block_6_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20005 pac(6*1), prim(6*1*1*2), scale local
20049 SUBROUTINE block_6_1_1_3(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20052 pac(6*1), prim(6*1*1*3), scale local
20097 SUBROUTINE block_6_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20100 pad(6*md_max), pac(6*1), prim(6*1*1*md_max), scale local
20144 SUBROUTINE block_6_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20147 pac(6*2), prim(6*1*2*1), scale local
20192 SUBROUTINE block_6_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20195 pad(6*md_max), pac(6*2), prim(6*1*2*md_max), scale local
20239 SUBROUTINE block_6_1_3_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20242 pac(6*3), prim(6*1*3*1), scale local
20287 SUBROUTINE block_6_1_3(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20290 pad(6*md_max), pac(6*3), prim(6*1*3*md_max), scale local
20336 SUBROUTINE block_6_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20339 pbc(1*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*1*mc_max*md_max), scale local
20383 SUBROUTINE block_6_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20386 pac(6*1), prim(6*2*1*1), scale local
20431 SUBROUTINE block_6_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20434 pad(6*md_max), pac(6*1), prim(6*2*1*md_max), scale local
20480 SUBROUTINE block_6_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20483 pbc(2*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*2*mc_max*md_max), scale local
20527 SUBROUTINE block_6_3_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20530 pac(6*1), prim(6*3*1*1), scale local
20575 SUBROUTINE block_6_3_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20578 pad(6*md_max), pac(6*1), prim(6*3*1*md_max), scale local
20624 SUBROUTINE block_6_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20627 pbc(3*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*3*mc_max*md_max), scale local
20673 SUBROUTINE block_6_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20676 pbc(4*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*4*mc_max*md_max), scale local
20722 SUBROUTINE block_6_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20725 pbc(5*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*5*mc_max*md_max), scale local
20771 SUBROUTINE block_6_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20774 pbc(6*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*6*mc_max*md_max), scale local
20820 SUBROUTINE block_6_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20823 pbc(7*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*7*mc_max*md_max), scale local
20869 SUBROUTINE block_6_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20872 pbc(9*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*9*mc_max*md_max), scale local
20918 SUBROUTINE block_6_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20921 pbd(10*md_max), pbc(10*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*10*mc_max*md_max), & local
20968 SUBROUTINE block_6_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
20971 pbd(11*md_max), pbc(11*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*11*mc_max*md_max), & local
21018 SUBROUTINE block_6_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21021 pbd(15*md_max), pbc(15*mc_max), pad(6*md_max), pac(6*mc_max), prim(6*15*mc_max*md_max), & local
21066 SUBROUTINE block_7_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21069 pac(7*1), prim(7*1*1*1), scale local
21113 SUBROUTINE block_7_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21116 pac(7*1), prim(7*1*1*2), scale local
21161 SUBROUTINE block_7_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21164 pad(7*md_max), pac(7*1), prim(7*1*1*md_max), scale local
21208 SUBROUTINE block_7_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21211 pac(7*2), prim(7*1*2*1), scale local
21256 SUBROUTINE block_7_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21259 pad(7*md_max), pac(7*2), prim(7*1*2*md_max), scale local
21305 SUBROUTINE block_7_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21308 pbc(1*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*1*mc_max*md_max), scale local
21352 SUBROUTINE block_7_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21355 pac(7*1), prim(7*2*1*1), scale local
21400 SUBROUTINE block_7_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21403 pad(7*md_max), pac(7*1), prim(7*2*1*md_max), scale local
21449 SUBROUTINE block_7_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21452 pbc(2*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*2*mc_max*md_max), scale local
21498 SUBROUTINE block_7_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21501 pbc(3*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*3*mc_max*md_max), scale local
21547 SUBROUTINE block_7_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21550 pbc(4*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*4*mc_max*md_max), scale local
21596 SUBROUTINE block_7_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21599 pbc(5*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*5*mc_max*md_max), scale local
21645 SUBROUTINE block_7_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21648 pbc(6*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*6*mc_max*md_max), scale local
21694 SUBROUTINE block_7_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21697 pbc(7*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*7*mc_max*md_max), scale local
21743 SUBROUTINE block_7_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21746 pbc(9*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*9*mc_max*md_max), scale local
21792 SUBROUTINE block_7_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21795 pbd(10*md_max), pbc(10*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*10*mc_max*md_max), & local
21842 SUBROUTINE block_7_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21845 pbd(11*md_max), pbc(11*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*11*mc_max*md_max), & local
21892 SUBROUTINE block_7_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21895 pbd(15*md_max), pbc(15*mc_max), pad(7*md_max), pac(7*mc_max), prim(7*15*mc_max*md_max), & local
21940 SUBROUTINE block_9_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21943 pac(9*1), prim(9*1*1*1), scale local
21987 SUBROUTINE block_9_1_1_2(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
21990 pac(9*1), prim(9*1*1*2), scale local
22035 SUBROUTINE block_9_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22038 pad(9*md_max), pac(9*1), prim(9*1*1*md_max), scale local
22082 SUBROUTINE block_9_1_2_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22085 pac(9*2), prim(9*1*2*1), scale local
22130 SUBROUTINE block_9_1_2(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22133 pad(9*md_max), pac(9*2), prim(9*1*2*md_max), scale local
22179 SUBROUTINE block_9_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22182 pbc(1*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*1*mc_max*md_max), scale local
22226 SUBROUTINE block_9_2_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22229 pac(9*1), prim(9*2*1*1), scale local
22274 SUBROUTINE block_9_2_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22277 pad(9*md_max), pac(9*1), prim(9*2*1*md_max), scale local
22323 SUBROUTINE block_9_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22326 pbc(2*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*2*mc_max*md_max), scale local
22372 SUBROUTINE block_9_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22375 pbc(3*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*3*mc_max*md_max), scale local
22421 SUBROUTINE block_9_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22424 pbc(4*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*4*mc_max*md_max), scale local
22470 SUBROUTINE block_9_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22473 pbc(5*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*5*mc_max*md_max), scale local
22519 SUBROUTINE block_9_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22522 pbc(6*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*6*mc_max*md_max), scale local
22568 SUBROUTINE block_9_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22571 pbc(7*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*7*mc_max*md_max), scale local
22617 SUBROUTINE block_9_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22620 pbc(9*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*9*mc_max*md_max), scale local
22666 SUBROUTINE block_9_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22669 pbd(10*md_max), pbc(10*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*10*mc_max*md_max), & local
22716 SUBROUTINE block_9_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22719 pbd(11*md_max), pbc(11*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*11*mc_max*md_max), & local
22766 SUBROUTINE block_9_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22769 pbd(15*md_max), pbc(15*mc_max), pad(9*md_max), pac(9*mc_max), prim(9*15*mc_max*md_max), & local
22814 SUBROUTINE block_10_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22817 pad(10*1), pac(10*1), prim(10*1*1*1), & local
22863 SUBROUTINE block_10_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22866 pbc(1*1), pad(10*md_max), pac(10*1), prim(10*1*1*md_max), scale local
22912 SUBROUTINE block_10_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22915 pbd(1*md_max), pbc(1*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*1*mc_max*md_max), & local
22962 SUBROUTINE block_10_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
22965 pbd(2*md_max), pbc(2*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*2*mc_max*md_max), & local
23012 SUBROUTINE block_10_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23015 pbd(3*md_max), pbc(3*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*3*mc_max*md_max), & local
23062 SUBROUTINE block_10_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23065 pbd(4*md_max), pbc(4*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*4*mc_max*md_max), & local
23112 SUBROUTINE block_10_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23115 pbd(5*md_max), pbc(5*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*5*mc_max*md_max), & local
23162 SUBROUTINE block_10_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23165 pbd(6*md_max), pbc(6*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*6*mc_max*md_max), & local
23212 SUBROUTINE block_10_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23215 pbd(7*md_max), pbc(7*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*7*mc_max*md_max), & local
23262 SUBROUTINE block_10_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23265 pbd(9*md_max), pbc(9*mc_max), pad(10*md_max), pac(10*mc_max), prim(10*9*mc_max*md_max), & local
23312 SUBROUTINE block_10_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23316 prim(10*10*mc_max*md_max), scale local
23362 SUBROUTINE block_10_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23366 prim(10*11*mc_max*md_max), scale local
23412 SUBROUTINE block_10_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23416 prim(10*15*mc_max*md_max), scale local
23460 SUBROUTINE block_11_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23463 pad(11*1), pac(11*1), prim(11*1*1*1), & local
23509 SUBROUTINE block_11_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23512 pbc(1*1), pad(11*md_max), pac(11*1), prim(11*1*1*md_max), scale local
23558 SUBROUTINE block_11_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23561 pbd(1*md_max), pbc(1*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*1*mc_max*md_max), & local
23608 SUBROUTINE block_11_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23611 pbd(2*md_max), pbc(2*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*2*mc_max*md_max), & local
23658 SUBROUTINE block_11_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23661 pbd(3*md_max), pbc(3*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*3*mc_max*md_max), & local
23708 SUBROUTINE block_11_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23711 pbd(4*md_max), pbc(4*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*4*mc_max*md_max), & local
23758 SUBROUTINE block_11_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23761 pbd(5*md_max), pbc(5*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*5*mc_max*md_max), & local
23808 SUBROUTINE block_11_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23811 pbd(6*md_max), pbc(6*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*6*mc_max*md_max), & local
23858 SUBROUTINE block_11_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23861 pbd(7*md_max), pbc(7*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*7*mc_max*md_max), & local
23908 SUBROUTINE block_11_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23911 pbd(9*md_max), pbc(9*mc_max), pad(11*md_max), pac(11*mc_max), prim(11*9*mc_max*md_max), & local
23958 SUBROUTINE block_11_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
23962 prim(11*10*mc_max*md_max), scale local
24008 SUBROUTINE block_11_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24012 prim(11*11*mc_max*md_max), scale local
24058 SUBROUTINE block_11_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24062 prim(11*15*mc_max*md_max), scale local
24106 SUBROUTINE block_15_1_1_1(kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24109 pad(15*1), pac(15*1), prim(15*1*1*1), & local
24155 SUBROUTINE block_15_1_1(md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24158 pbc(1*1), pad(15*md_max), pac(15*1), prim(15*1*1*md_max), scale local
24204 SUBROUTINE block_15_1(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24207 pbd(1*md_max), pbc(1*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*1*mc_max*md_max), & local
24254 SUBROUTINE block_15_2(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24257 pbd(2*md_max), pbc(2*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*2*mc_max*md_max), & local
24304 SUBROUTINE block_15_3(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24307 pbd(3*md_max), pbc(3*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*3*mc_max*md_max), & local
24354 SUBROUTINE block_15_4(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24357 pbd(4*md_max), pbc(4*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*4*mc_max*md_max), & local
24404 SUBROUTINE block_15_5(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24407 pbd(5*md_max), pbc(5*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*5*mc_max*md_max), & local
24454 SUBROUTINE block_15_6(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24457 pbd(6*md_max), pbc(6*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*6*mc_max*md_max), & local
24504 SUBROUTINE block_15_7(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24507 pbd(7*md_max), pbc(7*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*7*mc_max*md_max), & local
24554 SUBROUTINE block_15_9(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24557 pbd(9*md_max), pbc(9*mc_max), pad(15*md_max), pac(15*mc_max), prim(15*9*mc_max*md_max), & local
24604 SUBROUTINE block_15_10(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24608 prim(15*10*mc_max*md_max), scale local
24654 SUBROUTINE block_15_11(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24658 prim(15*11*mc_max*md_max), scale local
24704 SUBROUTINE block_15_15(mc_max, md_max, kbd, kbc, kad, kac, pbd, pbc, pad, pac, prim, scale) argument
24708 prim(15*15*mc_max*md_max), scale local