#include <string.h>
#include <stdlib.h>
#include "wrapper.h"
 
convform str2array(char *stringa)
{
  convform sup;
  int i;

  sup.length = strlen(stringa);
  sup.array = (int *)malloc(sup.length*sizeof(int));

  for(i=0;i<sup.length;++i){
    sup.array[i] = (int)(stringa[i]);
  }

  return sup;
}



void Cpdlaprnt(int *m, int *n, double *a, int *ia, int *ja, int *desca, int *irprnt, 
               int *icprnt, char *cmatnm, int *nout, double *work){

  convform sup;
  sup = str2array(cmatnm);

  wpdlaprnt_( m, n, a, ia, ja, desca, irprnt, icprnt, &sup.length, sup.array, nout, work );
}

void Cpdlawrite( char *filnam, int *m, int *n, double *a, int *ia, int *ja, int *desca,
                 int *irwrit, int *icwrit, double *work ){

  convform sup;
  sup = str2array(filnam);

  wpdlawrite_( &sup.length, sup.array, m, n, a, ia, ja, desca, irwrit, icwrit, work );
}

void Cpdlaread( char *filnam, double *a, int *desca, int *irread, int *icread, double *work ){

  convform sup;
  sup = str2array(filnam);

  wpdlaread_( &sup.length, sup.array, a, desca, irread, icread, work );
}