abl
crs.h
Go to the documentation of this file.
1 #ifndef CRS_H
2 #define CRS_H
3 
4 #if !defined(COMM_H)
5 #warning "crs.h" requires "comm.h"
6 #endif
7 
8 #define crs_xxt_setup PREFIXED_NAME(crs_xxt_setup)
9 #define crs_xxt_solve PREFIXED_NAME(crs_xxt_solve)
10 #define crs_xxt_stats PREFIXED_NAME(crs_xxt_stats)
11 #define crs_xxt_free PREFIXED_NAME(crs_xxt_free )
12 
13 #define crs_amg_setup PREFIXED_NAME(crs_amg_setup)
14 #define crs_amg_solve PREFIXED_NAME(crs_amg_solve)
15 #define crs_amg_stats PREFIXED_NAME(crs_amg_stats)
16 #define crs_amg_free PREFIXED_NAME(crs_amg_free )
17 
18 struct crs_data;
19 
20 struct crs_data *crs_xxt_setup(
21  uint n, const ulong *id,
22  uint nz, const uint *Ai, const uint *Aj, const double *A,
23  uint null_space, const struct comm *comm);
24 void crs_xxt_solve(double *x, struct crs_data *data, double *b);
25 void crs_xxt_stats(struct crs_data *data);
26 void crs_xxt_free(struct crs_data *data);
27 
28 struct crs_data *crs_amg_setup(
29  uint n, const ulong *id,
30  uint nz, const uint *Ai, const uint *Aj, const double *A,
31  uint null_space, const struct comm *comm,
32  const char *datafname, uint *ierr);
33 void crs_amg_solve(double *x, struct crs_data *data, double *b);
34 void crs_amg_stats(struct crs_data *data);
35 void crs_amg_free(struct crs_data *data);
36 
38  uint n, const ulong *id,
39  uint nz, const uint *Ai, const uint *Aj, const double *Av,
40  const uint nullspace, const struct comm *comm,
41  const double *param);
42 void ccrs_hypre_solve(double *x, struct crs_data *data, double *b);
43 void ccrs_hypre_free(struct crs_data *data);
44 
45 #endif
map13
subroutine map13(y, x, iel)
Definition: coef.f:1493
verify
subroutine verify
Definition: connect1.f:800
rdparam
subroutine rdparam
Definition: reader_rea.f:3
chkjac
subroutine chkjac(jac, n, iel, X, Y, Z, ND, IERR)
Definition: coef.f:965
READ
#define READ
Definition: byte.c:43
opdsop
subroutine opdsop(a, b, c, op)
Definition: navier1.f:2610
inrtia
subroutine inrtia(xyzi, cg, xyzl, n, itype)
Definition: connect2.f:646
axhelm
subroutine axhelm(au, u, helm1, helm2, imesh, isd)
Definition: hmholtz.f:73
faddcl3
subroutine faddcl3(a, b, c, iface1)
Definition: subs1.f:978
gs_chkr
subroutine gs_chkr(glo_num)
Definition: connect1.f:1583
ccrs_hypre_solve
void ccrs_hypre_solve(double *x, struct crs_data *data, double *b)
setwgtr
subroutine setwgtr(wgtr1, wgtr2, wgtr3, wgtr4)
Definition: coef.f:1135
ping_loop
subroutine ping_loop(t1, t0, len, nloop, nodea, nodeb, nid, x1, y1, x2, y2)
Definition: comm_mpi.f:1315
get_dgl_ptr
subroutine get_dgl_ptr(ip, mx, md)
Definition: convect.f:506
facind2
subroutine facind2(JS1, JF1, JSKIP1, JS2, JF2, JSKIP2, IFC)
Definition: bdry.f:2098
read_re2_data
subroutine read_re2_data(ifbswap)
Definition: reader_re2.f:3
mpi_init
subroutine mpi_init(ierror)
Definition: mpi_dummy.f:576
faceiv
subroutine faceiv(CB, V1, V2, V3, IEL, IFACE, NX, NY, NZ)
Definition: bdry.f:1002
crs_amg_solve
#define crs_amg_solve
Definition: crs.h:14
mpi_allreduce
subroutine mpi_allreduce(data1, data2, n, datatype, operation, comm, ierror)
Definition: mpi_dummy.f:144
dssum
subroutine dssum(u, nx, ny, nz)
Definition: dssum.f:34
xor
integer function xor(m, n)
Definition: comm_mpi.f:1114
conv_rhs_dg_weak
subroutine conv_rhs_dg_weak(du, u, cr, cs, ct)
Definition: convect.f:1816
i8gop
subroutine i8gop(x, w, op, n)
Definition: comm_mpi.f:274
cfill
subroutine cfill(a, b, n)
Definition: math.f:244
faccl3
subroutine faccl3(a, b, c, iface1)
Definition: subs1.f:944
bytesw_write
int bytesw_write
Definition: byte.c:53
userbc
subroutine userbc(ix, iy, iz, iside, eg)
Definition: zero.usr:80
rzero3
subroutine rzero3(A, B, C, N)
Definition: bdry.f:1821
lagmass
subroutine lagmass
Definition: coef.f:1315
out_xyz_el
subroutine out_xyz_el(x, y, z, e)
Definition: coef.f:1647
facind
subroutine facind(kx1, kx2, ky1, ky2, kz1, kz2, nx, ny, nz, iface)
Definition: connect1.f:1028
vcross
subroutine vcross(u1, u2, u3, v1, v2, v3, w1, w2, w3, n)
Definition: math.f:430
rotat2
subroutine rotat2(xyz, angle, npts)
Definition: connect2.f:552
dg_setup2
subroutine dg_setup2(mask)
Definition: conduct.f:581
byte_read_mpi
subroutine byte_read_mpi(buf, icount, iorank, mpi_fh, ierr)
Definition: byte_mpi.f:48
comm_test
subroutine comm_test(ivb)
Definition: comm_mpi.f:730
MAX_NAME
#define MAX_NAME
Definition: byte.c:45
addcol3
subroutine addcol3(a, b, c, n)
Definition: math.f:654
set_bmass
subroutine set_bmass(bmass, hmsk, n)
Definition: convect.f:1227
mapelpr
subroutine mapelpr()
Definition: map2.f:3
glmapm3
subroutine glmapm3(xm3, ym3, zm3)
Definition: coef.f:391
lim_chk
subroutine lim_chk(n, m, avar5, lvar5, sub_name10)
Definition: convect.f:454
set_eta_alpha2
subroutine set_eta_alpha2
Definition: conduct.f:472
map31
subroutine map31(y, x, iel)
Definition: coef.f:1450
setinvm
subroutine setinvm
Definition: coef.f:1334
vrdsmshx
subroutine vrdsmshx
Definition: connect2.f:366
outxm3j
subroutine outxm3j(xm3, ym3, jm3)
Definition: coef.f:1676
crs_amg_free
#define crs_amg_free
Definition: crs.h:16
izero
subroutine izero(a, n)
Definition: math.f:215
faccvs
subroutine faccvs(A1, A2, A3, B, IFACE1)
Definition: subs2.f:392
blank
subroutine blank(A, N)
Definition: math.f:19
convop_cons_3d
subroutine convop_cons_3d(du, u, c, mx, md, nel)
Definition: convect.f:1005
set_bdivw
subroutine set_bdivw(bdivw, hmsk, n)
Definition: convect.f:1198
byte_close
#define byte_close
Definition: byte.c:36
cscan
subroutine cscan(sout, key, nk)
Definition: connect2.f:982
vlmax
real function vlmax(vec, n)
Definition: math.f:396
divide
subroutine divide(list1, list2, nl1, nl2, ifok, list, nl, xyzi, cg, WGT)
Definition: connect2.f:766
facexv
subroutine facexv(A1, A2, A3, B1, B2, B3, IFACE1, IOP)
Definition: subs2.f:170
byte_read
#define byte_read
Definition: byte.c:38
mpi_scan
subroutine mpi_scan(data1, data2, n, datatype, operation, comm, ierror)
Definition: mpi_dummy.f:4
nekgsync
subroutine nekgsync()
Definition: comm_mpi.f:501
convect_cons
subroutine convect_cons(bdu, u, ifuf, cx, cy, cz, ifcf)
Definition: convect.f:732
opdssum
subroutine opdssum(a, b, c)
Definition: navier1.f:2589
exitti
subroutine exitti(stringi, idata)
Definition: comm_mpi.f:534
mpi_isend
subroutine mpi_isend(data, n, datatype, iproc, itag, comm, request, ierror)
Definition: mpi_dummy.f:627
combin2
subroutine combin2(glnm1, glnm2, nglob)
Definition: connect1.f:1125
mpi_barrier
subroutine mpi_barrier(comm, ierror)
Definition: mpi_dummy.f:194
set_convect_cons
subroutine set_convect_cons(cx, cy, cz, ux, uy, uz)
Definition: convect.f:818
dgllgl
subroutine dgllgl(D, DT, ZM1, ZM2, IM12, NZM1, NZM2, ND1, ND2)
Definition: speclib.f:935
mynode
integer function mynode()
Definition: comm_mpi.f:381
mpi_recv
subroutine mpi_recv(data, n, datatype, iproc, itag, comm, istatus, ierror)
Definition: mpi_dummy.f:659
setupds
subroutine setupds(gs_handle, nx, ny, nz, nel, melg, vertex, glo_num)
Definition: dssum.f:2
dglj
subroutine dglj(D, DT, Z, NZ, lzd, ALPHA, BETA)
Definition: speclib.f:712
outfldi
subroutine outfldi(x, txt10)
Definition: connect1.f:1161
makeq
subroutine makeq
Definition: makeq.f:3
volume2
subroutine volume2(vol, xyz, n)
Definition: connect2.f:695
sub2
subroutine sub2(a, b, n)
Definition: math.f:164
set_ct_cvx
subroutine set_ct_cvx(ct, c, m, u, v, w, tau, nc, mc, nelc, ifnew)
Definition: convect.f:575
rdmesh
subroutine rdmesh
Definition: reader_rea.f:519
mpi_finalize
subroutine mpi_finalize(ierror)
Definition: mpi_dummy.f:533
glsum
function glsum(x, n)
Definition: math.f:861
setaxdy
subroutine setaxdy(ifaxdy)
Definition: subs1.f:2342
outmat
subroutine outmat(a, m, n, name6, ie)
Definition: fast3d.f:891
crs_xxt_setup
#define crs_xxt_setup
Definition: crs.h:8
invcol1
subroutine invcol1(a, n)
Definition: math.f:62
conv_bdry_dg_weak
subroutine conv_bdry_dg_weak(du, u)
Definition: convect.f:1729
file
Definition: crs_amg_io.h:37
igljm
subroutine igljm(I12, IT12, Z1, Z2, lz1, lz2, ND1, ND2, ALPHA, BETA)
Definition: speclib.f:1153
local_bflux
subroutine local_bflux(flux, tx, ty, tz, ifld)
Definition: bdry.f:2057
userq
subroutine userq(ix, iy, iz, eg)
Definition: zero.usr:62
fix_surface_flux
subroutine fix_surface_flux
Definition: multimesh.f:530
maprs
subroutine maprs(y, x, xa, nrest, iel)
Definition: coef.f:1381
rmask
subroutine rmask(R1, R2, R3, NEL)
Definition: subs2.f:1801
trst3d
subroutine trst3d(TRX, TRY, TRZ, SIGST, IEL, IFC)
Definition: bdry.f:1591
set_dealias_rx
subroutine set_dealias_rx
Definition: convect2.f:121
byte_write_mpi
subroutine byte_write_mpi(buf, icount, iorank, mpi_fh, ierr)
Definition: byte_mpi.f:65
mpi_type_extent
subroutine mpi_type_extent(ikey, isize, ierr)
Definition: mpi_dummy.f:1113
map21t
subroutine map21t(y, x, iel)
Definition: coef.f:1568
setupcomm
subroutine setupcomm(comm, newcomm, newcommg, path_in, session_in)
Definition: comm_mpi.f:3
check_cyclic
subroutine check_cyclic
Definition: bdry.f:1939
get_msg_vol
subroutine get_msg_vol(msg_vol, dt, nodea, nodeb)
Definition: comm_mpi.f:941
iniproc
subroutine iniproc()
Definition: comm_mpi.f:138
name.h
set_stdout
#define set_stdout
Definition: chelpers.c:12
dnekgflops
function dnekgflops()
Definition: papi.f:12
mpi_comm_rank
subroutine mpi_comm_rank(comm, me, ierror)
Definition: mpi_dummy.f:389
advchar
subroutine advchar
Definition: convect.f:904
ctang2d
subroutine ctang2d(CANG, SANG, IXN, IYN, IAN, IFC, IEL)
Definition: bdry.f:1530
setedge
subroutine setedge
Definition: connect1.f:223
invcol3
subroutine invcol3(a, b, c, n)
Definition: math.f:98
cbcmesh
subroutine cbcmesh
Definition: mvmesh.f:3
nek_die
subroutine nek_die(ierr)
Definition: comm_mpi.f:667
convab
subroutine convab
Definition: conduct.f:205
rdmatp
subroutine rdmatp
Definition: reader_rea.f:948
bctwall
subroutine bctwall(TMP1, TMP2, TMP3)
Definition: bdry.f:1872
SWAP
#define SWAP(a, b)
Definition: byte.c:47
zwglj
subroutine zwglj(Z, W, NP, ALPHA, BETA)
Definition: speclib.f:208
read_re2_hdr
subroutine read_re2_hdr(ifbswap)
Definition: reader_re2.f:765
unitvec
subroutine unitvec(X, Y, Z, N)
Definition: bdry.f:1831
vrdsmsh
subroutine vrdsmsh
Definition: connect2.f:136
get_bytesw_write
#define get_bytesw_write
Definition: byte.c:40
initds
subroutine initds
Definition: connect1.f:175
col2
subroutine col2(a, b, n)
Definition: math.f:564
get_int_ptr
subroutine get_int_ptr(ip, mx, md)
Definition: convect.f:468
char_conv
subroutine char_conv(p0, u, ulag, bm, bmlag, msk, c, cs, gsl)
Definition: convect.f:3
rdbdry
subroutine rdbdry
Definition: reader_rea.f:702
crss2d
function crss2d(XY1, XY2, XY0)
Definition: connect1.f:1016
chkcbc
subroutine chkcbc(CB, IEL, IFC, IFALGN, IERR)
Definition: bdry.f:275
byte_write
#define byte_write
Definition: byte.c:39
diffab
subroutine diffab
Definition: conduct.f:437
i8zero
subroutine i8zero(a, n)
Definition: math.f:939
addcol4
subroutine addcol4(a, b, c, d, n)
Definition: math.f:142
log2
integer function log2(k)
Definition: math.f:527
setqvol
subroutine setqvol(bql)
Definition: conduct.f:131
fbinvert
subroutine fbinvert(rhs)
Definition: convect.f:1495
sub3
subroutine sub3(a, b, c, n)
Definition: math.f:175
makeuq
subroutine makeuq
Definition: conduct.f:106
rnz
Definition: crs_amg.c:1090
chkzvn
subroutine chkzvn(VMAX, IEL, IFC, IVNORL)
Definition: bdry.f:1844
full2face
subroutine full2face(faceary, vol_ary)
Definition: convect.f:1322
globrot
subroutine globrot(R1, R2, R3, IEL, IFC)
Definition: bdry.f:1722
readat
subroutine readat
Definition: connect2.f:3
pingpongo
subroutine pingpongo(alphas, betas, nodea, nodeb, dt, io, ivb)
Definition: comm_mpi.f:844
local_grad3
subroutine local_grad3(ur, us, ut, u, N, e, D, Dt)
Uses mxm() to compute gradient of 3D arrays.
Definition: navier5.f:432
mod1
function mod1(i, n)
Definition: math.f:509
ifacev
subroutine ifacev(a, ie, iface, val, nx, ny, nz)
Definition: connect1.f:1093
cmult
subroutine cmult(a, const, n)
Definition: math.f:315
setarea
subroutine setarea
Definition: coef.f:1043
gradm1
subroutine gradm1(ux, uy, uz, u)
Definition: navier5.f:469
fmdian
function fmdian(a, n, ifok)
Definition: math.f:1004
specmpn
subroutine specmpn(b, nb, a, na, ba, ab, if3d, w, ldw)
Definition: navier8.f:939
ccrs_hypre_setup
struct crs_data * ccrs_hypre_setup(uint n, const ulong *id, uint nz, const uint *Ai, const uint *Aj, const double *Av, const uint nullspace, const struct comm *comm, const double *param)
bcmask
subroutine bcmask
Definition: bdry.f:316
ascol5
subroutine ascol5(a, b, c, d, e, n)
Definition: math.f:153
facindr
subroutine facindr(kx1, kx2, ky1, ky2, kz1, kz2, nx, ny, nz, iface)
Definition: connect1.f:1045
invcol2
subroutine invcol2(a, b, n)
Definition: math.f:73
mxm
subroutine mxm(a, n1, b, n2, c, n3)
Compute matrix-matrix product C = A*B for contiguously packed matrices A,B, and C.
Definition: mxm_wrapper.f:6
mpi_comm_split
subroutine mpi_comm_split(comm, icolor, ikey, comm_new, ierror)
Definition: mpi_dummy.f:432
nekasgn
subroutine nekasgn(ix, iy, iz, e)
Definition: bdry.f:1121
setup_convect
subroutine setup_convect(igeom)
Definition: convect2.f:17
crs_data
Definition: crs_amg.c:111
mpi_initialized
subroutine mpi_initialized(mpi_is_initialized, ierr)
Definition: mpi_dummy.f:1050
byte_sync_mpi
subroutine byte_sync_mpi(mpi_fh)
Definition: byte_mpi.f:2
conv_rhs_dg_aliased
subroutine conv_rhs_dg_aliased(du, u, c)
Definition: convect.f:1377
iglm
subroutine iglm(I12, IT12, Z1, Z2, lz1, lz2, ND1, ND2)
Definition: speclib.f:1077
crs_xxt_solve
#define crs_xxt_solve
Definition: crs.h:9
dgljgj
subroutine dgljgj(D, DT, ZGL, ZG, IGLG, NPGL, NPG, ND1, ND2, ALPHA, BETA)
Definition: speclib.f:970
crs_amg_setup
#define crs_amg_setup
Definition: crs.h:13
makebdq
subroutine makebdq
Definition: conduct.f:255
i8copy
subroutine i8copy(a, b, n)
Definition: math.f:297
set_dg_wgts
subroutine set_dg_wgts
Definition: convect.f:1540
bytesw_read
int bytesw_read
Definition: byte.c:54
area2
subroutine area2
Definition: coef.f:1066
genwz
subroutine genwz
Definition: coef.f:2
lfalse
subroutine lfalse(IFA, N)
Definition: bdry.f:1813
msgwait
subroutine msgwait(imsg)
Definition: comm_mpi.f:488
csend
subroutine csend(mtype, buf, len, jnid, jpid)
Definition: comm_mpi.f:302
flush_io
subroutine flush_io
Definition: subs1.f:1561
bcdirvc
subroutine bcdirvc(V1, V2, V3, mask1, mask2, mask3)
Definition: bdry.f:574
setlog
subroutine setlog(ifecho)
Definition: bdry.f:3
crs_data::comm
struct comm comm
Definition: crs_amg.c:112
rone
subroutine rone(a, n)
Definition: math.f:230
mpi_comm_size
subroutine mpi_comm_size(comm, nprocs, ierror)
Definition: mpi_dummy.f:410
bufchk
subroutine bufchk(buf, n)
Definition: connect2.f:909
setup_dg_gs
subroutine setup_dg_gs(dgh, nx, ny, nz, nel, melg, vertex)
Definition: convect.f:1244
cdscal_expl
subroutine cdscal_expl(igeom)
Definition: conduct.f:373
geom2
subroutine geom2
Definition: coef.f:823
setdrs
subroutine setdrs(DRM1, DRTM1, DSM1, DSTM1, IFC)
Definition: bdry.f:1692
chk_xyz
subroutine chk_xyz
Definition: connect2.f:918
pingpong
subroutine pingpong(alphas, betas, nodea, nodeb, dt, io, ivb, kk)
Definition: comm_mpi.f:764
chcopy
subroutine chcopy(a, b, n)
Definition: math.f:281
fwght
subroutine fwght(msk1, mult)
Definition: conduct.f:518
col3
subroutine col3(a, b, c, n)
Definition: math.f:598
ping_loop2
subroutine ping_loop2(t1, t0, len, nloop, nodea, nodeb, nid, x, y)
Definition: comm_mpi.f:1269
invmt
subroutine invmt(A, B, AA, N)
Definition: coef.f:1696
bcneusc
subroutine bcneusc(S, ITYPE)
Definition: bdry.f:786
gop
subroutine gop(x, w, op, n)
Definition: comm_mpi.f:200
add2
subroutine add2(a, b, n)
Definition: math.f:622
genxyzl
subroutine genxyzl
Definition: connect1.f:716
set_vert
subroutine set_vert(glo_num, ngv, nx, nel, vertex, ifcenter)
Definition: navier8.f:4
crs_amg_stats
#define crs_amg_stats
Definition: crs.h:15
outfldrv
subroutine outfldrv(x, txt10, ichk)
Definition: connect1.f:1323
hsolve
subroutine hsolve(name, u, r, h1, h2, vmk, vml, imsh, tol, maxit, isd, approx, napprox, bi)
Definition: navier4.f:564
mpi_wait
subroutine mpi_wait(irequest, istatus, ierror)
Definition: mpi_dummy.f:943
int_vel
subroutine int_vel(c_t, t0, c, n, nc, ct, nid)
Definition: convect.f:161
xyzrst
subroutine xyzrst(xrm1, yrm1, zrm1, xsm1, ysm1, zsm1, XTM1, YTM1, ZTM1, IFAXIS)
Definition: coef.f:917
dot
real function dot(V1, V2, N)
Definition: genxyz.f:885
rdhist
subroutine rdhist
Definition: reader_rea.f:997
echopar
subroutine echopar
Definition: drive2.f:291
geom_reset
subroutine geom_reset(icall)
Definition: ic.f:1802
dg_set_fc_ptr
subroutine dg_set_fc_ptr
Definition: convect.f:1275
facdot
function facdot(A, B, IFACE1)
Definition: subs1.f:834
glmax
function glmax(a, n)
Definition: math.f:960
mxm_test_all
subroutine mxm_test_all(nid, ivb)
Definition: mxm_std.f:1109
out_fld_el
subroutine out_fld_el(x, e, c2)
Definition: coef.f:1659
glmin
function glmin(a, n)
Definition: math.f:973
convch
subroutine convch
Definition: convect.f:965
set_convect_new
subroutine set_convect_new(cr, cs, ct, ux, uy, uz)
Definition: convect.f:846
byte_set_view
subroutine byte_set_view(ioff_in, mpi_fh)
Definition: byte_mpi.f:97
set_binv
subroutine set_binv(bmnv, hmsk, n)
Definition: convect.f:1175
trstax
subroutine trstax(TRX, TRY, SIGST, IEL, IFC)
Definition: bdry.f:1409
sethlm
subroutine sethlm(h1, h2, intloc)
Definition: subs1.f:1014
gen_dgl
subroutine gen_dgl(dgl, dgt, mp, np, w)
Definition: convect.f:415
gp2_test
subroutine gp2_test(ivb)
Definition: comm_mpi.f:1061
ludcmp
subroutine ludcmp(A, N, NP, INDX, D)
Definition: coef.f:1746
qmask
subroutine qmask(R1, R2, R3, R1MASK, R2MASK, R3MASK, NEL)
Definition: subs2.f:1836
faceis
subroutine faceis(CB, S, IEL, IFACE, NX, NY, NZ)
Definition: bdry.f:919
geom1
subroutine geom1(xm3, ym3, zm3)
Definition: coef.f:361
pythag
function pythag(a, b)
Definition: calcz.f:129
print_stack
#define print_stack
Definition: chelpers.c:9
set_conv_char
subroutine set_conv_char(ct, c, ux, uy, uz, nelc, tau, ifnew)
Definition: convect.f:544
igjm
subroutine igjm(I12, IT12, Z1, Z2, lz1, lz2, ND1, ND2, ALPHA, BETA)
Definition: speclib.f:1127
mpi_comm_dup
subroutine mpi_comm_dup(comm, comm_out, ierror)
Definition: mpi_dummy.f:349
byte_open_mpi
subroutine byte_open_mpi(fnamei, mpi_fh, ifro, ierr)
Definition: byte_mpi.f:13
map21e
subroutine map21e(y, x, iel)
Definition: coef.f:1609
convop_fst_3d
subroutine convop_fst_3d(du, u, c, mx, md, nel)
Definition: convect.f:237
crecv2
subroutine crecv2(mtype, buf, lenm, jnid)
Definition: comm_mpi.f:332
cexit
#define cexit
Definition: chelpers.c:8
hmholtz_dg
subroutine hmholtz_dg(name, u, rhs, h1, h2, mask, tol, maxit)
Definition: hmholtz.f:1459
findcg
subroutine findcg(cg, xyz, n)
Definition: connect2.f:746
setbc
subroutine setbc(bid, ifld, cbci)
Definition: bdry.f:2153
platform_timer
subroutine platform_timer(ivb)
Definition: comm_mpi.f:716
setaxw1
subroutine setaxw1(IFAXWG)
Definition: subs2.f:2
ping_loop1
subroutine ping_loop1(t1, t0, len, nloop, nodea, nodeb, nid, x, y)
Definition: comm_mpi.f:1219
calcz
subroutine calcz(d, e, n, dmax, dmin, z, ierr)
Definition: calcz.f:3
crs_data::null_space
int null_space
Definition: crs_amg.c:116
convop_cons_2d
subroutine convop_cons_2d(du, u, c, mx, md, nel)
Definition: convect.f:1060
facec2
subroutine facec2(A1, A2, B1, B2, IFC)
Definition: bdry.f:1782
irecv
function irecv(msgtag, x, len)
Definition: comm_mpi.f:470
create_comm
subroutine create_comm(inewcomm)
Definition: comm_mpi.f:440
indx1
integer function indx1(S1, S2, L2)
Definition: ic.f:1357
mpi_send
subroutine mpi_send(data, n, datatype, iproc, itag, comm, ierror)
Definition: mpi_dummy.f:914
crecv
subroutine crecv(mtype, buf, lenm)
Definition: comm_mpi.f:312
byte_rewind
#define byte_rewind
Definition: byte.c:37
crs_data::b
double * b
Definition: crs_amg.c:124
outfldr
subroutine outfldr(x, txt10)
Definition: connect1.f:1212
cvgnlps
subroutine cvgnlps(ifconv)
Definition: subs1.f:324
iface_vert_int8
subroutine iface_vert_int8(fa, va, jz0, jz1, nel)
Definition: convect.f:1121
crs_data::x
double * x
Definition: crs_amg.c:124
byte_reverse
#define byte_reverse
Definition: byte.c:33
mpi_wtime
real *8 function mpi_wtime()
Definition: mpi_dummy.f:1033
vlmin
real function vlmin(vec, n)
Definition: math.f:357
get_vert
subroutine get_vert
Definition: map2.f:126
print_runtime_info
subroutine print_runtime_info
Definition: comm_mpi.f:622
setrzer
subroutine setrzer
Definition: bdry.f:145
igop
subroutine igop(x, w, op, n)
Definition: comm_mpi.f:246
invers2
subroutine invers2(a, b, n)
Definition: math.f:51
bcneutr
subroutine bcneutr
Definition: bdry.f:1200
gen_int
subroutine gen_int(jgl, jgt, mp, np, w)
Definition: convect.f:382
iglmax
function iglmax(a, n)
Definition: math.f:913
rdicdf
subroutine rdicdf
Definition: reader_rea.f:881
chknord
subroutine chknord(IFALGN, IFNORX, IFNORY, IFNORZ, IFC, IEL)
Definition: bdry.f:185
setside
subroutine setside
Definition: connect1.f:816
i8gl_running_sum
integer *8 function i8gl_running_sum(in)
Definition: comm_mpi.f:1368
mpi_bcast
subroutine mpi_bcast(data, n, datatype, node, comm, ierror)
Definition: mpi_dummy.f:213
verrhe
subroutine verrhe
Definition: connect1.f:890
WRITE
#define WRITE
Definition: byte.c:44
outfldrp
subroutine outfldrp(x, txt10, ichk)
Definition: connect1.f:1498
lubksb
subroutine lubksb(A, N, NP, INDX, B)
Definition: coef.f:1718
local_grad2
subroutine local_grad2(ur, us, u, N, e, D, Dt)
Uses mxm() to compute gradient of 2D arrays.
Definition: navier5.f:454
convop
subroutine convop(conv, fi)
Definition: navier1.f:3146
copy
subroutine copy(a, b, n)
Definition: math.f:260
cdscal
subroutine cdscal(igeom)
Definition: conduct.f:3
fd_weights_full
subroutine fd_weights_full(xx, x, n, m, c)
Definition: fast3d.f:1293
igllm
subroutine igllm(I12, IT12, Z1, Z2, lz1, lz2, ND1, ND2)
Definition: speclib.f:1102
mpi_comm_get_attr
subroutine mpi_comm_get_attr(icomm, ikey, ival, iflag, ierr)
Definition: mpi_dummy.f:1093
setup_topo
subroutine setup_topo
Definition: connect1.f:3
dg_setup
subroutine dg_setup
Definition: conduct.f:546
add3s12
subroutine add3s12(x, y, z, c1, c2, n)
Definition: math.f:1534
rdobj
subroutine rdobj
Definition: reader_rea.f:1114
map12
subroutine map12(y, x, iel)
Definition: coef.f:1530
outpost
subroutine outpost(v1, v2, v3, vp, vt, name3)
Definition: prepost.f:1378
transpose
subroutine transpose(a, lda, b, ldb)
Definition: math.f:1594
cdscal_dg
subroutine cdscal_dg(igeom)
Definition: conduct.f:601
lagscal
subroutine lagscal
Definition: conduct.f:295
fcaver
subroutine fcaver(xaver, a, iel, iface1)
Definition: subs1.f:870
char_conv1
subroutine char_conv1(p0, u, bmnv, n, ulag, ln, gsl, c, m, cs, nc, ct, u1, r1, r2, r3, r4, bmsk, bdivw, bdwt, bmass, bmst, bm, bmlag)
Definition: convect.f:46
gllog
subroutine gllog(la, lb)
Definition: math.f:986
outfldrv0
subroutine outfldrv0(x, txt10, ichk)
Definition: connect1.f:1382
nekuq
subroutine nekuq(bql, iel)
Definition: conduct.f:176
crs_xxt_free
#define crs_xxt_free
Definition: crs.h:11
icopy
subroutine icopy(a, b, n)
Definition: math.f:289
set_unr
subroutine set_unr
Definition: coef.f:1811
zwgl
subroutine zwgl(Z, W, NP)
Definition: speclib.f:91
exittr
subroutine exittr(stringi, rdata, idata)
Definition: comm_mpi.f:511
mpi_get_count
subroutine mpi_get_count(istatus, datatype, icount, ierror)
Definition: mpi_dummy.f:551
setnekcomm
subroutine setnekcomm(comm_in)
Definition: comm_mpi.f:1410
close_files
subroutine close_files
Definition: comm_mpi.f:1387
err_chk
subroutine err_chk(ierr, string)
Definition: comm_mpi.f:557
subcol3
subroutine subcol3(a, b, c, n)
Definition: math.f:186
neknekgsync
subroutine neknekgsync()
Definition: comm_mpi.f:1400
set_ifbcor
subroutine set_ifbcor
Definition: induct.f:1095
outfldrq
subroutine outfldrq(x, txt10, ichk)
Definition: conduct.f:312
fgslib_userexithandler
subroutine fgslib_userexithandler(istatus)
Definition: comm_mpi.f:677
chk_nel
subroutine chk_nel
Definition: connect2.f:932
ltrunc
function ltrunc(string, l)
Definition: math.f:494
convect_dg
subroutine convect_dg(du, u, ifuf, cr, cs, ct, ifcf)
Definition: convect.f:1667
gradrta
subroutine gradrta(u, ur, us, ut, Drt, Ds, Dt, nr, ns, nt, if3d)
Definition: hmholtz.f:1739
subcol4
subroutine subcol4(a, b, c, d, n)
Definition: math.f:197
gop_test
subroutine gop_test(ivb)
Definition: comm_mpi.f:997
chkaxcb
subroutine chkaxcb
Definition: bdry.f:252
facec
subroutine facec(a, b, ie, iface, nx, ny, nz, nel)
Definition: connect1.f:1109
mpi_irecv
subroutine mpi_irecv(data, n, datatype, iproc, itag, comm, irequest, ierror)
Definition: mpi_dummy.f:596
set_bytesw_write
#define set_bytesw_write
Definition: byte.c:41
readat_par
subroutine readat_par
Definition: reader_par.f:3
hxdg_surfa
subroutine hxdg_surfa(au, u, h1, h2)
Definition: hmholtz.f:1977
dsset
subroutine dsset(nx, ny, nz)
Definition: connect1.f:553
iglsum
function iglsum(a, n)
Definition: math.f:926
sizeOfLongInt
#define sizeOfLongInt
Definition: chelpers.c:10
grad_rstd_ta
subroutine grad_rstd_ta(du, ur, us, ut, md, if3d)
Definition: convect.f:1520
vlsum
real function vlsum(vec, n)
Definition: math.f:417
igl_running_sum
function igl_running_sum(in)
Definition: comm_mpi.f:699
scale
subroutine scale(xyzl, nl)
Definition: connect2.f:599
vdot2
subroutine vdot2(dot, u1, u2, v1, v2, n)
Definition: math.f:447
facsub2
subroutine facsub2(A1, A2, A3, B1, B2, B3, IFACE1)
Definition: subs2.f:220
grad_rst
subroutine grad_rst(ur, us, ut, u, md, if3d)
Definition: convect.f:615
grad_rstd
subroutine grad_rstd(ur, us, ut, u, mx, md, if3d, ju)
Definition: convect.f:321
setaxw2
subroutine setaxw2(IFAXWG)
Definition: subs2.f:17
add_face2full
subroutine add_face2full(vol_ary, faceary)
Definition: convect.f:1360
set_char_mask
subroutine set_char_mask(mask, u, v, w)
Definition: convect2.f:76
bcast
subroutine bcast(buf, len)
Definition: comm_mpi.f:430
set_bytesw_read
void set_bytesw_read(int *pa)
Definition: byte.c:257
conv_rhs_dg
subroutine conv_rhs_dg(du, u, c)
Definition: convect.f:1580
byte_close_mpi
subroutine byte_close_mpi(mpi_fh, ierr)
Definition: byte_mpi.f:84
crs_xxt_stats
#define crs_xxt_stats
Definition: crs.h:10
printheader
subroutine printheader
Definition: comm_mpi.f:684
zwgll
subroutine zwgll(Z, W, NP)
Definition: speclib.f:108
crecv3
subroutine crecv3(mtype, buf, len, lenm)
Definition: comm_mpi.f:351
glcflux
real function glcflux(tx, ty, tz)
Definition: bdry.f:2015
outfldrp0
subroutine outfldrp0(x, txt10, ichk)
Definition: connect1.f:1440
rdout
subroutine rdout
Definition: reader_rea.f:1030
dsop
subroutine dsop(u, op, nx, ny, nz)
Definition: dssum.f:101
trcon
subroutine trcon(TRX, TRY, TRZ, TR1, TR2, TR3, IEL, IFC)
Definition: bdry.f:1304
conv_rhs
subroutine conv_rhs(du, u, c, bmsk, bmst, bdwt, gsl)
Definition: convect.f:193
exitt0
subroutine exitt0
Definition: comm_mpi.f:585
rzero
subroutine rzero(a, n)
Definition: math.f:208
volum0
function volum0(P1, P2, P3, P0)
Definition: connect1.f:984
map_faced
subroutine map_faced(ju, u, mx, md, fdim, idir)
Definition: convect.f:1449
numnodes
integer function numnodes()
Definition: comm_mpi.f:372
stsmask
subroutine stsmask(C1MASK, C2MASK, C3MASK)
Definition: subs2.f:676
outfldnx
subroutine outfldnx(x, txt10, nx, ny)
Definition: connect1.f:1729
opsub3
subroutine opsub3(a1, a2, a3, b1, b2, b3, c1, c2, c3)
Definition: navier1.f:2377
vdot3
subroutine vdot3(dot, u1, u2, u3, v1, v2, v3, n)
Definition: math.f:462
setup_mesh_dssum
subroutine setup_mesh_dssum
Definition: connect1.f:1614
glmapm1
subroutine glmapm1
Definition: coef.f:575
byte_reverse8
#define byte_reverse8
Definition: byte.c:34
isend
function isend(msgtag, x, len, jnid, jpid)
Definition: comm_mpi.f:453
outmatp
subroutine outmatp(a, m, n, name6, ie)
Definition: connect1.f:1558
dnekclock_sync
real *8 function dnekclock_sync()
Definition: comm_mpi.f:400
convect_new
subroutine convect_new(bdu, u, ifuf, cx, cy, cz, ifcf)
Definition: convect.f:639
create_obj
subroutine create_obj(iobjo, sid_list, n)
Definition: bdry.f:2115
bcdirsc
subroutine bcdirsc(S)
Definition: bdry.f:710
exitt
void exitt()
Definition: comm_mpi.f:603
rdcurve
subroutine rdcurve
Definition: reader_rea.f:609
area3
subroutine area3
Definition: coef.f:1188
geodat1
subroutine geodat1
Definition: coef.f:670
convop_weak
subroutine convop_weak(du, u, cr, cs, ct, mx, md, nel)
Definition: convect.f:1678
dgll
subroutine dgll(D, DT, Z, NZ, lzd)
Definition: speclib.f:801
dnekclock
real *8 function dnekclock()
Definition: comm_mpi.f:392
zwgj
subroutine zwgj(Z, W, NP, ALPHA, BETA)
Definition: speclib.f:125
facexs
subroutine facexs(A, B, IFACE1, IOP)
Definition: subs2.f:125
trst2d
subroutine trst2d(TRX, TRY, SIGST, IEL, IFC)
Definition: bdry.f:1344
checkit
subroutine checkit(idum)
Definition: connect1.f:1263
ident
subroutine ident(a, n)
Definition: calcz.f:147
makeabq
subroutine makeabq
Definition: conduct.f:231
chsign
subroutine chsign(a, n)
Definition: math.f:305
antimsk1
subroutine antimsk1(X, XMASK, N)
Definition: bdry.f:1924
setcdof
subroutine setcdof
Definition: subs2.f:1742
face2full
subroutine face2full(vol_ary, faceary)
Definition: convect.f:1340
volume
subroutine volume
Definition: coef.f:1003
lbcast
subroutine lbcast(ifif)
Definition: comm_mpi.f:409
gp2
subroutine gp2(x, w, op, n, nid, np)
Definition: comm_mpi.f:1142
outfldro
subroutine outfldro(x, txt10, ichk)
Definition: connect1.f:1269
get_bytesw_read
void get_bytesw_read(int *pa)
Definition: byte.c:270
convop_fst_2d
subroutine convop_fst_2d(du, u, c, mx, md, nel)
Definition: convect.f:279
intp_rstd
subroutine intp_rstd(ju, u, mx, md, if3d, idir)
Definition: convect.f:347
ccrs_hypre_free
void ccrs_hypre_free(struct crs_data *data)
getmaxrss
#define getmaxrss
Definition: chelpers.c:11
byte_open
#define byte_open
Definition: byte.c:35
facev
subroutine facev(a, ie, iface, val, nx, ny, nz)
Definition: connect1.f:1077
outfldio
subroutine outfldio(x, txt10)
Definition: connect1.f:1133