| /phasta/svLS/ |
| H A D | BC.f | 65 IF (lhs%face(faIn)%foC) THEN
70 lhs%face(faIn)%nNo = nNo
71 lhs%face(faIn)%dof = dof
72 lhs%face(faIn)%bGrp = BC_type
74 ALLOCATE(lhs%face(faIn)%glob(nNo), lhs%face(faIn)%val(dof,nNo),
75 2 lhs%face(faIn)%valM(dof,nNo))
79 lhs%face(faIn)%glob(a) = Ac
84 lhs%face(faIn)%val(:,a) = Val(:,a)
87 lhs%face(faIn)%val = 0D0
92 IF (lhs%face(faIn)%nNo .NE. 0) a = 1
[all …]
|
| H A D | ADDBCMUL.f | 41 SUBROUTINE ADDBCMUL(op_Type, nFaces, dof, nNo, mynNo, commu, face, argument
48 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces) local
59 coef = face%res
61 coef = -face%res/(1D0 + face%res*face%nS)
68 nsd = MIN(face(faIn)%dof,dof)
69 IF (face(faIn)%coupledFlag) THEN
70 IF (face(faIn)%sharedFlag) THEN
73 DO a=1, face(faIn)%nNo
74 Ac = face(faIn)%glob(a)
76 v(i,Ac) = face(faIn)%valM(i,a)
[all …]
|
| H A D | SOLVE.f | 62 lhs%face%incFlag = .TRUE.
65 IF (incL(faIn) .EQ. 0) lhs%face(faIn)%incFlag = .FALSE.
69 flag = ANY(lhs%face%bGrp.EQ.BC_TYPE_Neu)
74 lhs%face(faIn)%coupledFlag = .FALSE.
75 IF (.NOT.lhs%face(faIn)%incFlag) CYCLE
76 flag = lhs%face(faIn)%bGrp .EQ. BC_TYPE_Neu
78 lhs%face(faIn)%res = res(faIn)
79 lhs%face(faIn)%coupledFlag = .TRUE.
91 2 lhs%face, lhs%rowPtr, lhs%colPtr, lhs%diagPtr, Val, R, W)
96 2 lhs%commu, lhs%cS, lhs%face, ls, lhs%rowPtr, lhs%colPtr,
[all …]
|
| H A D | PRECOND.f | 41 SUBROUTINE PRECOND(nFaces, dof, nNo, nnz, commu, cS, face, argument
49 TYPE(svLS_faceType), INTENT(INOUT) :: face(nFaces) local
105 IF (.NOT.face(faIn)%incFlag) CYCLE
106 i = MIN(face(faIn)%dof,dof)
107 IF (face(faIn)%bGrp .EQ. BC_TYPE_Dir) THEN
108 DO a=1, face(faIn)%nNo
109 Ac = face(faIn)%glob(a)
110 W(1:i,Ac) = W(1:i,Ac)*face(faIn)%val(1:i,a)
213 IF (face(faIn)%coupledFlag) THEN
214 DO a=1, face(faIn)%nNo
[all …]
|
| H A D | NSSOLVER.f | 42 2 cS, face, ls, rowPtr, colPtr, Val, Ri) argument
50 TYPE(svLS_faceType), INTENT(INOUT) :: face(nFaces) local
95 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
102 CALL CGRAD(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
109 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
116 2 face, U(:,:,i), MU(:,:,iBB))
273 IF (face(faIn)%coupledFlag) THEN
274 IF (face(faIn)%sharedFlag) THEN
277 DO a=1, face(faIn)%nNo
278 Ac = face(faIn)%glob(a)
[all …]
|
| H A D | GMRES.f | 41 SUBROUTINE GMRES(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
49 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces) local
77 2 face, X, u(:,:,1))
81 IF (ANY(face%coupledFlag)) THEN
84 2 face, unCondU, u(:,:,1))
107 2 face, u(:,:,i), u(:,:,i+1))
109 IF (ANY(face%coupledFlag)) THEN
112 2 commu, face, unCondU, u(:,:,i+1))
163 SUBROUTINE GMRESV(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
171 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces) local
[all …]
|
| H A D | CGRAD.f | 41 SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
49 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces) local
84 IF (ANY(face%coupledFlag)) THEN
87 2 face, unCondU, GP)
|
| H A D | LHS.f | 76 2 lhs%map(nNo), lhs%cS(nTasks), lhs%face(nFaces))
284 IF (lhs%face(faIn)%foC) CALL svLS_BC_FREE(lhs, faIn)
300 2 lhs%face)
|
| H A D | svLS_STRUCT.h | 141 TYPE(svLS_faceType), ALLOCATABLE :: face(:)
|
| /phasta/phSolver/compressible/ |
| H A D | get_h.c | 101 int face,i,j,k; in intersect() local
115 for( face= 0 ; face< 4; face++ ){ in intersect()
119 xbar[j][k] = x[f_index[face][j]][k]; in intersect()
122 if( face != 2 ){ in intersect()
|
| /phasta/phSolver/common/ |
| H A D | newshape.cc | 436 int face[6][4] = {{0,3,2,1},{0,1,5,4},{1,2,6,5}, in HexShapeAndDrv() local
615 vrt[u]=face[f][u]; in HexShapeAndDrv()
|
| H A D | common.h | 23 c The two types of face topology are 1= tri, 2=quad
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat.h | 23 c The two types of face topology are 1= tri, 2=quad
|
| /phasta/M2N/include/ |
| H A D | commonM2N.h | 23 c The two types of face topology are 1= tri, 2=quad
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd.h | 23 c The two types of face topology are 1= tri, 2=quad
|