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:
1.3 KB
|
| Line | |
|---|
| 1 | real tol, bb_t
|
|---|
| 2 | parameter(tol=5e-13, bb_t=0.01)
|
|---|
| 3 | integer ltots
|
|---|
| 4 | parameter(ltots=4*lx1*ly1*lz1*lelt) ! max source mesh size
|
|---|
| 5 |
|
|---|
| 6 | integer fldh_gfldr,inth_gfldr
|
|---|
| 7 | common /gfldr_handles/ fldh_gfldr,inth_gfldr
|
|---|
| 8 |
|
|---|
| 9 | logical ifbswp
|
|---|
| 10 | common /gfldr_log/ ifbswp
|
|---|
| 11 |
|
|---|
| 12 | integer*8 noff0_b,ntots_b,rankoff_b,nSizeFld_b
|
|---|
| 13 | common /gfldr_byte/ noff0_b,ntots_b,rankoff_b,nSizeFld_b
|
|---|
| 14 |
|
|---|
| 15 | integer nelgs,nels,nxyzs
|
|---|
| 16 | common /gfldr_meshs/ nelgs,nels,nxyzs
|
|---|
| 17 |
|
|---|
| 18 | real buffld(ltots) ! one source field
|
|---|
| 19 | common /scruz/ buffld
|
|---|
| 20 |
|
|---|
| 21 | real xm1s (ltots) ! source x coord
|
|---|
| 22 | common /scrmg/ xm1s
|
|---|
| 23 |
|
|---|
| 24 | real ym1s (ltots) ! source y coord
|
|---|
| 25 | common /ctmp1/ ym1s
|
|---|
| 26 |
|
|---|
| 27 | real zm1s (ltots) ! source z coord
|
|---|
| 28 | common /scrsf/ zm1s
|
|---|
| 29 |
|
|---|
| 30 | real*4 bufr (2*ldim*ltots) ! read buffer
|
|---|
| 31 | common /vrthov/ bufr
|
|---|
| 32 |
|
|---|
| 33 | ! interpolation working arrays
|
|---|
| 34 | real grst ( ldim*ltots)
|
|---|
| 35 | common /ctmp0/ grst ! use ctmp0 as no other big CBs are left
|
|---|
| 36 |
|
|---|
| 37 | real gdist ( ltots)
|
|---|
| 38 | common /scrvh/ gdist
|
|---|
| 39 |
|
|---|
| 40 | integer grcode (ltots)
|
|---|
| 41 | integer gelid (ltots)
|
|---|
| 42 | integer gproc (ltots)
|
|---|
| 43 | common /scrns/ grcode,gelid,gproc
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
