diff --git a/Makefile b/Makefile
index 51552d0f..079fc778 100644
--- a/Makefile
+++ b/Makefile
@@ -25,7 +25,7 @@ SOBJ =  network.o ifile.o conman.o SCinter.o splitter.o passwd.o \
        sicsexit.o  costa.o task.o $(FORTIFYOBJ)\
        macro.o ofac.o obpar.o obdes.o drive.o status.o intserv.o \
        devexec.o mumo.o mumoconf.o selector.o selvar.o fupa.o lld.o \
-       lld_blob.o buffer.o strrepl.o ruli.o lin2ang.o \
+       lld_blob.o buffer.o strrepl.o ruli.o lin2ang.o fomerge.o\
        script.o o2t.o  alias.o napi.o nxdata.o stringdict.o sdynar.o\
        histmem.o histdriv.o histsim.o sinqhmdriv.o interface.o callback.o \
         event.o emon.o evcontroller.o evdriver.o simev.o perfmon.o \
diff --git a/amortest.tcl b/amortest.tcl
index b4db41b9..ffd140a0 100644
--- a/amortest.tcl
+++ b/amortest.tcl
@@ -221,21 +221,11 @@ MakeStoreAmor hm
 #--------------------------------------------------------------------------
 #          C o m m a n d  I n i t i a l i z a t i o n
 #-------------------------------------------------------------------------
-#======= logbook
-source tcl/log.tcl
-Publish LogBook Spy
 #======== Drive
 MakeDrive
 #======== scan
-source $home/tcl/topsicom.tcl
-source $home/tcl/cscan.tcl
-Publish cscan User
-Publish sscan User
-Publish sftime Spy
-Publish scan Spy
-Publish ScanCounts Spy
-Publish TextStatus Spy
-Publish otUnknown Spy
+source $home/object.tcl
+source $home/tcl/scancom.tcl
 MakeScanCommand  xxxscan counter topsi.hdd recover.bin
 xxxscan configure amor
 #========== peak & center
diff --git a/bruker.c b/bruker.c
index cb3759a8..0c413dbe 100644
--- a/bruker.c
+++ b/bruker.c
@@ -172,7 +172,7 @@ extern char *rmtrail(char *p);
        return 0;
      }
      
-     strcpy(pCommand,"CUF/");
+     strcpy(pCommand,"FIE/");
      iRet = BrukerCommand(self,pCommand,pBueffel,79);
      if(!iRet)
      {
diff --git a/danu.dat b/danu.dat
index f9dc12aa..3f83a3ad 100644
--- a/danu.dat
+++ b/danu.dat
@@ -1,3 +1,3 @@
- 537199972 
+ 5378 
 NEVER, EVER modify or delete this file
 You'll risk eternal damnation and a reincarnation as a cockroach!|n
\ No newline at end of file
diff --git a/difrac/mesint.f b/difrac/mesint.f
index 000b8288..85b543db 100644
--- a/difrac/mesint.f
+++ b/difrac/mesint.f
@@ -399,3 +399,6 @@ C-----------------------------------------------------------------------
      $        ' Now starting a ',F5.2,' minutes delay before',
      $        ' resuming data collection.')
       END
+
+
+
diff --git a/doc/user/Makefile b/doc/user/Makefile
index ba294807..a30a5aea 100644
--- a/doc/user/Makefile
+++ b/doc/user/Makefile
@@ -4,7 +4,7 @@
 # Mark Koennecke, Juli 1998
 #------------------------------------------------------------------------
 
-all: topsi dmc sans
+all: topsi dmc sans focus
 
 topsi:
 	html2tex topman
@@ -21,3 +21,8 @@ sans:
 	latex sansman
 	latex sansman
 	dvips sansman
+focus:
+	html2tex foman
+	latex foman
+	latex foman
+	dvips foman
diff --git a/doc/user/fowrite.htm b/doc/user/fowrite.htm
index bf03e60a..11a4e643 100644
--- a/doc/user/fowrite.htm
+++ b/doc/user/fowrite.htm
@@ -25,6 +25,17 @@ is minutes.
 <DD>This command will overwrite the last data file written and thus 
  effectively erase it. Therefore this command requires manager privilege.  
 </DL>
+FOCUS has three detector banks which may not all be active at all
+times. Thus a way is needed to tell SICS about the configuration of
+the day.  This is also done through ths storefocus command. There are
+three parameters, <b>upper, middle and lower</b> which can be either on
+(value greater 0) or off (value less then or equal to 0). The value
+can be inquired with <b> storefocus par</b>. For example <b>storefocus
+middle</b> prints the flag  for the middle detector bank. With <b>
+storefocus par val </b> a new value for the parameter is set. For
+example <b>storefocus lower 1</B> switches the lower detector bank
+on. These commands are usually used in the configuration file and
+require manager privilege.  
 </P>
 </BODY>
 </HTML>
diff --git a/faverage.c b/faverage.c
index 0a74d331..52541cce 100644
--- a/faverage.c
+++ b/faverage.c
@@ -6,6 +6,10 @@
   copyright: see copyright.h
   
   Mark Koennecke, October 1998
+
+  Updated for additional detector banks
+
+  Mark Koennecke, March 2000
 ---------------------------------------------------------------------------*/
 #include <stdlib.h>
 #include <assert.h>
@@ -15,6 +19,7 @@
 #include "sics.h"
 #include "counter.h"
 #include "HistMem.h"
+#include "fomerge.h"
 #include "faverage.h"
 
 /*
@@ -40,7 +45,6 @@
      free(self);      
   }
 /*-------------------------------------------------------------------------*/
-  
   int  MakeFA(SConnection *pCon, SicsInterp *pSics, void *pData,
               int argc, char *argv[])
   {
@@ -124,7 +128,8 @@
       char pBueffel[256];
       HistInt *hiData = NULL, *hiPtr;
       time_t tStart, tEnd;
-      
+      int iBank = MIDDLE;      
+
       self = (pFocusAverager)pData;
       assert(self);
       assert(pCon);
@@ -152,7 +157,19 @@
          SCWrite(pCon,pBueffel,eError);
          return 0;
       }
-    
+
+      /* another parameter, if available describes the detector bank*
+      if(argc > 3)
+      {
+        iRet = Tcl_GetInt(pSics->pTcl,argv[3],&iBank);
+        if(iRet != TCL_OK)
+        {
+           sprintf(pBueffel,"ERROR: cannot convert %d to integer",argv[3]);
+           SCWrite(pCon,pBueffel,eError);
+           return 0;
+        }
+      }    
+
       /* how much to do: correct parameters? */  
       iNum = iEnd - iStart;
       if(iNum < 0)
@@ -191,9 +208,9 @@
       memset(iData,0,iBufLen);
 
       /* get histogram length */
-      i = GetHistLength(self->pHist);
+      i = getFMdim(iBank);
       /* correct iEnd to maximum allowed */
-      iTest = i/iLength;
+      iTest = i;
       if(iEnd > iTest -1)
       {
         iEnd = iTest - 1;
@@ -202,25 +219,19 @@
            iNum = 1;
       }
            
-      /* get histogram data */
-      hiData = (HistInt *)malloc(i*sizeof(HistInt));
-      if( (!hiData) || !(iData) )
-      {
-         SCWrite(pCon,"ERROR: out of memory in FocusAverage",eError);
-         return 0;
-      }
 #ifdef DEB
       printf("Getting histogram....\n");
       fflush(stdout);
 #endif
-      i = GetHistogram(self->pHist,pCon,0,0,i,hiData,i*sizeof(HistInt));
-      if(!i)
+      hiData = GetHistogramPointer(self->pHist,pCon);
+      if(hiData == NULL)
       {
          SCWrite(pCon,"ERROR: failed to read histogram memory data",eError);
-         free(hiData);
          free(iData);
          return 0;
       }      
