863
863
OUT(J,4,I)=OUT(J,4,I)+A(K,0,I)*B(J,4,K)+A(K,4,I)*B(J,0,K)
864
864
OUT(J,5,I)=OUT(J,5,I)+A(K,1,I)*B(J,1,K)
865
865
OUT(J,6,I)=OUT(J,6,I)+A(K,1,I)*B(J,2,K)+A(K,2,I)*B(J,1,K)
866
OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
866
867
OUT(J,8,I)=OUT(J,8,I)+A(K,1,I)*B(J,3,K)+A(K,3,I)*B(J,1,K)
868
OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
869
OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
867
870
OUT(J,11,I)=OUT(J,11,I)+A(K,1,I)*B(J,4,K)+A(K,4,I)*B(J,1,K)
868
OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
869
OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
870
871
OUT(J,12,I)=OUT(J,12,I)+A(K,2,I)*B(J,4,K)+A(K,4,I)*B(J,2,K)
871
OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
872
872
OUT(J,13,I)=OUT(J,13,I)+A(K,3,I)*B(J,4,K)+A(K,4,I)*B(J,3,K)
873
873
OUT(J,14,I)=OUT(J,14,I)+A(K,4,I)*B(J,4,K)
898
898
OUT(J,4,I)=OUT(J,4,I)+A(K,0,I)*B(J,4,K)+A(K,4,I)*B(J,0,K)
899
899
OUT(J,5,I)=OUT(J,5,I)+A(K,1,I)*B(J,1,K)
900
900
OUT(J,6,I)=OUT(J,6,I)+A(K,1,I)*B(J,2,K)+A(K,2,I)*B(J,1,K)
901
OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
901
902
OUT(J,8,I)=OUT(J,8,I)+A(K,1,I)*B(J,3,K)+A(K,3,I)*B(J,1,K)
903
OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
904
OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
902
905
OUT(J,11,I)=OUT(J,11,I)+A(K,1,I)*B(J,4,K)+A(K,4,I)*B(J,1,K)
903
OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
904
OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
905
906
OUT(J,12,I)=OUT(J,12,I)+A(K,2,I)*B(J,4,K)+A(K,4,I)*B(J,2,K)
906
OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
907
907
OUT(J,13,I)=OUT(J,13,I)+A(K,3,I)*B(J,4,K)+A(K,4,I)*B(J,3,K)
908
908
OUT(J,14,I)=OUT(J,14,I)+A(K,4,I)*B(J,4,K)