scalar_import_asymy.C

/*
 * Member function of the Scalar class for initiating a Scalar from 
 * a Scalar defined on another mapping.
 * Case where both Scalar's are antisymmetric with respect to their y=0 plane.
 */

/*
 *   Copyright (c) 2003 Eric Gourgoulhon & Jerome Novak
 *   Copyright (c) 1999-2001 Eric Gourgoulhon (Cmp version)
 *
 *   This file is part of LORENE.
 *
 *   LORENE is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   LORENE is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with LORENE; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */


char scalar_import_asymy_C[] = "$Header: /cvsroot/Lorene/C++/Source/Tensor/Scalar/scalar_import_asymy.C,v 1.3 2003/10/10 15:57:29 j_novak Exp $" ;


/*
 * $Id: scalar_import_asymy.C,v 1.3 2003/10/10 15:57:29 j_novak Exp $
 * $Log: scalar_import_asymy.C,v $
 * Revision 1.3  2003/10/10 15:57:29  j_novak
 * Added the state one (ETATUN) to the class Scalar
 *
 * Revision 1.2  2003/10/01 13:04:44  e_gourgoulhon
 * The method Tensor::get_mp() returns now a reference (and not
 * a pointer) onto a mapping.
 *
 * Revision 1.1  2003/09/25 09:07:05  j_novak
 * Added the functions for importing from another mapping (to be tested).
 *
 *
 * $Header: /cvsroot/Lorene/C++/Source/Tensor/Scalar/scalar_import_asymy.C,v 1.3 2003/10/10 15:57:29 j_novak Exp $
 *
 */



// Headers C
#include <math.h>

// Headers Lorene
#include "tensor.h"
#include "param.h"
#include "nbr_spx.h"

            //-------------------------------//
            //  Importation in all domains   //
            //-------------------------------//

void Scalar::import_asymy(const Scalar& ci) {
    
    int nz = mp->get_mg()->get_nzone() ; 
    
    import_asymy(nz, ci) ; 
        
}

            //--------------------------------------//
            //  Importation in inner domains only   //
            //--------------------------------------//

void Scalar::import_asymy(int nzet, const Scalar& cm_d) {
    
    const Map* mp_d = &(cm_d.get_mp()) ; // Departure mapping

    // Trivial case : mappings identical !
    // -----------------------------------
    
    if (mp_d == mp) {
    *this = cm_d ; 
    return ; 
    }
    
    // Relative orientation of the two mappings
    // ----------------------------------------
 
    int align_rel = (mp->get_bvect_cart()).get_align()  
            * (mp_d->get_bvect_cart()).get_align() ;
            
    switch (align_rel) {

    case 1 : {  // the two mappings have aligned Cartesian axis
        import_align_asymy(nzet, cm_d) ; 
        break ; 
    }

    case -1 : {  // the two mappings have anti-aligned Cartesian axis
        import_anti_asymy(nzet, cm_d) ; 
        break ; 
    }

    default : {  
        cout << "Scalar::import_asymy : unexpected value of align_rel : " 
         << align_rel << endl ; 
        abort() ; 
        break ; 
    }

    }
    
}    


        //-----------------------------------------//
        //   Case of Cartesian axis anti-aligned   //
        //-----------------------------------------//


