Metropoli BBS
VIEWER: sam096.c MODE: TEXT (ASCII)
#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Matmult;
     static double a[3][3] = {
          {11.0, 12.0, 13.0},
          {50.0,  0.0, 42.0},
          {37.0, 73.0, 26.0}};
     static double b[3] = {218.0, 544.0, 805.0};
     double *answer;
     #include "aplinit.h"

     answer=matmult((double *)a,(double *)b,3,3,1);
     printf("answer[0,0]=%4.2f\n",*answer);
     printf("answer[1,0]=%4.2f\n",*(answer+1));
     printf("answer[2,0]=%4.2f\n",*(answer+2));
     free(answer);
}

[ RETURN TO DIRECTORY ]