tecs_plot.f is now ext. f77

2002-10-16 11:35:40 +00:00
parent f514cf51e9
commit a14b12b726
12 changed files with 860 additions and 756 deletions
--- a/tecs/tecs_client.f
+++ b/tecs/tecs_client.f
@@ -56,8 +56,7 @@
 	else
 	  iret=tecs_start(start, ' ', 9753)
 	endif
-
-	if (iret .lt. 0) goto 90
+	if (iret .ne. 0) goto 90

 	if (oneCommand) goto 11