void Scalar::import_anti_asymy(int nzet, const Scalar& cm_d) {
    
    // Trivial case : null Scalar
    // ------------------------
    
    if (cm_d.get_etat() == ETATZERO) {
    set_etat_zero() ; 
    return ; 
    }
    if (cm_d.get_etat() == ETATUN) {
    set_etat_one() ; 
    return ; 
    }

    const Map* mp_d = &(cm_d.get_mp()) ; // Departure mapping

    // Protections
    // -----------
    int align = (mp->get_bvect_cart()).get_align() ;

    assert( align  * (mp_d->get_bvect_cart()).get_align() == -1 ) ; 
    
    assert(cm_d.get_etat() == ETATQCQ) ;

    if (cm_d.get_dzpuis() != 0) {
    cout << 
    "Scalar::import_anti_asymy : the dzpuis of the Scalar to be imported"
      << " must be zero !" << endl ; 
    abort() ; 
    }


    const Mg3d* mg_a = mp->get_mg() ; 
    assert(mg_a->get_type_p() == NONSYM) ; 
    
    
    int nz_a = mg_a->get_nzone() ; 
    assert(nzet <= nz_a) ;     

    const Valeur& va_d = cm_d.get_spectral_va() ; 
    va_d.coef() ;       // The coefficients are required
    

    // Preparations for storing the result in *this 
    // --------------------------------------------
    del_t() ;   // delete all previously computed derived quantities
    
    set_etat_qcq() ;        // Set the state to ETATQCQ
    
    va.set_etat_c_qcq() ;   // Allocates the memory for the Mtbl va.c
                //  if it does not exist already
    va.c->set_etat_qcq() ;  // Allocates the memory for the Tbl's in each
                //  domain if they do not exist already


    // Departure (x,y,z) coordinates of the origin of the Arrival mapping :

    double xx_a, yy_a, zz_a ; 
    if (align == 1) {
    xx_a = mp_d->get_ori_x() - mp->get_ori_x() ; 
    yy_a = mp_d->get_ori_y() - mp->get_ori_y() ; 
    }
    else {
    xx_a = mp->get_ori_x() - mp_d->get_ori_x() ; 
    yy_a = mp->get_ori_y() - mp_d->get_ori_y() ; 
    }
    zz_a = mp->get_ori_z() - mp_d->get_ori_z() ; 

    
    // r, theta, phi, x, y and z on the Arrival mapping 
    //  update of the corresponding Coord's if necessary
    
    if ( (mp->r).c == 0x0 ) (mp->r).fait() ; 
    if ( (mp->tet).c == 0x0 ) (mp->tet).fait() ; 
    if ( (mp->phi).c == 0x0 ) (mp->phi).fait() ; 
    if ( (mp->x).c == 0x0 ) (mp->x).fait() ; 
    if ( (mp->y).c == 0x0 ) (mp->y).fait() ; 
    if ( (mp->z).c == 0x0 ) (mp->z).fait() ; 

    const Mtbl* mr_a = (mp->r).c ; 
    const Mtbl* mtet_a = (mp->tet).c ; 
    const Mtbl* mphi_a = (mp->phi).c ; 
    const Mtbl* mx_a = (mp->x).c ;
    const Mtbl* my_a = (mp->y).c ;
    const Mtbl* mz_a = (mp->z).c ;

    Param par_precis ;      // Required precision in the method Map::val_lx
    int nitermax = 100 ;    // Maximum number of iteration in the secant method
    int niter ; 
    double precis = 1e-15 ; // Absolute precision in the secant method
    par_precis.add_int(nitermax) ;  
    par_precis.add_int_mod(niter) ; 
    par_precis.add_double(precis) ; 


    // Loop of the Arrival domains where the computation is to be performed
    // --------------------------------------------------------------------
    
    for (int l=0; l < nzet; l++) {
    
    int nr = mg_a->get_nr(l) ;
    int nt = mg_a->get_nt(l) ;
    int np = mg_a->get_np(l) ;
    int ntnr = nt*nr ;  
    
    const double* pr_a = mr_a->t[l]->t ;      // Pointer on the values of r
    const double* ptet_a = mtet_a->t[l]->t ;  // Pointer on the values of theta
    const double* pphi_a = mphi_a->t[l]->t ;  // Pointer on the values of phi
    const double* px_a = mx_a->t[l]->t ;      // Pointer on the values of X
    const double* py_a = my_a->t[l]->t ;      // Pointer on the values of Y
    const double* pz_a = mz_a->t[l]->t ;      // Pointer on the values of Z
    
    (va.c->t[l])->set_etat_qcq() ;       // Allocates the array of double to
                         //  store the result 
    double* ptx = (va.c->t[l])->t ;      // Pointer on the allocated array
    
    
    // Loop on half the grid points in the considered arrival domain
    // (the other half will be obtained by antisymmetry with respect to
    //  the y=0 plane). 
        
    // Case k=0 (phi=0) : the function is zero (by antisymmetry)
    for (int i=0; i<ntnr; i++) {
        *ptx = 0 ;   
        ptx++ ;   // next point
    }
    
    // Go to k=1 :
    pr_a += ntnr ;  
    ptet_a += ntnr ;  
    pphi_a += ntnr ; 
    px_a += ntnr ;  
    py_a += ntnr ;  
    pz_a += ntnr ;  

    for (int k=1 ; k<np/2 ; k++) {    // np/2 : ~ half the grid
        for (int j=0 ; j<nt ; j++) {
        for (int i=0 ; i<nr ; i++) {

            double r = *pr_a ; 
            double rd, tetd, phid ;
            if (r == __infinity) {
            rd = r ;
            tetd = *ptet_a ;
            phid = *pphi_a + M_PI ;
            if (phid < 0) phid += 2*M_PI ;
            }
            else {

            // Cartesian coordinates on the Departure mapping
            double xd = - *px_a + xx_a ; 
            double yd = - *py_a + yy_a ; 
            double zd = *pz_a + zz_a ; 

            // Spherical coordinates on the Departure mapping
            double rhod2 = xd*xd + yd*yd ; 
            double rhod = sqrt( rhod2 ) ;
            rd = sqrt(rhod2 + zd*zd) ;
            tetd = atan2(rhod, zd) ;
            phid = atan2(yd, xd) ; 
            if (phid < 0) phid += 2*M_PI ;
            }           


            // NB: to increase the efficiency, the method Scalar::val_point
            //  is not invoked; the method Mtbl_cf::val_point is 
            //  called directly instead. 

            // Value of the grid coordinates (l,xi) corresponding to
            //  (rd,tetd,phid) :
            
            int ld ;        // domain index
            double xxd ;    // radial coordinate xi in [0,1] or [-1,1]
            mp_d->val_lx(rd, tetd, phid, par_precis, ld, xxd) ;

            // Value of the Departure Scalar at the obtained point:
            *ptx = va_d.c_cf->val_point_asymy(ld, xxd, tetd, phid) ;

            // Next point : 
            ptx++ ;   
            pr_a++ ;  
            ptet_a++ ;  
            pphi_a++ ; 
            px_a++ ;  
            py_a++ ;  
            pz_a++ ;  

        }
        }
    }
    
    // Case k=np/2 (phi=pi) : the function is zero (by antisymmetry)
    for (int i=0; i<ntnr; i++) {
        *ptx = 0 ;   
        ptx++ ;   // next point
    }
    
    // Go to k=np/2+1 :
    pr_a += ntnr ;  
    ptet_a += ntnr ;  
    pphi_a += ntnr ; 
    px_a += ntnr ;  
    py_a += ntnr ;  
    pz_a += ntnr ;  

    // The remaining points are obtained by antisymmetry with rspect to the
    //  y=0 plane
        
    for (int k=np/2+1 ; k<np ; k++) {

        // pointer on the value (already computed) at the point symmetric 
        // with respect to the plane y=0
        double* ptx_symy = (va.c->t[l])->t + (np-k)*nt*nr ;  

        // copy : 
        for (int j=0 ; j<nt ; j++) {
        for (int i=0 ; i<nr ; i++) {
            *ptx = - (*ptx_symy) ; 
            ptx++ ;
            ptx_symy++ ; 
        }
        }
    } 
    
        
    }   // End of the loop on the Arrival domains
    
    // In the remaining domains, *this is set to zero:
    // ----------------------------------------------
    
    if (nzet < nz_a) {
    annule(nzet, nz_a - 1) ; 
    }
    
    // Treatment of dzpuis
    // -------------------
    
    set_dzpuis(0) ; 

}


        //-------------------------------------//
        //   Case of aligned Cartesian axis    //
        //-------------------------------------//


