From 81dd8af8a47f03cebe6a5ca55105155438c16e48 Mon Sep 17 00:00:00 2001
From: John Denker <jsd@av8n.com>
Date: Tue, 19 Nov 2024 14:01:43 -0700
Subject: require linker to include block data

---
 initeq.f | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'initeq.f')

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.
-- 
cgit v1.2.3