--- trunk/filtrez/inifgn.f	2015/01/28 16:10:02	121
+++ trunk/filtrez/inifgn.f	2015/03/20 16:31:06	132
@@ -10,11 +10,12 @@
 
     ! H.Upadyaya, O.Sharma 
 
-    USE dimens_m, ONLY: iim
-    USE comgeom, ONLY: xprimu, xprimv
     USE coefils, ONLY: eignfnu, eignfnv, sddu, sddv, unsddu, unsddv
+    USE comgeom, ONLY: xprimu, xprimv
+    USE dimens_m, ONLY: iim
+    use numer_rec_95, only: jacobi
 
-    real dv(iim)
+    real, intent(out):: dv(iim)
 
     ! Local:
     REAL vec(iim, iim), vec1(iim, iim)
@@ -23,7 +24,7 @@
     REAL pi
     INTEGER i, j, k, imm1, nrot
 
-    EXTERNAL acc, jacobi
+    EXTERNAL acc
 
     !----------------------------------------------------------------
 
@@ -74,11 +75,11 @@
        END DO
     END DO
 
-    CALL jacobi(vec, iim, iim, dv, eignfnv, nrot)
+    CALL jacobi(vec, dv, eignfnv, nrot)
     CALL acc(eignfnv, d, iim)
     CALL eigen_sort(dv, eignfnv, iim, iim)
 
-    CALL jacobi(vec1, iim, iim, du, eignfnu, nrot)
+    CALL jacobi(vec1, du, eignfnu, nrot)
     CALL acc(eignfnu, d, iim)
     CALL eigen_sort(du, eignfnu, iim, iim)