void Scalar::import_align_asymy(int nzet, const Scalar& cm_d) {
    
    // Trivial case : null Scalar
    // ------------------------
    
    if (cm_d.get_etat() == ETATZERO) {
    set_etat_zero() ; 
    return ; 
    }
    if (cm_d.get_etat() == ETATUN) {
    set_etat_one() ; 
    return ; 
    }

    const Map* mp_d = &(cm_d.get_mp()) ; // Departure mapping

    // Protections
    // -----------
    int align = (mp->get_bvect_cart()).get_align() ;

    assert( align  * (mp_d->get_bvect_cart()).get_align() == 1 ) ; 
    
    assert(cm_d.get_etat() == ETATQCQ) ;

    if (cm_d.get_dzpuis() != 0) {
    cout << 
    "Scalar::import_align_asymy : the dzpuis of the Scalar to be imported"
    << " must be zero !" << endl ; 
    abort() ; 
    }


    const Mg3d* mg_a = mp->get_mg() ; 
    assert(mg_a->get_type_p() == NONSYM) ; 

    int nz_a = mg_a->get_nzone() ; 
    assert(nzet <= nz_a) ;     

    const Valeur& va_d = cm_d.get_spectral_va() ; 
    va_d.coef() ;       // The coefficients are required
    

    // Preparations for storing the result in *this 
    // --------------------------------------------
    del_t() ;   // delete all previously computed derived quantities
    
    set_etat_qcq() ;        // Set the state to ETATQCQ
    
    va.set_etat_c_qcq() ;   // Allocates the memory for the Mtbl va.c
                //  if it does not exist already
    va.c->set_etat_qcq() ;  // Allocates the memory for the Tbl's in each
                //  domain if they do not exist already


    // Departure (x,y,z) coordinates of the origin of the Arrival mapping :

    double xx_a, yy_a, zz_a ; 
    if (align == 1) {
    xx_a = mp->get_ori_x() - mp_d->get_ori_x() ; 
    yy_a = mp->get_ori_y() - mp_d->get_ori_y() ; 
    }
    else {
    xx_a = mp_d->get_ori_x() - mp->get_ori_x() ; 
    yy_a = mp_d->get_ori_y() - mp->get_ori_y() ; 
    }
    zz_a = mp->get_ori_z() - mp_d->get_ori_z() ; 

    
    // r, theta, phi, x, y and z on the Arrival mapping 
    //  update of the corresponding Coord's if necessary
    
    if ( (mp->r).c == 0x0 ) (mp->r).fait() ; 
    if ( (mp->tet).c == 0x0 ) (mp->tet).fait() ; 
    if ( (mp->phi).c == 0x0 ) (mp->phi).fait() ; 
    if ( (mp->x).c == 0x0 ) (mp->x).fait() ; 
    if ( (mp->y).c == 0x0 ) (mp->y).fait() ; 
    if ( (mp->z).c == 0x0 ) (mp->z).fait() ; 

    const Mtbl* mr_a = (mp->r).c ; 
    const Mtbl* mtet_a = (mp->tet).c ; 
    const Mtbl* mphi_a = (mp->phi).c ; 
    const Mtbl* mx_a = (mp->x).c ;
    const Mtbl* my_a = (mp->y).c ;
    const Mtbl* mz_a = (mp->z).c ;

    Param par_precis ;      // Required precision in the method Map::val_lx
    int nitermax = 100 ;    // Maximum number of iteration in the secant method
    int niter ; 
    double precis = 1e-15 ; // Absolute precision in the secant method
    par_precis.add_int(nitermax) ;  
    par_precis.add_int_mod(niter) ; 
    par_precis.add_double(precis) ; 


    // Loop of the Arrival domains where the computation is to be performed
    // --------------------------------------------------------------------
    
    for (int l=0; l < nzet; l++) {
    
    int nr = mg_a->get_nr(l) ;
    int nt = mg_a->get_nt(l) ;
    int np = mg_a->get_np(l) ;
    int ntnr = nt*nr ;      
    
    const double* pr_a = mr_a->t[l]->t ;      // Pointer on the values of r
    const double* ptet_a = mtet_a->t[l]->t ;  // Pointer on the values of theta
    const double* pphi_a = mphi_a->t[l]->t ;  // Pointer on the values of phi
    const double* px_a = mx_a->t[l]->t ;      // Pointer on the values of X
    const double* py_a = my_a->t[l]->t ;      // Pointer on the values of Y
    const double* pz_a = mz_a->t[l]->t ;      // Pointer on the values of Z
    
    (va.c->t[l])->set_etat_qcq() ;       // Allocates the array of double to
                         //  store the result 
    double* ptx = (va.c->t[l])->t ;      // Pointer on the allocated array
    
    
    
    // Loop on half the grid points in the considered arrival domain
    // (the other half will be obtained by antisymmetry with respect to
    //  the y=0 plane). 
        
    // Case k=0 (phi=0) : the function is zero (by antisymmetry)
    for (int i=0; i<ntnr; i++) {
        *ptx = 0 ;   
        ptx++ ;   // next point
    }
    
    // Go to k=1 :
    pr_a += ntnr ;  
    ptet_a += ntnr ;  
    pphi_a += ntnr ; 
    px_a += ntnr ;  
    py_a += ntnr ;  
    pz_a += ntnr ;  

    for (int k=1 ; k<np/2 ; k++) {    // np/2 : ~ half the grid
        for (int j=0 ; j<nt ; j++) {
        for (int i=0 ; i<nr ; i++) {

            double r = *pr_a ; 
            double rd, tetd, phid ;
            if (r == __infinity) {
            rd = r ;
            tetd = *ptet_a ;
            phid = *pphi_a ;
            }
            else {

            // Cartesian coordinates on the Departure mapping
            double xd = *px_a + xx_a ; 
            double yd = *py_a + yy_a ; 
            double zd = *pz_a + zz_a ; 

            // Spherical coordinates on the Departure mapping
            double rhod2 = xd*xd + yd*yd ; 
            double rhod = sqrt( rhod2 ) ;
            rd = sqrt(rhod2 + zd*zd) ;
            tetd = atan2(rhod, zd) ;
            phid = atan2(yd, xd) ; 
            if (phid < 0) phid += 2*M_PI ;
            }           


            // NB: to increase the efficiency, the method Scalar::val_point
            //  is not invoked; the method Mtbl_cf::val_point is 
            //  called directly instead. 

            // Value of the grid coordinates (l,xi) corresponding to
            //  (rd,tetd,phid) :
            
            int ld ;        // domain index
            double xxd ;    // radial coordinate xi in [0,1] or [-1,1]
            mp_d->val_lx(rd, tetd, phid, par_precis, ld, xxd) ;

            // Value of the Departure Scalar at the obtained point:
            *ptx = va_d.c_cf->val_point_asymy(ld, xxd, tetd, phid) ;

            // Next point : 
            ptx++ ;   
            pr_a++ ;  
            ptet_a++ ;  
            pphi_a++ ; 
            px_a++ ;  
            py_a++ ;  
            pz_a++ ;  

        }
        }
    }   
    
        
    // Case k=np/2 (phi=pi) : the function is zero (by antisymmetry)
    for (int i=0; i<ntnr; i++) {
        *ptx = 0 ;   
        ptx++ ;   // next point
    }
    
    // Go to k=np/2+1 :
    pr_a += ntnr ;  
    ptet_a += ntnr ;  
    pphi_a += ntnr ; 
    px_a += ntnr ;  
    py_a += ntnr ;  
    pz_a += ntnr ;  

    // The remaining points are obtained by antisymmetry with respect to the
    //  y=0 plane
        
    for (int k=np/2+1 ; k<np ; k++) {

        // pointer on the value (already computed) at the point symmetric 
        // with respect to the plane y=0
        double* ptx_symy = (va.c->t[l])->t + (np-k)*nt*nr ;  

        // copy : 
        for (int j=0 ; j<nt ; j++) {
        for (int i=0 ; i<nr ; i++) {
            *ptx = - (*ptx_symy) ; 
            ptx++ ;
            ptx_symy++ ; 
        }
        }
    } 

    }   // End of the loop on the Arrival domains
    
    // In the remaining domains, *this is set to zero:
    // ----------------------------------------------
    
    if (nzet < nz_a) {
    annule(nzet, nz_a - 1) ; 
    }
    
    // Treatment of dzpuis
    // -------------------
    
    set_dzpuis(0) ; 

}

---