| /phasta/svLS/ |
| H A D | CGRAD.f | 58 REAL*8, ALLOCATABLE :: X(:), P(:), SP(:), DGP(:), GP(:,:), local 61 ALLOCATE(X(nNo), P(nNo), SP(nNo), DGP(nNo), GP(dof,nNo), 70 X = 0D0 98 X = X + alpha*P 104 R = X 110 DEALLOCATE(X, P, SP, DGP, GP) 133 REAL*8, ALLOCATABLE :: P(:,:), KP(:,:), X(:,:) local 135 ALLOCATE(P(dof,nNo), KP(dof,nNo), X(dof,nNo)) 144 X = 0D0 157 X = X + alpha*P [all …]
|
| H A D | GMRES.f | 42 2 ls, rowPtr, colPtr, Val, R, X) argument 53 REAL*8, INTENT(OUT) :: X(dof,nNo) local 67 X = 0D0 74 2 Val, X, u(:,:,1)) 77 2 face, X, u(:,:,1)) 149 X = X + u(:,:,j)*y(j) 180 REAL*8, ALLOCATABLE :: u(:,:,:), h(:,:), X(:,:), y(:), c(:), s(:), local 183 ALLOCATE(h(ls%sD+1,ls%sD), u(dof,nNo,ls%sD+1), X(dof,nNo), 193 X = 0D0 204 2 Val, X, u(:,:,1)) [all …]
|
| H A D | ADDBCMUL.f | 42 2 X, Y) argument 49 REAL*8, INTENT(IN) :: X(dof, nNo) local 79 S = coef(faIn)*DOTV(dof, mynNo, commu, v, X) 91 S = S + face(faIn)%valM(i,a)*X(i,Ac)
|
| /phasta/phSolver/common/ |
| H A D | symtri.c | 51 #define X 0.501426509658179 macro 79 {X,Y,1.0-X-Y},{Y,X,1.0-X-Y},{Y,Y,1.0-Y-Y},
|
| H A D | input.config | 32 Initial X Velocity: NODEFAULT #xvel_ini 143 Stretch X Coordinate Near Outlet: 0 #istretchOutlet
|
| /phasta/phSolver/incompressible/ |
| H A D | rstatic.f | 277 802 format(1p,i6,e10.3,e10.3,10X,e10.3,31X,'[',i6,']') 278 803 format(1p,16x,e10.3,10x,e10.3,31X,'[',i10,']')
|
| H A D | itrdrv.f | 827 5 format(1X,F15.10,3X,F15.10,3X,F15.10,3X,F15.10)
|
| /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)
|