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

A Quelltexte der C++-Programm 155
ifstream fin;
unsigned long int size;
char fileName[50];
strcpy(fileName, VERZEICHNIS);
strcat(fileName, SCKOEFFILEBIN);
size = FSN * SIZEOFDOUBLE;
fin.open(fileName); //auf Sun,SP2: binary=default,
//auf Sp2 Angabe verboten
if (!fin)
DateiZugriffFehler(fileName, "lesen");
fin.read((char*)SCKoef, size);
fin.close();
} //SC_Koef_Lesen()
/*------------------------------------------------------*/
void MDaten::Calc()
{
USHORT i, j, k, l;
double *pToC = NULL;
double *pToSCInt = NULL;
double term1 = 0.0, term2;
pToC = &itsC[itsS2][itsNtype][0][0][0][0];
pToSCInt = &SCInt[0][0][0][0];
for (i = 0; i < N; i++)
for (j = 0; j < N; j++)
{
if (j != i) //Koeffizienten verschwinden sonst
{
for (k = 0; k < N; k++)
{
//for (l=0;l