diff --git a/alliance/src/genlib/src/genlib.c b/alliance/src/genlib/src/genlib.c
index 181f8932..4849070b 100644
--- a/alliance/src/genlib/src/genlib.c
+++ b/alliance/src/genlib/src/genlib.c
@@ -71,7 +71,7 @@
 #include "mbkgen.h"
 #define __GENLIB__
 #include "mgn.h"
-static char rcsid[] = "$Id: genlib.c,v 1.8 2002/08/14 19:18:24 pnt Exp $";
+static char rcsid[] = "$Id: genlib.c,v 1.9 2002/08/16 20:16:45 pnt Exp $";
 
 /*******************************************************************************
 * global variables used in genlib                                              *
@@ -4391,6 +4391,14 @@ void genLOCAP(char type,double capa,char *tcon,char *bcon,char *name)
   (void)addlocap(WORK_LOFIG,type,capa,s_tcon,s_bcon,name) ;
 }
 
+/*******************************************************************************
+* function genSET_LOCAP                                                               *
+*******************************************************************************/
+
+void genSET_LOCAP(char *figname,char *capname,double newcap)
+{
+  setlocap(getlofig(figname,'A'),capname,newcap) ;
+}
 
 /*******************************************************************************
 * function LORES                                                               *
@@ -4451,6 +4459,15 @@ void genLORES(char type,double resi,char *rcon1,char *rcon2,char *name)
   (void)addlores(WORK_LOFIG,type,resi,s_rcon1,s_rcon2,name) ;
 }
 
+/*******************************************************************************
+* function genSET_LORES                                                               *
+*******************************************************************************/
+
+void genSET_LORES(char *figname,char *resname,double newres)
+{
+  setlores(getlofig(figname,'A'),resname,newres) ;
+}
+
 /*******************************************************************************
 * function LOSELF                                                               *
 *******************************************************************************/
@@ -4509,3 +4526,12 @@ void genLOSELF(char type,double self,char *scon1,char *scon2,char *name)
 
   (void)addloself(WORK_LOFIG,type,self,s_scon1,s_scon2,name) ;
 }
+
+/*******************************************************************************
+* function genSET_LOSELF                                                               *
+*******************************************************************************/
+
+void genSET_LOSELF(char *figname,char *selfname,double newself)
+{
+  setloself(getlofig(figname,'A'),selfname,newself) ;
+}
diff --git a/alliance/src/genlib/src/mgn.h b/alliance/src/genlib/src/mgn.h
index 563b7fdf..80bf7771 100644
--- a/alliance/src/genlib/src/mgn.h
+++ b/alliance/src/genlib/src/mgn.h
@@ -117,6 +117,10 @@ extern void genLOCAP(char type,double capa,char *tcon,char *bcon,char *name)
 extern void genLORES(char type,double resi,char *rcon1,char *rcon2,char *name)  ;
 extern void genLOSELF(char type,double self,char *scon1,char *scon2,char *name) ;
 
+extern void genSET_LOCAP(char *figname,char *capname,double newcap)    ;
+extern void genSET_LORES(char *figname,char *resname,double newres)    ;
+extern void genSET_LOSELF(char *figname,char *selfname,double newself) ;
+
 /***************************************************************************************/
 
 
@@ -274,9 +278,13 @@ extern char *genNAME(char *, ...);
 
 /********************************* Analogical world ************************************/
 
-#define GENLIB_LOCAP(type,capa,tcon,bcon,name)    genLOCAP(type,capa,tcon,bcon,name)
-#define GENLIB_LORES(type,resi,rcon1,rcon2,name)  genLORES(type,resi,rcon1,rcon2,name)
-#define GENLIB_LOSELF(type,self,scon1,scon2,name) genLOSELF(type,self,scon1,scon2,name)
+#define GENLIB_LOCAP(type,capa,tcon,bcon,name)      genLOCAP(type,capa,tcon,bcon,name)
+#define GENLIB_LORES(type,resi,rcon1,rcon2,name)    genLORES(type,resi,rcon1,rcon2,name)
+#define GENLIB_LOSELF(type,self,scon1,scon2,name)   genLOSELF(type,self,scon1,scon2,name)
+
+#define GENLIB_SET_LOCAP(figname,capname,newcap)    genSET_LOCAP(figname,capname,newcap)
+#define GENLIB_SET_LORES(figname,resname,newres)    genSET_LORES(figname,resname,newres)
+#define GENLIB_SET_LOSELF(figname,selfname,newself) genSET_LOSELF(figname,selfname,newself)
 
 /***************************************************************************************/