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:
534 bytes
|
| Line | |
|---|
| 1 | c
|
|---|
| 2 | c Hat matrices
|
|---|
| 3 | c
|
|---|
| 4 | integer lr2
|
|---|
| 5 | parameter (lr2=2*lx1*lx1)
|
|---|
| 6 |
|
|---|
| 7 | real ah (lr2), bh (lr2), ch (lr2), dh (lr2)
|
|---|
| 8 | $ , dph(lr2), jph(lr2), zh (lr2), wh (lr2) ! Pressure GLL
|
|---|
| 9 | $ , bgl(lr2), zglhat(lr2), dgl(lr2), jgl(lr2) ! Pressure GL
|
|---|
| 10 | common /ahat/ ah,bh,ch,dh,dph,jph,zh,wh,bgl,zglhat,dgl,jgl
|
|---|
| 11 | c
|
|---|
| 12 | integer l3, l2
|
|---|
| 13 | parameter (l3=lx1*(lx1+1)*(lx1+2)/3)
|
|---|
| 14 | parameter (l2=lx1*(lx1+1)/2)
|
|---|
| 15 |
|
|---|
| 16 | real ddhat(l3),zp(l2),ww(l2) ! Aggregate arrays
|
|---|
| 17 | common /hata/ ddhat ,zp ,ww
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
