/dports/math/libflame/libflame-5.2.0/src/lapack/dec/tevd/v/flamec/ |
H A D | FLA_Tevd_find_submatrix.c | 35 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 D | FLA_Bsvd_find_submatrix.c | 21 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 D | ultoa_invert.S | 73 #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 D | qs_scf_lanczos.F | 251 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 D | qs_ot.F | 1051 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 D | qs_scf_lanczos.F | 251 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 D | qs_ot.F | 1051 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 D | matrix_exp.F | 462 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 D | cnapps.f | 166 & 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 D | znapps.f | 166 & 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 D | znapps.f | 166 & 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 D | cnapps.f | 166 & 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 D | cnapps.f | 166 & 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 D | znapps.f | 166 & 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 D | cnapps.f | 166 & 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 D | znapps.f | 166 & 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 D | znapps.f | 166 & 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 D | cnapps.f | 166 & 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 D | znapps.f | 166 & 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 D | pcnapps.f | 182 & 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 D | pznapps.f | 182 & 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 D | pcnapps.f | 183 & 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 D | pznapps.f | 183 & 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 D | pznapps.f | 182 & 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 D | pcnapps.f | 182 & 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 )
|