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

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

08.12.2012 Aufrufe

146 A Quelltexte der C++-Programme } for (p = 0; p < M; p++) { if ( (p%2) == 0) { koefpStart = 0; koefpEnde = 3; gpStart = 2 * p; } else { koefpStart = 3; koefpEnde = 4; gpStart = 2 * p - 2; } term2 = 0; for (a = koefmStart; a < koefmEnde; a++) for (b = koefnStart; b < koefnEnde; b++) for (c = koefoStart; c < koefoEnde; c++) for (d = koefpStart; d < koefpEnde; d++) { if (gmStart+a>=MM) cerr =MM) cerr =MM) cerr =MM) cerr

A Quelltexte der C++-Programm 147 } //for k } //if i!=j } //for j } //for i } //void CalcSCInt(...) /*------------------------------------------------------*/ void Save_SCInt(double SCInt[N][N][N][N]) { ofstream fout; int size; char fileName[50]; size = N * N * N * N * SIZEOFDOUBLE; //SCInt wird als Zeiger uebergeben => Groesse der Matrix //= Anzahl der Elemente*sizeof(double) strcpy(fileName, VERZEICHNIS); strcat(fileName, SCINTFILEBIN); fout.open(fileName); if (!fout) cerr

146<br />

A Quelltexte <strong>de</strong>r C++-Programme<br />

}<br />

for (p = 0; p < M; p++) {<br />

if ( (p%2) == 0) {<br />

koefpStart = 0;<br />

koefpEn<strong>de</strong> = 3;<br />

gpStart = 2 * p;<br />

}<br />

else {<br />

koefpStart = 3;<br />

koefpEn<strong>de</strong> = 4;<br />

gpStart = 2 * p - 2;<br />

}<br />

term2 = 0;<br />

for (a = koefmStart;<br />

a < koefmEn<strong>de</strong>; a++)<br />

for (b = koefnStart;<br />

b < koefnEn<strong>de</strong>; b++)<br />

for (c = koefoStart;<br />

c < koefoEn<strong>de</strong>; c++)<br />

for (d = koefpStart;<br />

d < koefpEn<strong>de</strong>; d++) {<br />

if (gmStart+a>=MM)<br />

cerr =MM)<br />

cerr =MM)<br />

cerr =MM)<br />

cerr

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!