| /dports/math/libpgmath/flang-d07daf3/runtime/flang/ |
| H A D | mmul_real4str1_t.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
29 REAL*4 s2(s2_d1_extnt,k_extnt)
35 do k = 1, k_extnt
40 do k = 1, k_extnt
48 do k = 1, k_extnt
53 do k = 1, k_extnt
|
| H A D | mmul_cplx8str1_t.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
29 COMPLEX*8 s2(s2_d1_extnt,k_extnt)
35 do k = 1, k_extnt
40 do k = 1, k_extnt
48 do k = 1, k_extnt
53 do k = 1, k_extnt
|
| H A D | mmul_real8str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
35 REAL*8 s2(s2_d1_extnt,k_extnt)
62 nmod4 = mod (k_extnt, 4)
64 kk = k_extnt - nmod4
67 do jj=1,k_extnt,bs
72 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
281 do j=kk+2,min(k_extnt,jj+bs-1)
391 do j=kk+2,min(k_extnt,jj+bs-1)
415 do k = 1, k_extnt
[all …]
|
| H A D | mmul_int4str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
31 INTEGER*4 s2(s2_d1_extnt,k_extnt)
48 nmod4 = mod (k_extnt, 4)
50 kk = k_extnt - nmod4
53 do jj=1,k_extnt,bs
58 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
267 do j=kk+2,min(k_extnt,jj+bs-1)
377 do j=kk+2,min(k_extnt,jj+bs-1)
400 do k = 1, k_extnt
[all …]
|
| H A D | mmul_real4str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
31 REAL*4 s2(s2_d1_extnt,k_extnt)
48 nmod4 = mod (k_extnt, 4)
50 kk = k_extnt - nmod4
53 do jj=1,k_extnt,bs
58 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
267 do j=kk+2,min(k_extnt,jj+bs-1)
377 do j=kk+2,min(k_extnt,jj+bs-1)
400 do k = 1, k_extnt
[all …]
|
| H A D | mmul_int1str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
31 INTEGER*1 s2(s2_d1_extnt,k_extnt)
48 nmod4 = mod (k_extnt, 4)
50 kk = k_extnt - nmod4
53 do jj=1,k_extnt,bs
58 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
267 do j=kk+2,min(k_extnt,jj+bs-1)
377 do j=kk+2,min(k_extnt,jj+bs-1)
400 do k = 1, k_extnt
[all …]
|
| H A D | mmul_int8str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
31 INTEGER*8 s2(s2_d1_extnt,k_extnt)
48 nmod4 = mod (k_extnt, 4)
50 kk = k_extnt - nmod4
53 do jj=1,k_extnt,bs
58 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
267 do j=kk+2,min(k_extnt,jj+bs-1)
377 do j=kk+2,min(k_extnt,jj+bs-1)
400 do k = 1, k_extnt
[all …]
|
| H A D | mmul_cplx16str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
31 COMPLEX*16 s2(s2_d1_extnt,k_extnt)
48 nmod4 = mod (k_extnt, 4)
50 kk = k_extnt - nmod4
53 do jj=1,k_extnt,bs
58 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
267 do j=kk+2,min(k_extnt,jj+bs-1)
377 do j=kk+2,min(k_extnt,jj+bs-1)
400 do k = 1, k_extnt
[all …]
|
| H A D | mmul_cplx8str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
31 COMPLEX*8 s2(s2_d1_extnt,k_extnt)
48 nmod4 = mod (k_extnt, 4)
50 kk = k_extnt - nmod4
53 do jj=1,k_extnt,bs
58 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
267 do j=kk+2,min(k_extnt,jj+bs-1)
377 do j=kk+2,min(k_extnt,jj+bs-1)
400 do k = 1, k_extnt
[all …]
|
| H A D | mmul_int2str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument
26 DESC_INT n_extnt,m_extnt,k_extnt
31 INTEGER*2 s2(s2_d1_extnt,k_extnt)
48 nmod4 = mod (k_extnt, 4)
50 kk = k_extnt - nmod4
53 do jj=1,k_extnt,bs
58 if ((k_extnt .ge. 4) .and. (n_extnt .ge. 4)) then
267 do j=kk+2,min(k_extnt,jj+bs-1)
377 do j=kk+2,min(k_extnt,jj+bs-1)
400 do k = 1, k_extnt
[all …]
|