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

A Quelltexte der C++-Programm 143
#include "global.hpp"
#include "konstanten.hpp"
#include "fehler.hpp" //Fehlerbehandlung
#include "fstream.h"
#include "stdlib.h"
#include "math.h"
#include "string.h"
/*-------------------------------------------------------*/
void SC_Orb_Lesen(double SCOrb[M][N]); //SCOrb aus MRFILE
void Int_Lesen(double Int[MM][MM][MM][MM]);
//Int aus INTFILEBIN
void Calc_SCInt(double SCInt[N][N][N][N], double P[4],
double Int[MM][MM][MM][MM], double SCOrb[M][N]);
void Save_SCInt(double SCInt[N][N][N][N]);
/*-------------------------------------------------------*/
int main()
{
double SCOrb[M][N];
//Matrix der SC-Orbitale in der CGTO-Basis,
double P[4] = {0.068999, 0.316424, 0.744308, 1.0};
//Kontraktionskoeff. der CGTOs bzgl. der PGTOs
double Int[MM][MM][MM][MM];
//D-Integrale bzgl. der PGTOs, berechnet mit integral.C
double SCInt[N][N][N][N];
SC_Orb_Lesen(SCOrb); //SCOrb aus SCORBFILEBIN
Int_Lesen(Int); //Int aus INTFILEBIN
Calc_SCInt(SCInt, P, Int, SCOrb);
Save_SCInt(SCInt);
return 0;
};
/*-------------------------------------------------------*/
void SC_Orb_Lesen(double SCOrb[M][N]) //SCOrb=Koef.matrix
//der SC-Orbitale bzgl. der CGTOs, aus SCORBFILEBIN
{
ifstream fin;
unsigned long int size;