/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 30 REAL*4 dest(d_d1_extnt,n_extnt*d_d1_lstride) 36 do n = 1, n_extnt 42 do n = 1, n_extnt 49 do n = 1, n_extnt 55 do n = 1, n_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 30 COMPLEX*8 dest(d_d1_extnt,n_extnt*d_d1_lstride) 36 do n = 1, n_extnt 42 do n = 1, n_extnt 49 do n = 1, n_extnt 55 do n = 1, n_extnt
|
H A D | mmul_real8str1.F95 | 22 k_extnt,m_extnt,n_extnt, & argument 26 DESC_INT n_extnt,m_extnt,k_extnt 63 mmod4 = mod (n_extnt, 4) 65 nn = n_extnt - mmod4 68 do ii=1,n_extnt,bs 317 do i=nn+1,min(n_extnt,ii+bs-1) 345 do i=nn+1,min(n_extnt,ii+bs-1) 376 do i=nn+1,min(n_extnt,ii+bs-1) 393 do i=nn+1,min(n_extnt,ii+bs-1) 416 do n = 1, n_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 49 mmod4 = mod (n_extnt, 4) 51 nn = n_extnt - mmod4 54 do ii=1,n_extnt,bs 303 do i=nn+1,min(n_extnt,ii+bs-1) 331 do i=nn+1,min(n_extnt,ii+bs-1) 362 do i=nn+1,min(n_extnt,ii+bs-1) 379 do i=nn+1,min(n_extnt,ii+bs-1) 401 do n = 1, n_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 49 mmod4 = mod (n_extnt, 4) 51 nn = n_extnt - mmod4 54 do ii=1,n_extnt,bs 303 do i=nn+1,min(n_extnt,ii+bs-1) 331 do i=nn+1,min(n_extnt,ii+bs-1) 362 do i=nn+1,min(n_extnt,ii+bs-1) 379 do i=nn+1,min(n_extnt,ii+bs-1) 401 do n = 1, n_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 49 mmod4 = mod (n_extnt, 4) 51 nn = n_extnt - mmod4 54 do ii=1,n_extnt,bs 303 do i=nn+1,min(n_extnt,ii+bs-1) 331 do i=nn+1,min(n_extnt,ii+bs-1) 362 do i=nn+1,min(n_extnt,ii+bs-1) 379 do i=nn+1,min(n_extnt,ii+bs-1) 401 do n = 1, n_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 49 mmod4 = mod (n_extnt, 4) 51 nn = n_extnt - mmod4 54 do ii=1,n_extnt,bs 303 do i=nn+1,min(n_extnt,ii+bs-1) 331 do i=nn+1,min(n_extnt,ii+bs-1) 362 do i=nn+1,min(n_extnt,ii+bs-1) 379 do i=nn+1,min(n_extnt,ii+bs-1) 401 do n = 1, n_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 49 mmod4 = mod (n_extnt, 4) 51 nn = n_extnt - mmod4 54 do ii=1,n_extnt,bs 303 do i=nn+1,min(n_extnt,ii+bs-1) 331 do i=nn+1,min(n_extnt,ii+bs-1) 362 do i=nn+1,min(n_extnt,ii+bs-1) 379 do i=nn+1,min(n_extnt,ii+bs-1) 401 do n = 1, n_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 49 mmod4 = mod (n_extnt, 4) 51 nn = n_extnt - mmod4 54 do ii=1,n_extnt,bs 303 do i=nn+1,min(n_extnt,ii+bs-1) 331 do i=nn+1,min(n_extnt,ii+bs-1) 362 do i=nn+1,min(n_extnt,ii+bs-1) 379 do i=nn+1,min(n_extnt,ii+bs-1) 401 do n = 1, n_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 49 mmod4 = mod (n_extnt, 4) 51 nn = n_extnt - mmod4 54 do ii=1,n_extnt,bs 303 do i=nn+1,min(n_extnt,ii+bs-1) 331 do i=nn+1,min(n_extnt,ii+bs-1) 362 do i=nn+1,min(n_extnt,ii+bs-1) 379 do i=nn+1,min(n_extnt,ii+bs-1) 401 do n = 1, n_extnt [all …]
|