--- trunk/libf/dyn3d/nxgraro2.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/nxgraro2.f	2010/03/09 15:27:15	26
@@ -16,9 +16,9 @@
 c
       use dimens_m
       use paramet_m
+            use inidissip_m
       IMPLICIT NONE
 c
-      include "comdissipn.h"
 c
 c    ......  variables en arguments  .......
 c
@@ -29,7 +29,8 @@
 c    ......   variables locales     ........
 c
       REAL rot(ip1jm,llm) , signe, nugradrs
-      INTEGER l,ij,iter,lr
+      INTEGER l,ij,iter
+      integer, intent(in):: lr
 c    ........................................................
 c
 c