Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de

A Quelltexte der C++-Programm 145
double term1, term2;
USHORT fehlerTest = true, abfrage = false;
Fehler FehlerBehandlung(fehlerTest, abfrage);
for (i = 0; i < N; i++) {
for (j = 0; j < N; j++) {
if (i != j) {
for (k = 0; k < N; k++) {
for (l = 0; l < N; l++) {
if (k != l) {
term1 = 0;
for (m = 0; m < M; m++) {
if ( (m%2) == 0) {
koefmStart = 0;
koefmEnde = 3;
gmStart = 2 * m;
}
else {
koefmStart = 3;
koefmEnde = 4;
gmStart = 2 * m - 2;
}
for (n = 0; n < M; n++) {
if ( (n%2) == 0) {
koefnStart = 0;
koefnEnde = 3;
gnStart = 2 * n;
}
else {
koefnStart = 3;
koefnEnde = 4;
gnStart = 2 * n - 2;
}
for (o = 0; o < M; o++) {
if ( (o%2) == 0) {
koefoStart = 0;
koefoEnde = 3;
goStart = 2 * o;
}
else {
koefoStart = 3;
koefoEnde = 4;
goStart = 2 * o - 2;