--- trunk/libf/dyn3d/fluxstokenc.f	2008/08/01 15:24:12	15
+++ trunk/libf/dyn3d/fluxstokenc.f	2010/03/25 14:29:07	27
@@ -47,7 +47,7 @@
 
       if(first) then
 
-	CALL initfluxsto( 'fluxstoke',
+	CALL initfluxsto(
      .  time_step,istdyn* time_step,istdyn* time_step,
      . nqmx, fluxid,fluxvid,fluxdid)