| /phasta/svLS/ |
| H A D | GE.f | 41 SUBROUTINE GE (N, A, B) argument
46 REAL*8, INTENT(IN) :: A(N,N) local
54 pivot = A(1,1)*A(2,2) - A(2,1)*A(1,2)
55 saveEl = (B(1)*A(2,2) - B(2)*A(1,2))/pivot
56 B(2) = (B(2)*A(1,1) - B(1)*A(2,1))/pivot
62 C(:N,:N) = A
|
| H A D | NSSOLVER.f | 59 2 MU(:,:,:), MP(:,:), A(:,:), B(:), xB(:), mK(:,:), mG(:,:), local
67 3 A(nB,nB), B(nB), xB(nB))
126 A(j,k) = DOTV(nsd, mynNo, commu, MU(:,:,j), MU(:,:,k))
128 A(k,j) = A(j,k)
130 A(k,k) = NORMV(nsd, mynNo, commu, MU(:,:,k))**2D0
137 CALL GE(iBB, A(1:iBB,1:iBB), xB(1:iBB))
182 DEALLOCATE (Rm, Rc, Rmi, Rci, U, P, MU, MP, A, B, mK, mD, mG, mL,
|
| H A D | svLS.h | 35 ! OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
|
| H A D | license.txt | 41 ! OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
|
| H A D | svLS_STD.h | 35 ! OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
|
| H A D | svLS_API.h | 35 ! OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
|
| H A D | svLS_STRUCT.h | 36 ! OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
|
| /phasta/phSolver/common/ |
| H A D | findslpw.f | 132 integer function iparall(A,B)
133 real*8 A(3),B(3) local
136 tmp=(A(1)**2+A(2)**2+A(3)**2)**0.5
137 A(:)=A(:)/tmp
143 C1=A(2)*B(3)-A(3)*B(2)
144 C2=A(3)*B(1)-A(1)*B(3)
145 C3=A(1)*B(2)-A(2)*B(1)
147 dotp=A(1)*B(1)+A(2)*B(2)+A(3)*B(3)
|
| H A D | symtri.c | 23 #define A 0.3333333333333330000000000000000000 macro
59 static double rst1[][3] = {{A,A,A}};
63 static double wt3[] = {A,A,A};
65 static double rst4[][3] = {{A,A,A},
73 static double rst7[][3] = {{A,A,A},
|
| H A D | INIprofile.f | 59 556 format(A,F10.3)
|
| /phasta/phSolver/compressible/ |
| H A D | wtime.f | 159 100 format (1X,A,G14.6,F9.5)
160 101 format (1X,A,G14.6,G14.6)
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 769 925 format(A,i2,A,2(e24.17,1x))
770 926 format(A,i2,i2,A,2(e24.17,1x))
|
| /phasta/ |
| H A D | License.txt | 12 …T NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE A…
|
| /phasta/phastaIO/ |
| H A D | vtkPhastaReader.cxx | 176 #define swap_char(A,B) { ucTmp = A; A = B ; B = ucTmp; } argument
|
| /phasta/phSolver/AMG/ |
| H A D | amgread.txt | 106 interpolator. A tiny bit of waste compare to communicate criterias (see
142 seperatedly: calculate nonzeros; form colm; form rowp and A. Yes there
|
| H A D | ramg_tools.f | 1026 7101 format(T1,A,T40,f9.2,' s (ave), ',f9.2,' s (max)')
|
| /phasta/phSolver/ |
| H A D | CHANGES | 218 4) A new MPI data type added to avoid commu error for error indicators.
525 A second flag was created to force the decay of the scalar fields according to
574 points FOR A SPECIFIC RUN which allows savings of memory)
|