+      setFMDataPointer(hiData, iLength);
+      hiData = getFMBankPointer(iBank);
 #ifdef DEB
       tEnd = time(NULL);
       printf("Histogram received in %d seconds\n", tStart - tEnd);
@@ -245,7 +256,7 @@
          fVal *= 65536.;
          iData[i] = htonl((int)fVal);
       }  
-      /* truncate time binning to integer */
+      /* make time binning fixed point */
       for(i = 0; i < iLength; i++)
       {
          fVal = fTimeBin[i]/10.;
@@ -260,8 +271,6 @@
       SCWriteUUencoded(pCon,"FocusAverage",iData,iBufLen);
       if(iData)
         free(iData);
-      if(hiData)
-        free(hiData);
 #ifdef DEB
       printf("Averaging finished\n");
       fflush(stdout);
diff --git a/focusmerge.dat b/focusmerge.dat
new file mode 100644
index 00000000..e0a7685e
--- /dev/null
+++ b/focusmerge.dat
@@ -0,0 +1,664 @@
+#---- Merge Table
+273
+001   10.050 000 001 000
+002   10.850 000 002 000
+003   11.660 000 003 000
+004   12.460 000 004 000
+005   13.260 000 005 000
+006   14.060 000 006 000
+007   14.870 000 007 000
+008   15.670 000 008 000
+009   16.470 000 009 000
+010   17.270 000 010 000
+011   18.070 000 011 000
+012   18.350 001 000 001
+013   18.880 000 012 000
+014   19.175 002 000 002
+015   19.680 000 013 000
+016   20.000 003 000 003
+017   20.480 000 014 000
+018   20.825 004 000 004
+019   21.280 000 015 000
+020   21.650 005 000 005
+021   22.090 000 016 000
+022   22.890 000 017 000
+023   23.350 006 000 006
+024   23.690 000 018 000
+025   24.175 007 000 007
+026   24.490 000 019 000
+027   25.000 008 000 008
+028   25.290 000 020 000
+029   25.825 009 000 009
+030   26.100 000 021 000
+031   26.650 010 000 010
+032   26.900 000 022 000
+033   27.700 000 023 000
+034   28.350 011 000 011
+035   28.500 000 024 000
+036   29.175 012 000 012
+037   29.310 000 025 000
+038   30.000 013 000 013
+039   30.110 000 026 000
+040   30.825 014 000 014
+041   30.910 000 027 000
+042   31.650 015 000 015
+043   31.710 000 028 000
+044   32.510 000 029 000
+045   33.320 000 030 000
+046   33.350 016 000 016
+047   34.120 000 031 000
+048   34.175 017 000 017
+049   34.920 000 032 000
+050   35.000 018 000 018
+051   35.720 000 033 000
+052   35.825 019 000 019
+053   36.520 000 034 000
+054   36.650 020 000 020
+055   37.330 000 035 000
+056   38.130 000 036 000
+057   38.350 021 000 021
+058   38.930 000 037 000
+059   39.175 022 000 022
+060   39.730 000 038 000
+061   40.000 023 000 023
+062   40.540 000 039 000
+063   40.825 024 000 024
+064   41.340 000 040 000
+065   41.650 025 000 025
+066   42.140 000 041 000
+067   42.850 026 000 026
+068   42.940 000 042 000
+069   43.675 027 000 027
+070   43.740 000 043 000
+071   44.500 028 000 028
+072   44.550 000 044 000
+073   45.325 029 000 029
+074   45.350 000 045 000
+075   46.150 030 046 030
+076   46.950 000 047 000
+077   47.350 031 000 031
+078   47.760 000 048 000
+079   48.175 032 000 032
+080   48.560 000 049 000
+081   49.000 033 000 033
+082   49.360 000 050 000
+083   49.825 034 000 034
+084   50.160 000 051 000
+085   50.650 035 000 035
+086   50.960 000 052 000
+087   51.770 000 053 000
+088   51.850 036 000 036
+089   52.570 000 054 000
+090   52.675 037 000 037
+091   53.370 000 055 000
+092   53.500 038 000 038
+093   54.170 000 056 000
+094   54.325 039 000 039
+095   54.980 000 057 000
+096   55.150 040 000 040
+097   55.780 000 058 000
+098   56.350 041 000 041
+099   56.580 000 059 000
+100   57.175 042 000 042
+101   57.380 000 060 000
+102   58.000 043 000 043
+103   58.180 000 061 000
+104   58.825 044 000 044
+105   58.990 000 062 000
+106   59.650 045 000 045
+107   59.790 000 063 000
+108   60.590 000 064 000
+109   60.850 046 000 046
+110   61.390 000 065 000
+111   61.675 047 000 047
+112   62.190 000 066 000
+113   62.500 048 000 048
+114   63.000 000 067 000
+115   63.325 049 000 049
+116   63.800 000 068 000
+117   64.150 050 000 050
+118   64.600 000 069 000
+119   65.350 051 000 000
+120   65.400 000 070 000
+121   66.175 052 000 000
+122   66.210 000 071 000
+123   67.000 053 000 000
+124   67.010 000 072 000
+125   67.810 000 073 000
+126   67.825 054 000 000
+127   68.610 000 074 000
+128   68.650 055 000 051
+129   69.410 000 075 000
+130   69.850 056 000 000
+131   70.350 000 000 052
+132   70.675 057 000 000
+133   71.175 000 000 053
+134   71.500 058 000 000
+135   72.000 000 000 054
+136   72.325 059 000 000
+137   72.825 000 000 055
+138   72.900 000 076 000
+139   73.650 000 000 056
+140   73.700 000 077 000
+141   74.510 000 078 000
+142   74.850 000 000 057
+143   75.310 000 079 000
+144   75.675 000 000 058
+145   76.110 000 080 000
+146   76.500 060 000 059
+147   76.910 000 081 000
+148   77.325 061 000 060
+149   77.710 000 082 000
+150   78.150 062 000 061
+151   78.520 000 083 000
+152   79.320 000 084 000
+153   79.350 063 000 062
+154   80.120 000 085 000
+155   80.175 064 000 063
+156   80.920 000 086 000
+157   81.000 065 000 064
+158   81.720 000 087 000
+159   81.825 066 000 065
+160   82.530 000 088 000
+161   82.650 067 000 066
+162   83.330 000 089 000
+163   83.850 068 000 067
+164   84.130 000 090 000
+165   84.675 069 000 068
+166   84.930 000 091 000
+167   85.500 070 000 069
+168   85.740 000 092 000
+169   86.325 071 000 070
+170   86.540 000 093 000
+171   87.150 072 000 071
+172   87.340 000 094 000
+173   88.140 000 095 000
+174   88.350 073 000 072
+175   88.940 000 096 000
+176   89.175 074 000 073
+177   89.750 000 097 000
+178   90.000 075 000 074
+179   90.550 000 098 000
+180   90.825 076 000 075
+181   91.350 000 099 000
+182   91.650 077 000 076
+183   92.150 000 100 000
+184   92.850 078 000 077
+185   92.960 000 101 000
+186   93.675 079 000 078
+187   93.760 000 102 000
+188   94.500 080 000 079
+189   94.560 000 103 000
+190   95.325 081 000 080
+191   95.360 000 104 000
+192   96.150 082 000 081
+193   96.160 000 105 000
+194   96.970 000 106 000
+195   97.350 083 000 082
+196   97.770 000 107 000
+197   98.175 084 000 083
+198   98.570 000 108 000
+199   99.000 085 000 084
+200   99.370 000 109 000
+201   99.825 086 000 085
+202  100.180 000 110 000
+203  100.650 087 000 086
+204  100.980 000 111 000
+205  101.780 000 112 000
+206  101.850 088 000 087
+207  102.580 000 113 000
+208  102.675 089 000 088
+209  103.380 000 114 000
+210  103.500 090 000 089
+211  104.190 000 115 000
+212  104.325 091 000 090
+213  104.990 000 116 000
+214  105.150 092 000 091
+215  105.790 000 117 000
+216  106.350 093 000 092
+217  106.590 000 118 000
+218  107.175 094 000 093
+219  107.390 000 119 000
+220  108.000 095 000 094
+221  108.200 000 120 000
+222  108.825 096 000 095
+223  109.000 000 121 000
+224  109.650 097 000 096
+225  109.800 000 122 000
+226  110.600 000 123 000
+227  110.850 098 000 097
+228  111.410 000 124 000
+229  111.675 099 000 098
+230  112.210 000 125 000
+231  112.500 100 000 099
+232  113.010 000 126 000
+233  113.325 101 000 100
+234  113.810 000 127 000
+235  114.150 102 000 101
+236  114.610 000 128 000
+237  115.350 103 000 102
+238  115.420 000 129 000
+239  116.175 104 000 103
+240  116.220 000 130 000
+241  117.000 105 000 104
+242  117.020 000 131 000
+243  117.820 000 132 000
+244  117.825 106 000 105
+245  118.630 000 133 000
+246  118.650 107 000 106
+247  119.430 000 134 000
+248  119.850 108 000 107
+249  120.230 000 135 000
+250  120.675 109 000 108
+251  121.030 000 136 000
+252  121.500 110 000 109
+253  121.830 000 137 000
+254  122.325 111 000 110
+255  122.640 000 138 000
+256  123.150 112 000 111
+257  123.440 000 139 000
+258  124.240 000 140 000
+259  124.350 113 000 112
+260  125.040 000 141 000
+261  125.175 114 000 113
+262  125.850 000 142 000
+263  126.000 115 000 114
+264  126.650 000 143 000
+265  126.825 116 000 115
+266  127.450 000 144 000
+267  127.650 117 000 116
+268  128.250 000 145 000
+269  129.050 000 146 000
+270  129.860 000 147 000
+271  130.660 000 148 000
+272  131.460 000 149 000
+273  132.260 000 150 000
+#----- upper bank two theta
+117
+18.35
+19.175
+20
+20.825
+21.65
+23.35
+24.175
+25
+25.825
+26.65
+28.35
+29.175
+30
+30.825
+31.65
+33.35
+34.175
+35
+35.825
+36.65
+38.35
+39.175
+40
+40.825
+41.65
+42.85
+43.675
+44.5
+45.325
+46.15
+47.35
+48.175
+49
+49.825
+50.65
+51.85
+52.675
+53.5
+54.325
+55.15
+56.35
+57.175
+58
+58.825
+59.65
+60.85
+61.675
+62.5
+63.325
+64.15
+65.35
+66.175
+67
+67.825
+68.65
+69.85
+70.675
+71.5
+72.325
+76.5
+77.325
+78.15
+79.35
+80.175
+81
+81.825
+82.65
+83.85
+84.675
+85.5
+86.325
+87.15
+88.35
+89.175
+90
+90.825
+91.65
+92.85
+93.675
+94.5
+95.325
+96.15
+97.35
+98.175
+99
+99.825
+100.65
+101.85
+102.675
+103.5
+104.325
+105.15
+106.35
+107.175
+108
+108.825
+109.65
+110.85
+111.675
+112.5
+113.325
+114.15
+115.35
+116.175
+117
+117.825
+118.65
+119.85
+120.675
+121.5
+122.325
+123.15
+124.35
+125.175
+126
+126.825
+127.65
+#----- middle bank two theta
+150
+10.05
+10.85
+11.66
+12.46
+13.26
+14.06
+14.87
+15.67
+16.47
+17.27
+18.07
+18.88
+19.68
+20.48
+21.28
+22.09
+22.89
+23.69
+24.49
+25.29
+26.1
+26.9
+27.7
+28.5
+29.31
+30.11
+30.91
+31.71
+32.51
+33.32
+34.12
+34.92
+35.72
+36.52
+37.33
+38.13
+38.93
+39.73
+40.54
+41.34
+42.14
+42.94
+43.74
+44.55
+45.35
+46.15
+46.95
+47.76
+48.56
+49.36
+50.16
+50.96
+51.77
+52.57
+53.37
+54.17
+54.98
+55.78
+56.58
+57.38
+58.18
+58.99
+59.79
+60.59
+61.39
+62.19
+63
+63.8
+64.6
+65.4
+66.21
+67.01
+67.81
+68.61
+69.41
+72.9
+73.7
+74.51
+75.31
+76.11
+76.91
+77.71
+78.52
+79.32
+80.12
+80.92
+81.72
+82.53
+83.33
+84.13
+84.93
+85.74
+86.54
+87.34
+88.14
+88.94
+89.75
+90.55
+91.35
+92.15
+92.96
+93.76
+94.56
+95.36
+96.16
+96.97
+97.77
+98.57
+99.37
+100.18
+100.98
+101.78
+102.58
+103.38
+104.19
+104.99
+105.79
+106.59
+107.39
+108.2
+109
+109.8
+110.6
+111.41
+112.21
+113.01
+113.81
+114.61
+115.42
+116.22
+117.02
+117.82
+118.63
+119.43
+120.23
+121.03
+121.83
+122.64
+123.44
+124.24
+125.04
+125.85
+126.65
+127.45
+128.25
+129.05
+129.86
+130.66
+131.46
+132.26
+#------- lower bank two theta
+116
+18.35
+19.175
+20
+20.825
+21.65
+23.35
+24.175
+25
+25.825
+26.65
+28.35
+29.175
+30
+30.825
+31.65
+33.35
+34.175
+35
+35.825
+36.65
+38.35
+39.175
+40
+40.825
+41.65
+42.85
+43.675
+44.5
+45.325
+46.15
+47.35
+48.175
+49
+49.825
+50.65
+51.85
+52.675
+53.5
+54.325
+55.15
+56.35
+57.175
+58
+58.825
+59.65
+60.85
+61.675
+62.5
+63.325
+64.15
+68.65
+70.35
+71.175
+72
+72.825
+73.65
+74.85
+75.675
+76.5
+77.325
+78.15
+79.35
+80.175
+81
+81.825
+82.65
+83.85
+84.675
+85.5
+86.325
+87.15
+88.35
+89.175
+90
+90.825
+91.65
+92.85
+93.675
+94.5
+95.325
+96.15
+97.35
+98.175
+99
+99.825
+100.65
+101.85
+102.675
+103.5
+104.325
+105.15
+106.35
+107.175
+108
+108.825
+109.65
+110.85
+111.675
+112.5
+113.325
+114.15
+115.35
+116.175
+117
+117.825
+118.65
+119.85
+120.675
+121.5
+122.325
+123.15
+124.35
+125.175
+126
+126.825
+127.65
diff --git a/fomerge.c b/fomerge.c
new file mode 100644
index 00000000..0aef5236
--- /dev/null
+++ b/fomerge.c
@@ -0,0 +1,394 @@
+/*---------------------------------------------------------------------------
+                           F O M E R G E
+
+ This module is for the FOCUS instrument. FOCUS has three detector 
+ banks. These are sent to SICS as one big array by the histogram memory.
+ However, depending on the situation these need to be accessed either:
+ - as single banks.
+ - or as a merged bank, where detector counts from all three banks are
+   summed onto a common two theta scale. 
+
+ This module is responsible for accessing single banks and for doing
+ the merging operation.
+
+ copyright: see copyright.h
+
+
+ Mark Koennecke, March 2000
+ --------------------------------------------------------------------------*/
+#include <stdlib.h>
+#include <assert.h>
+#include <stdio.h>
+#include "fortify.h"
+
+/* change this in line with HistMem.h */
+typedef int HistInt;
+
+#include "fomerge.h"
+
+/*================== module static data items ==========================*/
+   static HistInt *masterData, *upperData, *mediumData, *lowerData, 
+                  *mergedData = NULL;
+   static int timeBin, nUpper, nLower, nMedium, nMerged;
+   static float *upperTheta, *lowerTheta, *mediumTheta, *mergedTheta;
+   static int *mergeUp, *mergeMed, *mergeLow;
+   int iMerged;    
+
+   int medium, upper, lower;
+/*------------------------------------------------------------------------
+   The tables with the theta values for the detector banks aand the merge
+   table living in mergeUp, mergeMed, mergeLow is initialized from a
+   data file, the mergefile. mergeUp, mergeLow, mergeMed contain a 0 if
+   the detector from this bank does not need to be summed for this merged
+   two theta value or the number of the detector from  this bank to use. 
+   -------------------------------------------------------------------------*/
+int initializeFM(char *mergefile)
+{
+   FILE *fd = NULL;
+   int i, j, iTest;
+   char pBuffer[132];
+   char *pPtr = NULL;
+
+   /* open the file */
+   fd = fopen(mergefile,"r");
+   if(!fd)
+   {
+      fprintf(stdout,"ERROR: merge data file not found!\n");
+      return 0;
+   }
+
+   /* skip first line */
+   pPtr = fgets(pBuffer,131,fd);
+
+   /* read the number of merged data points */
+   fgets(pBuffer,131,fd);
+   iTest = sscanf(pBuffer,"%d",&nMerged);
+   if((iTest != 1) || (nMerged <= 0) )
+   {
+      fprintf(stdout,"ERROR: Invalid or corrupt merge dat file");
+      return 0;
+   }
+
+   /* allocate space */
+   mergedTheta = (float *)malloc(nMerged*sizeof(float));
+   mergeUp  =     (int *)malloc(nMerged*sizeof(int));
+   mergeMed =     (int *)malloc(nMerged*sizeof(int));
+   mergeLow =     (int *)malloc(nMerged*sizeof(int));
+   if( mergedTheta == NULL || mergeUp == NULL || mergeMed == NULL 
+       || mergeLow == NULL )
+   {
+      fprintf(stdout,"ERROR: out of memory in fomerge\n");
+      return 0;
+   }
+
+   /* read the merge table */
+   for(i = 0; i < nMerged; i++)
+   {
+     fgets(pBuffer,131,fd);
+     iTest = sscanf(pBuffer,"%d %f %d %d %d",&j, &mergedTheta[i],
+                    &mergeUp[i], &mergeMed[i], &mergeLow[i]);
+     if(iTest != 5)
+     {
+      fprintf(stdout,"ERROR: Invalid or corrupt merge dat file");
+      return 0;
+     }
+   }
+ 
+   /* read upper bank two theta */
+   fgets(pBuffer,131,fd);
+   fgets(pBuffer,131,fd);
+   iTest = sscanf(pBuffer,"%d",&nUpper);   
+   if((iTest != 1) || (nUpper <= 0) )
+   {
+      fprintf(stdout,"ERROR: Invalid or corrupt merge data file");
+      return 0;
+   }
+   upperTheta = (float *)malloc(nUpper*sizeof(float));
+   if(upperTheta == NULL)
+   {
+      fprintf(stdout,"ERROR: out of memory in fomerge\n");
+      return 0;
+   }
+   for(i = 0; i < nUpper; i++)
+   {
+      fgets(pBuffer,131,fd);
+      sscanf(pBuffer,"%f",&upperTheta[i]);
+   }
+
+   /* read middle bank two theta */
+   fgets(pBuffer,131,fd);
+   fgets(pBuffer,131,fd);
+   iTest = sscanf(pBuffer,"%d",&nMedium);   
+   if((iTest != 1) || (nMedium <= 0) )
+   {
+      fprintf(stdout,"ERROR: Invalid or corrupt merge data file");
+      return 0;
+   }
+   mediumTheta = (float *)malloc(nMedium*sizeof(float));
+   if(mediumTheta == NULL)
+   {
+      fprintf(stdout,"ERROR: out of memory in fomerge\n");
+      return 0;
+   }
+   for(i = 0; i < nMedium; i++)
+   {
+      fgets(pBuffer,131,fd);
+      sscanf(pBuffer,"%f",&mediumTheta[i]);
+   }
+
+   /* read lower bank two theta */
+   fgets(pBuffer,131,fd);
+   fgets(pBuffer,131,fd);
+   iTest = sscanf(pBuffer,"%d",&nLower);   
+   if((iTest != 1) || (nLower <= 0) )
+   {
+      fprintf(stdout,"ERROR: Invalid or corrupt merge data file");
+      return 0;
+   }
+   lowerTheta = (float *)malloc(nLower*sizeof(float));
+   if(lowerTheta == NULL)
+   {
+      fprintf(stdout,"ERROR: out of memory in fomerge\n");
+      return 0;
+   }
+   for(i = 0; i < nLower; i++)
+   {
+      fgets(pBuffer,131,fd);
+      sscanf(pBuffer,"%f",&lowerTheta[i]);
+   }
+   
+   /* done */
+   timeBin = 0;
+   iMerged = 0;
+   medium =1;
+   upper = lower = 0;
+
+   fclose(fd);
+   return 1;
+}
+/*--------------------------------------------------------------------------
+   sets the data pointer and finds the starting points for the different 
+   banks. This routine contains the knowledge how the detector banks are 
+   laid out in the histogram returned from the histogram memory.
+   -------------------------------------------------------------------------*/
+int setFMDataPointer(HistInt *lData, int mytimeBins)
+{
+  HistInt *dataPtr;
+
+  if(lData == NULL)
+     return 0;
+
+  /* the first set is the medium bank */
+  masterData = dataPtr = lData;
+  if(medium)
+  {
+    mediumData = masterData;
+  }
+  else
+  {
+    mediumData = NULL;
+  }
+
+  /* the next set is the upper bank */
+  if(upper)
+  {
+    upperData = dataPtr + mytimeBins*nMedium;
+    dataPtr = upperData;
+  }   
+  else
+  {
+    upperData = NULL;
+  }
+
+  /* the last is the lower bank */
+  if(lower)
+  {
+    lowerData = dataPtr + mytimeBins*nUpper;
+    dataPtr = lowerData;
+  }   
+  else
+  {
+    lowerData = NULL;
+  }
+
+  /* deal with data allocation for merged data */
+  if(mytimeBins != timeBin)
+  {
+    if(mergedData != NULL)
+    {
+        free(mergedData);
+    }
+    timeBin = mytimeBins;
+    mergedData = (HistInt *)malloc(nMerged*timeBin*sizeof(HistInt));
+    if(mergedData == NULL)
+    {
+      fprintf(stdout,"ERROR: out of memory in fomerge.setFMdataPointer\n");
+      return 0;
+    }
+    memset(mergedData,0,nMerged*timeBin*sizeof(HistInt));
+  }
+
+  iMerged = 0;
+  return 1;
+}
+/*-----------------------------------------------------------------------*/
+void setFMconfiguration(int up, int med, int low)
+{
+  upper = up;
+  medium = med;
+  lower = low;
+}
+/*--------------------------------------------------------------------------
+  The algorithm is suboptimal because we have to take care of the case of
+  missing detector banks due to missing or broken electronics or whatever.
+*/ 
+static void mergeData(void)
+{
+   int i, j, nDiv;
+   HistInt *startMerge, *startData;
+
+   assert(mergedData);
+
+   for(i = 0; i < nMerged; i++)
+   {
+     startMerge = mergedData + i * timeBin;
+     nDiv = 0;
+     /* upper bank contribution */
+     if( mergeUp[i] != 0 && upperData != NULL)
+     {
+       startData = upperData + (mergeUp[i]-1)*timeBin;
+       for(j = 0; j < timeBin; j++)
+       {
+         startMerge[j] += startData[j]; 
+       }
+       nDiv++;
+     }
+     /* medium bank contribution */
+     if( mergeMed[i] != 0 && mediumData != NULL)
+     {
+       startData = mediumData + (mergeMed[i]-1)*timeBin;
+       for(j = 0; j < timeBin; j++)
+       {
+         startMerge[j] += startData[j]; 
+       }
+       nDiv++;
+     }
+     /* lower bank contribution */
+     if( mergeLow[i] != 0 && lowerData != NULL)
+     {
+       startData = lowerData + (mergeLow[i]-1)*timeBin;
+       for(j = 0; j < timeBin; j++)
+       {
+         startMerge[j] += startData[j]; 
+       }
+       nDiv++;
+     }
+     /* do we need to run a division? */
+     if(nDiv > 1)
+     {
+        for(j = 0; j < timeBin; j++)
+        {
+           startMerge[j] /= nDiv;
+        }
+     }
+  } /* end of for */
+  iMerged = 1;
+}  
+/*-----------------------------------------------------------------------*/
+void killFM(void)
+{
+  if(mergedData != NULL)
+     free(mergedData);
+
+   if(lowerTheta != NULL)
+      free(lowerTheta);
+
+   if(mediumTheta != NULL)
+      free(mediumTheta);
+
+   if(upperTheta != NULL)
+      free(upperTheta);
+
+   if(mergedTheta != NULL)
+      free(mergedTheta);
+
+   if(mergeUp != NULL)
+     free(mergeUp);
+
+   if(mergeMed != NULL)
+     free(mergeMed);
+
+   if(mergeLow != NULL)
+     free(mergeLow);
+
+}
+/*--------------------------------------------------------------------------
+  Below are some not very interesting data access routines 
+  ---------------------------------------------------------------------------*/
+HistInt *getFMBankPointer(int which)
+{
+  switch(which)
+  {
+    case UPPER:
+         return upperData;
+         break;
+    case MIDDLE:
+         return mediumData;
+         break;
+    case LOWER:
+         return lowerData;
+         break;
+    case MERGED:
+         if(!iMerged)
+            mergeData();
+         return mergedData;
+         break;
+    default:
+         assert(0);
+  }
+}
+/*-------------------------------------------------------------------------*/
+float *getFMBankTheta(int which)
+{
+  switch(which)
+  {
+    case UPPER:
+         return upperTheta;
+         break;
+    case MIDDLE:
+         return mediumTheta;
+         break;
+    case LOWER:
+         return lowerTheta;
+         break;
+    case MERGED:
+         return mergedTheta;
+         break;
+    default:
+         assert(0);
+  }
+}
+/*-------------------------------------------------------------------------*/
+int getFMdim(int which)
+{
+  switch(which)
+  {
+    case UPPER:
+         return nUpper;
+         break;
+    case MIDDLE:
+         return nMedium;
+         break;
+    case LOWER:
+         return nLower;
+         break;
+    case MERGED:
+         return nMerged;
+         break;
+    case TIMEBIN:
+         return timeBin;
+         break;
+    default:
+         assert(0);
+  }
+}
diff --git a/fomerge.h b/fomerge.h
new file mode 100644
index 00000000..2a083dd5
--- /dev/null
+++ b/fomerge.h
@@ -0,0 +1,70 @@
+/*---------------------------------------------------------------------------
+  
+                               F o M e r g e
+
+ This module is for the FOCUS instrument. FOCUS has three detector 
+ banks. These are sent to SICS as one big array by the histogram memory.
+ However, depending on the situation these need to be accessed either:
+ - as single banks.
+ - or as a merged bank, where detector counts from all three banks are
+   summed onto a common two theta scale. 
+
+ This module is responsible for accessing single detectors and for doing
+ the merging operation.
+
+
+ Mark Koennecke, March 2000
+ ---------------------------------------------------------------------------*/
+#ifndef FOMERGE
+#define FOMERGE
+
+#define UPPER   1
+#define MIDDLE  2
+#define LOWER   3
+#define MERGED  4
+#define TIMEBIN 5
+
+   int setFMDataPointer(HistInt *lData, int timeBins);
+   /*
+     sets the data array with the unmerged data. timeBins is the
+     length of the time binning used. upper, medium and lower are flags
+     which indicate the presence of the detector bank.
+   */
+
+   void setFMconfiguration(int upper, int medium, int lower);
+   /*
+     sets the configuration of the histogram memory
+   */
+
+   HistInt *getFMBankPointer(int which); 
+   /*
+     returns a pointer to the counted data for the detector bank 
+     specified by which. Possible values are given above.  
+     
+   */
+   float *getFMBankTheta(int which);
+   /*
+    returns a pointer to a float array with the two theta values for
+    the detector bank specified by which.
+   */
+ 
+   int initializeFM(char *mergefile);
+   /*
+      initializes the two-theta and merging data from the file
+      mergefile. This must have been cllaed before anything else.
+   */
+  
+    void killFM(void);
+    /*
+     frees all merging data structures.
+    */     
+
+   int getFMdim(int which);
+   /*
+      returns the dimension in two theta for the detector banks of
+      the length of the time binning if TIMEBIN has been specified.
+   */
+    
+
+#endif
+
diff --git a/fowrite.c b/fowrite.c
index 2b2f241b..5a2a79de 100644
--- a/fowrite.c
+++ b/fowrite.c
@@ -6,6 +6,10 @@
    copyright: see copyright.h
    
    Mark Koennecke, November 1998
+   
+   Added code for three detector banks.
+
+   Mark Koennecke, March 2000
 -----------------------------------------------------------------------------*/
 #include <stdlib.h>
 #include <assert.h>
@@ -24,6 +28,7 @@
 #include "scan.h"
 #include "sicsvar.h"
 #include "fitcenter.h"
+#include "fomerge.h"
 
 /* the name of the SICS chopper controller object */
 #define CHOPPERNAME "choco" 
@@ -41,6 +46,8 @@
                    char *pDictFile;
                    pFit pFitter;
                    float fElastic;
+                   int iUpper, iMiddle, iLower; 
+                   /* detector availability flags */
                   } FoWrite, *pFoWrite;
 /* ------------------- forward declaration of task function --------------*/
   static int FoTask(void *pData);                  
