From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/gio/nspp/sysint/q8qst4.f | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 sys/gio/nspp/sysint/q8qst4.f

(limited to 'sys/gio/nspp/sysint/q8qst4.f')

diff --git a/sys/gio/nspp/sysint/q8qst4.f b/sys/gio/nspp/sysint/q8qst4.f
new file mode 100644
index 00000000..0b8ca796
--- /dev/null
+++ b/sys/gio/nspp/sysint/q8qst4.f
@@ -0,0 +1,24 @@
+      SUBROUTINE Q8QST4(NAME,LBRARY,ENTRY,VRSION)
+C
+C DIMENSION OF		 NAME(1),LBRARY(1),ENTRY(1),VRSION(1)
+C ARGUMENTS
+C
+C LATEST REVISION	 MARCH 1984
+C
+C PURPOSE		 MONITORS LIBRARY USE BY WRITING A RECORD WITH
+C			 INFORMATION ABOUT THE CIRCUMSTANCES OF	A
+C			 LIBRARY ROUTINE CALL TO THE SYSTEM ACCOUNTING
+C			 TAPE FOR LATER	PROCESSING.
+C
+C NOTE---		 THIS VERSION OF Q8QST4	SIMPLY RETURNS TO THE
+C			 CALLING ROUTINE.  LOCAL IMPLEMENTORS MAY WISH
+C			 TO IMPLEMENT A	VERSION	OF THIS	ROUTINE	THAT
+C			 MONITORS USE OF NCAR ROUTINES WITH LOCAL
+C			 MECHANISMS.  OTHERWISE	IT WILL	SAVE A SMALL
+C			 AMOUNT	OF SPACE AND TIME IF CALLS TO Q8QST4 ARE
+C			 DELETED FROM ALL NSSL ROUTINES.
+C
+      CHARACTER*(*) NAME,LBRARY,ENTRY,VRSION
+C
+      RETURN
+      END
-- 
cgit