/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/ |
H A D | static_LIB_3dIC.f90 | 152 B1(4, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 2) 153 B1(4, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 2) 154 B1(4, 3*j ) = gdispderiv(3, 2)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 2) 155 B1(5, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 3)+gdispderiv(1, 3)*gderiv(j, 2) 156 B1(5, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 3)+gdispderiv(2, 3)*gderiv(j, 2) 157 B1(5, 3*j ) = gdispderiv(3, 2)*gderiv(j, 3)+gdispderiv(3, 3)*gderiv(j, 2) 158 B1(6, 3*j-2) = gdispderiv(1, 3)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 3) 159 B1(6, 3*j-1) = gdispderiv(2, 3)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 3) 160 B1(6, 3*j ) = gdispderiv(3, 3)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 3) 355 B1(4, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 2) [all …]
|
H A D | static_LIB_C3D8.f90 | 142 B1(4, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 2) 143 B1(4, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 2) 144 B1(4, 3*j ) = gdispderiv(3, 2)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 2) 145 B1(5, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 3)+gdispderiv(1, 3)*gderiv(j, 2) 146 B1(5, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 3)+gdispderiv(2, 3)*gderiv(j, 2) 147 B1(5, 3*j ) = gdispderiv(3, 2)*gderiv(j, 3)+gdispderiv(3, 3)*gderiv(j, 2) 148 B1(6, 3*j-2) = gdispderiv(1, 3)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 3) 149 B1(6, 3*j-1) = gdispderiv(2, 3)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 3) 150 B1(6, 3*j ) = gdispderiv(3, 3)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 3) 404 B1(4, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 2) [all …]
|
H A D | static_LIB_Fbar.f90 | 192 B1(4, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 2) 193 B1(4, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 2) 194 B1(4, 3*j ) = gdispderiv(3, 2)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 2) 195 B1(5, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 3)+gdispderiv(1, 3)*gderiv(j, 2) 196 B1(5, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 3)+gdispderiv(2, 3)*gderiv(j, 2) 197 B1(5, 3*j ) = gdispderiv(3, 2)*gderiv(j, 3)+gdispderiv(3, 3)*gderiv(j, 2) 198 B1(6, 3*j-2) = gdispderiv(1, 3)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 3) 199 B1(6, 3*j-1) = gdispderiv(2, 3)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 3) 200 B1(6, 3*j ) = gdispderiv(3, 3)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 3) 257 gderiv1 = gderiv [all …]
|
H A D | static_LIB_3d.f90 | 151 B1(4, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 2) 152 B1(4, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 2) 153 B1(4, 3*j ) = gdispderiv(3, 2)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 2) 154 B1(5, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 3)+gdispderiv(1, 3)*gderiv(j, 2) 155 B1(5, 3*j-1) = gdispderiv(2, 2)*gderiv(j, 3)+gdispderiv(2, 3)*gderiv(j, 2) 156 B1(5, 3*j ) = gdispderiv(3, 2)*gderiv(j, 3)+gdispderiv(3, 3)*gderiv(j, 2) 157 B1(6, 3*j-2) = gdispderiv(1, 3)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 3) 158 B1(6, 3*j-1) = gdispderiv(2, 3)*gderiv(j, 1)+gdispderiv(2, 1)*gderiv(j, 3) 159 B1(6, 3*j ) = gdispderiv(3, 3)*gderiv(j, 1)+gdispderiv(3, 1)*gderiv(j, 3) 951 B1(4, 3*j-2) = gdispderiv(1, 2)*gderiv(j, 1)+gdispderiv(1, 1)*gderiv(j, 2) [all …]
|
H A D | static_LIB_3d_vp.f90 | 255 DD(na, nb, 1, 1) = gderiv(na, 1)*gderiv(nb, 1) 256 DD(na, nb, 1, 2) = gderiv(na, 1)*gderiv(nb, 2) 257 DD(na, nb, 1, 3) = gderiv(na, 1)*gderiv(nb, 3) 258 DD(na, nb, 2, 1) = gderiv(na, 2)*gderiv(nb, 1) 259 DD(na, nb, 2, 2) = gderiv(na, 2)*gderiv(nb, 2) 260 DD(na, nb, 2, 3) = gderiv(na, 2)*gderiv(nb, 3) 261 DD(na, nb, 3, 1) = gderiv(na, 3)*gderiv(nb, 1) 262 DD(na, nb, 3, 2) = gderiv(na, 3)*gderiv(nb, 2) 263 DD(na, nb, 3, 3) = gderiv(na, 3)*gderiv(nb, 3) 830 DD(na, nb, 1, 1) = gderiv(na, 1)*gderiv(nb, 1) [all …]
|
H A D | static_LIB_2d.f90 | 81 B(1,2*J-1)=gderiv(J,1) 83 B(3,2*J-1)=gderiv(J,2) 85 B(2,2*J )=gderiv(J,2) 86 B(3,2*J )=gderiv(J,1) 99 B1(3,2*j-1) = gdispderiv(1,2)*gderiv(j,1)+gdispderiv(1,1)*gderiv(j,2) 102 B1(3,2*j ) = gdispderiv(2,2)*gderiv(j,1)+gdispderiv(2,1)*gderiv(j,2) 121 BN(1,2*j-1) = gderiv(j,1) 494 B(1,2*J-1)=gderiv(J,1) 496 B(3,2*J-1)=gderiv(J,2) 498 B(2,2*J )=gderiv(J,2) [all …]
|
H A D | dynamic_mass.f90 | 29 real(kind=kreal) :: gderiv(nn,2) local 41 call getGlobalDeriv(etype, nn, naturalcoord, ecoord, det, gderiv) 101 real(kind=kreal) :: gderiv(nn, 3) local 111 call getGlobalDeriv(etype, nn, naturalcoord, ecoord, det, gderiv)
|
H A D | heat_LIB_CAPACITY.f90 | 91 real(kind=kreal) :: gderiv(nn,2) local 104 call getGlobalDeriv(etype, nn, naturalcoord, ecoord, det, gderiv) 147 real(kind=kreal) :: gderiv(nn, 3) local 160 call getGlobalDeriv(etype, nn, naturalcoord, ecoord, det, gderiv) 245 real(kind=kreal) :: gderiv(nn,2) local
|
H A D | heat_LIB_CONDUCTIVITY.f90 | 87 real(kind=kreal) :: gderiv(nn,2) local 97 call getGlobalDeriv(etype, nn, naturalcoord, ecoord, det, gderiv) 107 DN = matmul(D, transpose(gderiv)) 109 stiff(i,j) = stiff(i,j) + dot_product(gderiv(i,:), DN(:,j))*wg 132 real(kind=kreal) :: gderiv(nn, 3) local 142 call getGlobalDeriv(etype, nn, naturalcoord, ecoord, det, gderiv) 153 DN = matmul(D, transpose(gderiv)) 155 stiff(i,j) = stiff(i,j) + dot_product(gderiv(i,:), DN(:,j))*wg 443 real(kind=kreal) :: gderiv(nn,2) local
|
/dports/emulators/mess/mame-mame0226/3rdparty/bimg/3rdparty/astc/ |
H A D | astc_imageblock.cpp | 131 float gderiv = (float_to_lns(g * 1.05f) - float_to_lns(g)) / (g * 0.05f); in imageblock_initialize_deriv_from_work_and_orig() local 141 if (gderiv < (1.0f / 32.0f)) in imageblock_initialize_deriv_from_work_and_orig() 142 gderiv = (1.0f / 32.0f); in imageblock_initialize_deriv_from_work_and_orig() 143 else if (gderiv > 33554432.0f) in imageblock_initialize_deriv_from_work_and_orig() 144 gderiv = 33554432.0f; in imageblock_initialize_deriv_from_work_and_orig() 152 dptr[1] = gderiv; in imageblock_initialize_deriv_from_work_and_orig()
|
/dports/emulators/mame/mame-mame0226/3rdparty/bimg/3rdparty/astc/ |
H A D | astc_imageblock.cpp | 131 float gderiv = (float_to_lns(g * 1.05f) - float_to_lns(g)) / (g * 0.05f); in imageblock_initialize_deriv_from_work_and_orig() local 141 if (gderiv < (1.0f / 32.0f)) in imageblock_initialize_deriv_from_work_and_orig() 142 gderiv = (1.0f / 32.0f); in imageblock_initialize_deriv_from_work_and_orig() 143 else if (gderiv > 33554432.0f) in imageblock_initialize_deriv_from_work_and_orig() 144 gderiv = 33554432.0f; in imageblock_initialize_deriv_from_work_and_orig() 152 dptr[1] = gderiv; in imageblock_initialize_deriv_from_work_and_orig()
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/element/ |
H A D | element.f90 | 733 subroutine getGlobalDeriv( fetype, nn, localcoord, elecoord, det, gderiv ) argument 780 gderiv(1:nn,1:nspace)=matmul( deriv(1:nn,1:nspace), XJI(1:nspace,1:nspace) ) 868 real(kind=kreal) :: deriv(nn,2), gderiv(3,2) local 889 gderiv = matmul( elecoord, deriv ) 890 normal(1) = gderiv(2,1)*gderiv(3,2) - gderiv(3,1)*gderiv(2,2) 891 normal(2) = gderiv(3,1)*gderiv(1,2) - gderiv(1,1)*gderiv(3,2) 892 normal(3) = gderiv(1,1)*gderiv(2,2) - gderiv(2,1)*gderiv(1,2) 903 real(kind=kreal) :: deriv(nn,1), gderiv(2,1) local 918 gderiv = matmul( elecoord, deriv ) 919 normal(1) = -gderiv(2,1) [all …]
|
/dports/math/maxima/maxima-5.43.2/share/colnew/ |
H A D | colnew-lisp.system | 62 :depends-on ("compat" "vwblok" "gblock" "gderiv" "fcblok" 64 (:file "gderiv")
|
H A D | colnew.system | 51 :depends-on ("compat" "vwblok" "gblock" "gderiv" "fcblok" 53 (:file "gderiv")
|
/dports/math/maxima/maxima-5.43.2/share/colnew/lisp/ |
H A D | gderiv.lisp | 20 (defun gderiv (gi nrow irow zval dgz mode dgsub) function
|
H A D | lsyslv.lisp | 246 (gderiv (f2cl-lib:array-slice g double-float (ig) ((1 1))) nrow 452 (gderiv (f2cl-lib:array-slice g double-float (ig) ((1 1))) nrow
|
/dports/math/fricas/fricas-1.3.7/src/algebra/ |
H A D | sttaylor.spad | 74 gderiv : (I -> A, ST A) -> ST A 75 ++ gderiv(f, [a0, a1, a2, ..]) returns 320 gderiv(f, x) ==
|
H A D | taylor.spad | 345 multiplyCoefficients(f, x) == gderiv(f, stream x)$STT
|
/dports/math/SCIP/scip-7.0.3/src/scip/ |
H A D | cons_abspower.c | 3568 SCIP_Real gderiv; in generateLinearizationCutProject() local 3589 gderiv = 1 + 6 * tmp / (zcoef*zcoef) + 2 / zcoef * (zref - rhs/zcoef); in generateLinearizationCutProject() 3590 xproj -= gval / gderiv; in generateLinearizationCutProject() 3603 …gderiv = 1 + exponent / zcoef * ( (2*exponent-1)*tmp*tmp/zcoef + (exponent-1)*pow(xproj+xoffset, e… in generateLinearizationCutProject() 3604 xproj -= gval / gderiv; in generateLinearizationCutProject()
|
/dports/math/fricas/fricas-1.3.7/pre-generated/src/algebra/ |
H A D | STTAYLOR.lsp | 1582 |general_Lambert_product| 530 |generalLambert| 537 |gderiv| 544 1632 '((|gderiv|
|
H A D | UTS.lsp | 907 (330 . |gderiv|) |UTS;multiplyCoefficients;M2$;29|
|
/dports/math/fricas/fricas-1.3.7/pre-generated/target/algebra/ |
H A D | compress.daase | 1095 |oddintegers| |int| |mapmult| |deriv| |gderiv| |compose| |addiag| |prodiag|
|
H A D | operation.daase | 44495 (|deriv| . 562248) (|gderiv| . 562055) (|compose| . 561912)
|
H A D | interp.daase | 149202 (|gderiv| (((|Stream| |#1|) (|Mapping| |#1| (|Integer|)) (|Stream| |#1|)) 78)) 149236 (SIGNATURE |gderiv| 149356 (|gderiv| (*1 *2 *3 *2) 149426 (SIGNATURE |gderiv|
|
H A D | browse.daase | 40843 (|gderiv| 40845 …"\\spad{gderiv(f,{} [a0,{} a1,{} a2,{} ..])} returns \\spad{[f(0)*a0,{} f(1)*a1,{} f(2)*a2,{} ..]}…
|