@@ -170,7 +177,7 @@
      float fVal, *fArray;
      const float *fTime;
      float *fTime2 = NULL;
-     
+     char pBuffer[50];     
      
      /* get a filename */
      if(self->pFile)
@@ -179,7 +186,8 @@
      self->pFile = SNXMakeFileName(pServ->pSics,pCon);
      if(!self->pFile)
      {
-       SCWrite(pCon,"ERROR: Extra severe: failed to create data file name",eError);
+       SCWrite(pCon,"ERROR: Extra severe: failed to create data file name",
+               eError);
        return 0;
      }
      
@@ -256,7 +264,6 @@
 
      
      /* detector banks */
-     /* currently the one and only bank */
      fTime = GetHistTimeBin(self->pHist,&iLength);
      fTime2 = (float *)malloc(iLength*sizeof(float));
      if(fTime2)
@@ -267,7 +274,29 @@
        }
        sprintf(pBueffel,"%d",iLength);
        NXDupdate(pDict,"timebin",pBueffel);
-       NXDputalias(pFile,pDict,"dtime",fTime2);
+       if(self->iMiddle)
+       {
+           NXDupdate(pDict,"bank","bank1");
+           NXDputalias(pFile,pDict,"dtime",fTime2);
+       }
+       if(self->iUpper)
+       {
+           NXDupdate(pDict,"bank","upperbank");
+           NXDputalias(pFile,pDict,"dtime",fTime2);
+       }
+       if(self->iLower)
+       {
+           NXDupdate(pDict,"bank","lowerbank");
+           NXDputalias(pFile,pDict,"dtime",fTime2);
+       }
+       if( (self->iLower || self->iUpper) && self->iMiddle)
+       {
+           NXDupdate(pDict,"bank","merged");
+           NXDputalias(pFile,pDict,"dtime",fTime2);
+       }
+       NXDupdate(pDict,"bank","bank1");
+
+
        /* calculate theoretical position of elastic peak */
        fVal = CalculateElastic(self,pCon);
        self->fElastic = (fVal - fTime2[0]) / (fTime2[1] - fTime2[0]);
