src/Level1/SpinT.cc
// Input		SphT : Sperical Tensor
// Return		     : none, deletes current Tensor
Input          SphT : Sperical Tensor
Return              : none, deletes current Tensor
Input SphT : Sperical Tensor Return : none deletes current Tensor
spin_T::~spin_T()
  {
  int span = 0;
  if (pr)				
    {
    for (int l=0; l<=rank; l++)
      if (pr[l])			
        {
        span = 2*l+1;
        for (int m=0; m<span; m++)
          if (pr[l][m])			
            delete pr[l][m];
        delete [ ] pr[l];	
        }
    delete [] pr;	
    pr = NULL;
    }
  }
spin_T :: ~ spin_T ( ) { int span = 0 ; if ( pr ) { for ( int l = 0 ; l <= rank ; l ++ ) if ( pr [ l ] ) { span = 2 * l + 1 ; for ( int m = 0 ; m < span ; m ++ ) if ( pr [ l ] [ m ] ) delete pr [ l ] [ m ] ; delete [ ] pr [ l ] ; } delete [ ] pr ; pr = NULL ; } }
Input          SphT : Sperical Tensor
Return              : none, deletes current Tensor
Input SphT : Sperical Tensor Return : none deletes current Tensor
// delete if Tensor not NULL // delete entire rank l if non NULL // delete all rank l non-NULL SOps