Computational routine
eng

##
extract_bit_32_LH

### File content

    #include "scicos_block4.h"
    #include <math.h>

    void extract_bit_32_LH(scicos_block *block,int flag)
    {
       int i,maxim;
       long *y,*u,ref,n;
       y=Getint32OutPortPtrs(block,1);
       u=Getint32InPortPtrs(block,1);
       maxim=32;
       ref=0;
       for(i=0;i<maxim/2;i++)
           {n=(long)pow(2,i);
            ref=ref+n;}
       *y=(*u)&(ref);
    }