1 files changed, 2 insertions, 0 deletions
diff --git a/initeq.f b/initeq.f
index b209a7e..530c292 100644
--- a/initeq.f
+++ b/initeq.f
@@ -1,3 +1,5 @@
+      subroutine linkeq ! require linker to include block data
+      end subroutine
       BLOCK DATA INITEQ
       
 *  Initializes co-seismic earthquake models for HTDP executable.