typedef int     INTEGER ;
typedef double  REAL    ;
typedef int     LOGICAL ; 
typedef char    CHARACTER ;

int INTEGER_SIZE   = 4 ;
int REAL_SIZE      = 8 ;
int LOGICAL_SIZE   = 4 ;
int CHARACTER_SIZE = 1 ;







void packc_r_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size)
{
  int i ;
  
  for(i=0;i<(*size)*REAL_SIZE;i++,(*position)++) buffer[*position]=var[i] ;
}
    
void packc_i_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size)
{
  int i ;
  
  for(i=0;i<(*size)*INTEGER_SIZE;i++,(*position)++) buffer[*position]=var[i] ;

}

void packc_l_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size)
{
  int i ;
  
  for(i=0;i<(*size)*LOGICAL_SIZE;i++,(*position)++) buffer[*position]=var[i] ;
}

void packc_c_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size, int strsize)
{
  int i ;
   printf("longueur de la chaine %i \n",strsize) ;
  for(i=0;i<(*size)*CHARACTER_SIZE;i++,(*position)++) buffer[*position]=var[i] ;
}


void unpackc_r_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size)
{
  int i ;

  for(i=0;i<(*size)*REAL_SIZE;i++,(*position)++) var[i]=buffer[*position] ;
}
    
void unpackc_i_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size)
{
  int i ;
  
  for(i=0;i<(*size)*INTEGER_SIZE;i++,(*position)++) var[i]=buffer[*position] ;

}

void unpackc_l_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size)
{
  int i ;
  
  for(i=0;i<(*size)*LOGICAL_SIZE;i++,(*position)++) var[i]=buffer[*position] ;
}

void unpackc_c_(unsigned char * buffer, INTEGER * position, unsigned char * var, INTEGER * size,int strsize)
{
  int i ;
  
  for(i=0;i<(*size)*CHARACTER_SIZE;i++,(*position)++) var[i]=buffer[*position] ;
}

void packc_field_(REAL* buffer, INTEGER* position, REAL* var,INTEGER * size)
{
  int i;
  int s ;
  
  s=*size ;
  buffer+=(*position) ;
#pragma vdir nooverlap
  for(i=0;i<s;i++) buffer[i]=var[i] ;
  position+=s ;
}

void unpackc_field_(REAL* buffer, INTEGER* position, REAL* var,INTEGER* size)
{
  int i;
  int s ;
  
  s=*size ;
  buffer+=(*position) ;
#pragma vdir nooverlap
  for(i=0;i<s;i++) var[i]=buffer[i] ;
  position+=s ;
}