diff --git a/flush.f b/flush.f
index dce6c5d4feda9c5d9576b591c2ae7aaf1625ef74..fdc5725eef7f0c1d8b6cb597a23ffea5f8fc531d 100644
--- a/flush.f
+++ b/flush.f
@@ -7,7 +7,7 @@ c     Author: Douglas Guptill
 c     2009-05-23: new
 
       integer unit
-      call flush_(unit)
+c      flush(unit)
       return
       end