@@ -282,21 +311,45 @@
 
      SNXSPutVariable(pServ->pSics,pCon,pFile,pDict,"ddist","detectordist"); 
 
-     /* theta array */
-     fArray = (float *)malloc(150*sizeof(float));
-     if(fArray)
+     /* theta arrays */
+     if(self->iMiddle)
      {
-          for(i = 0; i < 75; i++)
-          {
-            fArray[i] = 0.80219*i + 9.2503;
-          }
-          for(i = 75; i< 150; i++)
-          {
-            fArray[i] = 0.80219*i + 11.9343;
-          }
-          NXDputalias(pFile,pDict,"dtheta",fArray);
-          free(fArray);
+       NXDupdate(pDict,"bank","bank1");
+       iLength = getFMdim(MIDDLE);
+       sprintf(pBuffer,"%d",iLength);
+       NXDupdate(pDict,"noofdetectors",pBuffer);              
+       fArray = getFMBankTheta(MIDDLE);
+       NXDputalias(pFile,pDict,"dtheta",fArray);
      }
+     if(self->iLower)
+     {
+       NXDupdate(pDict,"bank","lowerbank");
+       iLength = getFMdim(LOWER);
+       sprintf(pBuffer,"%d",iLength);
+       NXDupdate(pDict,"noofdetectors",pBuffer);              
+       fArray = getFMBankTheta(LOWER);
+       NXDputalias(pFile,pDict,"dtheta",fArray);
+     }
+     if(self->iUpper)
+     {
+       NXDupdate(pDict,"bank","upperbank");
+       iLength = getFMdim(UPPER);
+       sprintf(pBuffer,"%d",iLength);
+       NXDupdate(pDict,"noofdetectors",pBuffer);              
+       fArray = getFMBankTheta(UPPER);
+       NXDputalias(pFile,pDict,"dtheta",fArray);
+     }
+     if(self->iMiddle && ( self->iLower || self->iUpper) )
+     {
+       NXDupdate(pDict,"bank","merged");
+       iLength = getFMdim(MERGED);
+       sprintf(pBuffer,"%d",iLength);
+       NXDupdate(pDict,"noofdetectors",pBuffer);              
+       fArray = getFMBankTheta(MERGED);
+       NXDputalias(pFile,pDict,"dtheta",fArray);
+     }
+
+     NXDupdate(pDict,"bank","bank1");
      SNXSPutVariable(pServ->pSics,pCon,pFile,pDict,"ddelay","delay"); 
      
      
