Home
last modified time | relevance | path

Searched refs:nNo (Results 1 – 17 of 17) sorted by relevance

/phasta/svLS/
H A DSPARMUL.f41 SUBROUTINE SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
46 INTEGER, INTENT(IN) :: dof, nNo, nnz local
49 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
50 REAL*8, INTENT(IN) :: K(dof*dof,nnz), U(dof,nNo)
51 REAL*8, INTENT(OUT) :: KU(dof,nNo)
58 DO i=1, nNo
64 DO i=1, nNo
72 DO i=1, nNo
84 DO i=1, nNo
98 DO i=1, nNo
[all …]
H A DBC.f41 SUBROUTINE svLS_BC_CREATE (lhs, faIn, nNo, dof, BC_type, gNodes, argument
47 INTEGER, INTENT(IN) :: faIn, nNo, dof local
49 INTEGER, INTENT(IN) :: gNodes(nNo)
50 REAL*8, INTENT(IN), OPTIONAL :: Val(dof,nNo)
70 lhs%face(faIn)%nNo = nNo
74 ALLOCATE(lhs%face(faIn)%glob(nNo), lhs%face(faIn)%val(dof,nNo),
75 2 lhs%face(faIn)%valM(dof,nNo))
77 DO a=1, nNo
83 DO a=1, nNo
92 IF (lhs%face(faIn)%nNo .NE. 0) a = 1
[all …]
H A DDOT.f41 FUNCTION DOTV(dof, nNo, commu, U, V)
45 INTEGER, INTENT(IN) :: dof, nNo local
47 REAL*8, INTENT(IN) :: V(dof,nNo), U(dof,nNo)
55 DO i=1, nNo
59 DO i=1, nNo
63 DO i=1, nNo
67 DO i=1, nNo
72 DO i=1, nNo
89 FUNCTION DOTS(nNo, commu, U, V)
93 INTEGER, INTENT(IN) :: nNo local
[all …]
H A DCGRAD.f41 SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
51 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
53 REAL*8, INTENT(INOUT) :: R(nNo)
61 ALLOCATE(X(nNo), P(nNo), SP(nNo), DGP(nNo), GP(dof,nNo),
62 2 unCondU(dof,nNo))
81 CALL SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
86 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
90 CALL SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
93 CALL SPARMULSS( nNo, nnz, commu, cS, rowPtr, colPtr,
[all …]
H A DPRECOND.f41 SUBROUTINE PRECOND(nFaces, dof, nNo, nnz, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz local
50 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz), diagPtr(nNo)
51 REAL*8, INTENT(INOUT) :: Val(dof*dof,nnz), R(dof,nNo)
52 REAL*8, INTENT(OUT) :: W(dof,nNo)
58 DO Ac=1, nNo
62 DO Ac=1, nNo
68 DO Ac=1, nNo
75 DO Ac=1, nNo
83 DO Ac=1, nNo
[all …]
H A DNORM.f41 FUNCTION NORMV(dof, nNo, commu, U)
45 INTEGER, INTENT(IN) :: dof, nNo local
47 REAL*8, INTENT(IN) :: U(dof,nNo)
55 DO i=1, nNo
59 DO i=1, nNo
63 DO i=1, nNo
67 DO i=1, nNo
72 DO i=1, nNo
90 FUNCTION NORMS(nNo, commu, U)
94 INTEGER, INTENT(IN) :: nNo local
[all …]
H A DSOLVE.f48 REAL*8, INTENT(INOUT) :: Ri(dof,lhs%nNo)
54 INTEGER faIn, a, nNo, nnz, nFaces local
57 nNo = lhs%nNo
84 ALLOCATE(R(dof,nNo), W(dof,nNo))
85 DO a=1, nNo
89 CALL COMMUV(dof, nNo, lhs%commu, lhs%cS, R)
90 CALL PRECOND(nFaces, dof, nNo, nnz, lhs%commu, lhs%cS,
95 CALL NSSOLVER(nFaces, lhs%gnNo, dof, nNo, nnz, lhs%mynNo,
99 CALL GMRESV(nFaces, dof, nNo, nnz, lhs%mynNo, lhs%commu,
103 CALL CGRADS(nNo, nnz, lhs%mynNo, lhs%commu, lhs%cS,
[all …]
H A DLHS.f41 SUBROUTINE svLS_LHS_CREATE(lhs, commu, gnNo, nNo, nnz, gNodes, argument
48 INTEGER, INTENT(IN) :: gnNo, nNo, nnz local
49 INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1), colPtr(nnz)
66 lhs%nNo = nNo
75 ALLOCATE (lhs%colPtr(nnz), lhs%rowPtr(2,nNo), lhs%diagPtr(nNo),
76 2 lhs%map(nNo), lhs%cS(nTasks), lhs%face(nFaces))
82 DO Ac=1, nNo
99 lhs%mynNo = nNo
103 CALL MPI_ALLREDUCE (nNo, maxnNo, 1, mpint, MPI_MAX, comm, ierr)
106 2 disp(nTasks), gtlPtr(gnNo), ltg(nNo))
[all …]
H A DADDBCMUL.f41 SUBROUTINE ADDBCMUL(op_Type, nFaces, dof, nNo, mynNo, commu, face, argument
46 INTEGER, INTENT(IN) :: op_type, nFaces, dof, nNo, mynNo local
49 REAL*8, INTENT(IN) :: X(dof, nNo)
50 REAL*8, INTENT(INOUT) :: Y(dof, nNo)
71 IF (.NOT.ALLOCATED(v)) ALLOCATE(v(dof,nNo))
73 DO a=1, face(faIn)%nNo
80 DO a=1, face(faIn)%nNo
88 DO a=1, face(faIn)%nNo
95 DO a=1, face(faIn)%nNo
H A Ddummy_prototypes.f52 SUBROUTINE svLS_LHS_CREATE(lhs, commu, gnNo, nNo, nnz, argument
57 INTEGER, INTENT(IN) :: gnNo, nNo, nnz local
58 INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1),
83 SUBROUTINE svLS_BC_CREATE(lhs, faIn, nNo, dof, BC_type, argument
87 INTEGER, INTENT(IN) :: faIn, nNo, dof local
89 INTEGER, INTENT(IN) :: gNodes(nNo)
90 REAL*8, INTENT(IN), OPTIONAL :: Val(dof,nNo)
104 REAL*8, INTENT(INOUT) :: Ri(dof,lhs%nNo)
H A DNSSOLVER.f41 SUBROUTINE NSSOLVER(nFaces, gnNo, dof, nNo, nnz, mynNo, commu, argument
47 INTEGER, INTENT(IN) :: nFaces, gnNo, dof, nNo, nnz, mynNo local
52 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
54 REAL*8, INTENT(INOUT) :: Ri(dof,nNo)
65 ALLOCATE(Rm(nsd,nNo), Rc(nNo), Rmi(nsd,nNo), Rci(nNo),
66 2 U(nsd,nNo,iB), P(nNo,iB), MU(nsd,nNo,nB), MP(nNo,nB),
95 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
98 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
102 CALL CGRAD(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
105 CALL SPARMULSV(nsd, nNo, nnz, commu, cS,
[all …]
H A DGMRES.f41 SUBROUTINE GMRES(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
51 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
52 REAL*8, INTENT(IN) :: Val(dof*dof,nnz), R(dof,nNo)
53 REAL*8, INTENT(OUT) :: X(dof,nNo)
61 ALLOCATE(h(ls%sD+1,ls%sD), u(dof,nNo,ls%sD+1), unCondU(dof,nNo),
73 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
76 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
83 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
103 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
[all …]
H A DsvLS_API.h51 SUBROUTINE svLS_LHS_CREATE(lhs, commu, gnNo, nNo, nnz,
56 INTEGER, INTENT(IN) :: gnNo, nNo, nnz
57 INTEGER, INTENT(IN) :: gNodes(nNo), rowPtr(nNo+1),
80 SUBROUTINE svLS_BC_CREATE(lhs, faIn, nNo, dof, BC_type,
84 INTEGER, INTENT(IN) :: faIn, nNo, dof
86 INTEGER, INTENT(IN) :: gNodes(nNo)
87 REAL*8, INTENT(IN), OPTIONAL :: Val(dof,nNo)
100 REAL*8, INTENT(INOUT) :: Ri(dof,lhs%nNo)
H A DsvLS_API_c.h47 void svls_lhs_create_c_(void **lhs, svLS_commuType *commu, int *gnNo, int *nNo, int *nnz, int *gNod…
53 void svls_bc_create_(void *lhs, int *faIn, int *nNo, int *dof, int *BC_type, int *gNodes, double *V…
H A DINCOMMU.f41 SUBROUTINE COMMUV(dof, nNo, commu, cS, R) argument
45 INTEGER, INTENT(IN) :: dof, nNo local
48 REAL*8, INTENT(INOUT) :: R(dof,nNo)
129 SUBROUTINE COMMUS(nNo, commu, cS, R) argument
133 INTEGER, INTENT(IN) :: nNo local
136 REAL*8, INTENT(INOUT) :: R(nNo)
H A DsvLS_STRUCT.h77 INTEGER :: nNo = 0
124 INTEGER :: nNo = 0
129 ! nNo of this proc (USE)
/phasta/phSolver/incompressible/
H A Ditrdrv.f1473 INTEGER svLS_nFaces, gnNo, nNo, faIn, facenNo local
1542 nNo=nshg
1564 CALL svLS_LHS_CREATE(svLS_lhs, communicator, gnNo, nNo,
1654 2 communicator_S(isolsc), gnNo, nNo,