Searched refs:Reluct_Z (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/MagnetoDynamics/ |
| H A D | CalcFields.F90 | 542 COMPLEX(KIND=dp), POINTER, SAVE :: Reluct_Z(:,:,:) => NULL() local
1012 CALL GetReluctivity(Material,Reluct_Z,n,HasTensorReluctivity)
1014 IF (SIZE(Reluct_Z,1)==1 .AND. SIZE(Reluct_Z,2)==1) THEN
1015 l = MIN(SIZE(R_Z), SIZE(Reluct_Z,3))
1016 R_Z(1:l) = Reluct_Z(1,1,1:l)
1366 IF (SIZE(Reluct_Z,2) == 1) THEN
1367 DO k = 1, MIN(3, SIZE(Reluct_Z,1))
1368 Nu(k,k) = SUM(Basis(1:n)*Reluct_Z(k,1,1:n))
1371 DO k = 1, MIN(3, SIZE(Reluct_Z,1))
1372 DO l = 1, MIN(3, SIZE(Reluct_Z,2))
[all …]
|