@@ -369,89 +422,188 @@
      lVal = GetHistMonitor(self->pHist,2,pCon);
      NXDputalias(pFile,pDict,"cnmon2",&lVal);
 
-     /* histogram */
+
+     /* histogram with three detector banks */
      fTime = GetHistTimeBin(self->pHist,&iInt);
      iTime = iInt;
      sprintf(pBueffel,"%d",iInt);
      NXDupdate(pDict,"timebin",pBueffel);
-     iInt = GetHistLength(self->pHist);
-     lData = (HistInt *)malloc(iInt*sizeof(HistInt));
-     if(!lData)
+     lData = GetHistogramPointer(self->pHist,pCon);
+     setFMDataPointer(lData,iTime);     
+     if(self->iUpper)
      {
-        SCWrite(pCon,"ERROR: out of memory, failed to write histogram",eError);
-        return;
+       NXDupdate(pDict,"bank","upperbank");
+       iDet = getFMdim(UPPER);
+       sprintf(pBueffel,"%d",iDet);
+       NXDupdate(pDict,"noofdetectors",pBueffel);
+       lData = getFMBankPointer(UPPER);
+       NXDputalias(pFile,pDict,"dcounts",lData);
+       /* summed counts for each detector */
+       iSum = (int *)malloc(iDet*sizeof(int));
+       if(iSum)
+       {
+           memset(iSum,0,iDet*sizeof(int));
+           for(i = 0; i < iDet; i++)
+	   {
+              iIndex = i * iTime;
+              for(j = 0; j < iTime; j++)
+	      {
+                 iSum[i] += lData[iIndex+j];
+              } 
+            }
+            NXDputalias(pFile,pDict,"dsums",iSum);
+            free(iSum);
+         }
+         else
+         {
+             SCWrite(pCon,"WARNING: out of memory, failed to do sums",
+                     eWarning);
+          }
      }
