1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
--- 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
|
