Trivial code cleanup.

2020-03-28 14:05:48 -04:00 · 2020-03-28 14:05:48 -04:00 · 33ce9e3355
parent 3f7b06853e
commit 33ce9e3355
1 changed files with 0 additions and 2 deletions
--- a/lib/wqencode.f90
+++ b/lib/wqencode.f90
@ -59,8 +59,6 @@ subroutine wqencode(msg,ntype,data0)
     n2=128*ih + ntype + 64
     call pack50(n1,n2,data0)
  endif
-  go to 900

-900 continue
  return
 end subroutine wqencode