--- trunk/libf/bibio/initfluxsto.f	2010/03/25 14:29:07	27
+++ trunk/libf/bibio/initfluxsto.f	2010/03/26 18:33:04	28
@@ -48,7 +48,8 @@
 C   Arguments
 C
       integer*4 itau
-      real tstep, t_ops, t_wrt
+      real, intent(in):: tstep
+      real t_ops, t_wrt
       integer fileid, filevid,filedid
       integer nq,ndex(1)
       real nivd(1)