-     memset(lData,0,iInt*sizeof(HistInt));
-     GetHistogram(self->pHist,pCon, 0,0,iInt,lData,iInt*sizeof(HistInt));
-     NXDputalias(pFile,pDict,"dcounts",lData);
-     
-     /* summed counts for each detector */
-     iSum = (int *)malloc(iTime*sizeof(int));
-     iDet = iInt/iTime; /* number of detectors */
-     if(iSum)
+     /* middle bank */
+     if(self->iMiddle)
      {
-        memset(iSum,0,iTime*sizeof(int));
-        for(i = 0; i < iDet; i++)
-	{
-          iIndex = i * iTime;
-          for(j = 0; j < iTime; j++)
-	  {
-             iSum[i] += lData[iIndex+j];
-          } 
-        }
-        NXDputalias(pFile,pDict,"dsums",iSum);
-        free(iSum);
+       NXDupdate(pDict,"bank","bank1");
+       iDet = getFMdim(MIDDLE);
+       sprintf(pBueffel,"%d",iDet);
+       NXDupdate(pDict,"noofdetectors",pBueffel);
+       lData = getFMBankPointer(MIDDLE);
+       NXDputalias(pFile,pDict,"dcounts",lData);
+       /* summed counts for each detector */
+       iSum = (int *)malloc(iDet*sizeof(int));
+       if(iSum)
+       {
+           memset(iSum,0,iDet*sizeof(int));
+           for(i = 0; i < iDet; i++)
+	   {
+              iIndex = i * iTime;
+              for(j = 0; j < iTime; j++)
+	      {
+                 iSum[i] += lData[iIndex+j];
+              } 
+            }
+            NXDputalias(pFile,pDict,"dsums",iSum);
+            free(iSum);
+         }
+         else
+         {
+             SCWrite(pCon,"WARNING: out of memory, failed to do sums",
+                     eWarning);
+          }
      }
