Home
last modified time | relevance | path

Searched refs:global (Results 1 – 19 of 19) sorted by relevance

/phasta/phSolver/common/
H A Drotabc.f1 subroutine rotabc (global, iBC, code) argument
20 dimension global(nshg,2), iBC(nshg),
27 tmp = global(:,1)*acs(:,1) - global(:,2)*acs(:,2)
28 global(:,2) = global(:,1)*acs(:,2) + global(:,2)*acs(:,1)
29 global(:,1) = tmp
33 tmp = global(:,1)*acs(:,1) + global(:,2)*acs(:,2)
34 global(:,2) = -global(:,1)*acs(:,2) + global(:,2)*acs(:,1)
35 global(:,1) = tmp
H A Dlocal.f1 subroutine local (global, rlocal, ientmp, n, code) argument
23 dimension global(nshg,n), rlocal(npro,nshl,n),
46 rlocal(:,i,j) = global(ien(:,i),j)
70 global(ien(nel,i),j) = global(ien(nel,i),j)
96 global(ien(nel,i),j) = rlocal(nel,i,j)
114 subroutine localx (global, rlocal, ien, n, code) argument
136 dimension global(numnp,n), rlocal(npro,nenl,n),
149 rlocal(:,i,j) = global(ien(:,i),j)
174 global(ien(nel,i),j) = global(ien(nel,i),j)
344 subroutine localSum (global, rlocal, ientmp, nHits, n) argument
[all …]
H A Dlocaly.f1 subroutine localy (global, rlocal, ientmp, n, code) argument
23 dimension global(nshg,n), rlocal(npro,nshl,n),
55 rlocal(:,i,j+1) = global(ien(:,i),j)
62 rlocal(:,i,1) = global(ien(:,i),4)
70 rlocal(:,i,j) = global(ien(:,i),j)
H A DcommuInt.f1 subroutine commuInt (global, ilwork, n, code) argument
36 integer*8 global(nshg,n), local
114 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
121 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
149 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
188 global(isgbeg:isgend,idof) = global(isgbeg:isgend,idof)
H A Dcommu.f1 subroutine commu (global, ilwork, n, code) argument
37 dimension global(nshg,n),
159 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
178 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
228 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
287 global(isgbeg:isgend,idof) = global(isgbeg:isgend,idof)
H A Dgen_ncorp.c14 void commu_int(int* global, int* ilwork, int* n, char* code);
H A Dcommon.h354 c nshg : global number of shape functions (degrees of freedom,
/phasta/phSolver/compressible/
H A Dlocalt.f1 subroutine localt (global, rlocal, ien, n, code) argument
25 dimension global(nshg,n), rlocal(npro,n,nshl),
44 rlocal(:,i,j) = global(ien(:,j),i)
76 global(ien(nel,j),i) = global(ien(nel,j),i)
105 global(ien(nel,j),i) = rlocal(nel,i,j)
126 subroutine localtSclr (global, rlocal, ien, code) argument
150 dimension global(nshg), rlocal(npro,nshl),
168 rlocal(:,j) = global(ien(:,j))
198 global(ien(nel,j)) = global(ien(nel,j))
225 global(ien(nel,j)) = rlocal(nel,j)
/phasta/M2N/src/
H A Dcommu.f1 subroutine commu (global, ilwork, n, code) argument
37 dimension global(nshg,n),
149 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
160 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
194 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
243 global(j,idof) = max(global(j,idof),
/phasta/M2NFixBnd/src/
H A DcommuMax.f1 subroutine commuMax (global, ilwork, n, code) argument
37 dimension global(nshg,n),
153 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
164 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
198 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
247 global(k,idof) = max(global(k,idof),rtemp (itemp,jdl))
/phasta/AcuStat/src/
H A DcommuMax.f1 subroutine commuMax (global, ilwork, n, code) argument
37 dimension global(nshg,n),
152 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
163 call MPI_IRECV(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
197 call MPI_ISEND(global(isgbeg, 1), 1, sevsegtype(itask,kdof),
246 global(k,idof) = max(global(k,idof),rtemp (itemp,jdl))
/phasta/phSolver/incompressible/
H A DlesSparse.f523 subroutine commOut( global, ilwork, n,
528 real*8 global(nshg,n), BC(nshg,ndofBC)
532 call commu ( global, ilwork, n, 'out')
540 global(:,i) = global(iper(:),i) ! iper(i)=i if non-slave so no danger
546 & call rotabc(global, iBC, 'out')
560 subroutine commIn( global, ilwork, n,
565 real*8 global(nshg,n), BC(nshg,ndofBC)
569 & call rotabc(global, iBC, 'in ')
573 call commu ( global, ilwork, n, 'in ')
576 call bc3per ( iBC, global, iper, ilwork, n)
/phasta/phSolver/AMG/
H A Dramg_paratools.f869 subroutine commOut_i(global,ilwork,n,iper,iBC,BC) argument
871 integer global(nshg,n) local
879 aglobal(i,j) = global(i,j)
885 global(i,j)=aglobal(i,j)
893 subroutine ramg_commOut(global,level,ilwork,redun,iper,iBC,BC) argument
902 & :: global local
917 call commOut(global,ilwork,1,iper,iBC,BC)
937 tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
979 global(amg_ilwork(level)%p(itkbeg),:)=tmparray(i)%p(j,:)
989 subroutine ramg_commIn(global,level,ilwork,redun,iper,iBC,BC) argument
[all …]
H A Damgread.txt44 global control variables, matrices, and vectors. To have a global module
234 init_bcflag initialize global array amg_paramap. Ignore the first bunch
261 calcAv_g is the global Ap-product for all AMG-matrices, the kernel is
/phasta/phSolver/incompressible/e3source/
H A De3source.fimplicit281 c.... compute the global gradient of u
427 c.... compute the global gradient of u
H A De3source.fRHSonly281 c.... compute the global gradient of u
413 c.... compute the global gradient of u
/phasta/M2NFixBnd/include/
H A DcommonM2NFixBnd.h319 c nshg : global number of shape functions (degrees of freedom,
/phasta/M2N/include/
H A DcommonM2N.h320 c nshg : global number of shape functions (degrees of freedom,
/phasta/AcuStat/include/
H A DcommonAcuStat.h319 c nshg : global number of shape functions (degrees of freedom,