Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de
Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de
Nullfeldaufspaltung von Benzol und Naphthalin im ... - ScienceUp.de
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
A Quelltexte <strong>de</strong>r C++-Programm 129<br />
Programm 1: integral.C<br />
/*integral.C*/<br />
/*27.7.1999*/<br />
/*Programm zur Berechnung <strong>und</strong> Speicherung aller noetigen<br />
"D-Integrale", Int_ijkl ueber PGTOs, die zur Berechnung <strong>von</strong><br />
D benoetigt wer<strong>de</strong>n, in einer [MM]*[MM]*[MM]*[MM]-Matrix.<br />
Ergebnis in [cm^-1]*/<br />
/*********************************************************/<br />
#inclu<strong>de</strong> "type.hpp" //einige type<strong>de</strong>f<br />
#inclu<strong>de</strong> "konstanten.hpp"<br />
//PI,H,C,A0,G,BETA,E0,FAKTOR,MAX ...<br />
#inclu<strong>de</strong> "new.hpp" //eigener NewHandler (new.h,stdlib.h,<br />
//iostream.h)<br />
#inclu<strong>de</strong> "fehler.hpp" //Fehlerbehandlung<br />
#inclu<strong>de</strong> "fstream.h"<br />
#inclu<strong>de</strong> "math.h"<br />
#inclu<strong>de</strong> "stdio.h"<br />
#inclu<strong>de</strong> "float.h" //fuer FLT_,DBL_,LDBL_EPSILON<br />
#inclu<strong>de</strong> "string.h"<br />
#inclu<strong>de</strong> <br />
//Aufruf auf sp2 mit<br />
//xlC -I/client/inclu<strong>de</strong> integral.C -DUSE_MOLEKUEL=1<br />
//-L/client/lib -lnag<br />
#if USE_BENZOL == 1 //Uebergabe be<strong>im</strong> Aufruf<br />
#inclu<strong>de</strong> "benzol.hpp" //<strong>Benzol</strong>-Konstanten <strong>und</strong> Dateinamen<br />
#inclu<strong>de</strong> "benzkoord.hpp" //Class GtoParameter: Koordinaten<br />
// <strong>de</strong>r C-Atome, Basisfunktionen<br />
#elif USE_NAPHTHALIN == 1<br />
#inclu<strong>de</strong> "naphthalin.hpp"<br />
#inclu<strong>de</strong> "naphkoord.hpp"<br />
#endif<br />
/*molkoord.hpp enthalten<br />
-class GtoParameter zum Festlegen <strong>de</strong>r Koordinaten <strong>und</strong> <strong>de</strong>s<br />
Koeffizientens eines Gto[i] entsprechend <strong>de</strong>m Molekuel<br />
-Molekuelspezifische Konstanten <strong>und</strong> Definitionen<br />
*/