Home
last modified time | relevance | path

Searched refs:rzero (Results 1 – 25 of 162) sorted by relevance

1234567

/dports/math/libflame/libflame-5.2.0/src/lapack/dec/tevd/v/flamec/
H A DFLA_Tevd_find_submatrix.c35 double rzero = bl1_d0(); in FLA_Tevd_find_submatrix_opd() local
54 if ( abs_e1 != rzero ) in FLA_Tevd_find_submatrix_opd()
64 *e1 = rzero; in FLA_Tevd_find_submatrix_opd()
70 if ( *e1 != rzero ) in FLA_Tevd_find_submatrix_opd()
104 if ( abs_e1 != rzero ) in FLA_Tevd_find_submatrix_opd()
114 *e1 = rzero; in FLA_Tevd_find_submatrix_opd()
120 if ( *e1 == rzero ) in FLA_Tevd_find_submatrix_opd()
/dports/math/libflame/libflame-5.2.0/src/lapack/dec/bsvd/v/flamec/
H A DFLA_Bsvd_find_submatrix.c21 float rzero = bl1_s0(); in FLA_Bsvd_find_submatrix_ops() local
33 if ( *e1 != rzero ) in FLA_Bsvd_find_submatrix_ops()
57 if ( *e1 == rzero ) in FLA_Bsvd_find_submatrix_ops()
80 double rzero = bl1_d0(); in FLA_Bsvd_find_submatrix_opd() local
92 if ( *e1 != rzero ) in FLA_Bsvd_find_submatrix_opd()
123 if ( *e1 == rzero ) in FLA_Bsvd_find_submatrix_opd()
/dports/devel/avr-libc/avr-libc-2.0.0/libc/stdio/
H A Dultoa_invert.S73 #define rzero r1 macro
110 adc v_fifth, rzero
115 adc v_hhi, rzero
116 adc v_fifth, rzero
119 adc v_hi, rzero
120 adc v_hlo, rzero
121 adc v_hhi, rzero
122 adc v_fifth, rzero
190 cpc v_lo, rzero
191 cpc v_hi, rzero
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dqs_scf_lanczos.F251 CALL cp_fm_set_all(c1, rzero)
357 CALL cp_fm_set_all(b_mat, rzero)
358 CALL cp_fm_set_all(t_mat, rzero)
364 rzero, a_mat)
369 rzero, c_tmp)
392 rzero, c_tmp)
422 CALL cp_fm_set_all(c2_tmp, rzero)
596 CALL cp_fm_set_all(c1, rzero)
659 CALL cp_fm_set_all(c_tmp, rzero)
662 CALL cp_fm_set_all(v_tmp, rzero)
[all …]
H A Dqs_ot.F1051 rzero, matrix_c)
1195 rzero, qs_ot_env%matrix_buf1)
1197 rzero, qs_ot_env%matrix_buf2)
1208 rzero, qs_ot_env%matrix_buf1)
1210 rzero, qs_ot_env%matrix_buf2)
1221 rzero, qs_ot_env%matrix_buf1)
1223 rzero, qs_ot_env%matrix_buf3)
1276 CALL dbcsr_set(qs_ot_env%matrix_r, rzero)
1365 CALL dbcsr_set(qs_ot_env%matrix_cosp, rzero)
1366 CALL dbcsr_set(qs_ot_env%matrix_sinp, rzero)
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dqs_scf_lanczos.F251 CALL cp_fm_set_all(c1, rzero)
357 CALL cp_fm_set_all(b_mat, rzero)
358 CALL cp_fm_set_all(t_mat, rzero)
364 rzero, a_mat)
369 rzero, c_tmp)
392 rzero, c_tmp)
422 CALL cp_fm_set_all(c2_tmp, rzero)
596 CALL cp_fm_set_all(c1, rzero)
659 CALL cp_fm_set_all(c_tmp, rzero)
662 CALL cp_fm_set_all(v_tmp, rzero)
[all …]
H A Dqs_ot.F1051 rzero, matrix_c)
1195 rzero, qs_ot_env%matrix_buf1)
1197 rzero, qs_ot_env%matrix_buf2)
1208 rzero, qs_ot_env%matrix_buf1)
1210 rzero, qs_ot_env%matrix_buf2)
1221 rzero, qs_ot_env%matrix_buf1)
1223 rzero, qs_ot_env%matrix_buf3)
1276 CALL dbcsr_set(qs_ot_env%matrix_r, rzero)
1365 CALL dbcsr_set(qs_ot_env%matrix_cosp, rzero)
1366 CALL dbcsr_set(qs_ot_env%matrix_sinp, rzero)
[all …]
H A Dmatrix_exp.F462 REAL(KIND=dp), PARAMETER :: rone = 1.0_dp, rzero = 0.0_dp local
520 CALL cp_gemm("N", "N", ndim, ndim, ndim, square_fac, im_part, T2, rzero, Tres)
531 CALL cp_gemm("N", "N", ndim, ndim, ndim, square_fac, im_part, Tres, rzero, T2)
703 REAL(KIND=dp), PARAMETER :: rone = 1.0_dp, rzero = 0.0_dp local
739 H_approx_save = rzero
862 mydim, mat3(1, 1), mydim, rzero, mat2(1, 1), mydim)
871 mydim, mat1(1, 1), mydim, rzero, mat3(1, 1), mydim)
904 mos_new(1)%matrix%local_data = rzero
905 mos_new(2)%matrix%local_data = rzero
930 mos_next(1)%matrix%local_data = rzero
[all …]
/dports/math/arpack-ng/arpack-ng-3.8.0/SRC/
H A Dcnapps.f166 & rzero
168 & rzero = 0.0E+0)
289 if( tst1.eq.rzero )
407 if ( real( h(j+1,j) ) .lt. rzero .or.
408 & aimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( real( h(kev+1,kev) ) .gt. rzero )
468 if ( real( h(kev+1,kev) ) .gt. rzero )
480 if ( real( h(kev+1,kev) ) .gt. rzero )
H A Dznapps.f166 & rzero
168 & rzero = 0.0D+0)
289 if( tst1.eq.rzero )
407 if ( dble( h(j+1,j) ) .lt. rzero .or.
408 & dimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( dble( h(kev+1,kev) ) .gt. rzero )
468 if ( dble( h(kev+1,kev) ) .gt. rzero )
480 if ( dble( h(kev+1,kev) ) .gt. rzero )
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/arpack/src_f77/
H A Dznapps.f166 & rzero local
168 & rzero = 0.0D+0)
289 if( tst1.eq.rzero )
407 if ( dble( h(j+1,j) ) .lt. rzero .or.
408 & dimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( dble( h(kev+1,kev) ) .gt. rzero )
468 if ( dble( h(kev+1,kev) ) .gt. rzero )
480 if ( dble( h(kev+1,kev) ) .gt. rzero )
H A Dcnapps.f166 & rzero local
168 & rzero = 0.0E+0)
289 if( tst1.eq.rzero )
407 if ( real( h(j+1,j) ) .lt. rzero .or.
408 & aimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( real( h(kev+1,kev) ) .gt. rzero )
468 if ( real( h(kev+1,kev) ) .gt. rzero )
480 if ( real( h(kev+1,kev) ) .gt. rzero )
/dports/science/py-scipy/scipy-1.7.1/scipy/sparse/linalg/eigen/arpack/ARPACK/SRC/
H A Dcnapps.f166 & rzero local
168 & rzero = 0.0E+0)
289 if( tst1.eq.rzero )
407 if ( real( h(j+1,j) ) .lt. rzero .or.
408 & aimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( real( h(kev+1,kev) ) .gt. rzero )
468 if ( real( h(kev+1,kev) ) .gt. rzero )
480 if ( real( h(kev+1,kev) ) .gt. rzero )
H A Dznapps.f166 & rzero local
168 & rzero = 0.0D+0)
289 if( tst1.eq.rzero )
407 if ( dble( h(j+1,j) ) .lt. rzero .or.
408 & dimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( dble( h(kev+1,kev) ) .gt. rzero )
468 if ( dble( h(kev+1,kev) ) .gt. rzero )
480 if ( dble( h(kev+1,kev) ) .gt. rzero )
/dports/science/getdp/getdp-3.4.0-source/contrib/Arpack/
H A Dcnapps.f166 & rzero
168 & rzero = 0.0E+0)
289 if( tst1.eq.rzero )
407 if ( real( h(j+1,j) ) .lt. rzero .or.
408 & aimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( real( h(kev+1,kev) ) .gt. rzero )
468 if ( real( h(kev+1,kev) ) .gt. rzero )
480 if ( real( h(kev+1,kev) ) .gt. rzero )
H A Dznapps.f166 & rzero
168 & rzero = 0.0D+0)
289 if( tst1.eq.rzero )
407 if ( dble( h(j+1,j) ) .lt. rzero .or.
408 & dimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( dble( h(kev+1,kev) ) .gt. rzero )
468 if ( dble( h(kev+1,kev) ) .gt. rzero )
480 if ( dble( h(kev+1,kev) ) .gt. rzero )
/dports/math/algae/algae-4.3.6/arpack/
H A Dznapps.f166 & rzero
168 & rzero = 0.0D+0)
289 if( tst1.eq.rzero )
407 if ( dble( h(j+1,j) ) .lt. rzero .or.
408 & dimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( dble( h(kev+1,kev) ) .gt. rzero )
468 if ( dble( h(kev+1,kev) ) .gt. rzero )
480 if ( dble( h(kev+1,kev) ) .gt. rzero )
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/arpack/
H A Dcnapps.f166 & rzero
168 & rzero = 0.0E+0)
289 if( tst1.eq.rzero )
407 if ( real( h(j+1,j) ) .lt. rzero .or.
408 & aimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( real( h(kev+1,kev) ) .gt. rzero )
468 if ( real( h(kev+1,kev) ) .gt. rzero )
480 if ( real( h(kev+1,kev) ) .gt. rzero )
H A Dznapps.f166 & rzero
168 & rzero = 0.0D+0)
289 if( tst1.eq.rzero )
407 if ( dble( h(j+1,j) ) .lt. rzero .or.
408 & dimag( h(j+1,j) ) .ne. rzero ) then
413 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
429 if( tst1 .eq. rzero )
443 if ( dble( h(kev+1,kev) ) .gt. rzero )
468 if ( dble( h(kev+1,kev) ) .gt. rzero )
480 if ( dble( h(kev+1,kev) ) .gt. rzero )
/dports/math/arpack-ng/arpack-ng-3.8.0/PARPACK/SRC/BLACS/
H A Dpcnapps.f182 & rzero
184 & rzero = 0.0)
305 if( tst1.eq.rzero )
423 if ( real( h(j+1,j) ) .lt. rzero .or.
424 & aimag( h(j+1,j) ) .ne. rzero ) then
429 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
445 if( tst1 .eq. rzero )
459 if ( real( h(kev+1,kev) ) .gt. rzero )
484 if ( real( h(kev+1,kev) ) .gt. rzero )
496 if ( real( h(kev+1,kev) ) .gt. rzero )
H A Dpznapps.f182 & rzero
184 & rzero = 0.0)
305 if( tst1.eq.rzero )
423 if ( dble( h(j+1,j) ) .lt. rzero .or.
424 & dimag( h(j+1,j) ) .ne. rzero ) then
429 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
445 if( tst1 .eq. rzero )
459 if ( dble( h(kev+1,kev) ) .gt. rzero )
484 if ( dble( h(kev+1,kev) ) .gt. rzero )
496 if ( dble( h(kev+1,kev) ) .gt. rzero )
/dports/math/arpack-ng/arpack-ng-3.8.0/PARPACK/SRC/MPI/
H A Dpcnapps.f183 & rzero
185 & rzero = 0.0)
304 if( tst1.eq.rzero )
422 if ( real( h(j+1,j) ) .lt. rzero .or.
423 & aimag( h(j+1,j) ) .ne. rzero ) then
428 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
444 if( tst1 .eq. rzero )
458 if ( real( h(kev+1,kev) ) .gt. rzero )
483 if ( real( h(kev+1,kev) ) .gt. rzero )
495 if ( real( h(kev+1,kev) ) .gt. rzero )
H A Dpznapps.f183 & rzero
185 & rzero = 0.0)
304 if( tst1.eq.rzero )
422 if ( dble( h(j+1,j) ) .lt. rzero .or.
423 & dimag( h(j+1,j) ) .ne. rzero ) then
428 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
444 if( tst1 .eq. rzero )
458 if ( dble( h(kev+1,kev) ) .gt. rzero )
483 if ( dble( h(kev+1,kev) ) .gt. rzero )
495 if ( dble( h(kev+1,kev) ) .gt. rzero )
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/parpack/
H A Dpznapps.f182 & rzero
184 & rzero = 0.0)
305 if( tst1.eq.rzero )
423 if ( dble( h(j+1,j) ) .lt. rzero .or.
424 & dimag( h(j+1,j) ) .ne. rzero ) then
429 h(j+1,j) = dcmplx( dble( h(j+1,j) ), rzero )
445 if( tst1 .eq. rzero )
459 if ( dble( h(kev+1,kev) ) .gt. rzero )
484 if ( dble( h(kev+1,kev) ) .gt. rzero )
496 if ( dble( h(kev+1,kev) ) .gt. rzero )
H A Dpcnapps.f182 & rzero
184 & rzero = 0.0)
305 if( tst1.eq.rzero )
423 if ( real( h(j+1,j) ) .lt. rzero .or.
424 & aimag( h(j+1,j) ) .ne. rzero ) then
429 h(j+1,j) = cmplx( real( h(j+1,j) ), rzero )
445 if( tst1 .eq. rzero )
459 if ( real( h(kev+1,kev) ) .gt. rzero )
484 if ( real( h(kev+1,kev) ) .gt. rzero )
496 if ( real( h(kev+1,kev) ) .gt. rzero )

1234567