summarylogtreecommitdiffstats
diff options
context:
space:
mode:
-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 ------------------------------------------------------------------