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

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: 422 bytes
Line 
1 integer ktotstrs
2 parameter (ktotstrs = lx1m*ly1m*lz1m*lelt)
3
4 real xstrs(ldim*ktotstrs*(1+mxprev))
5 $ ,bstrs(ldim*ktotstrs*(1+mxprev))
6
7 common /wrthov/ xstrs ! OVERLAPS WITH VPROJ
8 $ ,bstrs ! OVERLAPS WITH VPROJ
9
10
11 integer napproxstrs(2)
12 common /srthoi/ napproxstrs
13
14 character*4 name4strs
15 common /srthoc/ name4strs
Note: See TracBrowser for help on using the repository browser.