diff options
author | Lukas Böger | 2016-10-28 17:12:27 +0200 |
---|---|---|
committer | Lukas Böger | 2016-10-28 17:12:27 +0200 |
commit | 63e57faca04b5cbf8064d4b1d1b4655228fc8856 (patch) | |
tree | 6f0f8e5a82f897193aa00abca97113cf19742fbf | |
parent | ac1272f2d073e03868acbbe4c99d30b5d8d4bb94 (diff) | |
download | aur-63e57faca04b5cbf8064d4b1d1b4655228fc8856.tar.gz |
add missing example.f
-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 ------------------------------------------------------------------ |