-     else
+     if(self->iLower)
      {
-       SCWrite(pCon,"WARNING: out of memory, failed to do sums",eWarning);
+       NXDupdate(pDict,"bank","lowerbank");
+       iDet = getFMdim(LOWER);
+       sprintf(pBueffel,"%d",iDet);
+       NXDupdate(pDict,"noofdetectors",pBueffel);
+       lData = getFMBankPointer(LOWER);
+       NXDputalias(pFile,pDict,"dcounts",lData);
+       /* summed counts for each detector */
+       iSum = (int *)malloc(iDet*sizeof(int));
+       if(iSum)
+       {
+           memset(iSum,0,iDet*sizeof(int));
+           for(i = 0; i < iDet; i++)
+	   {
+              iIndex = i * iTime;
+              for(j = 0; j < iTime; j++)
+	      {
+                 iSum[i] += lData[iIndex+j];
+              } 
+            }
+            NXDputalias(pFile,pDict,"dsums",iSum);
+            free(iSum);
+         }
+         else
+         {
+             SCWrite(pCon,"WARNING: out of memory, failed to do sums",
+                     eWarning);
+          }
+     }
+     /* merged data */
+     if( (self->iUpper || self->iLower) && self->iMiddle)
+     {
+       NXDupdate(pDict,"bank","merged");
+       iDet = getFMdim(MERGED);
+       sprintf(pBueffel,"%d",iDet);
+       NXDupdate(pDict,"noofdetectors",pBueffel);
+       lData = getFMBankPointer(MERGED);
+       NXDputalias(pFile,pDict,"dcounts",lData);
+       /* summed counts for each detector */
+       iSum = (int *)malloc(iDet*sizeof(int));
+       if(iSum)
+       {
+           memset(iSum,0,iDet*sizeof(int));
+           for(i = 0; i < iDet; i++)
+	   {
+              iIndex = i * iTime;
+              for(j = 0; j < iTime; j++)
+	      {
+                 iSum[i] += lData[iIndex+j];
+              } 
+            }
+            NXDputalias(pFile,pDict,"dsums",iSum);
+            free(iSum);
+         }
+         else
+         {
+             SCWrite(pCon,"WARNING: out of memory, failed to do sums",
+                     eWarning);
+          }
      }
 
+     
      /* calculate elastic peak position */
-     lSum = (long *)malloc(iTime *sizeof(long));
-     fAxis = (float *)malloc(iTime *sizeof(float));
-     if( lSum && fAxis)
+     NXDupdate(pDict,"bank","bank1");
+     lData = getFMBankPointer(MIDDLE);
+     if(lData)
      {
-        memset(lSum,0,iTime*sizeof(long));
-        memset(fAxis,0,iTime*sizeof(float));
-        for(i = 5; i < iDet - 5; i++)
-	{
-          iIndex = i * iTime;
-          for(j = 0; j < iTime; j++)
+        lSum = (long *)malloc(iTime *sizeof(long));
+        fAxis = (float *)malloc(iTime *sizeof(float));
+        if( lSum && fAxis)
+        {
+           memset(lSum,0,iTime*sizeof(long));
+           memset(fAxis,0,iTime*sizeof(float));
+           for(i = 5; i < iDet - 5; i++)
+	   {
+             iIndex = i * iTime;
+             for(j = 0; j < iTime; j++)
+	     {
+                lSum[j] += lData[iIndex+j];
+             } 
+          }
+          for(i = 0; i < iTime; i++)
 	  {
-             lSum[j] += lData[iIndex+j];
-          } 
-        }
-        for(i = 0; i < iTime; i++)
-	{
-           fAxis[i] = (float)i;
-        }
-        iStat = CalculateFitFromData(self->pFitter,fAxis,lSum,iTime);
-        if(iStat != 1)
-	{
-            SCWrite(pCon,"WARNING: problem locating elastic peak",eWarning);
-        }
-        GetFitResults(self->pFitter,&fCenter,&fStdDev,&fFWHM,&fVal);
-        fVal = fCenter - self->fElastic;
-        if(fVal < 0.)
-           fVal = - fVal;
-        /* bad value, leave at theoretical value */
-        if(fVal > 10.)
-	{
-          SCWrite(pCon,
+              fAxis[i] = (float)i;
+          }
+          iStat = CalculateFitFromData(self->pFitter,fAxis,lSum,iTime);
+          if(iStat != 1)
+	  {
+              SCWrite(pCon,"WARNING: problem locating elastic peak",eWarning);
+          }
+          GetFitResults(self->pFitter,&fCenter,&fStdDev,&fFWHM,&fVal);
+          fVal = fCenter - self->fElastic;
+          if(fVal < 0.)
+              fVal = - fVal;
+           /* bad value, leave at theoretical value */
+           if(fVal > 10.)
+	   {
+               SCWrite(pCon,
            "WARNING: bad fit result, using theoretical elastic peak position",
-            eWarning);
-        }
-        else
-	{
-          self->fElastic = fCenter;
-        }
-        free(lSum);
-        free(fAxis);
-     }          
-     else
-     {
-       SCWrite(pCon,"WARNING: out of memory, failed to do sums",eWarning);
+                eWarning);
+            }
+            else
+	    {
+              self->fElastic = fCenter;
+            }
+            free(lSum);
+            free(fAxis);
+         }          
+         else
+         {
+           SCWrite(pCon,"WARNING: out of memory, failed to do sums",eWarning);
+         }
      }
      sprintf(pBueffel,"Elastic peak found at detector: %f",self->fElastic);
      SCWrite(pCon,pBueffel,eWarning);
@@ -479,7 +631,7 @@
      int iStat;
      char pBueffel[512];
      
-       /* open everything agaian */
+       /* open everything again */
      NXopen(self->pFile,NXACC_RDWR,&pFile);
      if(!pFile)
      {
@@ -498,12 +650,41 @@
         NXclose(&pFile);
         return;
       }
-    
-      NXDaliaslink(pFile,pDict,"dana","dcounts");
-      NXDaliaslink(pFile,pDict,"dana","dtime");
-      NXDaliaslink(pFile,pDict,"dana","dtheta"); 
-      NXDaliaslink(pFile,pDict,"dana","cnmon1"); 
-     
+
+      if(self->iUpper)
+      {  
+         NXDupdate(pDict,"bank","upperbank");  
+         NXDaliaslink(pFile,pDict,"dana","dcounts");
+         NXDaliaslink(pFile,pDict,"dana","dtime");
+         NXDaliaslink(pFile,pDict,"dana","dtheta"); 
+         NXDaliaslink(pFile,pDict,"dana","cnmon1"); 
+      }     
+      if(self->iMiddle)
+      {  
+         NXDupdate(pDict,"bank","bank1");  
+         NXDaliaslink(pFile,pDict,"dana","dcounts");
+         NXDaliaslink(pFile,pDict,"dana","dtime");
+         NXDaliaslink(pFile,pDict,"dana","dtheta"); 
+         NXDaliaslink(pFile,pDict,"dana","cnmon1"); 
+      }     
+      if(self->iLower)
+      {  
+         NXDupdate(pDict,"bank","lowerbank");  
+         NXDaliaslink(pFile,pDict,"dana","dcounts");
+         NXDaliaslink(pFile,pDict,"dana","dtime");
+         NXDaliaslink(pFile,pDict,"dana","dtheta"); 
+         NXDaliaslink(pFile,pDict,"dana","cnmon1"); 
+      }     
+      if( (self->iUpper || self->iLower) && self->iMiddle)
+      {  
+         NXDupdate(pDict,"bank","merged");  
+         NXDaliaslink(pFile,pDict,"dana","dcounts");
+         NXDaliaslink(pFile,pDict,"dana","dtime");
+         NXDaliaslink(pFile,pDict,"dana","dtheta"); 
+         NXDaliaslink(pFile,pDict,"dana","cnmon1"); 
+      }     
+
+
       /* close everything */
      NXclose(&pFile);
      NXDclose(pDict,NULL);
@@ -574,11 +755,14 @@
 
      if(self->pFitter)
        DeleteFitCenter(self->pFitter);
+
+     /* free fomerge */
+      killFM();
         
      free(self);     
   } 
 /*-----------------------------------------------------------------------*/
