--- trunk/libf/dyn3d/dynetat0.f90	2010/03/05 16:43:45	25
+++ trunk/libf/dyn3d/dynetat0.f90	2010/12/02 17:11:04	36
@@ -23,7 +23,7 @@
     use iniadvtrac_m, only: tname
     use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE
     use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR
-    use numer_rec, only: assert
+    use nr_util, only: assert
 
     !   Arguments:
     REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :)