Lines Matching defs:prim
10 SUBROUTINE contract_block(ma_max,mb_max,mc_max,md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
14 prim(ma_max*mb_max*mc_max*md_max), scale local
255 SUBROUTINE block_1_1_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
257 pbc(1*1), pad(1*1), pac(1*1), prim(1*1*1*1), scale local
268 SUBROUTINE block_1_1_1_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
270 pbc(1*1), pad(1*2), pac(1*1), prim(1*1*1*2), scale local
281 SUBROUTINE block_1_1_11(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
284 prim(1*1*11*md_max), scale local
293 SUBROUTINE block_1_2_1_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
295 pbc(2*1), pad(1*2), pac(1*1), prim(1*2*1*2), scale local
304 SUBROUTINE block_1_2_1_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
306 pbc(2*1), pad(1*3), pac(1*1), prim(1*2*1*3), scale local
315 SUBROUTINE block_1_2_1_4(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
317 pbc(2*1), pad(1*4), pac(1*1), prim(1*2*1*4), scale local
326 SUBROUTINE block_1_2_1_5(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
328 pbc(2*1), pad(1*5), pac(1*1), prim(1*2*1*5), scale local
337 SUBROUTINE block_1_2_1_6(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
339 pbc(2*1), pad(1*6), pac(1*1), prim(1*2*1*6), scale local
350 SUBROUTINE block_1_2_1_7(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
352 pbc(2*1), pad(1*7), pac(1*1), prim(1*2*1*7), scale local
363 SUBROUTINE block_1_2_2_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
365 pbc(2*2), pad(1*2), pac(1*2), prim(1*2*2*2), scale local
374 SUBROUTINE block_1_2_2_4(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
376 pbc(2*2), pad(1*4), pac(1*2), prim(1*2*2*4), scale local
385 SUBROUTINE block_1_2_4_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
387 pbc(2*4), pad(1*1), pac(1*4), prim(1*2*4*1), scale local
396 SUBROUTINE block_1_2_6_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
398 pbc(2*6), pad(1*1), pac(1*6), prim(1*2*6*1), scale local
409 SUBROUTINE block_1_2_7_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
411 pbc(2*7), pad(1*1), pac(1*7), prim(1*2*7*1), scale local
422 SUBROUTINE block_1_3_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
424 pbc(3*1), pad(1*1), pac(1*1), prim(1*3*1*1), scale local
433 SUBROUTINE block_1_3_1_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
435 pbc(3*1), pad(1*3), pac(1*1), prim(1*3*1*3), scale local
446 SUBROUTINE block_1_3_1_4(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
448 pbc(3*1), pad(1*4), pac(1*1), prim(1*3*1*4), scale local
457 SUBROUTINE block_1_3_1_5(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
459 pbc(3*1), pad(1*5), pac(1*1), prim(1*3*1*5), scale local
470 SUBROUTINE block_1_3_1_6(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
472 pbc(3*1), pad(1*6), pac(1*1), prim(1*3*1*6), scale local
483 SUBROUTINE block_1_3_1(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
485 pbd(3*md_max), pbc(3*1), pad(1*md_max), pac(1*1), prim(1*3*1*md_max), & local
497 SUBROUTINE block_1_3_2_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
499 pbc(3*2), pad(1*1), pac(1*2), prim(1*3*2*1), scale local
508 SUBROUTINE block_1_3_2_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
510 pbc(3*2), pad(1*2), pac(1*2), prim(1*3*2*2), scale local
521 SUBROUTINE block_1_3_2_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
523 pbc(3*2), pad(1*3), pac(1*2), prim(1*3*2*3), scale local
533 SUBROUTINE block_1_3_3_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
535 pbc(3*3), pad(1*1), pac(1*3), prim(1*3*3*1), scale local
544 SUBROUTINE block_1_3_3_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
546 pbc(3*3), pad(1*2), pac(1*3), prim(1*3*3*2), scale local
555 SUBROUTINE block_1_3_5(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
557 pbd(3*md_max), pbc(3*5), pad(1*md_max), pac(1*5), prim(1*3*5*md_max), & local
563 SUBROUTINE block_1_3_6(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
567 SUBROUTINE block_1_4_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
569 pbc(4*1), pad(1*1), pac(1*1), prim(1*4*1*1), scale local
580 SUBROUTINE block_1_4_1_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
582 pbc(4*1), pad(1*2), pac(1*1), prim(1*4*1*2), scale local
591 SUBROUTINE block_1_4_1_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
593 pbc(4*1), pad(1*3), pac(1*1), prim(1*4*1*3), scale local
602 SUBROUTINE block_1_4_2_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
604 pbc(4*2), pad(1*1), pac(1*2), prim(1*4*2*1), scale local
613 SUBROUTINE block_1_4_2_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
615 pbc(4*2), pad(1*2), pac(1*2), prim(1*4*2*2), scale local
626 SUBROUTINE block_1_4_3_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
628 pbc(4*3), pad(1*1), pac(1*3), prim(1*4*3*1), scale local
637 SUBROUTINE block_1_4_3(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
639 pbd(4*md_max), pbc(4*3), pad(1*md_max), pac(1*3), prim(1*4*3*md_max), & local
649 SUBROUTINE block_1_4_4_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
651 pbc(4*4), pad(1*1), pac(1*4), prim(1*4*4*1), scale local
660 SUBROUTINE block_1_4_4(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
662 pbd(4*md_max), pbc(4*4), pad(1*md_max), pac(1*4), prim(1*4*4*md_max), & local
674 SUBROUTINE block_1_5_1_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
676 pbc(5*1), pad(1*3), pac(1*1), prim(1*5*1*3), scale local
687 SUBROUTINE block_1_5_1(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
689 pbd(5*md_max), pbc(5*1), pad(1*md_max), pac(1*1), prim(1*5*1*md_max), & local
699 SUBROUTINE block_1_6_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
701 pbc(6*1), pad(1*1), pac(1*1), prim(1*6*1*1), scale local
712 SUBROUTINE block_1_6_1_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
714 pbc(6*1), pad(1*2), pac(1*1), prim(1*6*1*2), scale local
725 SUBROUTINE block_1_6_1_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
727 pbc(6*1), pad(1*3), pac(1*1), prim(1*6*1*3), scale local
736 SUBROUTINE block_1_6_2_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
738 pbc(6*2), pad(1*1), pac(1*2), prim(1*6*2*1), scale local
747 SUBROUTINE block_2_1_1_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
749 pbc(1*1), pad(2*3), pac(2*1), prim(2*1*1*3), scale local
760 SUBROUTINE block_2_1_1_4(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
762 pbc(1*1), pad(2*4), pac(2*1), prim(2*1*1*4), scale local
771 SUBROUTINE block_2_1_1_5(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
773 pbc(1*1), pad(2*5), pac(2*1), prim(2*1*1*5), scale local
782 SUBROUTINE block_2_1_1_6(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
784 pbc(1*1), pad(2*6), pac(2*1), prim(2*1*1*6), scale local
795 SUBROUTINE block_2_1_2_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
797 pbc(1*2), pad(2*1), pac(2*2), prim(2*1*2*1), scale local
808 SUBROUTINE block_2_1_2_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
810 pbc(1*2), pad(2*2), pac(2*2), prim(2*1*2*2), scale local
819 SUBROUTINE block_2_1_2_4(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
821 pbc(1*2), pad(2*4), pac(2*2), prim(2*1*2*4), scale local
830 SUBROUTINE block_2_2_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
832 pbc(2*1), pad(2*1), pac(2*1), prim(2*2*1*1), scale local
841 SUBROUTINE block_2_2_2_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
843 pbc(2*2), pad(2*1), pac(2*2), prim(2*2*2*1), scale local
852 SUBROUTINE block_2_2_3_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
854 pbc(2*3), pad(2*1), pac(2*3), prim(2*2*3*1), scale local
863 SUBROUTINE block_3_2_1(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
865 pbd(2*md_max), pbc(2*1), pad(3*md_max), pac(3*1), prim(3*2*1*md_max), & local
875 SUBROUTINE block_3_5_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
877 pbc(5*1), pad(3*1), pac(3*1), prim(3*5*1*1), scale local
888 SUBROUTINE block_3_5_1(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
890 pbd(5*md_max), pbc(5*1), pad(3*md_max), pac(3*1), prim(3*5*1*md_max), & local
900 SUBROUTINE block_3_6(mc_max,md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
903 pac(3*mc_max), prim(3*6*mc_max*md_max), scale local
906 SUBROUTINE block_3_9(mc_max,md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
909 pac(3*mc_max), prim(3*9*mc_max*md_max), scale local
920 SUBROUTINE block_4_1_1_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
922 pbc(1*1), pad(4*2), pac(4*1), prim(4*1*1*2), scale local
933 SUBROUTINE block_4_1_1_3(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
935 pbc(1*1), pad(4*3), pac(4*1), prim(4*1*1*3), scale local
944 SUBROUTINE block_4_1_1_4(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
946 pbc(1*1), pad(4*4), pac(4*1), prim(4*1*1*4), scale local
955 SUBROUTINE block_4_1_1(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
957 pbd(1*md_max), pbc(1*1), pad(4*md_max), pac(4*1), prim(4*1*1*md_max), & local
967 SUBROUTINE block_4_1_4(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
969 pbd(1*md_max), pbc(1*4), pad(4*md_max), pac(4*4), prim(4*1*4*md_max), & local
973 SUBROUTINE block_4_2_1_2(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
975 pbc(2*1), pad(4*2), pac(4*1), prim(4*2*1*2), scale local
986 SUBROUTINE block_4_2_2(md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
988 pbd(2*md_max), pbc(2*2), pad(4*md_max), pac(4*2), prim(4*2*2*md_max), & local
998 SUBROUTINE block_4_3_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
1000 pbc(3*1), pad(4*1), pac(4*1), prim(4*3*1*1), scale local
1011 SUBROUTINE block_4_3(mc_max,md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
1014 pac(4*mc_max), prim(4*3*mc_max*md_max), scale local
1023 SUBROUTINE block_4_4_1_1(kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
1025 pbc(4*1), pad(4*1), pac(4*1), prim(4*4*1*1), scale local
1036 SUBROUTINE block_15_15(mc_max,md_max,kbd,kbc,kad,kac,pbd,pbc,pad,pac,prim,scale) argument
1039 pac(15*mc_max), prim(15*15*mc_max*md_max), scale local