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

130
A Quelltexte der C++-Programme
/*Verwendung der Nag-Routine s15aef zur Berechnung der error-Funktion
erf(x),
=> Aufruf auf der SP2 mit
xlC integral.C -DUSE_BENZOL=1 -L/client/lib -lnag
und ohne include */
//extern "C" double s15aef(double *xp, int *ifailp);
USHORT fehlerTest=true; //Test auf Ausloeschung und bes.
// grosse Zahlen
USHORT abfrage=false; //Falls bei Fehlermeldung auf Reaktion
// gewartet werden soll
USHORT ergebnisBinaerSpeichern=true; //Matrix der Integrale
// in INTFILEBIN="molekuel.bin" binaer speichern
/**********************************************************/
double Formel1(GtoParameter *Gto, double rik2, double rjl2,
double rgd, double r0, double pr0,
double qr0, double omega,
USHORT i, USHORT j, USHORT k, USHORT l);
double Formel2(GtoParameter *Gto, double rik2, double rjl2,
USHORT i, USHORT j, USHORT k, USHORT l);
double RBetragQuadrat(GtoParameter *Gto, USHORT i,
USHORT k);
double QR0(double r0, USHORT i, USHORT j, USHORT k,
USHORT l);
double R0(GtoParameter *Gto, double rgd,
USHORT i, USHORT j, USHORT k, USHORT l);
double RGammaDelta(double *RGamma, double * RDelta,
USHORT i, USHORT j, USHORT k, USHORT l);
void R(GtoParameter *Gto, double *R, USHORT i, USHORT k);
double Omega(GtoParameter *Gto, USHORT i, USHORT j,
USHORT k, USHORT l);
USHORT ErgebnisBinaerSpeichern(double Int[MM][MM][MM][MM]);
/*-------------------------------------------------------*/
int main()
{
USHORT i,j,k,l;
GtoParameter Gto[MM];
double (*Int)[MM][MM][MM]=NULL;
double rik2, rjl2, RGamma[3], RDelta[3], rgd, r0;