From b0389f7080c9b30c9d724889db078ea09c237c5a Mon Sep 17 00:00:00 2001
From: nadolski <nadolski@9a6e40ed-f3a0-4838-9b4a-bf418f78e88d>
Date: Mon, 12 Jul 2010 11:16:46 +0000
Subject: [PATCH] add comments LSN

---
 tracy/tracy/src/t2lat.cc | 177 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 177 insertions(+)

diff --git a/tracy/tracy/src/t2lat.cc b/tracy/tracy/src/t2lat.cc
index c948efe..13f6d2a 100644
--- a/tracy/tracy/src/t2lat.cc
+++ b/tracy/tracy/src/t2lat.cc
@@ -3963,6 +3963,31 @@ void GetRingType(struct LOC_Lattice_Read *LINK)
 }
 
 
+/****************************************************************************/
+/* void GetDP(struct LOC_Lattice_Read *LINK)
+
+   Purpose:
+       Define particle energy offset read from lattice file
+
+   Input:
+       none
+
+   Output:
+       none
+
+   Return:
+       none
+
+   Global variables:
+       none
+
+   Specific functions:
+       none
+
+   Comments:
+       none
+
+****************************************************************************/
 static void GetDP(struct LOC_Lattice_Read *LINK)
 {
   long k;
@@ -3979,6 +4004,31 @@ static void GetDP(struct LOC_Lattice_Read *LINK)
   EnterUDItable("dp             ", globval.dPcommon, LINK);
 }
 
+/****************************************************************************/
+/* void GetCODEPS(LOC_Lattice_Read *LINK)
+
+   Purpose:
+       Read and assign cod precision read from lattice file
+
+   Input:
+       none
+
+   Output:
+       none
+
+   Return:
+       none
+
+   Global variables:
+       none
+
+   Specific functions:
+       none
+
+   Comments:
+       none
+
+****************************************************************************/
 static void GetCODEPS(struct LOC_Lattice_Read *LINK)
 {
   long k;
@@ -3995,7 +4045,31 @@ static void GetCODEPS(struct LOC_Lattice_Read *LINK)
   EnterUDItable("codeps         ", globval.Energy, LINK);
 }
 
+/****************************************************************************/
+/* Local double Circumference(struct LOC_Lattice_Read *LINK)
+
+   Purpose:
+
+
+   Input:
+       none
+
+   Output:
+       none
+
+   Return:
+       none
 
+   Global variables:
+       none
+
+   Specific functions:
+       none
+
+   Comments:
+       none
+
+****************************************************************************/
 static double Circumference(struct LOC_Lattice_Read *LINK)
 {
   long i;
@@ -4010,6 +4084,31 @@ static double Circumference(struct LOC_Lattice_Read *LINK)
 }
 
 
+/****************************************************************************/
+/* Local void RegisterKids(struct LOC_Lattice_Read *LINK)
+
+   Purpose:
+
+
+   Input:
+       none
+
+   Output:
+       none
+
+   Return:
+       none
+
+   Global variables:
+       none
+
+   Specific functions:
+       none
+
+   Comments:
+       none
+/****************************************************************************/
+
 static void RegisterKids(struct LOC_Lattice_Read *LINK)
 {
   long i, FORLIM;
@@ -4038,6 +4137,31 @@ static void RegisterKids(struct LOC_Lattice_Read *LINK)
 }
 
 
+/****************************************************************************/
+/* void PrintResult(struct LOC_Lattice_Read *LINK)
+
+   Purpose:
+       Print Lattice statistics
+
+   input:
+       LINK
+
+   output:
+       none
+
+   return:
+       none
+
+   global variables:
+       none
+
+   specific functions:
+       none
+
+   comments
+       none
+
+****************************************************************************/
 void PrintResult(struct LOC_Lattice_Read *LINK)
 {
   long j, nKid, FORLIM;
@@ -4082,6 +4206,33 @@ void PrintResult(struct LOC_Lattice_Read *LINK)
   printf("\n");
 }
 
+/****************************************************************************/
+/* long ElemIndex(const char *name)
+
+   Purpose:
+       return element family index.
+       Note: in the PASCAL version the element family index could be
+       comfortably accessed using the element name.
+       This is no longer possible because we gave up on the interpretive PASCAL-S.
+
+   Input:
+       name Family name
+
+   Output:
+       none
+
+   Return:
+       none
+
+   Global variables:
+       none
+
+   Specific functions:
+       none
+
+   Comments:
+       
+****************************************************************************/
 
 long ElemIndex(const char *name)
 {
@@ -4123,6 +4274,32 @@ long ElemIndex(const char *name)
   return 0;
 }
 
+/****************************************************************************/
+/* boolean Lattice_Read(FILE **fi_, FILE **fo_)
+
+   Purpose:
+       Low level routine for reading lattice file
+
+   Input:
+       none
+
+   Output:
+       none
+
+   Return:
+       none
+
+   Global variables:
+       globval
+
+   Specific functions:
+       setjmp f2c
+       init_reserved_words
+
+   Comments:
+       none
+
+****************************************************************************/
 
 bool Lattice_Read(FILE **fi_, FILE **fo_)
 {
-- 
GitLab