-  int   FoInstall(SConnection *pCon, SicsInterp *pSics, void *pData,
+  int FoInstall(SConnection *pCon, SicsInterp *pSics, void *pData,
                   int argc, char *argv[])
   {
   
@@ -589,7 +773,7 @@
       pDummy pDum;
       
       /* check arguments */
-      if(argc < 3 )
+      if(argc < 4 )
       {
          SCWrite(pCon,"ERROR: Insufficient number of arguments to FoInstall",
                  eError);
@@ -603,6 +787,12 @@
          return 0;
       }
       
+      if(!initializeFM(argv[3]))
+      {
+         SCWrite(pCon,"ERROR: bad merge data file",eError);
+         return 0;
+      }
+
       /* allocate data structure */
       pNew = (pFoWrite)malloc(sizeof(FoWrite));
       if(!pNew)
@@ -621,13 +811,16 @@
       pNew->pHist = pHist;
       pNew->pDictFile = strdup(argv[2]);
       pNew->iInterval = 20*60;
+      pNew->iMiddle =1;
  
       /* install callbacks */
       pDum = (pDummy)pHist;
-      pCall = (pICallBack)pDum->pDescriptor->GetInterface(pHist,CALLBACKINTERFACE);
+      pCall = (pICallBack)pDum->pDescriptor->GetInterface(pHist,
+                                                  CALLBACKINTERFACE);
       if(!pCall)
       {
-         SCWrite(pCon,"ERROR: no callback interface found at your histogram memory",
+         SCWrite(pCon,
+            "ERROR: no callback interface found at your histogram memory",
                  eError);
          KillFoWrite(pNew);
          return 0;        
@@ -710,6 +903,93 @@
           return 1;
        }
     }
+    else if(strcmp(argv[1],"middle") == 0)
+    {
+       if(argc > 2) /* set value */
+       {
+          if(!SCMatchRights(pCon,usMugger))  
+          {
+            return 0;
+          }   
+          iRet = Tcl_GetInt(pSics->pTcl,argv[2],&iVal);
+          if(iRet != TCL_OK)
+          {
+             sprintf(pBueffel,"ERROR: cannot convert --> %s <-- to number ",
+                     argv[2]);
+             SCWrite(pCon,pBueffel,eError);
+             return 0;
+          }
+          if(iVal < 0) iVal = 0;
+          self->iMiddle = iVal;
+          setFMconfiguration(self->iUpper,self->iMiddle,self->iLower);
+          SCSendOK(pCon);
+          return 1;
+       }
+       else /* read the value */ 
+       {
+          sprintf(pBueffel,"storefocus.middle = %d",self->iMiddle);
+          SCWrite(pCon,pBueffel,eValue);
+          return 1;
+       }
+    }
+    else if(strcmp(argv[1],"lower") == 0)
+    {
+       if(argc > 2) /* set value */
+       {
+          if(!SCMatchRights(pCon,usMugger))  
+          {
+            return 0;
+          }   
+          iRet = Tcl_GetInt(pSics->pTcl,argv[2],&iVal);
+          if(iRet != TCL_OK)
+          {
+             sprintf(pBueffel,"ERROR: cannot convert --> %s <-- to number ",
+                     argv[2]);
+             SCWrite(pCon,pBueffel,eError);
+             return 0;
+          }
+          if(iVal < 0) iVal = 0;
+          self->iLower = iVal;
+          setFMconfiguration(self->iUpper,self->iMiddle,self->iLower);
+          SCSendOK(pCon);
+          return 1;
+       }
+       else /* read the value */ 
+       {
+          sprintf(pBueffel,"storefocus.lower = %d",self->iLower);
+          SCWrite(pCon,pBueffel,eValue);
+          return 1;
+       }
+    }
+    else if(strcmp(argv[1],"upper") == 0)
+    {
+       if(argc > 2) /* set value */
+       {
+          if(!SCMatchRights(pCon,usMugger))  
+          {
+            return 0;
+          }   
+          iRet = Tcl_GetInt(pSics->pTcl,argv[2],&iVal);
+          if(iRet != TCL_OK)
+          {
+             sprintf(pBueffel,"ERROR: cannot convert --> %s <-- to number ",
+                     argv[2]);
+             SCWrite(pCon,pBueffel,eError);
+             return 0;
+          }
+          if(iVal < 0) iVal = 0;
+          self->iUpper = iVal;
+          setFMconfiguration(self->iUpper,self->iMiddle,self->iLower);
+          SCSendOK(pCon);
+          return 1;
+       }
+       else /* read the value */ 
+       {
+          sprintf(pBueffel,"storefocus.upper = %d",self->iUpper);
+          SCWrite(pCon,pBueffel,eValue);
+          return 1;
+       }
+    }
     SCWrite(pCon,"ERROR: subcommand to storefocus not recognized",eError);
     return 0;
  }              
diff --git a/histsim.c b/histsim.c
index b8ba7eb0..50602bc8 100644
--- a/histsim.c
+++ b/histsim.c
@@ -52,8 +52,8 @@
 #include "histsim.h"
 
 
-/*
 #define TESTVAL 128
+/*
 
     define TESTVAL to set the simulated histogram to a fixed value for
    testing
diff --git a/lin2ang.c b/lin2ang.c
index 240b9f4b..bff556b5 100644
--- a/lin2ang.c
+++ b/lin2ang.c
@@ -49,12 +49,26 @@
     
     self = (pLin2Ang)pData;
     assert(self);
+
     if(iID == DRIVEID)
     {
       return self->pDriv;
     } 
     return NULL;
   }
+/*----------------------------------------------------------------------*/
+  static int Lin2AngSave(void *pData, char *name, FILE *fd)
+  {
+    pLin2Ang self = NULL;
+    
+    self = (pLin2Ang)pData;
+    if(!self)
+       return;
+
+    fprintf(fd,"%s.length %f\n",name, self->length);
+    return 1;
+         
+  }
 /*-----------------------------------------------------------------------*/
   static int L2AHalt(void *pData)
   {
@@ -181,6 +195,7 @@
 
      /* initialize the data structure */
      pNew->pDes->GetInterface = Lin2AngGetInterface;
+     pNew->pDes->SaveStatus   = Lin2AngSave;
      pNew->pDriv->Halt = L2AHalt;
      pNew->pDriv->CheckLimits = L2ALimits;
      pNew->pDriv->SetValue = L2ASetValue;
diff --git a/sicsstatus.tcl b/sicsstatus.tcl
index de186ddd..9817bf51 100644
--- a/sicsstatus.tcl
+++ b/sicsstatus.tcl
@@ -1,3 +1,10 @@
+a5l.length 80.000000
+flightpathlength 0.000000
+flightpathlength setAccess 1
+flightpath 0.000000
+flightpath setAccess 1
+delay 2500.000000
+delay setAccess 1
 hm CountMode timer
 hm preset 100.000000
 hm genbin 120.000000 35.000000 512
@@ -122,7 +129,7 @@ phone setAccess 2
 adress UNKNOWN
 adress setAccess 2
 # Counter counter
-counter SetPreset 2.000000
+counter SetPreset 1.000000
 counter SetMode Timer
 # Motor som
 som SoftZero 0.000000
diff --git a/test.tcl b/test.tcl
index 5972d377..8a4cbf11 100644
--- a/test.tcl
+++ b/test.tcl
@@ -313,8 +313,8 @@ MakeHM  hm SIM
 hm configure HistMode TOF
 hm configure OverFlowMode    Ceil
 hm configure Rank     1
-hm configure dim0 150
-hm configure Length   150
+hm configure dim0 383
+hm configure Length   383
 hm configure BinWidth 4
 hm preset 100.
 hm CountMode Timer
@@ -322,8 +322,16 @@ hm configure Counter counter
 hm configure init 0
 hm genbin 120. 35. 512
 hm init
+
+VarMake delay Float Mugger
+delay 158.8
+VarMake flightpath Float Mugger
+delay 2000
+VarMake flightpathlength Float Mugger
+delay 2500
+
 MakeFocusAverager average hm
-FocusInstall hm focus.dic
+FocusInstall hm focus.dic $shome/sics/focusmerge.dat 
 
 #MakeChopper choco docho lnsp20 4000 8
 MakeChopper choco sim