/* GRI Laue-lens optimization. Niels Lund March-April 2006 - 2016. */

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>
#include "mucal.h"
#include "panel.h"
#include <time.h>

/* **************************************************************************************** */

int split6(int option2_num, int Xrest[])
{
   int opt2_part, opt2_rest;
   if (option2_num > 18) {
      opt2_part = option2_num / 6;
      Xrest[5] = Xrest[4] = Xrest[3] = Xrest[2] = Xrest[1] = Xrest[0] = opt2_part;
      opt2_rest = option2_num - 6 * opt2_part;
   } else {
      if (option2_num > 15) {
         opt2_part = option2_num / 5;
         Xrest[4] = Xrest[3] = Xrest[2] = Xrest[1] = Xrest[0] = opt2_part;
         opt2_rest = option2_num - 5 * opt2_part;
      } else {
         if (option2_num > 12) {
            opt2_part = option2_num / 4;
            Xrest[3] = Xrest[2] = Xrest[1] = Xrest[0] = opt2_part;
            opt2_rest = option2_num - 4 * opt2_part;
         } else {
            if (option2_num >  9) {
               opt2_part = option2_num / 3;
               Xrest[2] = Xrest[1] = Xrest[0] = opt2_part;
               opt2_rest = option2_num - 3 * opt2_part;
            } else {
               if (option2_num >  6) {
                  opt2_part = option2_num / 2;
                  Xrest[1] = Xrest[0] = opt2_part;
                  opt2_rest = option2_num - 2 * opt2_part;
               } else {
                  opt2_part = option2_num;
                  Xrest[0] = opt2_part;
                  opt2_rest = 0;
               }
            }
         }
      }
   }
   if ((opt2_rest--) > 0) Xrest[0]++;
   if ((opt2_rest--) > 0) Xrest[1]++;
   if ((opt2_rest--) > 0) Xrest[2]++;
   if ((opt2_rest--) > 0) Xrest[3]++;
   if ((opt2_rest--) > 0) Xrest[4]++;
   return(0);
}