1 files changed, 18 insertions, 0 deletions
diff --git a/Blankstring.f b/Blankstring.f
new file mode 100755
index 0000000..57cf62b
--- /dev/null
+++ b/Blankstring.f
@@ -0,0 +1,18 @@
+
+c***********************************************************************
+      subroutine blankstring (string)
+c***********************************************************************
+c     this routine simply makes an 80-character string all blanks
+
+      implicit real*8 (a-h,o-z)
+      character*80 string
+
+
+      do i=1,80
+         string(i:i) = ' '
+      enddo
+      return
+
+
+      end
+