From 894c9fb4cc78053689aabc4aa351b867de12a543 Mon Sep 17 00:00:00 2001
From: Sandeep Gupta
Date: Fri, 7 Jul 2017 00:29:35 +0530
Subject: NORM

---
 2.3-1/src/c/linearAlgebra/hess/dhessa.c | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to '2.3-1/src/c/linearAlgebra/hess/dhessa.c')

diff --git a/2.3-1/src/c/linearAlgebra/hess/dhessa.c b/2.3-1/src/c/linearAlgebra/hess/dhessa.c
index 57f81b35..e1f2e2d1 100644
--- a/2.3-1/src/c/linearAlgebra/hess/dhessa.c
+++ b/2.3-1/src/c/linearAlgebra/hess/dhessa.c
@@ -20,11 +20,13 @@
 #include "matrixTranspose.h"
 #include "matrixMultiplication.h"
 
+/* Lapack subroutines - which are used*/
 extern int dgehrd_(int *, int *,int *,double *,int *,double *,double *,int *,int *);
 extern int dorghr_(int *, int *,int *,double *,int *,double *,double *,int *,int *);
 
-
+/* All the vairbale names are given exactly the same name as scilab source code */
 void dhessa(double *in1,int size,int nout,double *out1, double *out2){
+/* Variables names are done through, Lapack library. */
 	int i,j,k;	
 	int N = size;
 	int ILO=1;
@@ -41,11 +43,11 @@ void dhessa(double *in1,int size,int nout,double *out1, double *out2){
 	WORK = (double *)malloc((double)LWORK*sizeof(double));
 	dgehrd_(&N,&ILO,&IHI,A,&LDA,TAU,WORK,&N,&INFO);
 		
-	for(i=0;i<N;i++)
+	for(i=0;i<N;i++)		/* copying it in output */
 		for(j=0;j<N;j++)
 			out2[i+j*N] = A[i+j*N];
 	
-	for(j=1;j<=N-2;j++){
+	for(j=1;j<=N-2;j++){	/* copying it in output */
 		for(i=j+2;i<=N;i++){
 			out2[(i-1)+(j-1)*N] = 0;
 		}
-- 
cgit