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

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

(limited to 'initps.f')

diff --git a/initps.f b/initps.f
index 155e7a2..f162646 100644
--- a/initps.f
+++ b/initps.f
@@ -1,3 +1,5 @@
+      subroutine linkps ! require linker to include block data
+      end subroutine
       BLOCK DATA INITPS
       IMPLICIT DOUBLE PRECISION (A-H, O-Z)
       IMPLICIT INTEGER*4 (I-N)
-- 
cgit v1.2.3