/* 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; } } } } } }
/* ****************************** ******HELLO WORLD EXAMPLE***** ****************************** */