Lines Matching refs:rKwall_glob
8 & xKebe, rKwall_glob) argument
99 dimension rKwall_glob(npro,9,nshl,nshl),
383 rKwall_glob = zero
683 rKwall_glob(:,1,1,1) = rKwall_glob11(:,1,1)
684 rKwall_glob(:,2,1,1) = rKwall_glob11(:,1,2)
685 rKwall_glob(:,3,1,1) = rKwall_glob11(:,1,3)
686 rKwall_glob(:,4,1,1) = rKwall_glob11(:,2,1)
687 rKwall_glob(:,5,1,1) = rKwall_glob11(:,2,2)
688 rKwall_glob(:,6,1,1) = rKwall_glob11(:,2,3)
689 rKwall_glob(:,7,1,1) = rKwall_glob11(:,3,1)
690 rKwall_glob(:,8,1,1) = rKwall_glob11(:,3,2)
691 rKwall_glob(:,9,1,1) = rKwall_glob11(:,3,3)
693 rKwall_glob(:,1,1,2) = rKwall_glob12(:,1,1)
694 rKwall_glob(:,2,1,2) = rKwall_glob12(:,1,2)
695 rKwall_glob(:,3,1,2) = rKwall_glob12(:,1,3)
696 rKwall_glob(:,4,1,2) = rKwall_glob12(:,2,1)
697 rKwall_glob(:,5,1,2) = rKwall_glob12(:,2,2)
698 rKwall_glob(:,6,1,2) = rKwall_glob12(:,2,3)
699 rKwall_glob(:,7,1,2) = rKwall_glob12(:,3,1)
700 rKwall_glob(:,8,1,2) = rKwall_glob12(:,3,2)
701 rKwall_glob(:,9,1,2) = rKwall_glob12(:,3,3)
703 rKwall_glob(:,1,1,3) = rKwall_glob13(:,1,1)
704 rKwall_glob(:,2,1,3) = rKwall_glob13(:,1,2)
705 rKwall_glob(:,3,1,3) = rKwall_glob13(:,1,3)
706 rKwall_glob(:,4,1,3) = rKwall_glob13(:,2,1)
707 rKwall_glob(:,5,1,3) = rKwall_glob13(:,2,2)
708 rKwall_glob(:,6,1,3) = rKwall_glob13(:,2,3)
709 rKwall_glob(:,7,1,3) = rKwall_glob13(:,3,1)
710 rKwall_glob(:,8,1,3) = rKwall_glob13(:,3,2)
711 rKwall_glob(:,9,1,3) = rKwall_glob13(:,3,3)
713 rKwall_glob(:,1,2,1) = rKwall_glob21(:,1,1)
714 rKwall_glob(:,2,2,1) = rKwall_glob21(:,1,2)
715 rKwall_glob(:,3,2,1) = rKwall_glob21(:,1,3)
716 rKwall_glob(:,4,2,1) = rKwall_glob21(:,2,1)
717 rKwall_glob(:,5,2,1) = rKwall_glob21(:,2,2)
718 rKwall_glob(:,6,2,1) = rKwall_glob21(:,2,3)
719 rKwall_glob(:,7,2,1) = rKwall_glob21(:,3,1)
720 rKwall_glob(:,8,2,1) = rKwall_glob21(:,3,2)
721 rKwall_glob(:,9,2,1) = rKwall_glob21(:,3,3)
723 rKwall_glob(:,1,2,2) = rKwall_glob22(:,1,1)
724 rKwall_glob(:,2,2,2) = rKwall_glob22(:,1,2)
725 rKwall_glob(:,3,2,2) = rKwall_glob22(:,1,3)
726 rKwall_glob(:,4,2,2) = rKwall_glob22(:,2,1)
727 rKwall_glob(:,5,2,2) = rKwall_glob22(:,2,2)
728 rKwall_glob(:,6,2,2) = rKwall_glob22(:,2,3)
729 rKwall_glob(:,7,2,2) = rKwall_glob22(:,3,1)
730 rKwall_glob(:,8,2,2) = rKwall_glob22(:,3,2)
731 rKwall_glob(:,9,2,2) = rKwall_glob22(:,3,3)
733 rKwall_glob(:,1,2,3) = rKwall_glob23(:,1,1)
734 rKwall_glob(:,2,2,3) = rKwall_glob23(:,1,2)
735 rKwall_glob(:,3,2,3) = rKwall_glob23(:,1,3)
736 rKwall_glob(:,4,2,3) = rKwall_glob23(:,2,1)
737 rKwall_glob(:,5,2,3) = rKwall_glob23(:,2,2)
738 rKwall_glob(:,6,2,3) = rKwall_glob23(:,2,3)
739 rKwall_glob(:,7,2,3) = rKwall_glob23(:,3,1)
740 rKwall_glob(:,8,2,3) = rKwall_glob23(:,3,2)
741 rKwall_glob(:,9,2,3) = rKwall_glob23(:,3,3)
743 rKwall_glob(:,1,3,1) = rKwall_glob31(:,1,1)
744 rKwall_glob(:,2,3,1) = rKwall_glob31(:,1,2)
745 rKwall_glob(:,3,3,1) = rKwall_glob31(:,1,3)
746 rKwall_glob(:,4,3,1) = rKwall_glob31(:,2,1)
747 rKwall_glob(:,5,3,1) = rKwall_glob31(:,2,2)
748 rKwall_glob(:,6,3,1) = rKwall_glob31(:,2,3)
749 rKwall_glob(:,7,3,1) = rKwall_glob31(:,3,1)
750 rKwall_glob(:,8,3,1) = rKwall_glob31(:,3,2)
751 rKwall_glob(:,9,3,1) = rKwall_glob31(:,3,3)
753 rKwall_glob(:,1,3,2) = rKwall_glob32(:,1,1)
754 rKwall_glob(:,2,3,2) = rKwall_glob32(:,1,2)
755 rKwall_glob(:,3,3,2) = rKwall_glob32(:,1,3)
756 rKwall_glob(:,4,3,2) = rKwall_glob32(:,2,1)
757 rKwall_glob(:,5,3,2) = rKwall_glob32(:,2,2)
758 rKwall_glob(:,6,3,2) = rKwall_glob32(:,2,3)
759 rKwall_glob(:,7,3,2) = rKwall_glob32(:,3,1)
760 rKwall_glob(:,8,3,2) = rKwall_glob32(:,3,2)
761 rKwall_glob(:,9,3,2) = rKwall_glob32(:,3,3)
763 rKwall_glob(:,1,3,3) = rKwall_glob33(:,1,1)
764 rKwall_glob(:,2,3,3) = rKwall_glob33(:,1,2)
765 rKwall_glob(:,3,3,3) = rKwall_glob33(:,1,3)
766 rKwall_glob(:,4,3,3) = rKwall_glob33(:,2,1)
767 rKwall_glob(:,5,3,3) = rKwall_glob33(:,2,2)
768 rKwall_glob(:,6,3,3) = rKwall_glob33(:,2,3)
769 rKwall_glob(:,7,3,3) = rKwall_glob33(:,3,1)
770 rKwall_glob(:,8,3,3) = rKwall_glob33(:,3,2)
771 rKwall_glob(:,9,3,3) = rKwall_glob33(:,3,3)
773 rKwall_glob = rKwall_glob*betai*Delt(itseq)*Delt(itseq)*alfi