00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
#if defined(__GNUC__)
00029
#pragma interface
00030
#endif
00031
00032
#ifndef _chemistry_qc_cints_tform_h
00033
#define _chemistry_qc_cints_tform_h
00034
00035
#include <chemistry/qc/basis/gaussshell.h>
00036
#include <chemistry/qc/basis/transform.h>
00037
#include <chemistry/qc/cints/macros.h>
00038
00039
namespace sc {
00040
00041
class Integral;
00042
00043
class SphericalTransformComponentCints :
public SphericalTransformComponent {
00044
public:
00045
void init(
int a,
int b,
int c,
double coef,
int pureindex) {
00046 a_ = a;
00047 b_ = b;
00048 c_ = c;
00049
00050
00051 coef_ = coef;
00052
00053 pureindex_ = pureindex;
00054 cartindex_ = INT_CARTINDEX(a+b+c,a,b);
00055 }
00056 };
00057
00058
class SphericalTransformCints :
public SphericalTransform {
00059
public:
00060 SphericalTransformCints(
int l,
int subl=-1):SphericalTransform(l,subl) {
00061
init();
00062 }
00063
00064 SphericalTransformComponent * new_components() {
00065
return new SphericalTransformComponentCints[n_+1];
00066 }
00067 };
00068
00069
class ISphericalTransformCints :
public ISphericalTransform {
00070
public:
00071 ISphericalTransformCints(
int l,
int subl=-1):ISphericalTransform(l,subl) {
00072
init();
00073 }
00074
00075 SphericalTransformComponent * new_components() {
00076
return new SphericalTransformComponentCints[n_+1];
00077 }
00078 };
00079
00080 }
00081
00082
#endif
00083
00084
00085
00086
00087