--- mc2dm.ftn	Tue Apr 13 14:51:35 2004
+++ mc2dm-slow.ftn	Tue Apr 13 14:50:07 2004
@@ -127,7 +127,7 @@
 *1300
 *     * Dynamic initialization ? (if gndtini > 0)
 *
-         if (gndtini.gt.0) call initdyn9 (trname,ntr)
+         if (gndtini.gt.0) call initdyn9 (wrk1,wrk2_8,trname,ntr)
 *
       else
 *
--- initdyn9.ftn	Tue Apr 13 14:52:01 2004
+++ initdyn9-slow.ftn	Tue Apr 13 14:50:07 2004
@@ -1,11 +1,13 @@
 copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
 ***s/r initdyn9 Initialisation dynamique des variables initiales
 *
-      subroutine initdyn9 (trname,nt)
+      subroutine initdyn9 (w1,w2_8,trname,nt)
       implicit none
 *
       integer nt
       character*8 trname(nt)
+      real w1(*)
+      real*8 w2_8(*)
 *
 *AUTHOR     Andre Robert                    Sep   1983
 *
@@ -61,7 +63,7 @@
 *
             call step8(0,trname,nt)
 *
-            call hordiff (.false.)
+            call hordiff (.false.,w1,w2_8)
 *
             call tfilt5 (myproc.eq.0)
 *PDIR RELEASE