source: CIVL/examples/fortran/nek5000/core/NEKNEK

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100755
File size: 730 bytes
Line 
1c
2c Multimesh variables
3c
4 integer intflag(2*ldim,lelt)
5 common /intflag/ intflag
6
7 integer imask(lx1,ly1,lz1,lelt)
8 common /intmask/ imask
9
10 real valint(lx1,ly1,lz1,lelt,nfldmax_nn)
11 common /valmask/ valint
12
13 integer igeom
14 common /cgeom/ igeom
15
16 integer nfld_neknek
17 common /inbc/ nfld_neknek
18
19 real bdrylg(lx1*ly1*lz1*lelt,nfldmax_nn,0:2)
20 common /mybd/ bdrylg
21
22 real rst(nmaxl_nn*ldim)
23 common /multipts_r/ rst
24
25 integer rcode(nmaxl_nn),elid(nmaxl_nn)
26 $ ,proc(nmaxl_nn),ilist(1,nmaxl_nn),npoints_nn
27 common /multipts_i/ rcode,elid,proc,ilist,npoints_nn
28
29 integer inth_multi2
30 common /intp_h_nn/ inth_multi2
Note: See TracBrowser for help on using the repository browser.