--- UTIL/second_NONE.f.orig	2013-06-17 12:02:43.000000000 -0400
+++ UTIL/second_NONE.f	2013-06-17 12:01:23.000000000 -0400
@@ -34,3 +34,12 @@
 *     End of ARSCND
 *
       END
+
+
+
+      subroutine second(t)
+        real :: t
+
+        call arscnd(t)
+
+      end subroutine