dce_mulmatrix.c

Ho Chi Minh City University of Technology Computer Science Department Distributed Computing E

/***************************************
  Ho Chi Minh City University of Technology
  Computer Science Department
  Distributed Computing Environment (DCE)
  Written by Nguyen Van Noi - 59406114
  File dce_mulmatrix.c on Fri Jan  8 20:42:38 1999
 ****************************************/
#include <stdio.h>
#include "dce_service.h"

#define MAXPARM 2

void 
main (int argc, char *argv[])
{
  int i, j, k;
  pmatrix pm, p[MAXPARM];
  if (!dce_service_init (argc, argv))
    exit (-1);
  if (Service.nParam < MAXPARM)
    exit (-2);
  for (i = 0; i < MAXPARM; i++)
    if (!(p[i] = dce_get_matrix (i)))
      dce_service_senderr ();

  if ((p[0]->type != p[1]->type) || (p[0]->col != p[1]->row))
    dce_service_senderr ();

  if (!(pm = newmatrix (p[0]->type, p[0]->row, p[1]->col, NULL)))
    dce_service_senderr ();;
  for (i = 0; i < pm->row; i++)
    for (j = 0; j < pm->col; j++)
      {
	pm->_ppint[i][j] = 0;
	for (k = 0; k < p[0]->col; k++)
	  pm->_ppint[i][j] += p[0]->_ppint[i][k] * p[1]->_ppint[k][j];
      }


  dce_service_sendmatrix (pm);
  for (i = 0; i < MAXPARM; i++)
    freematrix (p[i]);
  freematrix (pm);
}