- Added log instrumentation to devexe

- Added a hill climbing option to optimise
- Added hrpt files


SKIPPED:
	psi/libpsi.a
	psi/sinqhmdriv.c
	psi/tabledrive.c

sicshipadaba.c

@@ -566,6 +566,74 @@ void RemoveSICSPar(pHdb node){
     
     SICSDeleteNodeData(node);
 }
+/*==================== access suport functions ==============================*/
+int SICSHdbGetFloat(pHdb parent, SConnection *pCon,
+     char *path, float *value){
+        hdbValue v;
+        pHdb par = NULL;
+        int status;
+        char buffer[256];
+        
+        par = GetHipadabaNode(parent,path);
+        if(par == NULL){
+            if(pCon != NULL){
+                snprintf(buffer,255,"ERROR: parameter %s not found", path);
+                SCWrite(pCon,buffer,eError);
+            }
+            return SICSNOPAR;
+        }
+        
+        status = GetHipadabaPar(par,&v,pCon);
+        if(status < 0){
+            return status;
+        }
+        if(v.dataType == HIPFLOAT){
+            *value = (float)v.v.doubleValue;
+        } else if(v.dataType == HIPINT){
+            *value = (float)v.v.intValue;
+        } else {
+            /*
+             * it is an error to call this for array dada types
+             */
+            assert(0);
+        }
+        return 1;
+}
+/*--------------------------------------------------------------------------*/
+int SICSHdbSetFloat(pHdb parent, SConnection *pCon,
+     char *path, float value){
+        hdbValue v;
+        pHdb par = NULL;
+        int status;
+        char buffer[256];
+        
+        par = GetHipadabaNode(parent,path);
+        if(par == NULL){
+            if(pCon != NULL){
+                snprintf(buffer,255,"ERROR: parameter %s not found", path);
+                SCWrite(pCon,buffer,eError);
+            }
+            return SICSNOPAR;
+        }
+
+        v.dataType = par->value.dataType;
+        if(v.dataType == HIPFLOAT){
+            v.v.doubleValue = (double)value;
+        } else if(v.dataType == HIPINT){
+            v.v.intValue = (long)value;
+        } else {
+            /*
+             * it is an error to call this for array dada types
+             */
+            assert(0);
+        }
+        
+        status = SetHipadabaPar(par,v,pCon);
+        if(status < 0){
+            return status;
+        }
+        return 1;
+}
 
 /*---------------------------------------------------------------------------*/
 int InstallSICSNotify(pHdb node, SConnection *pCon, int id, int recurse){