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

144
char fileName[50];
A Quelltexte der C++-Programme
size = M * N * SIZEOFDOUBLE;
strcpy(fileName, VERZEICHNIS);
strcat(fileName, SCORBFILEBIN);
fin.open(fileName); //auf Sun,SP2: binary=default,
//auf Sp2 Angabe verboten
if (!fin)
DateiZugriffFehler(fileName,"lesen");
fin.read((char*)*SCOrb, size);
fin.close();
} //void SC_Orb_Lesen()
/*------------------------------------------------------*/
void Int_Lesen(double Int[MM][MM][MM][MM])
//Int aus INTFILEBIN
{
ifstream fin;
unsigned long int size;
char fileName[50];
size = MM * MM * MM * MM * SIZEOFDOUBLE;
strcpy(fileName, VERZEICHNIS);
strcat(fileName, INTFILEBIN);
fin.open(fileName); //auf Sun,SP2: binary=default,
//auf Sp2 Angabe verboten
if (!fin)
DateiZugriffFehler(fileName, "lesen");
fin.read((char*)***Int, size);
fin.close();
} //Int_Lesen()
/*-------------------------------------------------------*/
void Calc_SCInt(double SCInt[N][N][N][N], double P[4],
double Int[MM][MM][MM][MM], double SCOrb[M][N])
{
USHORT i, j, k, l, m, n, o, p, a, b, c, d;
USHORT koefmStart, koefmEnde, gmStart;
USHORT koefnStart, koefnEnde, gnStart;
USHORT koefoStart, koefoEnde, goStart;
USHORT koefpStart, koefpEnde, gpStart;