matz_expm_routcos

Fonction de calcul
fr

##
matz_expm

### Contenu du fichier

    # include "scicos_block4.h"
    # include "../machine.h"
    #include <stdio.h>
    #include <math.h>

    #if WIN32
    #define NULL    0
    #endif

    extern int C2F(wexpm1)();
    typedef struct
    {	  int *iwork;
              double *dwork;
    } mat_exp_struct ;
    void matz_expm(scicos_block *block,int flag)
    {
     double *ur,*ui;
     double *yr,*yi;
     int nu;
     int ierr;
     mat_exp_struct *ptr;

     nu =GetInPortCols(block,1);
     ur=GetRealInPortPtrs(block,1);
     ui=GetImagInPortPtrs(block,1);
     yr=GetRealOutPortPtrs(block,1);
     yi=GetImagOutPortPtrs(block,1);
                 /*init : initialization*/
    if (flag==4)
       {if((*(block->work)=(mat_exp_struct*) scicos_malloc(sizeof(mat_exp_struct)))==NULL)
    	{set_block_error(-16);
    	 return;}
        ptr=*(block->work);
        if((ptr->iwork=(int*) scicos_malloc(sizeof(int)*(2*nu)))==NULL)
    	{set_block_error(-16);
    	 scicos_free(ptr);
    	 return;}
        if((ptr->dwork=(double*) scicos_malloc(sizeof(double)*(nu*(4*nu+4*nu+7))))== NULL)
    	{set_block_error(-16);
    	 scicos_free(ptr->iwork);
    	 scicos_free(ptr);
    	 return;}
       }

           /* Terminaison */
    else if (flag==5)
       {ptr=*(block->work);
        if (ptr->dwork!=NULL){
        	scicos_free(ptr->iwork);
        	scicos_free(ptr->dwork);
        	scicos_free(ptr);
        	return;}
       }

    else
       {ptr=*(block->work);
        C2F(wexpm1)(&nu,ur,ui,&nu,yr,yi,&nu,ptr->dwork,ptr->iwork,&ierr);
        if (ierr!=0)
    	{if (flag!=6)
    	{set_block_error(-7);
    	return;}
    	}
       }
    }