I NEED TO CODE???

                    /* Put all coefficients to zero */
                    for (A = 0; A < 4; A++)
                    {
                        for (B = 0; B < 4; B++)
                        {
                            for (qq = 0; qq < 7; qq++)
                            {
                                for (ii = 0; ii < 3; ii++)
                                {
                                    for (ji = 0; ji < 3; ji++)
                                    {
                                        for (ki = 0; ki < 3; ki++)
                                        {
                                            coefg[A][B][ii][ji][ki][qq] = 0.0;
                                        }
                                    }
                                }
                            }
                        }
                    }

//This thread is now about why your coding conventions suck.
//I can abuse you and still use less space than your code.
//Abuse of /* is a particularly grievous sin; it's ridiculous
// that so many people still misuse it, resulting in it being
// impossible to comment out a block of code because of comments.
//Put all coefficients to zero
for (A = 0; A < 4; A++)
   for (B = 0; B < 4; B++)
       for (qq = 0; qq < 7; qq++)
           for (ii = 0; ii < 3; ii++)
               for (ji = 0; ji < 3; ji++)
                   for (ki = 0; ki < 3; ki++)
                      coefg[A][B][ii][ji][ki][qq] = 0.0;