summarylogtreecommitdiffstats
diff options
context:
space:
mode:
authorLukas Böger2016-10-28 17:12:27 +0200
committerLukas Böger2016-10-28 17:12:27 +0200
commit63e57faca04b5cbf8064d4b1d1b4655228fc8856 (patch)
tree6f0f8e5a82f897193aa00abca97113cf19742fbf
parentac1272f2d073e03868acbbe4c99d30b5d8d4bb94 (diff)
downloadaur-feappv.tar.gz
add missing example.f
-rw-r--r--example.f19
1 files changed, 19 insertions, 0 deletions
diff --git a/example.f b/example.f
new file mode 100644
index 00000000000..3ff5d8c7b70
--- /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 ------------------------------------------------------------------