diff options
| -rw-r--r-- | example.f | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/example.f b/example.f new file mode 100644 index 000000000000..3ff5d8c7b70b --- /dev/null +++ b/example.f @@ -0,0 +1,19 @@ +c ------------------------------------------------------------------ +c An empty dummy element routine that can be compiled against the +c Feappv archive. +c ------------------------------------------------------------------ + subroutine elmt01(d, ul, xl, IX, tl, K, R, ndf, ndm, nst, isw) + implicit none + include 'cdata.h' + include 'iofile.h' + include 'pmod2d.h' + double precision d(*), ul(ndf, nen, 6), xl(ndm, nen), tl(nen), + & K(nst, nst), R(nst) + integer ndf, ndm, nst, isw, IX(nen) + save + + ! Examp + + return + end +c ------------------------------------------------------------------ |