diff options
Diffstat (limited to '')
| -rw-r--r-- | graphics/robot/files/patch-Robot+subroutines.f | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/graphics/robot/files/patch-Robot+subroutines.f b/graphics/robot/files/patch-Robot+subroutines.f deleted file mode 100644 index 730a595830b5..000000000000 --- a/graphics/robot/files/patch-Robot+subroutines.f +++ /dev/null @@ -1,37 +0,0 @@ ---- Robot/subroutines.f.orig 2005-05-03 17:14:51.000000000 +0200 -+++ Robot/subroutines.f 2009-04-11 21:54:31.000000000 +0200 -@@ -51,13 +51,15 @@ - subroutine setchars() - include 'typecom' - include 'charcom' -+ CHARACTER :: tab -+ tab = '\t' - - ispace = ichar(' ') - ibang = ichar('!') - ihash = ichar('#') - c itab = ichar(' ') - c some versions of g77 get this wrong so use different coding -- itab = ichar('\t') -+ itab = ichar(tab) - ilb = ichar('(') - irb = ichar(')') - ilab = ichar('<') -@@ -699,7 +701,7 @@ - integer npts, ntime - - if(npts .le. 2)then -- write(tstring,'(a, i, a)') -+ write(tstring,'(a, i5, a)') - + '***There are only ',NPTS,' points in the data set***' - call totext(tstring) - call xtext('I will not smooth that few data points') -@@ -760,7 +762,7 @@ - if(nharm .lt. 0)then - write(tstring, *)hharm, ' harmonics specified' - call xtext(tstring) -- call xtext('Doesn\'t make sense so doing no summing') -+ call xtext('Does not make sense so doing no summing') - return - end if - |