--- trunk/Sources/filtrez/inifgn.f	2015/06/18 13:49:26	150
+++ trunk/Sources/filtrez/inifgn.f	2015/06/23 15:14:20	151
@@ -6,7 +6,7 @@
 
   private iim
 
-  real sddu(iim), sddv(iim) ! SQRT(dx)
+  real sddu(iim), sddv(iim) ! SQRT(dx / di)
   real unsddu(iim), unsddv(iim)
 
   real eignfnu(iim, iim), eignfnv(iim, iim)
@@ -26,7 +26,7 @@
     use nr_util, only: pi
     use numer_rec_95, only: jacobi, eigsrt
 
-    real, intent(out):: dv(:) ! (iim)
+    real, intent(out):: dv(:) ! (iim) eigenvalues sorted in descending order
 
     ! Local:
     REAL vec(iim, iim), vec1(iim, iim)
@@ -35,6 +35,8 @@
 
     !----------------------------------------------------------------
 
+    print *, "Call sequence information: inifgn"
+
     sddv = sqrt(xprimv(:iim))
     sddu = sqrt(xprimu(:iim))
     unsddu = 1. / sddu