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