Initial commit

1 files changed, 28 insertions, 0 deletions

diff --git a/Putasci.f b/Putasci.f
new file mode 100755
index 0000000..d69f046
--- /dev/null
+++ b/Putasci.f
@@ -0,0 +1,28 @@
+
+      subroutine putasci (num,line)
+c******************************************************************************
+c     this routine prints out the characters contained in 'array'
+c******************************************************************************
+
+      include 'Pstuff.com'
+
+      istat = ivmove(line-1,1)
+      istat = ivcleol()
+      istat = ivmove(line-1,1)
+      write (errmess,1001) num
+      write (*,errmess) array
+      return
+
+
+c*****format statements
+1001  format ('(a',i2,'$)')
+
+
+      end
+
+
+
+
+
+
+