#!/bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #!/bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	MAPA
#	MAPI
#	README
#	makefile
# This archive created: Wed Jan  4 11:20:01 1989
export PATH; PATH=/bin:$PATH
if test ! -d 'MAPA'
then
	mkdir 'MAPA'
fi
cd 'MAPA'
if test -f 'README'
then
	echo shar: over-writing existing file "'README'"
fi
cat << \SHAR_EOF > 'README'

	This subdirectory contains the source code for MAPA, the graphics
part of the MAP package. The code is written in C, using Sunview, and will
run on monochrome and color monitors. It has only been tested on Sun 3's
running SunOS 3.4. If you have problems with different versions of Suns
and/or SunOS's, please let us know.

	MAPA displays the memory access patterns on the arrays in FORTRAN
programs that were instrumentated using MAPI. It maps the arrays to the
graphics screen and elements of the arrays flash when they are accessed.

	To invoke the program, type "mapa". The graphics window will take
up most of the screen. It initially looks for trace files named memory.<name>,
where <name> distingushes the different trace files. If it does not find any,
it prints an informational message to that effect. You can right click the
mouse on "Directory:" to change directory ("Enter new directory" not yet
implemented). If it does find memory files, you can right click the mouse
on "Memory file:" to see a listing of the memory files and select one of
your choice. Left click the mouse on "Load" to open the selected file and
left click the mouse on "Go" to begin execution. Left click the mouse on
"stop" to suspend exection. You can then continue execution by left clicking
the mouse on "Go" again, or you can select another file.

	Map can display up to four different arrays. The top row displays
the read accesses to the arrays and the bottom displays the writes. The
read accesses flash in green and the write acceses flash in red.

	The Update Speed slider controls how fast the memory flashes fade.
The Execution Speed slider control how fast the program executes.

	Memory file format:

Matrix definition:

 0 <id> <number of rows> <number of columns>

Read access:

 1 <id> <row1> <row2> <column1> <column2> <time>

Write access:

 2 <id> <row1> <row2> <column1> <column2> <time>

Ignore:

 3 <id>

Information:

 4 <id> <information string>

Information:

 5 <id> <flops> <subroutine name>
SHAR_EOF
if test -f 'load.c'
then
	echo shar: over-writing existing file "'load.c'"
fi
cat << \SHAR_EOF > 'load.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include <sys/types.h>
#include <sys/stat.h>
#include <sys/dir.h>
#include "mapa.h"

load_tables()
{
  file_opened = FALSE;
  load_directory_table();
  load_file_table(".");
}

load_directory_table()
{
  struct direct *d;
  DIR *dp;
  int i;
  struct stat stbuf;

  if ((dp = opendir(".")) == NULL)
    {
      printf("Cannot open directory .\n");
      exit();
    }

  i = 0;
  while (directory_table[i] != NULL)
    free(directory_table[i++]);
  i = 0;
  while ((d = readdir(dp)) != NULL && i < 127)
    {
      if (stat(d->d_name,&stbuf) == -1)
        {
          printf("Stat failed on %s.\n",d->d_name);
          printf("errno = %d.\n", errno);
        }
      else if ((stbuf.st_mode & S_IFMT) == S_IFDIR)
        {
          directory_table[i] = (char *) malloc(d->d_namlen+1);
          if (directory_table[i] == NULL)
            {
              printf("No memory for directory.\n");
              exit();
            }
          else
            strcpy(directory_table[i++],d->d_name);
        }
    }
  closedir(dp);
  if (i == 127) printf("Too many directory entries.\n");
  directory_table[i] = NULL;
  set_directory_menu();
}

load_file_table(s)
  char *s;
{
  struct direct *d;
  DIR *dp;
  int i;

  if ((dp = opendir(s)) == NULL)
    {
      printf("Cannot open directory.\n");
      exit();
    }

  i = 0;
  while (file_table[i] != NULL)
    free(file_table[i++]);
  i = 0;
  while ((d = readdir(dp)) != NULL && i < 127)
    {
      if (d->d_namlen > 6     &&
          d->d_name[0] == 'm' &&
          d->d_name[1] == 'e' &&
          d->d_name[2] == 'm' &&
          d->d_name[3] == 'o' &&
          d->d_name[4] == 'r' && 
          d->d_name[5] == 'y' &&
          d->d_name[6] == '.')
        {
          file_table[i] = (char *) malloc(d->d_namlen+1);
          if (file_table[i] == NULL)
            {
              printf("No memory for directory.\n");
              exit();
            }
          strcpy(file_table[i++], d->d_name);
        }
    }
  closedir(dp);
  if (i == 127) printf("Too many file entries.\n");
  file_table[i] = NULL;
  set_file_menu();
}
SHAR_EOF
if test -f 'cache_stuff.c'
then
	echo shar: over-writing existing file "'cache_stuff.c'"
fi
cat << \SHAR_EOF > 'cache_stuff.c'
/*
 Written by Jim Kohl, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

cache_init()
{
	int i;

	cache_cleanup();

	CACHE = (struct cache_element *) malloc
		( (unsigned) (CACHE_SIZE * sizeof(struct cache_element)) );

	if ( CACHE == NULL )
	{
		printf("\nMemory Allocation Error for CACHE\n\n");

		exit(1);
	}

	for ( i=0 ; i < CACHE_SIZE ; i++ )
	{
		CACHE[i].id = -1;
		CACHE[i].addr = -1;
		CACHE[i].index = NULL;
	}

	CACHE_INDEX = NULL;

	CACHE_STATUS = 0;

	NEXT_CACHE = 0;

	LAST_CACHE = 0;

	return;
}

cache_cleanup()
{
	struct cache_index_struct *ptr;
	struct cache_index_struct *ptr2;

	ptr = CACHE_INDEX;

	CACHE_INDEX = NULL;

	while ( ptr != NULL )
	{
		if ( ptr->table != NULL )
			free(ptr->table);
		
		ptr2 = ptr->next;

		free(ptr);

		ptr = ptr2;
	}

	if ( CACHE != NULL )
		free(CACHE);

	return;
}

cache(id,opcode,row,col,cache_addr)
int id,opcode,row,col,*cache_addr;
{
	struct cache_index_struct *ptr;
	struct cache_index_struct *ptr2;

	struct cache_index_struct *mark;

	int addr;
	int indx;
	int page;

	int flag;
	int i;

	if ( row >= number_of_rows[id] || col >= number_of_columns[id] )
		printf("BAD SHIT row=%d col=%d\n",row,col);

	addr = (row * number_of_columns[id]) + col;

	page = addr / PAGE_SIZE;

	ptr = CACHE_INDEX;

	flag = 0;

	indx = -1;

	while ( ptr != NULL && !flag )
	{
		if ( ptr->id == id )
		{
			flag++;

			mark = ptr;

			indx = ptr->table[page].cache_indx;
		}

		else
			ptr = ptr->next;
	}

	if ( !flag )
	{
		unsigned size;

		ptr = (struct cache_index_struct *) malloc 
			( sizeof(struct cache_index_struct) );

		if ( ptr == NULL )
		{
			printf("\nMemory Allocation Error for cache index\n\n");

			exit(1);
		}

		ptr->id = id;

		size = (unsigned) ceil
			( ((double) (number_of_rows[id] * number_of_columns[id]))
			/ ((double) PAGE_SIZE) );

		ptr->table = (struct page_index *) malloc ( size * sizeof(struct page_index) );

		if ( ptr->table == NULL )
		{
			printf("\nMemory Allocation Error for index table\n\n");

			exit(1);
		}

		for ( i=0 ; i < ((int) size) ; i++ )
		{
			ptr->table[i].cache_indx = -1;

			ptr->table[i].status = -1;
		}

		ptr->next = NULL;

		if ( CACHE_INDEX == NULL )
			CACHE_INDEX = ptr;
		
		else
		{
			ptr2 = CACHE_INDEX;

			while ( ptr2->next != NULL )
				ptr2 = ptr2->next;
		
			ptr2->next = ptr;
		}

		mark = ptr;
	}

	if ( indx == -1 )
	{
		if ( NEXT_CACHE + PAGE_SIZE <= CACHE_SIZE )
		{
			*cache_addr = NEXT_CACHE;

			NEXT_CACHE += PAGE_SIZE;
		}

		else
		{
			int size;

			size = CACHE_SIZE / PAGE_SIZE;

			switch ( CACHE_MECHANISM )
			{
				case CACHE_LRU:
				{
					*cache_addr = next_addr_status(mark,size);

					break;
				}

				case CACHE_LFU:
				{
					*cache_addr = next_addr_status(mark,size);

					break;
				}

				case CACHE_FIFO:
				{
					*cache_addr = next_addr_status(mark,size);

					break;
				}

				case CACHE_CLOCK:
				{
					*cache_addr = next_addr_status(mark,size);

					break;
				}

				case CACHE_LIFO:
				{
					*cache_addr = next_addr_lifo();

					break;
				}

				case CACHE_RAND:
				{
					*cache_addr = next_addr_rand(size);

					break;
				}
		
				default:
					*cache_addr = 0;
			}
		}

		if ( *cache_addr >= CACHE_SIZE )
			printf("SHIT 1 *cache_addr=%d\n",*cache_addr);

		if ( CACHE[*cache_addr].index != NULL )
		{
			(CACHE[*cache_addr].index)->status = -1;

			(CACHE[*cache_addr].index)->cache_indx = -1;
		}

		mark->table[page].cache_indx = *cache_addr;

		CACHE[*cache_addr].index = &(mark->table[page]);

		load_page(id,addr,*cache_addr);

		update_status(*cache_addr,&(mark->table[page].status),CACHE_MISS);

		*cache_addr += addr % PAGE_SIZE;

		if ( *cache_addr >= CACHE_SIZE )
			printf("SHIT 1.1 *cache_addr=%d\n",*cache_addr);

		return(CACHE_MISS);
	}

	else
	{
		*cache_addr = indx + (addr % PAGE_SIZE);

		if ( *cache_addr >= CACHE_SIZE )
			printf("SHIT 2 *cache_addr=%d indx=%d addr=%d\n",*cache_addr,indx,addr);

		update_status(indx,&(mark->table[page].status),CACHE_HIT);

		return(CACHE_HIT);
	}
}

load_page(id,addr,cache_addr)
int id;
int addr;
int cache_addr;
{
	int base;
	int i;

	base = ( addr / PAGE_SIZE ) * PAGE_SIZE;

	for ( i=0 ; i < PAGE_SIZE ; i++ )
	{
		if ( cache_addr + i >= CACHE_SIZE )
			printf("SHIT 3 cache_addr=%d i=%d\n",cache_addr,i);

		CACHE[cache_addr + i].id = id;

		CACHE[cache_addr + i].addr = base + i;
	}

	return;
}

update_status(id,status,result)
int id;
int *status;
int result;
{
	switch ( CACHE_MECHANISM )
	{
		case CACHE_LRU:
		{
			*status = CACHE_STATUS++;

			break;
		}

		case CACHE_LFU:
		{
			if ( result == CACHE_MISS )
				*status = 1;
		
			else if ( result == CACHE_HIT )
				(*status)++;
		
			break;
		}

		case CACHE_FIFO:
		{
			if ( result == CACHE_MISS )
				*status = CACHE_STATUS++;
		
			break;
		}

		case CACHE_CLOCK:
		{
			if ( result == CACHE_MISS )
				*status = CACHE_STATUS++;
		
			else if ( result == CACHE_HIT )
			{
				(*status)++;

				CACHE_STATUS++;
			}

			break;
		}

		case CACHE_LIFO:
		{
			if ( result == CACHE_MISS )
				LAST_CACHE = id;

			break;
		}

		case CACHE_RAND:
		{
			break;
		}
	}

	return;
}

next_addr_status(ptr,size)
struct cache_index_struct *ptr;
int size;
{
	int status;
	int addr;

	int i;

	status = -1;

	addr = 0;

	for ( i=0 ; i < size ; i++ )
	{
		if ( i * PAGE_SIZE >= CACHE_SIZE )
			printf("SHIT 4 i=%d\n",i);

		if ( (CACHE[ i * PAGE_SIZE ].index)->status < status || status == -1 )
		{
			status = (CACHE[ i * PAGE_SIZE ].index)->status;

			addr = i;
		}
	}

	return(addr * PAGE_SIZE);
}

next_addr_lifo()
{
	return(LAST_CACHE);
}

next_addr_rand(size)
int size;
{
	return( ((int) ( random() % (long) size )) * PAGE_SIZE );
}

log_2(x)
int x;
{
	int pwr=0;
	int val=1;

	while ( x > val )
	{
		val *= 2;

		pwr++;
	}

	return(pwr);
}
SHAR_EOF
if test -f 'flash_access.c'
then
	echo shar: over-writing existing file "'flash_access.c'"
fi
cat << \SHAR_EOF > 'flash_access.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

flash_access(opcode, id, i1, j1, i2, j2, time)
int   opcode, id, i1, j1, i2, j2;
float time;
{
  int i, j, x, y, canvas_number, set_color, width, height;
  char string[20];

  if (opcode == READ)
    {
      canvas_number = id;
      sprintf(string, "%d",
              r_counter[id] += (i2 - i1 + 1)*(j2 - j1 + 1));
      set_label(reads_counter[id], string);
    }
  else
    {
      canvas_number = id + 4;
      sprintf(string, "%d",
              w_counter[id] += (i2 - i1 + 1)*(j2 - j1 + 1));
      set_label(writes_counter[id], string);
    }
  current_op_count += (i2 - i1 + 1)*(j2 - j1 + 1);
  has_been_accessed[canvas_number] = TRUE;
  if (depth == 1)
    set_color = NUMBER_OF_SHADES;
  else
    set_color = MAX_COLOR;
  /* Flash the accessed elements. */
/* Old stuff
  pw_rop (pw[canvas_number],
          j1*x_factor[id],        i1*y_factor[id],
         (j2-j1+1)*x_factor[id], (i2-i1+1)*y_factor[id],
          PIX_SRC | PIX_COLOR(set_color),
         (Pixrect *)0, 0, 0);
*/
/*
  pw_batch_on(pw[canvas_number]);
  pw_batch_on(pw_cache);
*/
  height = (int) window_get(cache_canvas, CANVAS_HEIGHT);
  width  = (int) window_get(cache_canvas, CANVAS_WIDTH);
  for (i = i1; i <= i2; i++)
    for (j = j1; j <= j2; j ++)
      {
        int element_number, number_of_elements, elements_per_bin;
        int cache_address;
        int result = cache(id, opcode, i, j, &cache_address);
        element_number = i + j*number_of_rows[id];
        number_of_elements = number_of_rows[id]*number_of_columns[id];
        if (number_of_elements % 500 == 0)
          elements_per_bin = number_of_elements/500;
        else
          elements_per_bin = number_of_elements/500 + 1;
        x = ++num_accesses[element_number/elements_per_bin];
        line(pw_histogram, 20, element_number/elements_per_bin,
             x + 20, element_number/elements_per_bin, 1);
        x = (int) 500*(time/max_time);
        point(pw_timeline, x, element_number/elements_per_bin, 1);
        if (result == CACHE_MISS  ||  opcode == WRITE)
          {
            int ii,jj;
            int pg;
            colors[canvas_number][i][j] = set_color;
            if (opcode == READ)
              {
                num_cache_misses += PAGE_SIZE;
                sprintf(string, "%d",num_cache_misses);
                set_label(cache_misses, string);
                cache_address -= ((i * number_of_columns[id]) + j) % PAGE_SIZE;
                for (pg = 0; pg < PAGE_SIZE; pg++)
                  {
                    pw_rop(pw_cache,
                          (cache_address + pg) / height,
                          (cache_address + pg) % height, 1, 1,
                           PIX_SRC | PIX_COLOR(1), (Pixrect *)0, 0, 0);
                  }
              }
            if (depth == 1)
              {
                Pixrect *p = pr[id][NUMBER_OF_SHADES - 1];
                       pw_rop(pw[canvas_number],
                       j*x_factor[id], i*y_factor[id],
                       x_factor[id], y_factor[id], PIX_SRC, p, 0, 0);
               }
             else 
               pw_rop(pw[canvas_number],
                      j*x_factor[id], i*y_factor[id],
                        x_factor[id],   y_factor[id],
                      PIX_SRC | PIX_COLOR(MAX_COLOR),
                     (Pixrect *)0, 0, 0);
          }
        else
          if (opcode == READ)
            {
              sprintf(string, "%d", ++num_cache_hits);
              set_label(cache_hits, string);
              pw_rop(pw_cache,
                cache_address / height, cache_address % height, 1, 1,
                PIX_SRC | PIX_COLOR(2), (Pixrect *)0, 0, 0);
            }
        if (opcode == READ)
          {
            int hitrat = (int) (100 * ((float)num_cache_hits /
                        (float)(num_cache_hits + num_cache_misses)));
            sprintf(string, "%d%%", hitrat);
            set_label(hit_ratio, string);
          }
      }
/*
    pw_show(pw_cache);
    pw_batch_off(pw_cache);
    pw_show(pw[canvas_number]);
    pw_batch_off(pw[canvas_number]);
*/
  if (time > time_mark + ((100-update_speed)/100.0)*update_interval)
    { /* Fade the accesses. */
      for (canvas_number = 0; canvas_number < NUMBER_OF_CANVASES;
           canvas_number++)
        if (has_been_accessed[canvas_number])
          {
            pw_batch_on(pw[canvas_number]);
            for (i = 0; i < number_of_rows[id]; i++)
              for (j = 0; j < number_of_columns[id]; j++)
                if (colors[canvas_number][i][j])
                  decay(canvas_number, i, j, id);
            pw_show(pw[canvas_number]);
            pw_batch_off(pw[canvas_number]);
          }
      time_mark = time;
    }
}
SHAR_EOF
if test -f 'map_matrix.c'
then
	echo shar: over-writing existing file "'map_matrix.c'"
fi
cat << \SHAR_EOF > 'map_matrix.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

map_matrix(id)
int id;
{
  int i, j, factor;

  /*
  Map the matrix into the allocated canvas such that the size is an integral
  multiple of the matrix size (i.e. if CANVAS_SIZE == 250 & the matrix size
  is 30 X 30 then the matrix is mapped to 240 X 240 in the canvas).
  Determine the number of pixels per matrix element in the x & y directions.
  */
  for (factor = 1; factor*number_of_rows[id] <= CANVAS_SIZE; factor++);
  y_factor[id] = factor - 1;
  for (factor = 1; factor*number_of_columns[id] <= CANVAS_SIZE; factor++);
  x_factor[id] = factor -1;
  line (pw[id], 0, y_factor[id]*number_of_rows[id],
        x_factor[id]*number_of_columns[id],
        y_factor[id]*number_of_rows[id], 15);
  line (pw[id], x_factor[id]*number_of_columns[id], 0,
        x_factor[id]*number_of_columns[id],
        y_factor[id]*number_of_rows[id], 15);
  line (pw[id+4], 0, y_factor[id]*number_of_rows[id],
        x_factor[id]*number_of_columns[id],
        y_factor[id]*number_of_rows[id], 15);
  line (pw[id+4], x_factor[id]*number_of_columns[id], 0,
        x_factor[id]*number_of_columns[id],
        y_factor[id]*number_of_rows[id], 15);
  for (i = 0; i < number_of_rows[id]; i++)
    for (j = 0; j < number_of_columns[id]; j++)
      colors[id][i][j] = colors[id+4][i][j] = 0;
  if (depth == 1)
    b_w_patterns(id);
}
SHAR_EOF
if test -f 'makefile'
then
	echo shar: over-writing existing file "'makefile'"
fi
cat << \SHAR_EOF > 'makefile'
CFLAGS = -g -DSUNVIEW
LFLAGS =

OBJS = mapa.o \
       cache_stuff.o \
       flash_access.o \
       load.o \
       map_matrix.o \
       open_memoryfile.o \
       process_file.o \
       procs.o \
       program_init.o \
       read_args.o \
       print_stats.o \
       wd_drawing.o \
       window_init.o
LIBS = -lm -lsuntool -lsunwindow -lpixrect

mapa : $(OBJS)
	cc $(CFLAGS) $(LFLAGS) -o mapa $(OBJS) $(LIBS)

clean:
	/bin/rm -f *.o *~

.c.o:
	cc $(CFLAGS) -c $*.c
SHAR_EOF
if test -f 'memory.lu1'
then
	echo shar: over-writing existing file "'memory.lu1'"
fi
cat << \SHAR_EOF > 'memory.lu1'
  0  1  40  40
 5  1      0 strsm
 1 1   1  40   1   5    0.15000
 2 1   1  40   1   5    0.16667
 1 1   2   2   6  10    0.16667
 2 1   2   2   6  10    0.16667
 1 1  30  30   6  10    0.16667
 2 1  30  30   6  10    0.16667
 1 1   3   3   6  10    0.16667
 2 1   3   3   6  10    0.16667
 1 1  22  22   6  10    0.16667
 2 1  22  22   6  10    0.16667
 1 1   4   4   6  10    0.16667
 2 1   4   4   6  10    0.16667
 1 1  10  10   6  10    0.18333
 2 1  10  10   6  10    0.18333
 1 1   5   5   6  10    0.18333
 2 1   5   5   6  10    0.18333
 1 1  26  26   6  10    0.18333
 2 1  26  26   6  10    0.18333
 5  1    125 strsm
 1 1   1   5   1   1    0.18333
 1 1   2   5   2   2    0.18333
 1 1   3   5   3   3    0.18333
 1 1   4   5   4   4    0.21667
 1 1   5   5   5   5    0.21667
 1 1   1   5   6  10    0.21667
 2 1   1   5   6  10    0.21667
 5  1   1750 sgemm
 1 1   6  40   1   5    0.21667
 1 1   1   5   6  10    0.21667
 1 1   6  40   6  10    0.21667
 2 1   6  40   6  10    0.21667
 1 1   6  40   6  10    0.28333
 2 1   6  40   6  10    0.28333
 1 1   6   6   1   5    0.28333
 2 1   6   6   1   5    0.28333
 1 1  15  15   1   5    0.28333
 2 1  15  15   1   5    0.28333
 1 1   7   7   1   5    0.31667
 2 1   7   7   1   5    0.31667
 1 1  14  14   1   5    0.31667
 2 1  14  14   1   5    0.31667
 1 1   8   8   1   5    0.31667
 2 1   8   8   1   5    0.31667
 1 1  37  37   1   5    0.31667
 2 1  37  37   1   5    0.31667
 1 1   9   9   1   5    0.31667
 2 1   9   9   1   5    0.31667
 1 1  37  37   1   5    0.31667
 2 1  37  37   1   5    0.33333
 1 1  10  10   1   5    0.33333
 2 1  10  10   1   5    0.33333
 1 1  15  15   1   5    0.33333
 2 1  15  15   1   5    0.33333
 1 1   2   2  11  15    0.33333
 2 1   2   2  11  15    0.33333
 1 1  30  30  11  15    0.33333
 2 1  30  30  11  15    0.33333
 1 1   3   3  11  15    0.33333
 2 1   3   3  11  15    0.33333
 1 1  22  22  11  15    0.35000
 2 1  22  22  11  15    0.35000
 1 1   4   4  11  15    0.35000
 2 1   4   4  11  15    0.35000
 1 1  10  10  11  15    0.35000
 2 1  10  10  11  15    0.35000
 1 1   5   5  11  15    0.35000
 2 1   5   5  11  15    0.35000
 1 1  26  26  11  15    0.35000
 2 1  26  26  11  15    0.35000
 1 1   6   6  11  15    0.35000
 2 1   6   6  11  15    0.35000
 1 1  15  15  11  15    0.36667
 2 1  15  15  11  15    0.36667
 1 1   7   7  11  15    0.36667
 2 1   7   7  11  15    0.36667
 1 1  14  14  11  15    0.36667
 2 1  14  14  11  15    0.36667
 1 1   8   8  11  15    0.36667
 2 1   8   8  11  15    0.36667
 1 1  37  37  11  15    0.36667
 2 1  37  37  11  15    0.36667
 1 1   9   9  11  15    0.38333
 2 1   9   9  11  15    0.38333
 1 1  37  37  11  15    0.38333
 2 1  37  37  11  15    0.38333
 1 1  10  10  11  15    0.38333
 2 1  10  10  11  15    0.38333
 1 1  15  15  11  15    0.38333
 2 1  15  15  11  15    0.38333
 5  1    500 strsm
 1 1   1  10   1   1    0.41667
 1 1   2  10   2   2    0.41667
 1 1   3  10   3   3    0.41667
 1 1   4  10   4   4    0.41667
 1 1   5  10   5   5    0.41667
 1 1   6  10   6   6    0.41667
 1 1   7  10   7   7    0.41667
 1 1   8  10   8   8    0.43333
 1 1   9  10   9   9    0.43333
 1 1  10  10  10  10    0.43333
 1 1   1  10  11  15    0.43333
 2 1   1  10  11  15    0.43333
 5  1   3000 sgemm
 1 1  11  40   1  10    0.43333
 1 1   1  10  11  15    0.43333
 1 1  11  40  11  15    0.43333
 2 1  11  40  11  15    0.43333
 1 1  11  40  11  15    0.55000
 2 1  11  40  11  15    0.55000
 1 1  11  11   1  10    0.55000
 2 1  11  11   1  10    0.55000
 1 1  32  32   1  10    0.55000
 2 1  32  32   1  10    0.55000
 1 1  12  12   1  10    0.55000
 2 1  12  12   1  10    0.55000
 1 1  36  36   1  10    0.56667
 2 1  36  36   1  10    0.56667
 1 1  13  13   1  10    0.56667
 2 1  13  13   1  10    0.56667
 1 1  27  27   1  10    0.56667
 2 1  27  27   1  10    0.56667
 1 1  14  14   1  10    0.56667
 2 1  14  14   1  10    0.56667
 1 1  39  39   1  10    0.56667
 2 1  39  39   1  10    0.56667
 1 1  15  15   1  10    0.56667
 2 1  15  15   1  10    0.58333
 1 1  20  20   1  10    0.58333
 2 1  20  20   1  10    0.58333
 1 1   2   2  16  20    0.58333
 2 1   2   2  16  20    0.58333
 1 1  30  30  16  20    0.58333
 2 1  30  30  16  20    0.58333
 1 1   3   3  16  20    0.58333
 2 1   3   3  16  20    0.58333
 1 1  22  22  16  20    0.58333
 2 1  22  22  16  20    0.58333
 1 1   4   4  16  20    0.61667
 2 1   4   4  16  20    0.61667
 1 1  10  10  16  20    0.61667
 2 1  10  10  16  20    0.61667
 1 1   5   5  16  20    0.61667
 2 1   5   5  16  20    0.61667
 1 1  26  26  16  20    0.61667
 2 1  26  26  16  20    0.61667
 1 1   6   6  16  20    0.61667
 2 1   6   6  16  20    0.61667
 1 1  15  15  16  20    0.61667
 2 1  15  15  16  20    0.63333
 1 1   7   7  16  20    0.63333
 2 1   7   7  16  20    0.63333
 1 1  14  14  16  20    0.63333
 2 1  14  14  16  20    0.63333
 1 1   8   8  16  20    0.63333
 2 1   8   8  16  20    0.63333
 1 1  37  37  16  20    0.63333
 2 1  37  37  16  20    0.63333
 1 1   9   9  16  20    0.63333
 2 1   9   9  16  20    0.63333
 1 1  37  37  16  20    0.65000
 2 1  37  37  16  20    0.65000
 1 1  10  10  16  20    0.65000
 2 1  10  10  16  20    0.65000
 1 1  15  15  16  20    0.65000
 2 1  15  15  16  20    0.65000
 1 1  11  11  16  20    0.65000
 2 1  11  11  16  20    0.65000
 1 1  32  32  16  20    0.65000
 2 1  32  32  16  20    0.65000
 1 1  12  12  16  20    0.65000
 2 1  12  12  16  20    0.66667
 1 1  36  36  16  20    0.66667
 2 1  36  36  16  20    0.66667
 1 1  13  13  16  20    0.66667
 2 1  13  13  16  20    0.66667
 1 1  27  27  16  20    0.66667
 2 1  27  27  16  20    0.66667
 1 1  14  14  16  20    0.66667
 2 1  14  14  16  20    0.66667
 1 1  39  39  16  20    0.66667
 2 1  39  39  16  20    0.66667
 1 1  15  15  16  20    0.68333
 2 1  15  15  16  20    0.68333
 1 1  20  20  16  20    0.68333
 2 1  20  20  16  20    0.68333
 5  1   1125 strsm
 1 1   1  15   1   1    0.73333
 1 1   2  15   2   2    0.73333
 1 1   3  15   3   3    0.73333
 1 1   4  15   4   4    0.73333
 1 1   5  15   5   5    0.73333
 1 1   6  15   6   6    0.73333
 1 1   7  15   7   7    0.73333
 1 1   8  15   8   8    0.73333
 1 1   9  15   9   9    0.73333
 1 1  10  15  10  10    0.75000
 1 1  11  15  11  11    0.75000
 1 1  12  15  12  12    0.75000
 1 1  13  15  13  13    0.75000
 1 1  14  15  14  14    0.75000
 1 1  15  15  15  15    0.75000
 1 1   1  15  16  20    0.75000
 2 1   1  15  16  20    0.75000
 5  1   3750 sgemm
 1 1  16  40   1  15    0.75000
 1 1   1  15  16  20    0.75000
 1 1  16  40  16  20    0.75000
 2 1  16  40  16  20    0.76667
 1 1  16  40  16  20    0.88333
 2 1  16  40  16  20    0.91667
 1 1  16  16   1  15    0.91667
 2 1  16  16   1  15    0.91667
 1 1  40  40   1  15    0.91667
 2 1  40  40   1  15    0.91667
 1 1  17  17   1  15    0.91667
 2 1  17  17   1  15    0.91667
 1 1  36  36   1  15    0.91667
 2 1  36  36   1  15    0.91667
 1 1  18  18   1  15    0.91667
 2 1  18  18   1  15    0.91667
 1 1  31  31   1  15    0.91667
 2 1  31  31   1  15    0.91667
 1 1  19  19   1  15    0.91667
 2 1  19  19   1  15    0.91667
 1 1  32  32   1  15    0.91667
 2 1  32  32   1  15    0.91667
 1 1  20  20   1  15    0.91667
 2 1  20  20   1  15    0.91667
 1 1  34  34   1  15    0.91667
 2 1  34  34   1  15    0.91667
 1 1   2   2  21  25    0.91667
 2 1   2   2  21  25    0.93333
 1 1  30  30  21  25    0.93333
 2 1  30  30  21  25    0.93333
 1 1   3   3  21  25    0.93333
 2 1   3   3  21  25    0.93333
 1 1  22  22  21  25    0.93333
 2 1  22  22  21  25    0.93333
 1 1   4   4  21  25    0.93333
 2 1   4   4  21  25    0.93333
 1 1  10  10  21  25    0.93333
 2 1  10  10  21  25    0.93333
 1 1   5   5  21  25    0.93333
 2 1   5   5  21  25    0.93333
 1 1  26  26  21  25    0.93333
 2 1  26  26  21  25    0.93333
 1 1   6   6  21  25    0.93333
 2 1   6   6  21  25    0.93333
 1 1  15  15  21  25    0.93333
 2 1  15  15  21  25    0.93333
 1 1   7   7  21  25    0.93333
 2 1   7   7  21  25    0.93333
 1 1  14  14  21  25    0.93333
 2 1  14  14  21  25    0.93333
 1 1   8   8  21  25    0.95000
 2 1   8   8  21  25    0.95000
 1 1  37  37  21  25    0.95000
 2 1  37  37  21  25    0.95000
 1 1   9   9  21  25    0.95000
 2 1   9   9  21  25    0.96667
 1 1  37  37  21  25    0.96667
 2 1  37  37  21  25    0.96667
 1 1  10  10  21  25    0.96667
 2 1  10  10  21  25    0.96667
 1 1  15  15  21  25    0.96667
 2 1  15  15  21  25    0.96667
 1 1  11  11  21  25    0.96667
 2 1  11  11  21  25    0.96667
 1 1  32  32  21  25    0.96667
 2 1  32  32  21  25    0.96667
 1 1  12  12  21  25    1.00000
 2 1  12  12  21  25    1.00000
 1 1  36  36  21  25    1.00000
 2 1  36  36  21  25    1.00000
 1 1  13  13  21  25    1.00000
 2 1  13  13  21  25    1.00000
 1 1  27  27  21  25    1.00000
 2 1  27  27  21  25    1.00000
 1 1  14  14  21  25    1.00000
 2 1  14  14  21  25    1.00000
 1 1  39  39  21  25    1.00000
 2 1  39  39  21  25    1.01667
 1 1  15  15  21  25    1.01667
 2 1  15  15  21  25    1.01667
 1 1  20  20  21  25    1.01667
 2 1  20  20  21  25    1.01667
 1 1  16  16  21  25    1.01667
 2 1  16  16  21  25    1.01667
 1 1  40  40  21  25    1.01667
 2 1  40  40  21  25    1.01667
 1 1  17  17  21  25    1.01667
 2 1  17  17  21  25    1.01667
 1 1  36  36  21  25    1.01667
 2 1  36  36  21  25    1.01667
 1 1  18  18  21  25    1.01667
 2 1  18  18  21  25    1.01667
 1 1  31  31  21  25    1.01667
 2 1  31  31  21  25    1.01667
 1 1  19  19  21  25    1.01667
 2 1  19  19  21  25    1.01667
 1 1  32  32  21  25    1.01667
 2 1  32  32  21  25    1.01667
 1 1  20  20  21  25    1.03333
 2 1  20  20  21  25    1.03333
 1 1  34  34  21  25    1.03333
 2 1  34  34  21  25    1.03333
 5  1   2000 strsm
 1 1   1  20   1   1    1.08333
 1 1   2  20   2   2    1.08333
 1 1   3  20   3   3    1.08333
 1 1   4  20   4   4    1.08333
 1 1   5  20   5   5    1.08333
 1 1   6  20   6   6    1.08333
 1 1   7  20   7   7    1.08333
 1 1   8  20   8   8    1.08333
 1 1   9  20   9   9    1.08333
 1 1  10  20  10  10    1.08333
 1 1  11  20  11  11    1.08333
 1 1  12  20  12  12    1.08333
 1 1  13  20  13  13    1.08333
 1 1  14  20  14  14    1.08333
 1 1  15  20  15  15    1.08333
 1 1  16  20  16  16    1.08333
 1 1  17  20  17  17    1.08333
 1 1  18  20  18  18    1.08333
 1 1  19  20  19  19    1.08333
 1 1  20  20  20  20    1.08333
 1 1   1  20  21  25    1.08333
 2 1   1  20  21  25    1.08333
 5  1   4000 sgemm
 1 1  21  40   1  20    1.11667
 1 1   1  20  21  25    1.11667
 1 1  21  40  21  25    1.11667
 2 1  21  40  21  25    1.11667
 1 1  21  40  21  25    1.23333
 2 1  21  40  21  25    1.23333
 1 1  21  21   1  20    1.23333
 2 1  21  21   1  20    1.23333
 1 1  39  39   1  20    1.25000
 2 1  39  39   1  20    1.25000
 1 1  22  22   1  20    1.25000
 2 1  22  22   1  20    1.25000
 1 1  24  24   1  20    1.25000
 2 1  24  24   1  20    1.25000
 1 1  24  24   1  20    1.25000
 2 1  24  24   1  20    1.25000
 1 1  35  35   1  20    1.25000
 2 1  35  35   1  20    1.25000
 1 1  25  25   1  20    1.25000
 2 1  25  25   1  20    1.25000
 1 1  29  29   1  20    1.25000
 2 1  29  29   1  20    1.25000
 1 1   2   2  26  30    1.25000
 2 1   2   2  26  30    1.25000
 1 1  30  30  26  30    1.25000
 2 1  30  30  26  30    1.25000
 1 1   3   3  26  30    1.25000
 2 1   3   3  26  30    1.25000
 1 1  22  22  26  30    1.25000
 2 1  22  22  26  30    1.25000
 1 1   4   4  26  30    1.26667
 2 1   4   4  26  30    1.26667
 1 1  10  10  26  30    1.26667
 2 1  10  10  26  30    1.26667
 1 1   5   5  26  30    1.26667
 2 1   5   5  26  30    1.26667
 1 1  26  26  26  30    1.26667
 2 1  26  26  26  30    1.26667
 1 1   6   6  26  30    1.26667
 2 1   6   6  26  30    1.26667
 1 1  15  15  26  30    1.26667
 2 1  15  15  26  30    1.28333
 1 1   7   7  26  30    1.28333
 2 1   7   7  26  30    1.28333
 1 1  14  14  26  30    1.28333
 2 1  14  14  26  30    1.28333
 1 1   8   8  26  30    1.28333
 2 1   8   8  26  30    1.28333
 1 1  37  37  26  30    1.28333
 2 1  37  37  26  30    1.28333
 1 1   9   9  26  30    1.28333
 2 1   9   9  26  30    1.28333
 1 1  37  37  26  30    1.31667
 2 1  37  37  26  30    1.31667
 1 1  10  10  26  30    1.31667
 2 1  10  10  26  30    1.31667
 1 1  15  15  26  30    1.31667
 2 1  15  15  26  30    1.31667
 1 1  11  11  26  30    1.31667
 2 1  11  11  26  30    1.31667
 1 1  32  32  26  30    1.31667
 2 1  32  32  26  30    1.31667
 1 1  12  12  26  30    1.31667
 2 1  12  12  26  30    1.33333
 1 1  36  36  26  30    1.33333
 2 1  36  36  26  30    1.33333
 1 1  13  13  26  30    1.33333
 2 1  13  13  26  30    1.33333
 1 1  27  27  26  30    1.33333
 2 1  27  27  26  30    1.33333
 1 1  14  14  26  30    1.33333
 2 1  14  14  26  30    1.33333
 1 1  39  39  26  30    1.33333
 2 1  39  39  26  30    1.33333
 1 1  15  15  26  30    1.35000
 2 1  15  15  26  30    1.35000
 1 1  20  20  26  30    1.35000
 2 1  20  20  26  30    1.35000
 1 1  16  16  26  30    1.35000
 2 1  16  16  26  30    1.35000
 1 1  40  40  26  30    1.35000
 2 1  40  40  26  30    1.35000
 1 1  17  17  26  30    1.35000
 2 1  17  17  26  30    1.35000
 1 1  36  36  26  30    1.35000
 2 1  36  36  26  30    1.36667
 1 1  18  18  26  30    1.36667
 2 1  18  18  26  30    1.36667
 1 1  31  31  26  30    1.36667
 2 1  31  31  26  30    1.36667
 1 1  19  19  26  30    1.36667
 2 1  19  19  26  30    1.36667
 1 1  32  32  26  30    1.36667
 2 1  32  32  26  30    1.36667
 1 1  20  20  26  30    1.36667
 2 1  20  20  26  30    1.36667
 1 1  34  34  26  30    1.38333
 2 1  34  34  26  30    1.38333
 1 1  21  21  26  30    1.38333
 2 1  21  21  26  30    1.38333
 1 1  39  39  26  30    1.38333
 2 1  39  39  26  30    1.38333
 1 1  22  22  26  30    1.38333
 2 1  22  22  26  30    1.38333
 1 1  24  24  26  30    1.38333
 2 1  24  24  26  30    1.38333
 1 1  24  24  26  30    1.38333
 2 1  24  24  26  30    1.41667
 1 1  35  35  26  30    1.41667
 2 1  35  35  26  30    1.41667
 1 1  25  25  26  30    1.41667
 2 1  25  25  26  30    1.41667
 1 1  29  29  26  30    1.41667
 2 1  29  29  26  30    1.41667
 5  1   3125 strsm
 1 1   1  25   1   1    1.48333
 1 1   2  25   2   2    1.51667
 1 1   3  25   3   3    1.51667
 1 1   4  25   4   4    1.51667
 1 1   5  25   5   5    1.51667
 1 1   6  25   6   6    1.51667
 1 1   7  25   7   7    1.51667
 1 1   8  25   8   8    1.51667
 1 1   9  25   9   9    1.51667
 1 1  10  25  10  10    1.51667
 1 1  11  25  11  11    1.51667
 1 1  12  25  12  12    1.51667
 1 1  13  25  13  13    1.53333
 1 1  14  25  14  14    1.53333
 1 1  15  25  15  15    1.53333
 1 1  16  25  16  16    1.53333
 1 1  17  25  17  17    1.53333
 1 1  18  25  18  18    1.53333
 1 1  19  25  19  19    1.53333
 1 1  20  25  20  20    1.53333
 1 1  21  25  21  21    1.53333
 1 1  22  25  22  22    1.53333
 1 1  23  25  23  23    1.53333
 1 1  24  25  24  24    1.55000
 1 1  25  25  25  25    1.55000
 1 1   1  25  26  30    1.55000
 2 1   1  25  26  30    1.55000
 5  1   3750 sgemm
 1 1  26  40   1  25    1.55000
 1 1   1  25  26  30    1.55000
 1 1  26  40  26  30    1.55000
 2 1  26  40  26  30    1.55000
 1 1  26  40  26  30    1.66667
 2 1  26  40  26  30    1.66667
 1 1  26  26   1  25    1.68333
 2 1  26  26   1  25    1.68333
 1 1  40  40   1  25    1.68333
 2 1  40  40   1  25    1.68333
 1 1  27  27   1  25    1.68333
 2 1  27  27   1  25    1.68333
 1 1  38  38   1  25    1.68333
 2 1  38  38   1  25    1.68333
 1 1  28  28   1  25    1.68333
 2 1  28  28   1  25    1.68333
 1 1  39  39   1  25    1.68333
 2 1  39  39   1  25    1.71667
 1 1  30  30   1  25    1.71667
 2 1  30  30   1  25    1.71667
 1 1  37  37   1  25    1.71667
 2 1  37  37   1  25    1.71667
 1 1   2   2  31  35    1.71667
 2 1   2   2  31  35    1.71667
 1 1  30  30  31  35    1.71667
 2 1  30  30  31  35    1.71667
 1 1   3   3  31  35    1.71667
 2 1   3   3  31  35    1.73334
 1 1  22  22  31  35    1.73334
 2 1  22  22  31  35    1.73334
 1 1   4   4  31  35    1.73334
 2 1   4   4  31  35    1.73334
 1 1  10  10  31  35    1.73334
 2 1  10  10  31  35    1.73334
 1 1   5   5  31  35    1.73334
 2 1   5   5  31  35    1.73334
 1 1  26  26  31  35    1.73334
 2 1  26  26  31  35    1.73334
 1 1   6   6  31  35    1.73334
 2 1   6   6  31  35    1.73334
 1 1  15  15  31  35    1.73334
 2 1  15  15  31  35    1.73334
 1 1   7   7  31  35    1.73334
 2 1   7   7  31  35    1.73334
 1 1  14  14  31  35    1.75000
 2 1  14  14  31  35    1.75000
 1 1   8   8  31  35    1.75000
 2 1   8   8  31  35    1.75000
 1 1  37  37  31  35    1.75000
 2 1  37  37  31  35    1.75000
 1 1   9   9  31  35    1.75000
 2 1   9   9  31  35    1.75000
 1 1  37  37  31  35    1.75000
 2 1  37  37  31  35    1.76667
 1 1  10  10  31  35    1.76667
 2 1  10  10  31  35    1.76667
 1 1  15  15  31  35    1.78334
 2 1  15  15  31  35    1.78334
 1 1  11  11  31  35    1.78334
 2 1  11  11  31  35    1.78334
 1 1  32  32  31  35    1.78334
 2 1  32  32  31  35    1.78334
 1 1  12  12  31  35    1.78334
 2 1  12  12  31  35    1.78334
 1 1  36  36  31  35    1.78334
 2 1  36  36  31  35    1.78334
 1 1  13  13  31  35    1.78334
 2 1  13  13  31  35    1.81667
 1 1  27  27  31  35    1.81667
 2 1  27  27  31  35    1.81667
 1 1  14  14  31  35    1.81667
 2 1  14  14  31  35    1.81667
 1 1  39  39  31  35    1.81667
 2 1  39  39  31  35    1.81667
 1 1  15  15  31  35    1.81667
 2 1  15  15  31  35    1.81667
 1 1  20  20  31  35    1.81667
 2 1  20  20  31  35    1.81667
 1 1  16  16  31  35    1.83334
 2 1  16  16  31  35    1.83334
 1 1  40  40  31  35    1.83334
 2 1  40  40  31  35    1.83334
 1 1  17  17  31  35    1.83334
 2 1  17  17  31  35    1.83334
 1 1  36  36  31  35    1.83334
 2 1  36  36  31  35    1.83334
 1 1  18  18  31  35    1.83334
 2 1  18  18  31  35    1.83334
 1 1  31  31  31  35    1.83334
 2 1  31  31  31  35    1.85000
 1 1  19  19  31  35    1.85000
 2 1  19  19  31  35    1.85000
 1 1  32  32  31  35    1.85000
 2 1  32  32  31  35    1.85000
 1 1  20  20  31  35    1.85000
 2 1  20  20  31  35    1.85000
 1 1  34  34  31  35    1.85000
 2 1  34  34  31  35    1.85000
 1 1  21  21  31  35    1.85000
 2 1  21  21  31  35    1.85000
 1 1  39  39  31  35    1.86667
 2 1  39  39  31  35    1.86667
 1 1  22  22  31  35    1.86667
 2 1  22  22  31  35    1.86667
 1 1  24  24  31  35    1.86667
 2 1  24  24  31  35    1.86667
 1 1  24  24  31  35    1.86667
 2 1  24  24  31  35    1.86667
 1 1  35  35  31  35    1.86667
 2 1  35  35  31  35    1.86667
 1 1  25  25  31  35    1.88334
 2 1  25  25  31  35    1.88334
 1 1  29  29  31  35    1.88334
 2 1  29  29  31  35    1.88334
 1 1  26  26  31  35    1.88334
 2 1  26  26  31  35    1.88334
 1 1  40  40  31  35    1.88334
 2 1  40  40  31  35    1.88334
 1 1  27  27  31  35    1.88334
 2 1  27  27  31  35    1.88334
 1 1  38  38  31  35    1.88334
 2 1  38  38  31  35    1.91667
 1 1  28  28  31  35    1.91667
 2 1  28  28  31  35    1.91667
 1 1  39  39  31  35    1.91667
 2 1  39  39  31  35    1.91667
 1 1  30  30  31  35    1.91667
 2 1  30  30  31  35    1.91667
 1 1  37  37  31  35    1.91667
 2 1  37  37  31  35    1.91667
 5  1   4500 strsm
 1 1   1  30   1   1    2.03334
 1 1   2  30   2   2    2.03334
 1 1   3  30   3   3    2.03334
 1 1   4  30   4   4    2.05000
 1 1   5  30   5   5    2.05000
 1 1   6  30   6   6    2.05000
 1 1   7  30   7   7    2.05000
 1 1   8  30   8   8    2.05000
 1 1   9  30   9   9    2.05000
 1 1  10  30  10  10    2.05000
 1 1  11  30  11  11    2.05000
 1 1  12  30  12  12    2.05000
 1 1  13  30  13  13    2.05000
 1 1  14  30  14  14    2.05000
 1 1  15  30  15  15    2.06667
 1 1  16  30  16  16    2.06667
 1 1  17  30  17  17    2.06667
 1 1  18  30  18  18    2.06667
 1 1  19  30  19  19    2.06667
 1 1  20  30  20  20    2.06667
 1 1  21  30  21  21    2.06667
 1 1  22  30  22  22    2.06667
 1 1  23  30  23  23    2.06667
 1 1  24  30  24  24    2.06667
 1 1  25  30  25  25    2.06667
 1 1  26  30  26  26    2.08334
 1 1  27  30  27  27    2.08334
 1 1  28  30  28  28    2.08334
 1 1  29  30  29  29    2.08334
 1 1  30  30  30  30    2.08334
 1 1   1  30  31  35    2.08334
 2 1   1  30  31  35    2.08334
 5  1   3000 sgemm
 1 1  31  40   1  30    2.08334
 1 1   1  30  31  35    2.08334
 1 1  31  40  31  35    2.08334
 2 1  31  40  31  35    2.08334
 1 1  31  40  31  35    2.18334
 2 1  31  40  31  35    2.18334
 1 1  31  31   1  30    2.18334
 2 1  31  31   1  30    2.21667
 1 1  40  40   1  30    2.21667
 2 1  40  40   1  30    2.21667
 1 1  33  33   1  30    2.21667
 2 1  33  33   1  30    2.21667
 1 1  39  39   1  30    2.21667
 2 1  39  39   1  30    2.21667
 1 1  35  35   1  30    2.21667
 2 1  35  35   1  30    2.21667
 1 1  38  38   1  30    2.21667
 2 1  38  38   1  30    2.21667
 1 1   2   2  36  40    2.23334
 2 1   2   2  36  40    2.23334
 1 1  30  30  36  40    2.23334
 2 1  30  30  36  40    2.23334
 1 1   3   3  36  40    2.23334
 2 1   3   3  36  40    2.23334
 1 1  22  22  36  40    2.23334
 2 1  22  22  36  40    2.23334
 1 1   4   4  36  40    2.23334
 2 1   4   4  36  40    2.23334
 1 1  10  10  36  40    2.23334
 2 1  10  10  36  40    2.25000
 1 1   5   5  36  40    2.25000
 2 1   5   5  36  40    2.25000
 1 1  26  26  36  40    2.25000
 2 1  26  26  36  40    2.25000
 1 1   6   6  36  40    2.25000
 2 1   6   6  36  40    2.25000
 1 1  15  15  36  40    2.25000
 2 1  15  15  36  40    2.25000
 1 1   7   7  36  40    2.25000
 2 1   7   7  36  40    2.25000
 1 1  14  14  36  40    2.26667
 2 1  14  14  36  40    2.26667
 1 1   8   8  36  40    2.26667
 2 1   8   8  36  40    2.26667
 1 1  37  37  36  40    2.26667
 2 1  37  37  36  40    2.26667
 1 1   9   9  36  40    2.26667
 2 1   9   9  36  40    2.26667
 1 1  37  37  36  40    2.26667
 2 1  37  37  36  40    2.26667
 1 1  10  10  36  40    2.26667
 2 1  10  10  36  40    2.28334
 1 1  15  15  36  40    2.28334
 2 1  15  15  36  40    2.28334
 1 1  11  11  36  40    2.28334
 2 1  11  11  36  40    2.28334
 1 1  32  32  36  40    2.28334
 2 1  32  32  36  40    2.28334
 1 1  12  12  36  40    2.28334
 2 1  12  12  36  40    2.28334
 1 1  36  36  36  40    2.28334
 2 1  36  36  36  40    2.28334
 1 1  13  13  36  40    2.31667
 2 1  13  13  36  40    2.31667
 1 1  27  27  36  40    2.31667
 2 1  27  27  36  40    2.31667
 1 1  14  14  36  40    2.31667
 2 1  14  14  36  40    2.31667
 1 1  39  39  36  40    2.31667
 2 1  39  39  36  40    2.31667
 1 1  15  15  36  40    2.31667
 2 1  15  15  36  40    2.31667
 1 1  20  20  36  40    2.31667
 2 1  20  20  36  40    2.33334
 1 1  16  16  36  40    2.33334
 2 1  16  16  36  40    2.33334
 1 1  40  40  36  40    2.33334
 2 1  40  40  36  40    2.33334
 1 1  17  17  36  40    2.33334
 2 1  17  17  36  40    2.33334
 1 1  36  36  36  40    2.33334
 2 1  36  36  36  40    2.33334
 1 1  18  18  36  40    2.33334
 2 1  18  18  36  40    2.33334
 1 1  31  31  36  40    2.35000
 2 1  31  31  36  40    2.35000
 1 1  19  19  36  40    2.35000
 2 1  19  19  36  40    2.35000
 1 1  32  32  36  40    2.35000
 2 1  32  32  36  40    2.35000
 1 1  20  20  36  40    2.35000
 2 1  20  20  36  40    2.35000
 1 1  34  34  36  40    2.35000
 2 1  34  34  36  40    2.35000
 1 1  21  21  36  40    2.35000
 2 1  21  21  36  40    2.36667
 1 1  39  39  36  40    2.36667
 2 1  39  39  36  40    2.36667
 1 1  22  22  36  40    2.36667
 2 1  22  22  36  40    2.36667
 1 1  24  24  36  40    2.36667
 2 1  24  24  36  40    2.36667
 1 1  24  24  36  40    2.36667
 2 1  24  24  36  40    2.36667
 1 1  35  35  36  40    2.36667
 2 1  35  35  36  40    2.36667
 1 1  25  25  36  40    2.38334
 2 1  25  25  36  40    2.38334
 1 1  29  29  36  40    2.38334
 2 1  29  29  36  40    2.38334
 1 1  26  26  36  40    2.38334
 2 1  26  26  36  40    2.38334
 1 1  40  40  36  40    2.38334
 2 1  40  40  36  40    2.38334
 1 1  27  27  36  40    2.38334
 2 1  27  27  36  40    2.38334
 1 1  38  38  36  40    2.38334
 2 1  38  38  36  40    2.41667
 1 1  28  28  36  40    2.41667
 2 1  28  28  36  40    2.41667
 1 1  39  39  36  40    2.41667
 2 1  39  39  36  40    2.41667
 1 1  30  30  36  40    2.41667
 2 1  30  30  36  40    2.41667
 1 1  37  37  36  40    2.41667
 2 1  37  37  36  40    2.41667
 1 1  31  31  36  40    2.43334
 2 1  31  31  36  40    2.43334
 1 1  40  40  36  40    2.43334
 2 1  40  40  36  40    2.43334
 1 1  33  33  36  40    2.43334
 2 1  33  33  36  40    2.43334
 1 1  39  39  36  40    2.43334
 2 1  39  39  36  40    2.43334
 1 1  35  35  36  40    2.43334
 2 1  35  35  36  40    2.43334
 1 1  38  38  36  40    2.43334
 2 1  38  38  36  40    2.43334
 5  1   6125 strsm
 1 1   1  35   1   1    2.61667
 1 1   2  35   2   2    2.61667
 1 1   3  35   3   3    2.61667
 1 1   4  35   4   4    2.61667
 1 1   5  35   5   5    2.61667
 1 1   6  35   6   6    2.61667
 1 1   7  35   7   7    2.61667
 1 1   8  35   8   8    2.61667
 1 1   9  35   9   9    2.61667
 1 1  10  35  10  10    2.61667
 1 1  11  35  11  11    2.61667
 1 1  12  35  12  12    2.63334
 1 1  13  35  13  13    2.63334
 1 1  14  35  14  14    2.63334
 1 1  15  35  15  15    2.63334
 1 1  16  35  16  16    2.63334
 1 1  17  35  17  17    2.63334
 1 1  18  35  18  18    2.63334
 1 1  19  35  19  19    2.63334
 1 1  20  35  20  20    2.63334
 1 1  21  35  21  21    2.63334
 1 1  22  35  22  22    2.63334
 1 1  23  35  23  23    2.65000
 1 1  24  35  24  24    2.65000
 1 1  25  35  25  25    2.65000
 1 1  26  35  26  26    2.65000
 1 1  27  35  27  27    2.65000
 1 1  28  35  28  28    2.65000
 1 1  29  35  29  29    2.65000
 1 1  30  35  30  30    2.65000
 1 1  31  35  31  31    2.65000
 1 1  32  35  32  32    2.65000
 1 1  33  35  33  33    2.65000
 1 1  34  35  34  34    2.65000
 1 1  35  35  35  35    2.65000
 1 1   1  35  36  40    2.65000
 2 1   1  35  36  40    2.65000
 5  1   1750 sgemm
 1 1  36  40   1  35    2.65000
 1 1   1  35  36  40    2.65000
 1 1  36  40  36  40    2.65000
 2 1  36  40  36  40    2.65000
 1 1  36  40  36  40    2.71667
 2 1  36  40  36  40    2.71667
 1 1  36  36   1  35    2.71667
 2 1  36  36   1  35    2.71667
 1 1  39  39   1  35    2.73334
 2 1  39  39   1  35    2.73334
 1 1  37  37   1  35    2.73334
 2 1  37  37   1  35    2.73334
 1 1  39  39   1  35    2.73334
 2 1  39  39   1  35    2.73334
 1 1  38  38   1  35    2.73334
 2 1  38  38   1  35    2.73334
 1 1  39  39   1  35    2.73334
 2 1  39  39   1  35    2.75000
SHAR_EOF
if test -f 'mapa.c'
then
	echo shar: over-writing existing file "'mapa.c'"
fi
cat << \SHAR_EOF > 'mapa.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

main (argc,argv)
int   argc;
char *argv[];
{
  program_init();
  if (argc != 1)
    read_args(argc, argv);
  cache_init();
  if (SCREEN)
    print_stats();
  else
    {
      window_init(&argc, argv);
      load_tables();
      enter_loop();
    }
}
SHAR_EOF
if test -f 'memory.lu2'
then
	echo shar: over-writing existing file "'memory.lu2'"
fi
cat << \SHAR_EOF > 'memory.lu2'
  0  1  40  40
  0  2  40  40
 1 2   1  40   1   5    0.15000
 2 2   1  40   1   5    0.15000
 1 2   2   2   6  40    0.16667
 2 2   2   2   6  40    0.16667
 1 2  30  30   6  40    0.16667
 2 2  30  30   6  40    0.16667
 1 2   3   3   6  40    0.16667
 2 2   3   3   6  40    0.16667
 1 2  22  22   6  40    0.16667
 2 2  22  22   6  40    0.16667
 1 2   4   4   6  40    0.16667
 2 2   4   4   6  40    0.16667
 1 2  10  10   6  40    0.16667
 2 2  10  10   6  40    0.18333
 1 2   5   5   6  40    0.18333
 2 2   5   5   6  40    0.18333
 1 2  26  26   6  40    0.18333
 2 2  26  26   6  40    0.18333
 5  2    875 strsm
 1 2   1   5   1   1    0.21667
 1 2   2   5   2   2    0.23333
 1 2   3   5   3   3    0.23333
 1 2   4   5   4   4    0.23333
 1 2   5   5   5   5    0.23333
 1 2   1   5   6  40    0.23333
 2 2   1   5   6  40    0.23333
 5  2   1750 sgemm
 1 2   6  40   1   5    0.23333
 1 2   1   5   6  10    0.23333
 1 2   6  40   6  10    0.23333
 2 2   6  40   6  10    0.23333
 1 2   6  40   6  10    0.31667
 2 2   6  40   6  10    0.31667
 1 2   6   6   1   5    0.31667
 2 2   6   6   1   5    0.31667
 1 2  15  15   1   5    0.31667
 2 2  15  15   1   5    0.31667
 1 2   7   7   1   5    0.31667
 2 2   7   7   1   5    0.33333
 1 2  14  14   1   5    0.33333
 2 2  14  14   1   5    0.33333
 1 2   8   8   1   5    0.33333
 2 2   8   8   1   5    0.33333
 1 2  37  37   1   5    0.33333
 2 2  37  37   1   5    0.33333
 1 2   9   9   1   5    0.33333
 2 2   9   9   1   5    0.33333
 1 2  37  37   1   5    0.33333
 2 2  37  37   1   5    0.35000
 1 2  10  10   1   5    0.35000
 2 2  10  10   1   5    0.35000
 1 2  15  15   1   5    0.35000
 2 2  15  15   1   5    0.35000
 1 2   6   6  11  40    0.35000
 2 2   6   6  11  40    0.35000
 1 2  15  15  11  40    0.35000
 2 2  15  15  11  40    0.35000
 1 2   7   7  11  40    0.35000
 2 2   7   7  11  40    0.35000
 1 2  14  14  11  40    0.36667
 2 2  14  14  11  40    0.36667
 1 2   8   8  11  40    0.36667
 2 2   8   8  11  40    0.36667
 1 2  37  37  11  40    0.36667
 2 2  37  37  11  40    0.36667
 1 2   9   9  11  40    0.36667
 2 2   9   9  11  40    0.36667
 1 2  37  37  11  40    0.36667
 2 2  37  37  11  40    0.36667
 1 2  10  10  11  40    0.36667
 2 2  10  10  11  40    0.38333
 1 2  15  15  11  40    0.38333
 2 2  15  15  11  40    0.38333
 5  2   1500 sgemm
 1 2   6  10   1   5    0.38333
 1 2   1   5  11  40    0.38333
 1 2   6  10  11  40    0.38333
 2 2   6  10  11  40    0.38333
 5  2    750 strsm
 1 2   6  10   6   6    0.46667
 1 2   7  10   7   7    0.46667
 1 2   8  10   8   8    0.46667
 1 2   9  10   9   9    0.46667
 1 2  10  10  10  10    0.46667
 1 2   6  10  11  40    0.46667
 2 2   6  10  11  40    0.46667
 5  2   3000 sgemm
 1 2  11  40   1  10    0.48333
 1 2   1  10  11  15    0.48333
 1 2  11  40  11  15    0.48333
 2 2  11  40  11  15    0.48333
 1 2  11  40  11  15    0.58333
 2 2  11  40  11  15    0.61667
 1 2  11  11   1  10    0.61667
 2 2  11  11   1  10    0.61667
 1 2  32  32   1  10    0.61667
 2 2  32  32   1  10    0.61667
 1 2  12  12   1  10    0.61667
 2 2  12  12   1  10    0.61667
 1 2  36  36   1  10    0.61667
 2 2  36  36   1  10    0.61667
 1 2  13  13   1  10    0.61667
 2 2  13  13   1  10    0.61667
 1 2  27  27   1  10    0.63333
 2 2  27  27   1  10    0.63333
 1 2  14  14   1  10    0.63333
 2 2  14  14   1  10    0.63333
 1 2  39  39   1  10    0.63333
 2 2  39  39   1  10    0.63333
 1 2  15  15   1  10    0.63333
 2 2  15  15   1  10    0.63333
 1 2  20  20   1  10    0.63333
 2 2  20  20   1  10    0.63333
 1 2  11  11  16  40    0.63333
 2 2  11  11  16  40    0.65000
 1 2  32  32  16  40    0.65000
 2 2  32  32  16  40    0.66667
 1 2  12  12  16  40    0.66667
 2 2  12  12  16  40    0.66667
 1 2  36  36  16  40    0.66667
 2 2  36  36  16  40    0.66667
 1 2  13  13  16  40    0.66667
 2 2  13  13  16  40    0.66667
 1 2  27  27  16  40    0.66667
 2 2  27  27  16  40    0.66667
 1 2  14  14  16  40    0.66667
 2 2  14  14  16  40    0.66667
 1 2  39  39  16  40    0.68333
 2 2  39  39  16  40    0.68333
 1 2  15  15  16  40    0.68333
 2 2  15  15  16  40    0.68333
 1 2  20  20  16  40    0.68333
 2 2  20  20  16  40    0.68333
 5  2   2500 sgemm
 1 2  11  15   1  10    0.68333
 1 2   1  10  16  40    0.68333
 1 2  11  15  16  40    0.71667
 2 2  11  15  16  40    0.71667
 5  2    625 strsm
 1 2  11  15  11  11    0.81667
 1 2  12  15  12  12    0.81667
 1 2  13  15  13  13    0.81667
 1 2  14  15  14  14    0.81667
 1 2  15  15  15  15    0.81667
 1 2  11  15  16  40    0.81667
 2 2  11  15  16  40    0.81667
 5  2   3750 sgemm
 1 2  16  40   1  15    0.81667
 1 2   1  15  16  20    0.81667
 1 2  16  40  16  20    0.83333
 2 2  16  40  16  20    0.83333
 1 2  16  40  16  20    0.95000
 2 2  16  40  16  20    0.95000
 1 2  16  16   1  15    0.95000
 2 2  16  16   1  15    0.95000
 1 2  40  40   1  15    0.95000
 2 2  40  40   1  15    0.95000
 1 2  17  17   1  15    0.95000
 2 2  17  17   1  15    0.95000
 1 2  36  36   1  15    0.95000
 2 2  36  36   1  15    0.96667
 1 2  18  18   1  15    0.96667
 2 2  18  18   1  15    0.96667
 1 2  31  31   1  15    0.96667
 2 2  31  31   1  15    0.96667
 1 2  19  19   1  15    0.96667
 2 2  19  19   1  15    0.96667
 1 2  32  32   1  15    0.96667
 2 2  32  32   1  15    0.96667
 1 2  20  20   1  15    0.96667
 2 2  20  20   1  15    0.96667
 1 2  34  34   1  15    1.00000
 2 2  34  34   1  15    1.00000
 1 2  16  16  21  40    1.00000
 2 2  16  16  21  40    1.00000
 1 2  40  40  21  40    1.00000
 2 2  40  40  21  40    1.00000
 1 2  17  17  21  40    1.00000
 2 2  17  17  21  40    1.00000
 1 2  36  36  21  40    1.00000
 2 2  36  36  21  40    1.00000
 1 2  18  18  21  40    1.00000
 2 2  18  18  21  40    1.00000
 1 2  31  31  21  40    1.00000
 2 2  31  31  21  40    1.00000
 1 2  19  19  21  40    1.00000
 2 2  19  19  21  40    1.00000
 1 2  32  32  21  40    1.00000
 2 2  32  32  21  40    1.00000
 1 2  20  20  21  40    1.00000
 2 2  20  20  21  40    1.00000
 1 2  34  34  21  40    1.00000
 2 2  34  34  21  40    1.00000
 5  2   3000 sgemm
 1 2  16  20   1  15    1.00000
 1 2   1  15  21  40    1.00000
 1 2  16  20  21  40    1.00000
 2 2  16  20  21  40    1.00000
 5  2    500 strsm
 1 2  16  20  16  16    1.08333
 1 2  17  20  17  17    1.11667
 1 2  18  20  18  18    1.11667
 1 2  19  20  19  19    1.11667
 1 2  20  20  20  20    1.11667
 1 2  16  20  21  40    1.11667
 2 2  16  20  21  40    1.11667
 5  2   4000 sgemm
 1 2  21  40   1  20    1.11667
 1 2   1  20  21  25    1.11667
 1 2  21  40  21  25    1.11667
 2 2  21  40  21  25    1.11667
 1 2  21  40  21  25    1.25000
 2 2  21  40  21  25    1.25000
 1 2  21  21   1  20    1.25000
 2 2  21  21   1  20    1.25000
 1 2  39  39   1  20    1.25000
 2 2  39  39   1  20    1.25000
 1 2  22  22   1  20    1.25000
 2 2  22  22   1  20    1.25000
 1 2  24  24   1  20    1.25000
 2 2  24  24   1  20    1.25000
 1 2  24  24   1  20    1.25000
 2 2  24  24   1  20    1.25000
 1 2  35  35   1  20    1.25000
 2 2  35  35   1  20    1.25000
 1 2  25  25   1  20    1.25000
 2 2  25  25   1  20    1.25000
 1 2  29  29   1  20    1.25000
 2 2  29  29   1  20    1.25000
 1 2  21  21  26  40    1.25000
 2 2  21  21  26  40    1.25000
 1 2  39  39  26  40    1.25000
 2 2  39  39  26  40    1.25000
 1 2  22  22  26  40    1.25000
 2 2  22  22  26  40    1.25000
 1 2  24  24  26  40    1.25000
 2 2  24  24  26  40    1.25000
 1 2  24  24  26  40    1.25000
 2 2  24  24  26  40    1.25000
 1 2  35  35  26  40    1.25000
 2 2  35  35  26  40    1.25000
 1 2  25  25  26  40    1.26667
 2 2  25  25  26  40    1.26667
 1 2  29  29  26  40    1.26667
 2 2  29  29  26  40    1.26667
 5  2   3000 sgemm
 1 2  21  25   1  20    1.26667
 1 2   1  20  26  40    1.26667
 1 2  21  25  26  40    1.26667
 2 2  21  25  26  40    1.26667
 5  2    375 strsm
 1 2  21  25  21  21    1.38333
 1 2  22  25  22  22    1.38333
 1 2  23  25  23  23    1.38333
 1 2  24  25  24  24    1.38333
 1 2  25  25  25  25    1.38333
 1 2  21  25  26  40    1.38333
 2 2  21  25  26  40    1.38333
 5  2   3750 sgemm
 1 2  26  40   1  25    1.38333
 1 2   1  25  26  30    1.38333
 1 2  26  40  26  30    1.38333
 2 2  26  40  26  30    1.38333
 1 2  26  40  26  30    1.51667
 2 2  26  40  26  30    1.51667
 1 2  26  26   1  25    1.51667
 2 2  26  26   1  25    1.51667
 1 2  40  40   1  25    1.53333
 2 2  40  40   1  25    1.53333
 1 2  27  27   1  25    1.53333
 2 2  27  27   1  25    1.53333
 1 2  38  38   1  25    1.53333
 2 2  38  38   1  25    1.53333
 1 2  28  28   1  25    1.53333
 2 2  28  28   1  25    1.53333
 1 2  39  39   1  25    1.53333
 2 2  39  39   1  25    1.55000
 1 2  30  30   1  25    1.56667
 2 2  30  30   1  25    1.56667
 1 2  37  37   1  25    1.58333
 2 2  37  37   1  25    1.58333
 1 2  26  26  31  40    1.58333
 2 2  26  26  31  40    1.58333
 1 2  40  40  31  40    1.58333
 2 2  40  40  31  40    1.58333
 1 2  27  27  31  40    1.58333
 2 2  27  27  31  40    1.58333
 1 2  38  38  31  40    1.58333
 2 2  38  38  31  40    1.58333
 1 2  28  28  31  40    1.58333
 2 2  28  28  31  40    1.58333
 1 2  39  39  31  40    1.58333
 2 2  39  39  31  40    1.58333
 1 2  30  30  31  40    1.58333
 2 2  30  30  31  40    1.58333
 1 2  37  37  31  40    1.58333
 2 2  37  37  31  40    1.58333
 5  2   2500 sgemm
 1 2  26  30   1  25    1.58333
 1 2   1  25  31  40    1.58333
 1 2  26  30  31  40    1.61667
 2 2  26  30  31  40    1.61667
 5  2    250 strsm
 1 2  26  30  26  26    1.68333
 1 2  27  30  27  27    1.68333
 1 2  28  30  28  28    1.68333
 1 2  29  30  29  29    1.68333
 1 2  30  30  30  30    1.68333
 1 2  26  30  31  40    1.68333
 2 2  26  30  31  40    1.71667
 5  2   3000 sgemm
 1 2  31  40   1  30    1.71667
 1 2   1  30  31  35    1.71667
 1 2  31  40  31  35    1.71667
 2 2  31  40  31  35    1.71667
 1 2  31  40  31  35    1.81667
 2 2  31  40  31  35    1.81667
 1 2  31  31   1  30    1.81667
 2 2  31  31   1  30    1.81667
 1 2  40  40   1  30    1.81667
 2 2  40  40   1  30    1.81667
 1 2  33  33   1  30    1.81667
 2 2  33  33   1  30    1.81667
 1 2  39  39   1  30    1.81667
 2 2  39  39   1  30    1.83334
 1 2  35  35   1  30    1.83334
 2 2  35  35   1  30    1.83334
 1 2  38  38   1  30    1.83334
 2 2  38  38   1  30    1.83334
 1 2  31  31  36  40    1.83334
 2 2  31  31  36  40    1.83334
 1 2  40  40  36  40    1.83334
 2 2  40  40  36  40    1.83334
 1 2  33  33  36  40    1.83334
 2 2  33  33  36  40    1.83334
 1 2  39  39  36  40    1.83334
 2 2  39  39  36  40    1.83334
 1 2  35  35  36  40    1.83334
 2 2  35  35  36  40    1.83334
 1 2  38  38  36  40    1.83334
 2 2  38  38  36  40    1.83334
 5  2   1500 sgemm
 1 2  31  35   1  30    1.83334
 1 2   1  30  36  40    1.83334
 1 2  31  35  36  40    1.83334
 2 2  31  35  36  40    1.83334
 5  2    125 strsm
 1 2  31  35  31  31    1.88334
 1 2  32  35  32  32    1.88334
 1 2  33  35  33  33    1.88334
 1 2  34  35  34  34    1.88334
 1 2  35  35  35  35    1.88334
 1 2  31  35  36  40    1.91667
 2 2  31  35  36  40    1.91667
 5  2   1750 sgemm
 1 2  36  40   1  35    1.91667
 1 2   1  35  36  40    1.91667
 1 2  36  40  36  40    1.91667
 2 2  36  40  36  40    1.91667
 1 2  36  40  36  40    1.96667
 2 2  36  40  36  40    1.96667
 1 2  36  36   1  35    1.96667
 2 2  36  36   1  35    1.96667
 1 2  39  39   1  35    1.96667
 2 2  39  39   1  35    2.00000
 1 2  37  37   1  35    2.00000
 2 2  37  37   1  35    2.00000
 1 2  39  39   1  35    2.00000
 2 2  39  39   1  35    2.00000
 1 2  38  38   1  35    2.00000
 2 2  38  38   1  35    2.00000
 1 2  39  39   1  35    2.00000
 2 2  39  39   1  35    2.00000
SHAR_EOF
if test -f 'memory.lu3'
then
	echo shar: over-writing existing file "'memory.lu3'"
fi
cat << \SHAR_EOF > 'memory.lu3'
  0  1  40  40
  0  2  40  40
  0  3  40  40
 1 3   1  40   1   5    0.15000
 2 3   1  40   1   5    0.15000
 1 3   2   2   6  40    0.15000
 2 3   2   2   6  40    0.15000
 1 3  30  30   6  40    0.15000
 2 3  30  30   6  40    0.15000
 1 3   3   3   6  40    0.16667
 2 3   3   3   6  40    0.16667
 1 3  22  22   6  40    0.16667
 2 3  22  22   6  40    0.16667
 1 3   4   4   6  40    0.16667
 2 3   4   4   6  40    0.16667
 1 3  10  10   6  40    0.16667
 2 3  10  10   6  40    0.16667
 1 3   5   5   6  40    0.16667
 2 3   5   5   6  40    0.16667
 1 3  26  26   6  40    0.16667
 2 3  26  26   6  40    0.18333
 5  3    875 strsm
 1 3   1   5   1   1    0.21667
 1 3   2   5   2   2    0.21667
 1 3   3   5   3   3    0.21667
 1 3   4   5   4   4    0.21667
 1 3   5   5   5   5    0.21667
 1 3   1   5   6  40    0.23333
 2 3   1   5   6  40    0.23333
 5  3  12250 sgemm
 1 3   6  40   1   5    0.23333
 1 3   1   5   6  40    0.23333
 1 3   6  40   6  40    0.23333
 2 3   6  40   6  40    0.23333
 1 3   6  40   6  10    0.61667
 2 3   6  40   6  10    0.61667
 1 3   6   6   1   5    0.61667
 2 3   6   6   1   5    0.61667
 1 3  15  15   1   5    0.61667
 2 3  15  15   1   5    0.63333
 1 3   7   7   1   5    0.63333
 2 3   7   7   1   5    0.63333
 1 3  14  14   1   5    0.63333
 2 3  14  14   1   5    0.63333
 1 3   8   8   1   5    0.63333
 2 3   8   8   1   5    0.63333
 1 3  37  37   1   5    0.63333
 2 3  37  37   1   5    0.63333
 1 3   9   9   1   5    0.63333
 2 3   9   9   1   5    0.63333
 1 3  37  37   1   5    0.65000
 2 3  37  37   1   5    0.65000
 1 3  10  10   1   5    0.65000
 2 3  10  10   1   5    0.65000
 1 3  15  15   1   5    0.65000
 2 3  15  15   1   5    0.65000
 1 3   6   6  11  40    0.65000
 2 3   6   6  11  40    0.65000
 1 3  15  15  11  40    0.65000
 2 3  15  15  11  40    0.65000
 1 3   7   7  11  40    0.65000
 2 3   7   7  11  40    0.66667
 1 3  14  14  11  40    0.66667
 2 3  14  14  11  40    0.66667
 1 3   8   8  11  40    0.66667
 2 3   8   8  11  40    0.66667
 1 3  37  37  11  40    0.66667
 2 3  37  37  11  40    0.66667
 1 3   9   9  11  40    0.66667
 2 3   9   9  11  40    0.66667
 1 3  37  37  11  40    0.66667
 2 3  37  37  11  40    0.66667
 1 3  10  10  11  40    0.68333
 2 3  10  10  11  40    0.68333
 1 3  15  15  11  40    0.68333
 2 3  15  15  11  40    0.68333
 5  3    750 strsm
 1 3   6  10   6   6    0.71667
 1 3   7  10   7   7    0.71667
 1 3   8  10   8   8    0.71667
 1 3   9  10   9   9    0.71667
 1 3  10  10  10  10    0.73333
 1 3   6  10  11  40    0.73333
 2 3   6  10  11  40    0.73333
 5  3   9000 sgemm
 1 3  11  40   6  10    0.73333
 1 3   6  10  11  40    0.73333
 1 3  11  40  11  40    0.73333
 2 3  11  40  11  40    0.73333
 1 3  11  40  11  15    1.01667
 2 3  11  40  11  15    1.01667
 1 3  11  11   1  10    1.01667
 2 3  11  11   1  10    1.01667
 1 3  32  32   1  10    1.01667
 2 3  32  32   1  10    1.01667
 1 3  12  12   1  10    1.01667
 2 3  12  12   1  10    1.01667
 1 3  36  36   1  10    1.01667
 2 3  36  36   1  10    1.01667
 1 3  13  13   1  10    1.01667
 2 3  13  13   1  10    1.03333
 1 3  27  27   1  10    1.03333
 2 3  27  27   1  10    1.03333
 1 3  14  14   1  10    1.03333
 2 3  14  14   1  10    1.03333
 1 3  39  39   1  10    1.03333
 2 3  39  39   1  10    1.03333
 1 3  15  15   1  10    1.03333
 2 3  15  15   1  10    1.03333
 1 3  20  20   1  10    1.03333
 2 3  20  20   1  10    1.03333
 1 3  11  11  16  40    1.05000
 2 3  11  11  16  40    1.05000
 1 3  32  32  16  40    1.05000
 2 3  32  32  16  40    1.05000
 1 3  12  12  16  40    1.05000
 2 3  12  12  16  40    1.05000
 1 3  36  36  16  40    1.05000
 2 3  36  36  16  40    1.05000
 1 3  13  13  16  40    1.05000
 2 3  13  13  16  40    1.05000
 1 3  27  27  16  40    1.05000
 2 3  27  27  16  40    1.06667
 1 3  14  14  16  40    1.06667
 2 3  14  14  16  40    1.06667
 1 3  39  39  16  40    1.06667
 2 3  39  39  16  40    1.06667
 1 3  15  15  16  40    1.06667
 2 3  15  15  16  40    1.06667
 1 3  20  20  16  40    1.06667
 2 3  20  20  16  40    1.06667
 5  3    625 strsm
 1 3  11  15  11  11    1.08333
 1 3  12  15  12  12    1.08333
 1 3  13  15  13  13    1.11667
 1 3  14  15  14  14    1.11667
 1 3  15  15  15  15    1.11667
 1 3  11  15  16  40    1.11667
 2 3  11  15  16  40    1.11667
 5  3   6250 sgemm
 1 3  16  40  11  15    1.11667
 1 3  11  15  16  40    1.11667
 1 3  16  40  16  40    1.13333
 2 3  16  40  16  40    1.13333
 1 3  16  40  16  20    1.33333
 2 3  16  40  16  20    1.35000
 1 3  16  16   1  15    1.35000
 2 3  16  16   1  15    1.35000
 1 3  40  40   1  15    1.35000
 2 3  40  40   1  15    1.35000
 1 3  17  17   1  15    1.35000
 2 3  17  17   1  15    1.35000
 1 3  36  36   1  15    1.35000
 2 3  36  36   1  15    1.35000
 1 3  18  18   1  15    1.35000
 2 3  18  18   1  15    1.35000
 1 3  31  31   1  15    1.36667
 2 3  31  31   1  15    1.36667
 1 3  19  19   1  15    1.36667
 2 3  19  19   1  15    1.36667
 1 3  32  32   1  15    1.36667
 2 3  32  32   1  15    1.36667
 1 3  20  20   1  15    1.36667
 2 3  20  20   1  15    1.36667
 1 3  34  34   1  15    1.36667
 2 3  34  34   1  15    1.36667
 1 3  16  16  21  40    1.36667
 2 3  16  16  21  40    1.38333
 1 3  40  40  21  40    1.38333
 2 3  40  40  21  40    1.38333
 1 3  17  17  21  40    1.38333
 2 3  17  17  21  40    1.38333
 1 3  36  36  21  40    1.38333
 2 3  36  36  21  40    1.38333
 1 3  18  18  21  40    1.38333
 2 3  18  18  21  40    1.38333
 1 3  31  31  21  40    1.38333
 2 3  31  31  21  40    1.38333
 1 3  19  19  21  40    1.41667
 2 3  19  19  21  40    1.41667
 1 3  32  32  21  40    1.41667
 2 3  32  32  21  40    1.41667
 1 3  20  20  21  40    1.41667
 2 3  20  20  21  40    1.41667
 1 3  34  34  21  40    1.41667
 2 3  34  34  21  40    1.41667
 5  3    500 strsm
 1 3  16  20  16  16    1.43333
 1 3  17  20  17  17    1.43333
 1 3  18  20  18  18    1.43333
 1 3  19  20  19  19    1.43333
 1 3  20  20  20  20    1.43333
 1 3  16  20  21  40    1.45000
 2 3  16  20  21  40    1.45000
 5  3   4000 sgemm
 1 3  21  40  16  20    1.45000
 1 3  16  20  21  40    1.45000
 1 3  21  40  21  40    1.45000
 2 3  21  40  21  40    1.45000
 1 3  21  40  21  25    1.56667
 2 3  21  40  21  25    1.58333
 1 3  21  21   1  20    1.58333
 2 3  21  21   1  20    1.58333
 1 3  39  39   1  20    1.58333
 2 3  39  39   1  20    1.58333
 1 3  22  22   1  20    1.58333
 2 3  22  22   1  20    1.58333
 1 3  24  24   1  20    1.58333
 2 3  24  24   1  20    1.58333
 1 3  24  24   1  20    1.58333
 2 3  24  24   1  20    1.58333
 1 3  35  35   1  20    1.58333
 2 3  35  35   1  20    1.58333
 1 3  25  25   1  20    1.58333
 2 3  25  25   1  20    1.58333
 1 3  29  29   1  20    1.58333
 2 3  29  29   1  20    1.58333
 1 3  21  21  26  40    1.58333
 2 3  21  21  26  40    1.58333
 1 3  39  39  26  40    1.58333
 2 3  39  39  26  40    1.58333
 1 3  22  22  26  40    1.58333
 2 3  22  22  26  40    1.58333
 1 3  24  24  26  40    1.58333
 2 3  24  24  26  40    1.58333
 1 3  24  24  26  40    1.58333
 2 3  24  24  26  40    1.58333
 1 3  35  35  26  40    1.58333
 2 3  35  35  26  40    1.58333
 1 3  25  25  26  40    1.58333
 2 3  25  25  26  40    1.58333
 1 3  29  29  26  40    1.58333
 2 3  29  29  26  40    1.61667
 5  3    375 strsm
 1 3  21  25  21  21    1.61667
 1 3  22  25  22  22    1.61667
 1 3  23  25  23  23    1.61667
 1 3  24  25  24  24    1.61667
 1 3  25  25  25  25    1.61667
 1 3  21  25  26  40    1.61667
 2 3  21  25  26  40    1.61667
 5  3   2250 sgemm
 1 3  26  40  21  25    1.61667
 1 3  21  25  26  40    1.61667
 1 3  26  40  26  40    1.61667
 2 3  26  40  26  40    1.61667
 1 3  26  40  26  30    1.68333
 2 3  26  40  26  30    1.68333
 1 3  26  26   1  25    1.68333
 2 3  26  26   1  25    1.68333
 1 3  40  40   1  25    1.68333
 2 3  40  40   1  25    1.68333
 1 3  27  27   1  25    1.71667
 2 3  27  27   1  25    1.71667
 1 3  38  38   1  25    1.71667
 2 3  38  38   1  25    1.71667
 1 3  28  28   1  25    1.71667
 2 3  28  28   1  25    1.71667
 1 3  39  39   1  25    1.71667
 2 3  39  39   1  25    1.71667
 1 3  30  30   1  25    1.71667
 2 3  30  30   1  25    1.71667
 1 3  37  37   1  25    1.71667
 2 3  37  37   1  25    1.71667
 1 3  26  26  31  40    1.71667
 2 3  26  26  31  40    1.71667
 1 3  40  40  31  40    1.71667
 2 3  40  40  31  40    1.71667
 1 3  27  27  31  40    1.73334
 2 3  27  27  31  40    1.73334
 1 3  38  38  31  40    1.73334
 2 3  38  38  31  40    1.73334
 1 3  28  28  31  40    1.73334
 2 3  28  28  31  40    1.73334
 1 3  39  39  31  40    1.73334
 2 3  39  39  31  40    1.73334
 1 3  30  30  31  40    1.73334
 2 3  30  30  31  40    1.73334
 1 3  37  37  31  40    1.73334
 2 3  37  37  31  40    1.73334
 5  3    250 strsm
 1 3  26  30  26  26    1.73334
 1 3  27  30  27  27    1.73334
 1 3  28  30  28  28    1.73334
 1 3  29  30  29  29    1.73334
 1 3  30  30  30  30    1.73334
 1 3  26  30  31  40    1.75000
 2 3  26  30  31  40    1.75000
 5  3   1000 sgemm
 1 3  31  40  26  30    1.75000
 1 3  26  30  31  40    1.75000
 1 3  31  40  31  40    1.75000
 2 3  31  40  31  40    1.75000
 1 3  31  40  31  35    1.78334
 2 3  31  40  31  35    1.78334
 1 3  31  31   1  30    1.78334
 2 3  31  31   1  30    1.78334
 1 3  40  40   1  30    1.81667
 2 3  40  40   1  30    1.81667
 1 3  33  33   1  30    1.81667
 2 3  33  33   1  30    1.81667
 1 3  39  39   1  30    1.81667
 2 3  39  39   1  30    1.81667
 1 3  35  35   1  30    1.81667
 2 3  35  35   1  30    1.81667
 1 3  38  38   1  30    1.81667
 2 3  38  38   1  30    1.81667
 1 3  31  31  36  40    1.81667
 2 3  31  31  36  40    1.83334
 1 3  40  40  36  40    1.83334
 2 3  40  40  36  40    1.83334
 1 3  33  33  36  40    1.83334
 2 3  33  33  36  40    1.83334
 1 3  39  39  36  40    1.83334
 2 3  39  39  36  40    1.83334
 1 3  35  35  36  40    1.83334
 2 3  35  35  36  40    1.83334
 1 3  38  38  36  40    1.83334
 2 3  38  38  36  40    1.83334
 5  3    125 strsm
 1 3  31  35  31  31    1.85000
 1 3  32  35  32  32    1.85000
 1 3  33  35  33  33    1.85000
 1 3  34  35  34  34    1.85000
 1 3  35  35  35  35    1.85000
 1 3  31  35  36  40    1.85000
 2 3  31  35  36  40    1.85000
 5  3    250 sgemm
 1 3  36  40  31  35    1.85000
 1 3  31  35  36  40    1.86667
 1 3  36  40  36  40    1.86667
 2 3  36  40  36  40    1.86667
 1 3  36  40  36  40    1.86667
 2 3  36  40  36  40    1.88334
 1 3  36  36   1  35    1.88334
 2 3  36  36   1  35    1.88334
 1 3  39  39   1  35    1.88334
 2 3  39  39   1  35    1.88334
 1 3  37  37   1  35    1.88334
 2 3  37  37   1  35    1.88334
 1 3  39  39   1  35    1.88334
 2 3  39  39   1  35    1.88334
 1 3  38  38   1  35    1.88334
 2 3  38  38   1  35    1.88334
 1 3  39  39   1  35    1.91667
 2 3  39  39   1  35    1.91667
SHAR_EOF
if test -f 'mapa.h'
then
	echo shar: over-writing existing file "'mapa.h'"
fi
cat << \SHAR_EOF > 'mapa.h'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include <stdio.h>
#include <math.h>

#ifdef SUNVIEW
#undef SUNVIEW
#include <suntool/sunview.h>
#include <suntool/panel.h>
#include <suntool/canvas.h>
typedef Pixwin *Surface;
typedef Pixrect *Pixels;
#undef SUNVIEW
#define SUNVIEW
#endif

#ifdef X
#include <X11/Xlib.h>
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <X11/Label.h>
#include <X11/Shell.h>
#include <X11/Command.h>
#include <X11/Form.h>
typedef Window Surface;
typedef Pixmap Pixels;
typedef Widget Frame;
typedef Widget Panel;
typedef Widget Canvas;
typedef Widget Scrollbar;
typedef Widget Panel_item;
typedef Widget Menu;
Display *display;
GC gc;
#endif

#define  CANVAS_SIZE        250
#define  CMS_SIZE            16  /* Color Map Segment size */
#define  NUMBER_OF_COLORS    15
#define  MAX_COLOR           14
#define  NUMBER_OF_SHADES    12
#define  NUMBER_OF_CANVASES   8
#define  BORDER               3
#define  READ                 1
#define  WRITE                2
#define  ROUND(x)   (int)(x+0.5)
#define  POWER_OF_2(x) (int)pow((double)2,(double)x)

#ifdef SUNVIEW
#define CACHE_HEIGHT      pw_cache->pw_prretained->pr_size.y
#define CACHE_WIDTH       pw_cache->pw_prretained->pr_size.x
#define HISTOGRAM_HEIGHT  pw_histogram->pw_prretained->pr_size.y
#define HISTOGRAM_WIDTH   pw_histogram->pw_prretained->pr_size.x
#define TIMELINE_HEIGHT   pw_timeline->pw_prretained->pr_size.y
#define TIMELINE_WIDTH    pw_timeline->pw_prretained->pr_size.x
#endif
#ifdef X
#define CACHE_HEIGHT      get_y_size(pw_cache)
#define CACHE_WIDTH       get_x_size(pw_cache)
#define HISTOGRAM_HEIGHT  get_y_size(pw_histogram)
#define HISTOGRAM_WIDTH   get_x_size(pw_histogram)
#define TIMELINE_HEIGHT   get_y_size(pw_timeline)
#define TIMELINE_WIDTH    get_x_size(pw_timeline)
#endif

#define  CACHE_MISS           0
#define  CACHE_HIT            1
#define  CACHE_LRU            0
#define  CACHE_LFU            1
#define  CACHE_FIFO           2
#define  CACHE_CLOCK          3
#define  CACHE_LIFO           4
#define  CACHE_RAND           5

struct cache_element
{
	int id;
	int addr;
	struct page_index *index;
};

struct page_index
{
	int cache_indx;
	int status;
};

struct cache_index_struct
{
	int id;
	struct page_index *table;
	struct cache_index_struct *next;
};

char MEM_FILE[255];
int SCREEN;
int NUM_CHUNKS;
int PAGE_SIZE;
int PAGE_SIZE_P2;
int CACHE_SIZE;
int CACHE_SIZE_P2;
int CACHE_MECHANISM;
struct cache_element *CACHE;
struct cache_index_struct *CACHE_INDEX;
int CACHE_STATUS;
int NEXT_CACHE;
int LAST_CACHE;

extern int errno;

#ifdef X
Widget     toplevel, title_label;
unsigned long my_color_map[2*NUMBER_OF_COLORS];
#endif
Frame      frame, cache_frame, histogram_frame, timeline_frame;
Panel      panel;
Canvas     canvas[NUMBER_OF_CANVASES], cache_canvas,
           histogram_canvas, timeline_canvas;
Surface    pw[NUMBER_OF_CANVASES], pw_cache, pw_histogram, pw_timeline;
Pixels     pr[4][NUMBER_OF_SHADES];
Panel_item directory_choice, file_choice,
           load_button, go_button, stop_button, cache_button, info_button,
           screendump_button, quit_button,
           reads_counter[4], writes_counter[4], ops_counter[4],
           page_size_choice, cache_size_choice, cache_policy_choice,
           cache_misses, cache_hits, hit_ratio,
           sub_name[4], header_message[4], info_message,
           update_slider, speed_slider, histogram_choice, timeline_choice;

int   num_accesses[500];
int   depth, current_op_count, op_counts[4], r_counter[4], w_counter[4];
int   num_cache_misses, num_cache_hits;
int   enter_new_directory;
int   current_max;
int   colors[NUMBER_OF_CANVASES][CANVAS_SIZE][CANVAS_SIZE];
int   update_speed;
int   execute_speed;
int   file_opened;
int   number_of_rows[4], number_of_columns[4];
int   x_factor[4], y_factor[4];
int   has_been_accessed[NUMBER_OF_CANVASES];
FILE *memory_file;
int   wait_interval;
float time_mark, max_time;
float update_interval;
int   dt_index, ft_index;
char *directory_table[128], *file_table[128];
u_char r[CMS_SIZE], g[CMS_SIZE], b[CMS_SIZE];
int vflag;
SHAR_EOF
if test -f 'memory.luall'
then
	echo shar: over-writing existing file "'memory.luall'"
fi
cat << \SHAR_EOF > 'memory.luall'
  0  1  40  40
  0  1  40  40
  0  1  40  40
  0  2  40  40
  0  2  40  40
  0  3  40  40
 5  1      0 strsm
 5  1    125 strsm
 5  1    500 strsm
 5  1   1125 strsm
 5  1   1750 sgemm
 5  1   1750 sgemm
 5  1   2000 strsm
 5  1   3000 sgemm
 5  1   3000 sgemm
 5  1   3125 strsm
 5  1   3750 sgemm
 5  1   3750 sgemm
 5  1   4000 sgemm
 5  1   4500 strsm
 5  1   6125 strsm
 5  2    125 strsm
 5  2    250 strsm
 5  2    375 strsm
 5  2    500 strsm
 5  2    625 strsm
 5  2    750 strsm
 5  2    875 strsm
 5  2   1500 sgemm
 5  2   1500 sgemm
 5  2   1750 sgemm
 5  2   1750 sgemm
 5  2   2500 sgemm
 5  2   2500 sgemm
 5  2   3000 sgemm
 5  2   3000 sgemm
 5  2   3000 sgemm
 5  2   3000 sgemm
 5  2   3750 sgemm
 5  2   3750 sgemm
 5  2   4000 sgemm
 5  3    125 strsm
 5  3    250 sgemm
 5  3    250 strsm
 5  3    375 strsm
 5  3    500 strsm
 5  3    625 strsm
 5  3    750 strsm
 5  3    875 strsm
 5  3   1000 sgemm
 5  3   2250 sgemm
 5  3   4000 sgemm
 5  3   6250 sgemm
 5  3   9000 sgemm
 5  3  12250 sgemm
 1 1   1  40   1   5    0.15000
 1 2   1  40   1   5    0.15000
 1 3   1  40   1   5    0.15000
 1 3   2   2   6  40    0.15000
 1 3  30  30   6  40    0.15000
 2 2   1  40   1   5    0.15000
 2 3   1  40   1   5    0.15000
 2 3   2   2   6  40    0.15000
 2 3  30  30   6  40    0.15000
 1 1   2   2   6  10    0.16667
 1 1   3   3   6  10    0.16667
 1 1   4   4   6  10    0.16667
 1 1  22  22   6  10    0.16667
 1 1  30  30   6  10    0.16667
 1 2   2   2   6  40    0.16667
 1 2   3   3   6  40    0.16667
 1 2   4   4   6  40    0.16667
 1 2  10  10   6  40    0.16667
 1 2  22  22   6  40    0.16667
 1 2  30  30   6  40    0.16667
 1 3   3   3   6  40    0.16667
 1 3   4   4   6  40    0.16667
 1 3   5   5   6  40    0.16667
 1 3  10  10   6  40    0.16667
 1 3  22  22   6  40    0.16667
 1 3  26  26   6  40    0.16667
 2 1   1  40   1   5    0.16667
 2 1   2   2   6  10    0.16667
 2 1   3   3   6  10    0.16667
 2 1   4   4   6  10    0.16667
 2 1  22  22   6  10    0.16667
 2 1  30  30   6  10    0.16667
 2 2   2   2   6  40    0.16667
 2 2   3   3   6  40    0.16667
 2 2   4   4   6  40    0.16667
 2 2  22  22   6  40    0.16667
 2 2  30  30   6  40    0.16667
 2 3   3   3   6  40    0.16667
 2 3   4   4   6  40    0.16667
 2 3   5   5   6  40    0.16667
 2 3  10  10   6  40    0.16667
 2 3  22  22   6  40    0.16667
 1 1   1   5   1   1    0.18333
 1 1   2   5   2   2    0.18333
 1 1   3   5   3   3    0.18333
 1 1   5   5   6  10    0.18333
 1 1  10  10   6  10    0.18333
 1 1  26  26   6  10    0.18333
 1 2   5   5   6  40    0.18333
 1 2  26  26   6  40    0.18333
 2 1   5   5   6  10    0.18333
 2 1  10  10   6  10    0.18333
 2 1  26  26   6  10    0.18333
 2 2   5   5   6  40    0.18333
 2 2  10  10   6  40    0.18333
 2 2  26  26   6  40    0.18333
 2 3  26  26   6  40    0.18333
 1 1   1   5   6  10    0.21667
 1 1   1   5   6  10    0.21667
 1 1   4   5   4   4    0.21667
 1 1   5   5   5   5    0.21667
 1 1   6  40   1   5    0.21667
 1 1   6  40   6  10    0.21667
 1 2   1   5   1   1    0.21667
 1 3   1   5   1   1    0.21667
 1 3   2   5   2   2    0.21667
 1 3   3   5   3   3    0.21667
 1 3   4   5   4   4    0.21667
 1 3   5   5   5   5    0.21667
 2 1   1   5   6  10    0.21667
 2 1   6  40   6  10    0.21667
 1 2   1   5   6  10    0.23333
 1 2   1   5   6  40    0.23333
 1 2   2   5   2   2    0.23333
 1 2   3   5   3   3    0.23333
 1 2   4   5   4   4    0.23333
 1 2   5   5   5   5    0.23333
 1 2   6  40   1   5    0.23333
 1 2   6  40   6  10    0.23333
 1 3   1   5   6  40    0.23333
 1 3   1   5   6  40    0.23333
 1 3   6  40   1   5    0.23333
 1 3   6  40   6  40    0.23333
 2 2   1   5   6  40    0.23333
 2 2   6  40   6  10    0.23333
 2 3   1   5   6  40    0.23333
 2 3   6  40   6  40    0.23333
 1 1   6   6   1   5    0.28333
 1 1   6  40   6  10    0.28333
 1 1  15  15   1   5    0.28333
 2 1   6   6   1   5    0.28333
 2 1   6  40   6  10    0.28333
 2 1  15  15   1   5    0.28333
 1 1   7   7   1   5    0.31667
 1 1   8   8   1   5    0.31667
 1 1   9   9   1   5    0.31667
 1 1  14  14   1   5    0.31667
 1 1  37  37   1   5    0.31667
 1 1  37  37   1   5    0.31667
 1 2   6   6   1   5    0.31667
 1 2   6  40   6  10    0.31667
 1 2   7   7   1   5    0.31667
 1 2  15  15   1   5    0.31667
 2 1   7   7   1   5    0.31667
 2 1   8   8   1   5    0.31667
 2 1   9   9   1   5    0.31667
 2 1  14  14   1   5    0.31667
 2 1  37  37   1   5    0.31667
 2 2   6   6   1   5    0.31667
 2 2   6  40   6  10    0.31667
 2 2  15  15   1   5    0.31667
 1 1   2   2  11  15    0.33333
 1 1   3   3  11  15    0.33333
 1 1  10  10   1   5    0.33333
 1 1  15  15   1   5    0.33333
 1 1  30  30  11  15    0.33333
 1 2   8   8   1   5    0.33333
 1 2   9   9   1   5    0.33333
 1 2  14  14   1   5    0.33333
 1 2  37  37   1   5    0.33333
 1 2  37  37   1   5    0.33333
 2 1   2   2  11  15    0.33333
 2 1   3   3  11  15    0.33333
 2 1  10  10   1   5    0.33333
 2 1  15  15   1   5    0.33333
 2 1  30  30  11  15    0.33333
 2 1  37  37   1   5    0.33333
 2 2   7   7   1   5    0.33333
 2 2   8   8   1   5    0.33333
 2 2   9   9   1   5    0.33333
 2 2  14  14   1   5    0.33333
 2 2  37  37   1   5    0.33333
 1 1   4   4  11  15    0.35000
 1 1   5   5  11  15    0.35000
 1 1   6   6  11  15    0.35000
 1 1  10  10  11  15    0.35000
 1 1  22  22  11  15    0.35000
 1 1  26  26  11  15    0.35000
 1 2   6   6  11  40    0.35000
 1 2   7   7  11  40    0.35000
 1 2  10  10   1   5    0.35000
 1 2  15  15   1   5    0.35000
 1 2  15  15  11  40    0.35000
 2 1   4   4  11  15    0.35000
 2 1   5   5  11  15    0.35000
 2 1   6   6  11  15    0.35000
 2 1  10  10  11  15    0.35000
 2 1  22  22  11  15    0.35000
 2 1  26  26  11  15    0.35000
 2 2   6   6  11  40    0.35000
 2 2   7   7  11  40    0.35000
 2 2  10  10   1   5    0.35000
 2 2  15  15   1   5    0.35000
 2 2  15  15  11  40    0.35000
 2 2  37  37   1   5    0.35000
 1 1   7   7  11  15    0.36667
 1 1   8   8  11  15    0.36667
 1 1  14  14  11  15    0.36667
 1 1  15  15  11  15    0.36667
 1 1  37  37  11  15    0.36667
 1 2   8   8  11  40    0.36667
 1 2   9   9  11  40    0.36667
 1 2  10  10  11  40    0.36667
 1 2  14  14  11  40    0.36667
 1 2  37  37  11  40    0.36667
 1 2  37  37  11  40    0.36667
 2 1   7   7  11  15    0.36667
 2 1   8   8  11  15    0.36667
 2 1  14  14  11  15    0.36667
 2 1  15  15  11  15    0.36667
 2 1  37  37  11  15    0.36667
 2 2   8   8  11  40    0.36667
 2 2   9   9  11  40    0.36667
 2 2  14  14  11  40    0.36667
 2 2  37  37  11  40    0.36667
 2 2  37  37  11  40    0.36667
 1 1   9   9  11  15    0.38333
 1 1  10  10  11  15    0.38333
 1 1  15  15  11  15    0.38333
 1 1  37  37  11  15    0.38333
 1 2   1   5  11  40    0.38333
 1 2   6  10   1   5    0.38333
 1 2   6  10  11  40    0.38333
 1 2  15  15  11  40    0.38333
 2 1   9   9  11  15    0.38333
 2 1  10  10  11  15    0.38333
 2 1  15  15  11  15    0.38333
 2 1  37  37  11  15    0.38333
 2 2   6  10  11  40    0.38333
 2 2  10  10  11  40    0.38333
 2 2  15  15  11  40    0.38333
 1 1   1  10   1   1    0.41667
 1 1   2  10   2   2    0.41667
 1 1   3  10   3   3    0.41667
 1 1   4  10   4   4    0.41667
 1 1   5  10   5   5    0.41667
 1 1   6  10   6   6    0.41667
 1 1   7  10   7   7    0.41667
 1 1   1  10  11  15    0.43333
 1 1   1  10  11  15    0.43333
 1 1   8  10   8   8    0.43333
 1 1   9  10   9   9    0.43333
 1 1  10  10  10  10    0.43333
 1 1  11  40   1  10    0.43333
 1 1  11  40  11  15    0.43333
 2 1   1  10  11  15    0.43333
 2 1  11  40  11  15    0.43333
 1 2   6  10   6   6    0.46667
 1 2   6  10  11  40    0.46667
 1 2   7  10   7   7    0.46667
 1 2   8  10   8   8    0.46667
 1 2   9  10   9   9    0.46667
 1 2  10  10  10  10    0.46667
 2 2   6  10  11  40    0.46667
 1 2   1  10  11  15    0.48333
 1 2  11  40   1  10    0.48333
 1 2  11  40  11  15    0.48333
 2 2  11  40  11  15    0.48333
 1 1  11  11   1  10    0.55000
 1 1  11  40  11  15    0.55000
 1 1  12  12   1  10    0.55000
 1 1  32  32   1  10    0.55000
 2 1  11  11   1  10    0.55000
 2 1  11  40  11  15    0.55000
 2 1  12  12   1  10    0.55000
 2 1  32  32   1  10    0.55000
 1 1  13  13   1  10    0.56667
 1 1  14  14   1  10    0.56667
 1 1  15  15   1  10    0.56667
 1 1  27  27   1  10    0.56667
 1 1  36  36   1  10    0.56667
 1 1  39  39   1  10    0.56667
 2 1  13  13   1  10    0.56667
 2 1  14  14   1  10    0.56667
 2 1  27  27   1  10    0.56667
 2 1  36  36   1  10    0.56667
 2 1  39  39   1  10    0.56667
 1 1   2   2  16  20    0.58333
 1 1   3   3  16  20    0.58333
 1 1  20  20   1  10    0.58333
 1 1  22  22  16  20    0.58333
 1 1  30  30  16  20    0.58333
 1 2  11  40  11  15    0.58333
 2 1   2   2  16  20    0.58333
 2 1   3   3  16  20    0.58333
 2 1  15  15   1  10    0.58333
 2 1  20  20   1  10    0.58333
 2 1  22  22  16  20    0.58333
 2 1  30  30  16  20    0.58333
 1 1   4   4  16  20    0.61667
 1 1   5   5  16  20    0.61667
 1 1   6   6  16  20    0.61667
 1 1  10  10  16  20    0.61667
 1 1  15  15  16  20    0.61667
 1 1  26  26  16  20    0.61667
 1 2  11  11   1  10    0.61667
 1 2  12  12   1  10    0.61667
 1 2  13  13   1  10    0.61667
 1 2  32  32   1  10    0.61667
 1 2  36  36   1  10    0.61667
 1 3   6   6   1   5    0.61667
 1 3   6  40   6  10    0.61667
 1 3  15  15   1   5    0.61667
 2 1   4   4  16  20    0.61667
 2 1   5   5  16  20    0.61667
 2 1   6   6  16  20    0.61667
 2 1  10  10  16  20    0.61667
 2 1  26  26  16  20    0.61667
 2 2  11  11   1  10    0.61667
 2 2  11  40  11  15    0.61667
 2 2  12  12   1  10    0.61667
 2 2  13  13   1  10    0.61667
 2 2  32  32   1  10    0.61667
 2 2  36  36   1  10    0.61667
 2 3   6   6   1   5    0.61667
 2 3   6  40   6  10    0.61667
 1 1   7   7  16  20    0.63333
 1 1   8   8  16  20    0.63333
 1 1   9   9  16  20    0.63333
 1 1  14  14  16  20    0.63333
 1 1  37  37  16  20    0.63333
 1 2  11  11  16  40    0.63333
 1 2  14  14   1  10    0.63333
 1 2  15  15   1  10    0.63333
 1 2  20  20   1  10    0.63333
 1 2  27  27   1  10    0.63333
 1 2  39  39   1  10    0.63333
 1 3   7   7   1   5    0.63333
 1 3   8   8   1   5    0.63333
 1 3   9   9   1   5    0.63333
 1 3  14  14   1   5    0.63333
 1 3  37  37   1   5    0.63333
 2 1   7   7  16  20    0.63333
 2 1   8   8  16  20    0.63333
 2 1   9   9  16  20    0.63333
 2 1  14  14  16  20    0.63333
 2 1  15  15  16  20    0.63333
 2 1  37  37  16  20    0.63333
 2 2  14  14   1  10    0.63333
 2 2  15  15   1  10    0.63333
 2 2  20  20   1  10    0.63333
 2 2  27  27   1  10    0.63333
 2 2  39  39   1  10    0.63333
 2 3   7   7   1   5    0.63333
 2 3   8   8   1   5    0.63333
 2 3   9   9   1   5    0.63333
 2 3  14  14   1   5    0.63333
 2 3  15  15   1   5    0.63333
 2 3  37  37   1   5    0.63333
 1 1  10  10  16  20    0.65000
 1 1  11  11  16  20    0.65000
 1 1  12  12  16  20    0.65000
 1 1  15  15  16  20    0.65000
 1 1  32  32  16  20    0.65000
 1 1  37  37  16  20    0.65000
 1 2  32  32  16  40    0.65000
 1 3   6   6  11  40    0.65000
 1 3   7   7  11  40    0.65000
 1 3  10  10   1   5    0.65000
 1 3  15  15   1   5    0.65000
 1 3  15  15  11  40    0.65000
 1 3  37  37   1   5    0.65000
 2 1  10  10  16  20    0.65000
 2 1  11  11  16  20    0.65000
 2 1  15  15  16  20    0.65000
 2 1  32  32  16  20    0.65000
 2 1  37  37  16  20    0.65000
 2 2  11  11  16  40    0.65000
 2 3   6   6  11  40    0.65000
 2 3  10  10   1   5    0.65000
 2 3  15  15   1   5    0.65000
 2 3  15  15  11  40    0.65000
 2 3  37  37   1   5    0.65000
 1 1  13  13  16  20    0.66667
 1 1  14  14  16  20    0.66667
 1 1  27  27  16  20    0.66667
 1 1  36  36  16  20    0.66667
 1 1  39  39  16  20    0.66667
 1 2  12  12  16  40    0.66667
 1 2  13  13  16  40    0.66667
 1 2  14  14  16  40    0.66667
 1 2  27  27  16  40    0.66667
 1 2  36  36  16  40    0.66667
 1 3   8   8  11  40    0.66667
 1 3   9   9  11  40    0.66667
 1 3  14  14  11  40    0.66667
 1 3  37  37  11  40    0.66667
 1 3  37  37  11  40    0.66667
 2 1  12  12  16  20    0.66667
 2 1  13  13  16  20    0.66667
 2 1  14  14  16  20    0.66667
 2 1  27  27  16  20    0.66667
 2 1  36  36  16  20    0.66667
 2 1  39  39  16  20    0.66667
 2 2  12  12  16  40    0.66667
 2 2  13  13  16  40    0.66667
 2 2  14  14  16  40    0.66667
 2 2  27  27  16  40    0.66667
 2 2  32  32  16  40    0.66667
 2 2  36  36  16  40    0.66667
 2 3   7   7  11  40    0.66667
 2 3   8   8  11  40    0.66667
 2 3   9   9  11  40    0.66667
 2 3  14  14  11  40    0.66667
 2 3  37  37  11  40    0.66667
 2 3  37  37  11  40    0.66667
 1 1  15  15  16  20    0.68333
 1 1  20  20  16  20    0.68333
 1 2   1  10  16  40    0.68333
 1 2  11  15   1  10    0.68333
 1 2  15  15  16  40    0.68333
 1 2  20  20  16  40    0.68333
 1 2  39  39  16  40    0.68333
 1 3  10  10  11  40    0.68333
 1 3  15  15  11  40    0.68333
 2 1  15  15  16  20    0.68333
 2 1  20  20  16  20    0.68333
 2 2  15  15  16  40    0.68333
 2 2  20  20  16  40    0.68333
 2 2  39  39  16  40    0.68333
 2 3  10  10  11  40    0.68333
 2 3  15  15  11  40    0.68333
 1 2  11  15  16  40    0.71667
 1 3   6  10   6   6    0.71667
 1 3   7  10   7   7    0.71667
 1 3   8  10   8   8    0.71667
 1 3   9  10   9   9    0.71667
 2 2  11  15  16  40    0.71667
 1 1   1  15   1   1    0.73333
 1 1   2  15   2   2    0.73333
 1 1   3  15   3   3    0.73333
 1 1   4  15   4   4    0.73333
 1 1   5  15   5   5    0.73333
 1 1   6  15   6   6    0.73333
 1 1   7  15   7   7    0.73333
 1 1   8  15   8   8    0.73333
 1 1   9  15   9   9    0.73333
 1 3   6  10  11  40    0.73333
 1 3   6  10  11  40    0.73333
 1 3  10  10  10  10    0.73333
 1 3  11  40   6  10    0.73333
 1 3  11  40  11  40    0.73333
 2 3   6  10  11  40    0.73333
 2 3  11  40  11  40    0.73333
 1 1   1  15  16  20    0.75000
 1 1   1  15  16  20    0.75000
 1 1  10  15  10  10    0.75000
 1 1  11  15  11  11    0.75000
 1 1  12  15  12  12    0.75000
 1 1  13  15  13  13    0.75000
 1 1  14  15  14  14    0.75000
 1 1  15  15  15  15    0.75000
 1 1  16  40   1  15    0.75000
 1 1  16  40  16  20    0.75000
 2 1   1  15  16  20    0.75000
 2 1  16  40  16  20    0.76667
 1 2   1  15  16  20    0.81667
 1 2  11  15  11  11    0.81667
 1 2  11  15  16  40    0.81667
 1 2  12  15  12  12    0.81667
 1 2  13  15  13  13    0.81667
 1 2  14  15  14  14    0.81667
 1 2  15  15  15  15    0.81667
 1 2  16  40   1  15    0.81667
 2 2  11  15  16  40    0.81667
 1 2  16  40  16  20    0.83333
 2 2  16  40  16  20    0.83333
 1 1  16  40  16  20    0.88333
 1 1   2   2  21  25    0.91667
 1 1  16  16   1  15    0.91667
 1 1  17  17   1  15    0.91667
 1 1  18  18   1  15    0.91667
 1 1  19  19   1  15    0.91667
 1 1  20  20   1  15    0.91667
 1 1  31  31   1  15    0.91667
 1 1  32  32   1  15    0.91667
 1 1  34  34   1  15    0.91667
 1 1  36  36   1  15    0.91667
 1 1  40  40   1  15    0.91667
 2 1  16  16   1  15    0.91667
 2 1  16  40  16  20    0.91667
 2 1  17  17   1  15    0.91667
 2 1  18  18   1  15    0.91667
 2 1  19  19   1  15    0.91667
 2 1  20  20   1  15    0.91667
 2 1  31  31   1  15    0.91667
 2 1  32  32   1  15    0.91667
 2 1  34  34   1  15    0.91667
 2 1  36  36   1  15    0.91667
 2 1  40  40   1  15    0.91667
 1 1   3   3  21  25    0.93333
 1 1   4   4  21  25    0.93333
 1 1   5   5  21  25    0.93333
 1 1   6   6  21  25    0.93333
 1 1   7   7  21  25    0.93333
 1 1  10  10  21  25    0.93333
 1 1  14  14  21  25    0.93333
 1 1  15  15  21  25    0.93333
 1 1  22  22  21  25    0.93333
 1 1  26  26  21  25    0.93333
 1 1  30  30  21  25    0.93333
 2 1   2   2  21  25    0.93333
 2 1   3   3  21  25    0.93333
 2 1   4   4  21  25    0.93333
 2 1   5   5  21  25    0.93333
 2 1   6   6  21  25    0.93333
 2 1   7   7  21  25    0.93333
 2 1  10  10  21  25    0.93333
 2 1  14  14  21  25    0.93333
 2 1  15  15  21  25    0.93333
 2 1  22  22  21  25    0.93333
 2 1  26  26  21  25    0.93333
 2 1  30  30  21  25    0.93333
 1 1   8   8  21  25    0.95000
 1 1   9   9  21  25    0.95000
 1 1  37  37  21  25    0.95000
 1 2  16  16   1  15    0.95000
 1 2  16  40  16  20    0.95000
 1 2  17  17   1  15    0.95000
 1 2  36  36   1  15    0.95000
 1 2  40  40   1  15    0.95000
 2 1   8   8  21  25    0.95000
 2 1  37  37  21  25    0.95000
 2 2  16  16   1  15    0.95000
 2 2  16  40  16  20    0.95000
 2 2  17  17   1  15    0.95000
 2 2  40  40   1  15    0.95000
 1 1  10  10  21  25    0.96667
 1 1  11  11  21  25    0.96667
 1 1  15  15  21  25    0.96667
 1 1  32  32  21  25    0.96667
 1 1  37  37  21  25    0.96667
 1 2  18  18   1  15    0.96667
 1 2  19  19   1  15    0.96667
 1 2  20  20   1  15    0.96667
 1 2  31  31   1  15    0.96667
 1 2  32  32   1  15    0.96667
 2 1   9   9  21  25    0.96667
 2 1  10  10  21  25    0.96667
 2 1  11  11  21  25    0.96667
 2 1  15  15  21  25    0.96667
 2 1  32  32  21  25    0.96667
 2 1  37  37  21  25    0.96667
 2 2  18  18   1  15    0.96667
 2 2  19  19   1  15    0.96667
 2 2  20  20   1  15    0.96667
 2 2  31  31   1  15    0.96667
 2 2  32  32   1  15    0.96667
 2 2  36  36   1  15    0.96667
 1 1  12  12  21  25    1.00000
 1 1  13  13  21  25    1.00000
 1 1  14  14  21  25    1.00000
 1 1  27  27  21  25    1.00000
 1 1  36  36  21  25    1.00000
 1 1  39  39  21  25    1.00000
 1 2   1  15  21  40    1.00000
 1 2  16  16  21  40    1.00000
 1 2  16  20   1  15    1.00000
 1 2  16  20  21  40    1.00000
 1 2  17  17  21  40    1.00000
 1 2  18  18  21  40    1.00000
 1 2  19  19  21  40    1.00000
 1 2  20  20  21  40    1.00000
 1 2  31  31  21  40    1.00000
 1 2  32  32  21  40    1.00000
 1 2  34  34   1  15    1.00000
 1 2  34  34  21  40    1.00000
 1 2  36  36  21  40    1.00000
 1 2  40  40  21  40    1.00000
 2 1  12  12  21  25    1.00000
 2 1  13  13  21  25    1.00000
 2 1  14  14  21  25    1.00000
 2 1  27  27  21  25    1.00000
 2 1  36  36  21  25    1.00000
 2 2  16  16  21  40    1.00000
 2 2  16  20  21  40    1.00000
 2 2  17  17  21  40    1.00000
 2 2  18  18  21  40    1.00000
 2 2  19  19  21  40    1.00000
 2 2  20  20  21  40    1.00000
 2 2  31  31  21  40    1.00000
 2 2  32  32  21  40    1.00000
 2 2  34  34   1  15    1.00000
 2 2  34  34  21  40    1.00000
 2 2  36  36  21  40    1.00000
 2 2  40  40  21  40    1.00000
 1 1  15  15  21  25    1.01667
 1 1  16  16  21  25    1.01667
 1 1  17  17  21  25    1.01667
 1 1  18  18  21  25    1.01667
 1 1  19  19  21  25    1.01667
 1 1  20  20  21  25    1.01667
 1 1  31  31  21  25    1.01667
 1 1  32  32  21  25    1.01667
 1 1  36  36  21  25    1.01667
 1 1  40  40  21  25    1.01667
 1 3  11  11   1  10    1.01667
 1 3  11  40  11  15    1.01667
 1 3  12  12   1  10    1.01667
 1 3  13  13   1  10    1.01667
 1 3  32  32   1  10    1.01667
 1 3  36  36   1  10    1.01667
 2 1  15  15  21  25    1.01667
 2 1  16  16  21  25    1.01667
 2 1  17  17  21  25    1.01667
 2 1  18  18  21  25    1.01667
 2 1  19  19  21  25    1.01667
 2 1  20  20  21  25    1.01667
 2 1  31  31  21  25    1.01667
 2 1  32  32  21  25    1.01667
 2 1  36  36  21  25    1.01667
 2 1  39  39  21  25    1.01667
 2 1  40  40  21  25    1.01667
 2 3  11  11   1  10    1.01667
 2 3  11  40  11  15    1.01667
 2 3  12  12   1  10    1.01667
 2 3  32  32   1  10    1.01667
 2 3  36  36   1  10    1.01667
 1 1  20  20  21  25    1.03333
 1 1  34  34  21  25    1.03333
 1 3  14  14   1  10    1.03333
 1 3  15  15   1  10    1.03333
 1 3  20  20   1  10    1.03333
 1 3  27  27   1  10    1.03333
 1 3  39  39   1  10    1.03333
 2 1  20  20  21  25    1.03333
 2 1  34  34  21  25    1.03333
 2 3  13  13   1  10    1.03333
 2 3  14  14   1  10    1.03333
 2 3  15  15   1  10    1.03333
 2 3  20  20   1  10    1.03333
 2 3  27  27   1  10    1.03333
 2 3  39  39   1  10    1.03333
 1 3  11  11  16  40    1.05000
 1 3  12  12  16  40    1.05000
 1 3  13  13  16  40    1.05000
 1 3  27  27  16  40    1.05000
 1 3  32  32  16  40    1.05000
 1 3  36  36  16  40    1.05000
 2 3  11  11  16  40    1.05000
 2 3  12  12  16  40    1.05000
 2 3  13  13  16  40    1.05000
 2 3  32  32  16  40    1.05000
 2 3  36  36  16  40    1.05000
 1 3  14  14  16  40    1.06667
 1 3  15  15  16  40    1.06667
 1 3  20  20  16  40    1.06667
 1 3  39  39  16  40    1.06667
 2 3  14  14  16  40    1.06667
 2 3  15  15  16  40    1.06667
 2 3  20  20  16  40    1.06667
 2 3  27  27  16  40    1.06667
 2 3  39  39  16  40    1.06667
 1 1   1  20   1   1    1.08333
 1 1   1  20  21  25    1.08333
 1 1   2  20   2   2    1.08333
 1 1   3  20   3   3    1.08333
 1 1   4  20   4   4    1.08333
 1 1   5  20   5   5    1.08333
 1 1   6  20   6   6    1.08333
 1 1   7  20   7   7    1.08333
 1 1   8  20   8   8    1.08333
 1 1   9  20   9   9    1.08333
 1 1  10  20  10  10    1.08333
 1 1  11  20  11  11    1.08333
 1 1  12  20  12  12    1.08333
 1 1  13  20  13  13    1.08333
 1 1  14  20  14  14    1.08333
 1 1  15  20  15  15    1.08333
 1 1  16  20  16  16    1.08333
 1 1  17  20  17  17    1.08333
 1 1  18  20  18  18    1.08333
 1 1  19  20  19  19    1.08333
 1 1  20  20  20  20    1.08333
 1 2  16  20  16  16    1.08333
 1 3  11  15  11  11    1.08333
 1 3  12  15  12  12    1.08333
 2 1   1  20  21  25    1.08333
 1 1   1  20  21  25    1.11667
 1 1  21  40   1  20    1.11667
 1 1  21  40  21  25    1.11667
 1 2   1  20  21  25    1.11667
 1 2  16  20  21  40    1.11667
 1 2  17  20  17  17    1.11667
 1 2  18  20  18  18    1.11667
 1 2  19  20  19  19    1.11667
 1 2  20  20  20  20    1.11667
 1 2  21  40   1  20    1.11667
 1 2  21  40  21  25    1.11667
 1 3  11  15  16  40    1.11667
 1 3  11  15  16  40    1.11667
 1 3  13  15  13  13    1.11667
 1 3  14  15  14  14    1.11667
 1 3  15  15  15  15    1.11667
 1 3  16  40  11  15    1.11667
 2 1  21  40  21  25    1.11667
 2 2  16  20  21  40    1.11667
 2 2  21  40  21  25    1.11667
 2 3  11  15  16  40    1.11667
 1 3  16  40  16  40    1.13333
 2 3  16  40  16  40    1.13333
 1 1  21  21   1  20    1.23333
 1 1  21  40  21  25    1.23333
 2 1  21  21   1  20    1.23333
 2 1  21  40  21  25    1.23333
 1 1   2   2  26  30    1.25000
 1 1   3   3  26  30    1.25000
 1 1  22  22   1  20    1.25000
 1 1  22  22  26  30    1.25000
 1 1  24  24   1  20    1.25000
 1 1  24  24   1  20    1.25000
 1 1  25  25   1  20    1.25000
 1 1  29  29   1  20    1.25000
 1 1  30  30  26  30    1.25000
 1 1  35  35   1  20    1.25000
 1 1  39  39   1  20    1.25000
 1 2  21  21   1  20    1.25000
 1 2  21  21  26  40    1.25000
 1 2  21  40  21  25    1.25000
 1 2  22  22   1  20    1.25000
 1 2  22  22  26  40    1.25000
 1 2  24  24   1  20    1.25000
 1 2  24  24   1  20    1.25000
 1 2  24  24  26  40    1.25000
 1 2  24  24  26  40    1.25000
 1 2  25  25   1  20    1.25000
 1 2  29  29   1  20    1.25000
 1 2  35  35   1  20    1.25000
 1 2  35  35  26  40    1.25000
 1 2  39  39   1  20    1.25000
 1 2  39  39  26  40    1.25000
 2 1   2   2  26  30    1.25000
 2 1   3   3  26  30    1.25000
 2 1  22  22   1  20    1.25000
 2 1  22  22  26  30    1.25000
 2 1  24  24   1  20    1.25000
 2 1  24  24   1  20    1.25000
 2 1  25  25   1  20    1.25000
 2 1  29  29   1  20    1.25000
 2 1  30  30  26  30    1.25000
 2 1  35  35   1  20    1.25000
 2 1  39  39   1  20    1.25000
 2 2  21  21   1  20    1.25000
 2 2  21  21  26  40    1.25000
 2 2  21  40  21  25    1.25000
 2 2  22  22   1  20    1.25000
 2 2  22  22  26  40    1.25000
 2 2  24  24   1  20    1.25000
 2 2  24  24   1  20    1.25000
 2 2  24  24  26  40    1.25000
 2 2  24  24  26  40    1.25000
 2 2  25  25   1  20    1.25000
 2 2  29  29   1  20    1.25000
 2 2  35  35   1  20    1.25000
 2 2  35  35  26  40    1.25000
 2 2  39  39   1  20    1.25000
 2 2  39  39  26  40    1.25000
 1 1   4   4  26  30    1.26667
 1 1   5   5  26  30    1.26667
 1 1   6   6  26  30    1.26667
 1 1  10  10  26  30    1.26667
 1 1  15  15  26  30    1.26667
 1 1  26  26  26  30    1.26667
 1 2   1  20  26  40    1.26667
 1 2  21  25   1  20    1.26667
 1 2  21  25  26  40    1.26667
 1 2  25  25  26  40    1.26667
 1 2  29  29  26  40    1.26667
 2 1   4   4  26  30    1.26667
 2 1   5   5  26  30    1.26667
 2 1   6   6  26  30    1.26667
 2 1  10  10  26  30    1.26667
 2 1  26  26  26  30    1.26667
 2 2  21  25  26  40    1.26667
 2 2  25  25  26  40    1.26667
 2 2  29  29  26  40    1.26667
 1 1   7   7  26  30    1.28333
 1 1   8   8  26  30    1.28333
 1 1   9   9  26  30    1.28333
 1 1  14  14  26  30    1.28333
 1 1  37  37  26  30    1.28333
 2 1   7   7  26  30    1.28333
 2 1   8   8  26  30    1.28333
 2 1   9   9  26  30    1.28333
 2 1  14  14  26  30    1.28333
 2 1  15  15  26  30    1.28333
 2 1  37  37  26  30    1.28333
 1 1  10  10  26  30    1.31667
 1 1  11  11  26  30    1.31667
 1 1  12  12  26  30    1.31667
 1 1  15  15  26  30    1.31667
 1 1  32  32  26  30    1.31667
 1 1  37  37  26  30    1.31667
 2 1  10  10  26  30    1.31667
 2 1  11  11  26  30    1.31667
 2 1  15  15  26  30    1.31667
 2 1  32  32  26  30    1.31667
 2 1  37  37  26  30    1.31667
 1 1  13  13  26  30    1.33333
 1 1  14  14  26  30    1.33333
 1 1  27  27  26  30    1.33333
 1 1  36  36  26  30    1.33333
 1 1  39  39  26  30    1.33333
 1 3  16  40  16  20    1.33333
 2 1  12  12  26  30    1.33333
 2 1  13  13  26  30    1.33333
 2 1  14  14  26  30    1.33333
 2 1  27  27  26  30    1.33333
 2 1  36  36  26  30    1.33333
 2 1  39  39  26  30    1.33333
 1 1  15  15  26  30    1.35000
 1 1  16  16  26  30    1.35000
 1 1  17  17  26  30    1.35000
 1 1  20  20  26  30    1.35000
 1 1  36  36  26  30    1.35000
 1 1  40  40  26  30    1.35000
 1 3  16  16   1  15    1.35000
 1 3  17  17   1  15    1.35000
 1 3  18  18   1  15    1.35000
 1 3  36  36   1  15    1.35000
 1 3  40  40   1  15    1.35000
 2 1  15  15  26  30    1.35000
 2 1  16  16  26  30    1.35000
 2 1  17  17  26  30    1.35000
 2 1  20  20  26  30    1.35000
 2 1  40  40  26  30    1.35000
 2 3  16  16   1  15    1.35000
 2 3  16  40  16  20    1.35000
 2 3  17  17   1  15    1.35000
 2 3  18  18   1  15    1.35000
 2 3  36  36   1  15    1.35000
 2 3  40  40   1  15    1.35000
 1 1  18  18  26  30    1.36667
 1 1  19  19  26  30    1.36667
 1 1  20  20  26  30    1.36667
 1 1  31  31  26  30    1.36667
 1 1  32  32  26  30    1.36667
 1 3  16  16  21  40    1.36667
 1 3  19  19   1  15    1.36667
 1 3  20  20   1  15    1.36667
 1 3  31  31   1  15    1.36667
 1 3  32  32   1  15    1.36667
 1 3  34  34   1  15    1.36667
 2 1  18  18  26  30    1.36667
 2 1  19  19  26  30    1.36667
 2 1  20  20  26  30    1.36667
 2 1  31  31  26  30    1.36667
 2 1  32  32  26  30    1.36667
 2 1  36  36  26  30    1.36667
 2 3  19  19   1  15    1.36667
 2 3  20  20   1  15    1.36667
 2 3  31  31   1  15    1.36667
 2 3  32  32   1  15    1.36667
 2 3  34  34   1  15    1.36667
 1 1  21  21  26  30    1.38333
 1 1  22  22  26  30    1.38333
 1 1  24  24  26  30    1.38333
 1 1  24  24  26  30    1.38333
 1 1  34  34  26  30    1.38333
 1 1  39  39  26  30    1.38333
 1 2   1  25  26  30    1.38333
 1 2  21  25  21  21    1.38333
 1 2  21  25  26  40    1.38333
 1 2  22  25  22  22    1.38333
 1 2  23  25  23  23    1.38333
 1 2  24  25  24  24    1.38333
 1 2  25  25  25  25    1.38333
 1 2  26  40   1  25    1.38333
 1 2  26  40  26  30    1.38333
 1 3  17  17  21  40    1.38333
 1 3  18  18  21  40    1.38333
 1 3  31  31  21  40    1.38333
 1 3  36  36  21  40    1.38333
 1 3  40  40  21  40    1.38333
 2 1  21  21  26  30    1.38333
 2 1  22  22  26  30    1.38333
 2 1  24  24  26  30    1.38333
 2 1  34  34  26  30    1.38333
 2 1  39  39  26  30    1.38333
 2 2  21  25  26  40    1.38333
 2 2  26  40  26  30    1.38333
 2 3  16  16  21  40    1.38333
 2 3  17  17  21  40    1.38333
 2 3  18  18  21  40    1.38333
 2 3  31  31  21  40    1.38333
 2 3  36  36  21  40    1.38333
 2 3  40  40  21  40    1.38333
 1 1  25  25  26  30    1.41667
 1 1  29  29  26  30    1.41667
 1 1  35  35  26  30    1.41667
 1 3  19  19  21  40    1.41667
 1 3  20  20  21  40    1.41667
 1 3  32  32  21  40    1.41667
 1 3  34  34  21  40    1.41667
 2 1  24  24  26  30    1.41667
 2 1  25  25  26  30    1.41667
 2 1  29  29  26  30    1.41667
 2 1  35  35  26  30    1.41667
 2 3  19  19  21  40    1.41667
 2 3  20  20  21  40    1.41667
 2 3  32  32  21  40    1.41667
 2 3  34  34  21  40    1.41667
 1 3  16  20  16  16    1.43333
 1 3  17  20  17  17    1.43333
 1 3  18  20  18  18    1.43333
 1 3  19  20  19  19    1.43333
 1 3  20  20  20  20    1.43333
 1 3  16  20  21  40    1.45000
 1 3  16  20  21  40    1.45000
 1 3  21  40  16  20    1.45000
 1 3  21  40  21  40    1.45000
 2 3  16  20  21  40    1.45000
 2 3  21  40  21  40    1.45000
 1 1   1  25   1   1    1.48333
 1 1   2  25   2   2    1.51667
 1 1   3  25   3   3    1.51667
 1 1   4  25   4   4    1.51667
 1 1   5  25   5   5    1.51667
 1 1   6  25   6   6    1.51667
 1 1   7  25   7   7    1.51667
 1 1   8  25   8   8    1.51667
 1 1   9  25   9   9    1.51667
 1 1  10  25  10  10    1.51667
 1 1  11  25  11  11    1.51667
 1 1  12  25  12  12    1.51667
 1 2  26  26   1  25    1.51667
 1 2  26  40  26  30    1.51667
 2 2  26  26   1  25    1.51667
 2 2  26  40  26  30    1.51667
 1 1  13  25  13  13    1.53333
 1 1  14  25  14  14    1.53333
 1 1  15  25  15  15    1.53333
 1 1  16  25  16  16    1.53333
 1 1  17  25  17  17    1.53333
 1 1  18  25  18  18    1.53333
 1 1  19  25  19  19    1.53333
 1 1  20  25  20  20    1.53333
 1 1  21  25  21  21    1.53333
 1 1  22  25  22  22    1.53333
 1 1  23  25  23  23    1.53333
 1 2  27  27   1  25    1.53333
 1 2  28  28   1  25    1.53333
 1 2  38  38   1  25    1.53333
 1 2  39  39   1  25    1.53333
 1 2  40  40   1  25    1.53333
 2 2  27  27   1  25    1.53333
 2 2  28  28   1  25    1.53333
 2 2  38  38   1  25    1.53333
 2 2  40  40   1  25    1.53333
 1 1   1  25  26  30    1.55000
 1 1   1  25  26  30    1.55000
 1 1  24  25  24  24    1.55000
 1 1  25  25  25  25    1.55000
 1 1  26  40   1  25    1.55000
 1 1  26  40  26  30    1.55000
 2 1   1  25  26  30    1.55000
 2 1  26  40  26  30    1.55000
 2 2  39  39   1  25    1.55000
 1 2  30  30   1  25    1.56667
 1 3  21  40  21  25    1.56667
 2 2  30  30   1  25    1.56667
 1 2   1  25  31  40    1.58333
 1 2  26  26  31  40    1.58333
 1 2  26  30   1  25    1.58333
 1 2  27  27  31  40    1.58333
 1 2  28  28  31  40    1.58333
 1 2  30  30  31  40    1.58333
 1 2  37  37   1  25    1.58333
 1 2  37  37  31  40    1.58333
 1 2  38  38  31  40    1.58333
 1 2  39  39  31  40    1.58333
 1 2  40  40  31  40    1.58333
 1 3  21  21   1  20    1.58333
 1 3  21  21  26  40    1.58333
 1 3  22  22   1  20    1.58333
 1 3  22  22  26  40    1.58333
 1 3  24  24   1  20    1.58333
 1 3  24  24   1  20    1.58333
 1 3  24  24  26  40    1.58333
 1 3  24  24  26  40    1.58333
 1 3  25  25   1  20    1.58333
 1 3  25  25  26  40    1.58333
 1 3  29  29   1  20    1.58333
 1 3  29  29  26  40    1.58333
 1 3  35  35   1  20    1.58333
 1 3  35  35  26  40    1.58333
 1 3  39  39   1  20    1.58333
 1 3  39  39  26  40    1.58333
 2 2  26  26  31  40    1.58333
 2 2  27  27  31  40    1.58333
 2 2  28  28  31  40    1.58333
 2 2  30  30  31  40    1.58333
 2 2  37  37   1  25    1.58333
 2 2  37  37  31  40    1.58333
 2 2  38  38  31  40    1.58333
 2 2  39  39  31  40    1.58333
 2 2  40  40  31  40    1.58333
 2 3  21  21   1  20    1.58333
 2 3  21  21  26  40    1.58333
 2 3  21  40  21  25    1.58333
 2 3  22  22   1  20    1.58333
 2 3  22  22  26  40    1.58333
 2 3  24  24   1  20    1.58333
 2 3  24  24   1  20    1.58333
 2 3  24  24  26  40    1.58333
 2 3  24  24  26  40    1.58333
 2 3  25  25   1  20    1.58333
 2 3  25  25  26  40    1.58333
 2 3  29  29   1  20    1.58333
 2 3  35  35   1  20    1.58333
 2 3  35  35  26  40    1.58333
 2 3  39  39   1  20    1.58333
 2 3  39  39  26  40    1.58333
 1 2  26  30  31  40    1.61667
 1 3  21  25  21  21    1.61667
 1 3  21  25  26  40    1.61667
 1 3  21  25  26  40    1.61667
 1 3  22  25  22  22    1.61667
 1 3  23  25  23  23    1.61667
 1 3  24  25  24  24    1.61667
 1 3  25  25  25  25    1.61667
 1 3  26  40  21  25    1.61667
 1 3  26  40  26  40    1.61667
 2 2  26  30  31  40    1.61667
 2 3  21  25  26  40    1.61667
 2 3  26  40  26  40    1.61667
 2 3  29  29  26  40    1.61667
 1 1  26  40  26  30    1.66667
 2 1  26  40  26  30    1.66667
 1 1  26  26   1  25    1.68333
 1 1  27  27   1  25    1.68333
 1 1  28  28   1  25    1.68333
 1 1  38  38   1  25    1.68333
 1 1  39  39   1  25    1.68333
 1 1  40  40   1  25    1.68333
 1 2  26  30  26  26    1.68333
 1 2  26  30  31  40    1.68333
 1 2  27  30  27  27    1.68333
 1 2  28  30  28  28    1.68333
 1 2  29  30  29  29    1.68333
 1 2  30  30  30  30    1.68333
 1 3  26  26   1  25    1.68333
 1 3  26  40  26  30    1.68333
 1 3  40  40   1  25    1.68333
 2 1  26  26   1  25    1.68333
 2 1  27  27   1  25    1.68333
 2 1  28  28   1  25    1.68333
 2 1  38  38   1  25    1.68333
 2 1  40  40   1  25    1.68333
 2 3  26  26   1  25    1.68333
 2 3  26  40  26  30    1.68333
 2 3  40  40   1  25    1.68333
 1 1   2   2  31  35    1.71667
 1 1   3   3  31  35    1.71667
 1 1  30  30   1  25    1.71667
 1 1  30  30  31  35    1.71667
 1 1  37  37   1  25    1.71667
 1 2   1  30  31  35    1.71667
 1 2  31  40   1  30    1.71667
 1 2  31  40  31  35    1.71667
 1 3  26  26  31  40    1.71667
 1 3  27  27   1  25    1.71667
 1 3  28  28   1  25    1.71667
 1 3  30  30   1  25    1.71667
 1 3  37  37   1  25    1.71667
 1 3  38  38   1  25    1.71667
 1 3  39  39   1  25    1.71667
 1 3  40  40  31  40    1.71667
 2 1   2   2  31  35    1.71667
 2 1  30  30   1  25    1.71667
 2 1  30  30  31  35    1.71667
 2 1  37  37   1  25    1.71667
 2 1  39  39   1  25    1.71667
 2 2  26  30  31  40    1.71667
 2 2  31  40  31  35    1.71667
 2 3  26  26  31  40    1.71667
 2 3  27  27   1  25    1.71667
 2 3  28  28   1  25    1.71667
 2 3  30  30   1  25    1.71667
 2 3  37  37   1  25    1.71667
 2 3  38  38   1  25    1.71667
 2 3  39  39   1  25    1.71667
 2 3  40  40  31  40    1.71667
 1 1   4   4  31  35    1.73334
 1 1   5   5  31  35    1.73334
 1 1   6   6  31  35    1.73334
 1 1   7   7  31  35    1.73334
 1 1  10  10  31  35    1.73334
 1 1  15  15  31  35    1.73334
 1 1  22  22  31  35    1.73334
 1 1  26  26  31  35    1.73334
 1 3  26  30  26  26    1.73334
 1 3  27  27  31  40    1.73334
 1 3  27  30  27  27    1.73334
 1 3  28  28  31  40    1.73334
 1 3  28  30  28  28    1.73334
 1 3  29  30  29  29    1.73334
 1 3  30  30  30  30    1.73334
 1 3  30  30  31  40    1.73334
 1 3  37  37  31  40    1.73334
 1 3  38  38  31  40    1.73334
 1 3  39  39  31  40    1.73334
 2 1   3   3  31  35    1.73334
 2 1   4   4  31  35    1.73334
 2 1   5   5  31  35    1.73334
 2 1   6   6  31  35    1.73334
 2 1   7   7  31  35    1.73334
 2 1  10  10  31  35    1.73334
 2 1  15  15  31  35    1.73334
 2 1  22  22  31  35    1.73334
 2 1  26  26  31  35    1.73334
 2 3  27  27  31  40    1.73334
 2 3  28  28  31  40    1.73334
 2 3  30  30  31  40    1.73334
 2 3  37  37  31  40    1.73334
 2 3  38  38  31  40    1.73334
 2 3  39  39  31  40    1.73334
 1 1   8   8  31  35    1.75000
 1 1   9   9  31  35    1.75000
 1 1  14  14  31  35    1.75000
 1 1  37  37  31  35    1.75000
 1 1  37  37  31  35    1.75000
 1 3  26  30  31  40    1.75000
 1 3  26  30  31  40    1.75000
 1 3  31  40  26  30    1.75000
 1 3  31  40  31  40    1.75000
 2 1   8   8  31  35    1.75000
 2 1   9   9  31  35    1.75000
 2 1  14  14  31  35    1.75000
 2 1  37  37  31  35    1.75000
 2 3  26  30  31  40    1.75000
 2 3  31  40  31  40    1.75000
 1 1  10  10  31  35    1.76667
 2 1  10  10  31  35    1.76667
 2 1  37  37  31  35    1.76667
 1 1  11  11  31  35    1.78334
 1 1  12  12  31  35    1.78334
 1 1  13  13  31  35    1.78334
 1 1  15  15  31  35    1.78334
 1 1  32  32  31  35    1.78334
 1 1  36  36  31  35    1.78334
 1 3  31  31   1  30    1.78334
 1 3  31  40  31  35    1.78334
 2 1  11  11  31  35    1.78334
 2 1  12  12  31  35    1.78334
 2 1  15  15  31  35    1.78334
 2 1  32  32  31  35    1.78334
 2 1  36  36  31  35    1.78334
 2 3  31  31   1  30    1.78334
 2 3  31  40  31  35    1.78334
 1 1  14  14  31  35    1.81667
 1 1  15  15  31  35    1.81667
 1 1  20  20  31  35    1.81667
 1 1  27  27  31  35    1.81667
 1 1  39  39  31  35    1.81667
 1 2  31  31   1  30    1.81667
 1 2  31  40  31  35    1.81667
 1 2  33  33   1  30    1.81667
 1 2  39  39   1  30    1.81667
 1 2  40  40   1  30    1.81667
 1 3  31  31  36  40    1.81667
 1 3  33  33   1  30    1.81667
 1 3  35  35   1  30    1.81667
 1 3  38  38   1  30    1.81667
 1 3  39  39   1  30    1.81667
 1 3  40  40   1  30    1.81667
 2 1  13  13  31  35    1.81667
 2 1  14  14  31  35    1.81667
 2 1  15  15  31  35    1.81667
 2 1  20  20  31  35    1.81667
 2 1  27  27  31  35    1.81667
 2 1  39  39  31  35    1.81667
 2 2  31  31   1  30    1.81667
 2 2  31  40  31  35    1.81667
 2 2  33  33   1  30    1.81667
 2 2  40  40   1  30    1.81667
 2 3  33  33   1  30    1.81667
 2 3  35  35   1  30    1.81667
 2 3  38  38   1  30    1.81667
 2 3  39  39   1  30    1.81667
 2 3  40  40   1  30    1.81667
 1 1  16  16  31  35    1.83334
 1 1  17  17  31  35    1.83334
 1 1  18  18  31  35    1.83334
 1 1  31  31  31  35    1.83334
 1 1  36  36  31  35    1.83334
 1 1  40  40  31  35    1.83334
 1 2   1  30  36  40    1.83334
 1 2  31  31  36  40    1.83334
 1 2  31  35   1  30    1.83334
 1 2  31  35  36  40    1.83334
 1 2  33  33  36  40    1.83334
 1 2  35  35   1  30    1.83334
 1 2  35  35  36  40    1.83334
 1 2  38  38   1  30    1.83334
 1 2  38  38  36  40    1.83334
 1 2  39  39  36  40    1.83334
 1 2  40  40  36  40    1.83334
 1 3  33  33  36  40    1.83334
 1 3  35  35  36  40    1.83334
 1 3  38  38  36  40    1.83334
 1 3  39  39  36  40    1.83334
 1 3  40  40  36  40    1.83334
 2 1  16  16  31  35    1.83334
 2 1  17  17  31  35    1.83334
 2 1  18  18  31  35    1.83334
 2 1  36  36  31  35    1.83334
 2 1  40  40  31  35    1.83334
 2 2  31  31  36  40    1.83334
 2 2  31  35  36  40    1.83334
 2 2  33  33  36  40    1.83334
 2 2  35  35   1  30    1.83334
 2 2  35  35  36  40    1.83334
 2 2  38  38   1  30    1.83334
 2 2  38  38  36  40    1.83334
 2 2  39  39   1  30    1.83334
 2 2  39  39  36  40    1.83334
 2 2  40  40  36  40    1.83334
 2 3  31  31  36  40    1.83334
 2 3  33  33  36  40    1.83334
 2 3  35  35  36  40    1.83334
 2 3  38  38  36  40    1.83334
 2 3  39  39  36  40    1.83334
 2 3  40  40  36  40    1.83334
 1 1  19  19  31  35    1.85000
 1 1  20  20  31  35    1.85000
 1 1  21  21  31  35    1.85000
 1 1  32  32  31  35    1.85000
 1 1  34  34  31  35    1.85000
 1 3  31  35  31  31    1.85000
 1 3  31  35  36  40    1.85000
 1 3  32  35  32  32    1.85000
 1 3  33  35  33  33    1.85000
 1 3  34  35  34  34    1.85000
 1 3  35  35  35  35    1.85000
 1 3  36  40  31  35    1.85000
 2 1  19  19  31  35    1.85000
 2 1  20  20  31  35    1.85000
 2 1  21  21  31  35    1.85000
 2 1  31  31  31  35    1.85000
 2 1  32  32  31  35    1.85000
 2 1  34  34  31  35    1.85000
 2 3  31  35  36  40    1.85000
 1 1  22  22  31  35    1.86667
 1 1  24  24  31  35    1.86667
 1 1  24  24  31  35    1.86667
 1 1  35  35  31  35    1.86667
 1 1  39  39  31  35    1.86667
 1 3  31  35  36  40    1.86667
 1 3  36  40  36  40    1.86667
 1 3  36  40  36  40    1.86667
 2 1  22  22  31  35    1.86667
 2 1  24  24  31  35    1.86667
 2 1  24  24  31  35    1.86667
 2 1  35  35  31  35    1.86667
 2 1  39  39  31  35    1.86667
 2 3  36  40  36  40    1.86667
 1 1  25  25  31  35    1.88334
 1 1  26  26  31  35    1.88334
 1 1  27  27  31  35    1.88334
 1 1  29  29  31  35    1.88334
 1 1  38  38  31  35    1.88334
 1 1  40  40  31  35    1.88334
 1 2  31  35  31  31    1.88334
 1 2  32  35  32  32    1.88334
 1 2  33  35  33  33    1.88334
 1 2  34  35  34  34    1.88334
 1 2  35  35  35  35    1.88334
 1 3  36  36   1  35    1.88334
 1 3  37  37   1  35    1.88334
 1 3  38  38   1  35    1.88334
 1 3  39  39   1  35    1.88334
 1 3  39  39   1  35    1.88334
 2 1  25  25  31  35    1.88334
 2 1  26  26  31  35    1.88334
 2 1  27  27  31  35    1.88334
 2 1  29  29  31  35    1.88334
 2 1  40  40  31  35    1.88334
 2 3  36  36   1  35    1.88334
 2 3  36  40  36  40    1.88334
 2 3  37  37   1  35    1.88334
 2 3  38  38   1  35    1.88334
 2 3  39  39   1  35    1.88334
 2 3  39  39   1  35    1.88334
 1 1  28  28  31  35    1.91667
 1 1  30  30  31  35    1.91667
 1 1  37  37  31  35    1.91667
 1 1  39  39  31  35    1.91667
 1 2   1  35  36  40    1.91667
 1 2  31  35  36  40    1.91667
 1 2  36  40   1  35    1.91667
 1 2  36  40  36  40    1.91667
 1 3  39  39   1  35    1.91667
 2 1  28  28  31  35    1.91667
 2 1  30  30  31  35    1.91667
 2 1  37  37  31  35    1.91667
 2 1  38  38  31  35    1.91667
 2 1  39  39  31  35    1.91667
 2 2  31  35  36  40    1.91667
 2 2  36  40  36  40    1.91667
 2 3  39  39   1  35    1.91667
 1 2  36  36   1  35    1.96667
 1 2  36  40  36  40    1.96667
 1 2  39  39   1  35    1.96667
 2 2  36  36   1  35    1.96667
 2 2  36  40  36  40    1.96667
 1 2  37  37   1  35    2.00000
 1 2  38  38   1  35    2.00000
 1 2  39  39   1  35    2.00000
 1 2  39  39   1  35    2.00000
 2 2  37  37   1  35    2.00000
 2 2  38  38   1  35    2.00000
 2 2  39  39   1  35    2.00000
 2 2  39  39   1  35    2.00000
 2 2  39  39   1  35    2.00000
 1 1   1  30   1   1    2.03334
 1 1   2  30   2   2    2.03334
 1 1   3  30   3   3    2.03334
 1 1   4  30   4   4    2.05000
 1 1   5  30   5   5    2.05000
 1 1   6  30   6   6    2.05000
 1 1   7  30   7   7    2.05000
 1 1   8  30   8   8    2.05000
 1 1   9  30   9   9    2.05000
 1 1  10  30  10  10    2.05000
 1 1  11  30  11  11    2.05000
 1 1  12  30  12  12    2.05000
 1 1  13  30  13  13    2.05000
 1 1  14  30  14  14    2.05000
 1 1  15  30  15  15    2.06667
 1 1  16  30  16  16    2.06667
 1 1  17  30  17  17    2.06667
 1 1  18  30  18  18    2.06667
 1 1  19  30  19  19    2.06667
 1 1  20  30  20  20    2.06667
 1 1  21  30  21  21    2.06667
 1 1  22  30  22  22    2.06667
 1 1  23  30  23  23    2.06667
 1 1  24  30  24  24    2.06667
 1 1  25  30  25  25    2.06667
 1 1   1  30  31  35    2.08334
 1 1   1  30  31  35    2.08334
 1 1  26  30  26  26    2.08334
 1 1  27  30  27  27    2.08334
 1 1  28  30  28  28    2.08334
 1 1  29  30  29  29    2.08334
 1 1  30  30  30  30    2.08334
 1 1  31  40   1  30    2.08334
 1 1  31  40  31  35    2.08334
 2 1   1  30  31  35    2.08334
 2 1  31  40  31  35    2.08334
 1 1  31  31   1  30    2.18334
 1 1  31  40  31  35    2.18334
 2 1  31  40  31  35    2.18334
 1 1  33  33   1  30    2.21667
 1 1  35  35   1  30    2.21667
 1 1  38  38   1  30    2.21667
 1 1  39  39   1  30    2.21667
 1 1  40  40   1  30    2.21667
 2 1  31  31   1  30    2.21667
 2 1  33  33   1  30    2.21667
 2 1  35  35   1  30    2.21667
 2 1  38  38   1  30    2.21667
 2 1  39  39   1  30    2.21667
 2 1  40  40   1  30    2.21667
 1 1   2   2  36  40    2.23334
 1 1   3   3  36  40    2.23334
 1 1   4   4  36  40    2.23334
 1 1  10  10  36  40    2.23334
 1 1  22  22  36  40    2.23334
 1 1  30  30  36  40    2.23334
 2 1   2   2  36  40    2.23334
 2 1   3   3  36  40    2.23334
 2 1   4   4  36  40    2.23334
 2 1  22  22  36  40    2.23334
 2 1  30  30  36  40    2.23334
 1 1   5   5  36  40    2.25000
 1 1   6   6  36  40    2.25000
 1 1   7   7  36  40    2.25000
 1 1  15  15  36  40    2.25000
 1 1  26  26  36  40    2.25000
 2 1   5   5  36  40    2.25000
 2 1   6   6  36  40    2.25000
 2 1   7   7  36  40    2.25000
 2 1  10  10  36  40    2.25000
 2 1  15  15  36  40    2.25000
 2 1  26  26  36  40    2.25000
 1 1   8   8  36  40    2.26667
 1 1   9   9  36  40    2.26667
 1 1  10  10  36  40    2.26667
 1 1  14  14  36  40    2.26667
 1 1  37  37  36  40    2.26667
 1 1  37  37  36  40    2.26667
 2 1   8   8  36  40    2.26667
 2 1   9   9  36  40    2.26667
 2 1  14  14  36  40    2.26667
 2 1  37  37  36  40    2.26667
 2 1  37  37  36  40    2.26667
 1 1  11  11  36  40    2.28334
 1 1  12  12  36  40    2.28334
 1 1  15  15  36  40    2.28334
 1 1  32  32  36  40    2.28334
 1 1  36  36  36  40    2.28334
 2 1  10  10  36  40    2.28334
 2 1  11  11  36  40    2.28334
 2 1  12  12  36  40    2.28334
 2 1  15  15  36  40    2.28334
 2 1  32  32  36  40    2.28334
 2 1  36  36  36  40    2.28334
 1 1  13  13  36  40    2.31667
 1 1  14  14  36  40    2.31667
 1 1  15  15  36  40    2.31667
 1 1  20  20  36  40    2.31667
 1 1  27  27  36  40    2.31667
 1 1  39  39  36  40    2.31667
 2 1  13  13  36  40    2.31667
 2 1  14  14  36  40    2.31667
 2 1  15  15  36  40    2.31667
 2 1  27  27  36  40    2.31667
 2 1  39  39  36  40    2.31667
 1 1  16  16  36  40    2.33334
 1 1  17  17  36  40    2.33334
 1 1  18  18  36  40    2.33334
 1 1  36  36  36  40    2.33334
 1 1  40  40  36  40    2.33334
 2 1  16  16  36  40    2.33334
 2 1  17  17  36  40    2.33334
 2 1  18  18  36  40    2.33334
 2 1  20  20  36  40    2.33334
 2 1  36  36  36  40    2.33334
 2 1  40  40  36  40    2.33334
 1 1  19  19  36  40    2.35000
 1 1  20  20  36  40    2.35000
 1 1  21  21  36  40    2.35000
 1 1  31  31  36  40    2.35000
 1 1  32  32  36  40    2.35000
 1 1  34  34  36  40    2.35000
 2 1  19  19  36  40    2.35000
 2 1  20  20  36  40    2.35000
 2 1  31  31  36  40    2.35000
 2 1  32  32  36  40    2.35000
 2 1  34  34  36  40    2.35000
 1 1  22  22  36  40    2.36667
 1 1  24  24  36  40    2.36667
 1 1  24  24  36  40    2.36667
 1 1  35  35  36  40    2.36667
 1 1  39  39  36  40    2.36667
 2 1  21  21  36  40    2.36667
 2 1  22  22  36  40    2.36667
 2 1  24  24  36  40    2.36667
 2 1  24  24  36  40    2.36667
 2 1  35  35  36  40    2.36667
 2 1  39  39  36  40    2.36667
 1 1  25  25  36  40    2.38334
 1 1  26  26  36  40    2.38334
 1 1  27  27  36  40    2.38334
 1 1  29  29  36  40    2.38334
 1 1  38  38  36  40    2.38334
 1 1  40  40  36  40    2.38334
 2 1  25  25  36  40    2.38334
 2 1  26  26  36  40    2.38334
 2 1  27  27  36  40    2.38334
 2 1  29  29  36  40    2.38334
 2 1  40  40  36  40    2.38334
 1 1  28  28  36  40    2.41667
 1 1  30  30  36  40    2.41667
 1 1  37  37  36  40    2.41667
 1 1  39  39  36  40    2.41667
 2 1  28  28  36  40    2.41667
 2 1  30  30  36  40    2.41667
 2 1  37  37  36  40    2.41667
 2 1  38  38  36  40    2.41667
 2 1  39  39  36  40    2.41667
 1 1  31  31  36  40    2.43334
 1 1  33  33  36  40    2.43334
 1 1  35  35  36  40    2.43334
 1 1  38  38  36  40    2.43334
 1 1  39  39  36  40    2.43334
 1 1  40  40  36  40    2.43334
 2 1  31  31  36  40    2.43334
 2 1  33  33  36  40    2.43334
 2 1  35  35  36  40    2.43334
 2 1  38  38  36  40    2.43334
 2 1  39  39  36  40    2.43334
 2 1  40  40  36  40    2.43334
 1 1   1  35   1   1    2.61667
 1 1   2  35   2   2    2.61667
 1 1   3  35   3   3    2.61667
 1 1   4  35   4   4    2.61667
 1 1   5  35   5   5    2.61667
 1 1   6  35   6   6    2.61667
 1 1   7  35   7   7    2.61667
 1 1   8  35   8   8    2.61667
 1 1   9  35   9   9    2.61667
 1 1  10  35  10  10    2.61667
 1 1  11  35  11  11    2.61667
 1 1  12  35  12  12    2.63334
 1 1  13  35  13  13    2.63334
 1 1  14  35  14  14    2.63334
 1 1  15  35  15  15    2.63334
 1 1  16  35  16  16    2.63334
 1 1  17  35  17  17    2.63334
 1 1  18  35  18  18    2.63334
 1 1  19  35  19  19    2.63334
 1 1  20  35  20  20    2.63334
 1 1  21  35  21  21    2.63334
 1 1  22  35  22  22    2.63334
 1 1   1  35  36  40    2.65000
 1 1   1  35  36  40    2.65000
 1 1  23  35  23  23    2.65000
 1 1  24  35  24  24    2.65000
 1 1  25  35  25  25    2.65000
 1 1  26  35  26  26    2.65000
 1 1  27  35  27  27    2.65000
 1 1  28  35  28  28    2.65000
 1 1  29  35  29  29    2.65000
 1 1  30  35  30  30    2.65000
 1 1  31  35  31  31    2.65000
 1 1  32  35  32  32    2.65000
 1 1  33  35  33  33    2.65000
 1 1  34  35  34  34    2.65000
 1 1  35  35  35  35    2.65000
 1 1  36  40   1  35    2.65000
 1 1  36  40  36  40    2.65000
 2 1   1  35  36  40    2.65000
 2 1  36  40  36  40    2.65000
 1 1  36  36   1  35    2.71667
 1 1  36  40  36  40    2.71667
 2 1  36  36   1  35    2.71667
 2 1  36  40  36  40    2.71667
 1 1  37  37   1  35    2.73334
 1 1  38  38   1  35    2.73334
 1 1  39  39   1  35    2.73334
 1 1  39  39   1  35    2.73334
 1 1  39  39   1  35    2.73334
 2 1  37  37   1  35    2.73334
 2 1  38  38   1  35    2.73334
 2 1  39  39   1  35    2.73334
 2 1  39  39   1  35    2.73334
 2 1  39  39   1  35    2.75000
SHAR_EOF
if test -f 'open_memoryfile.c'
then
	echo shar: over-writing existing file "'open_memoryfile.c'"
fi
cat << \SHAR_EOF > 'open_memoryfile.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

open_memoryfile()
{
  int i;
  char string[80];

  if (file_opened)
    fclose(memory_file);
  get_max_time(file_table[ft_index], &max_time);
  if ((memory_file = fopen(file_table[ft_index], "r")) == NULL)
    {
      file_opened = FALSE;
      set_label(info_message, "Unable to open the file.");
    }
  else
    {
      file_opened = TRUE;
      set_label(info_message, "The file is open and ready for processing.");
      for (i = 0; i < 4 ; i++)
        {
          sprintf(string, "%d", r_counter[i] = 0);
          set_label(reads_counter[i], string);
          sprintf(string, "%d", w_counter[i] = 0);
          set_label(writes_counter[i], string);
          sprintf(string, "%d", op_counts[i] = 0);
          set_label(ops_counter[i], string);
          set_label(sub_name[i], " ");
          set_label(header_message[i], " ");
        }
      sprintf(string, "%d", num_cache_hits = 0);
      set_label(cache_hits, string);
      sprintf(string, "%d", num_cache_misses = 0);
      set_label(cache_misses, string);
      sprintf(string, "%d%%", 0);
      set_label(hit_ratio, string);
      for (i = 0; i < NUMBER_OF_CANVASES; i++)
        {
          clear_screen(pw[i], CANVAS_SIZE, CANVAS_SIZE);
          has_been_accessed[i] = FALSE;
        }
      clear_screen(pw_cache, CACHE_WIDTH, CACHE_HEIGHT);
      clear_screen(pw_histogram, HISTOGRAM_WIDTH, HISTOGRAM_HEIGHT);
      clear_screen(pw_timeline, TIMELINE_WIDTH, TIMELINE_HEIGHT);
      text(pw_histogram, 100, 490, "Number of references -->");
      text(pw_timeline, 200, 490, "Time -->");
      for (i = 0; i < 500; i++)
        num_accesses[i] = 0;
      cache_init();
      time_mark = 0.0;
      current_op_count = 0;
    }
}

get_max_time(fname, max_time)
char  *fname;
float *max_time;
{
  int i, opcode;
  float time;
  char message[81];

  if ((memory_file = fopen(fname,"r")) == NULL )
    set_label(info_message, "Unable to open the file.");
  else
    {
      while (fscanf(memory_file,"%d",&opcode) != EOF)
        {
          switch ( opcode )
            {
              case 0: /* Matrix Defn */
                fscanf(memory_file, "%*d %*d %*d");
                break;
              case 1: /* Read */
              case 2: /* Write */
                fscanf(memory_file, "%*d %*d %*d %*d %*d %f",&time);
                break;
              case 3: /* Ignore */
                fscanf(memory_file, "%*d");
                break;
              case 4: /* Informational message on the array. */
                fscanf(memory_file, "%*d");
                while ((message[0] = getc(memory_file)) == ' ');
                i = 1;
                while ((message[i] = getc(memory_file)) != '\n')
                  i++;
                message[i] = '\0';
                break;
              case 5: /* FLOPS & subroutine name. */
                fscanf(memory_file,"%*d %*d %*s");
                break;
            }
        }
      fclose(memory_file);
      *max_time = time;
    }
  return;
}
SHAR_EOF
if test -f 'memory.sgetrf'
then
	echo shar: over-writing existing file "'memory.sgetrf'"
fi
cat << \SHAR_EOF > 'memory.sgetrf'
  4  1  LU decomposition LAPACK blocked
  0  1  50  50
 5  1      0 strsm
 1 1   1  50   1   4    0.00000
 2 1   1  50   1   4    0.00000
 1 1   1   1   5   8    0.00000
 2 1  37  37   5   8    0.00000
 1 1   2   2   5   8    0.00000
 2 1   9   9   5   8    0.01667
 1 1   3   3   5   8    0.01667
 2 1  44  44   5   8    0.01667
 1 1   4   4   5   8    0.01667
 2 1  26  26   5   8    0.01667
 5  1     64 strsm
 1 1   1   4   1   1    0.01667
 1 1   1   4   5   8    0.03333
 2 1   1   4   5   8    0.03333
 1 1   2   4   2   2    0.03333
 1 1   2   4   5   8    0.03333
 2 1   2   4   5   8    0.03333
 1 1   3   4   3   3    0.03333
 1 1   3   4   5   8    0.03333
 2 1   3   4   5   8    0.03333
 1 1   4   4   4   4    0.03333
 1 1   4   4   5   8    0.05000
 2 1   4   4   5   8    0.05000
 5  1   1472 sgemm
 1 1   5  50   1   4    0.05000
 1 1   1   4   5   8    0.05000
 1 1   5  50   5   8    0.05000
 2 1   5  50   5   8    0.05000
 1 1   5  50   5   8    0.13333
 2 1   5  50   5   8    0.13333
 1 1   5   5   1   4    0.13333
 2 1  41  41   1   4    0.15000
 1 1   6   6   1   4    0.15000
 2 1  24  24   1   4    0.15000
 1 1   7   7   1   4    0.15000
 2 1  34  34   1   4    0.15000
 1 1   8   8   1   4    0.15000
 2 1  16  16   1   4    0.15000
 1 1   1   1   9  12    0.15000
 2 1  37  37   9  12    0.18333
 1 1   2   2   9  12    0.18333
 2 1   9   9   9  12    0.18333
 1 1   3   3   9  12    0.18333
 2 1  44  44   9  12    0.18333
 1 1   4   4   9  12    0.18333
 2 1  26  26   9  12    0.18333
 1 1   5   5   9  12    0.18333
 2 1  41  41   9  12    0.18333
 1 1   6   6   9  12    0.20000
 2 1  24  24   9  12    0.20000
 1 1   7   7   9  12    0.20000
 2 1  34  34   9  12    0.20000
 1 1   8   8   9  12    0.20000
 2 1  16  16   9  12    0.20000
 5  1    256 strsm
 1 1   1   8   1   1    0.21667
 1 1   1   8   9  12    0.21667
 2 1   1   8   9  12    0.21667
 1 1   2   8   2   2    0.21667
 1 1   2   8   9  12    0.21667
 2 1   2   8   9  12    0.21667
 1 1   3   8   3   3    0.21667
 1 1   3   8   9  12    0.23333
 2 1   3   8   9  12    0.23333
 1 1   4   8   4   4    0.23333
 1 1   4   8   9  12    0.23333
 2 1   4   8   9  12    0.23333
 1 1   5   8   5   5    0.23333
 1 1   5   8   9  12    0.23333
 2 1   5   8   9  12    0.23333
 1 1   6   8   6   6    0.23333
 1 1   6   8   9  12    0.23333
 2 1   6   8   9  12    0.23333
 1 1   7   8   7   7    0.23333
 1 1   7   8   9  12    0.23333
 2 1   7   8   9  12    0.23333
 1 1   8   8   8   8    0.23333
 1 1   8   8   9  12    0.23333
 2 1   8   8   9  12    0.23333
 5  1   2688 sgemm
 1 1   9  50   1   8    0.25000
 1 1   1   8   9  12    0.25000
 1 1   9  50   9  12    0.25000
 2 1   9  50   9  12    0.25000
 1 1   9  50   9  12    0.38333
 2 1   9  50   9  12    0.38333
 1 1   9   9   1   8    0.38333
 2 1  15  15   1   8    0.38333
 1 1  10  10   1   8    0.38333
 2 1  45  45   1   8    0.38333
 1 1  11  11   1   8    0.38333
 2 1  47  47   1   8    0.38333
 1 1  12  12   1   8    0.38333
 2 1  35  35   1   8    0.38333
 1 1   1   1  13  16    0.38333
 2 1  37  37  13  16    0.38333
 1 1   2   2  13  16    0.38333
 2 1   9   9  13  16    0.38333
 1 1   3   3  13  16    0.40000
 2 1  44  44  13  16    0.40000
 1 1   4   4  13  16    0.40000
 2 1  26  26  13  16    0.40000
 1 1   5   5  13  16    0.40000
 2 1  41  41  13  16    0.40000
 1 1   6   6  13  16    0.40000
 2 1  24  24  13  16    0.40000
 1 1   7   7  13  16    0.40000
 2 1  34  34  13  16    0.41667
 1 1   8   8  13  16    0.41667
 2 1  16  16  13  16    0.41667
 1 1   9   9  13  16    0.41667
 2 1  15  15  13  16    0.41667
 1 1  10  10  13  16    0.41667
 2 1  45  45  13  16    0.41667
 1 1  11  11  13  16    0.41667
 2 1  47  47  13  16    0.43333
 1 1  12  12  13  16    0.43333
 2 1  35  35  13  16    0.43333
 5  1    576 strsm
 1 1   1  12   1   1    0.45000
 1 1   1  12  13  16    0.45000
 2 1   1  12  13  16    0.45000
 1 1   2  12   2   2    0.45000
 1 1   2  12  13  16    0.45000
 2 1   2  12  13  16    0.48333
 1 1   3  12   3   3    0.48333
 1 1   3  12  13  16    0.48333
 2 1   3  12  13  16    0.48333
 1 1   4  12   4   4    0.48333
 1 1   4  12  13  16    0.48333
 2 1   4  12  13  16    0.48333
 1 1   5  12   5   5    0.48333
 1 1   5  12  13  16    0.48333
 2 1   5  12  13  16    0.50000
 1 1   6  12   6   6    0.50000
 1 1   6  12  13  16    0.50000
 2 1   6  12  13  16    0.50000
 1 1   7  12   7   7    0.50000
 1 1   7  12  13  16    0.50000
 2 1   7  12  13  16    0.50000
 1 1   8  12   8   8    0.50000
 1 1   8  12  13  16    0.50000
 2 1   8  12  13  16    0.50000
 1 1   9  12   9   9    0.50000
 1 1   9  12  13  16    0.50000
 2 1   9  12  13  16    0.50000
 1 1  10  12  10  10    0.50000
 1 1  10  12  13  16    0.50000
 2 1  10  12  13  16    0.50000
 1 1  11  12  11  11    0.50000
 1 1  11  12  13  16    0.51667
 2 1  11  12  13  16    0.51667
 1 1  12  12  12  12    0.51667
 1 1  12  12  13  16    0.51667
 2 1  12  12  13  16    0.51667
 5  1   3648 sgemm
 1 1  13  50   1  12    0.51667
 1 1   1  12  13  16    0.51667
 1 1  13  50  13  16    0.51667
 2 1  13  50  13  16    0.53333
 1 1  13  50  13  16    0.68333
 2 1  13  50  13  16    0.68333
 1 1  13  13   1  12    0.68333
 2 1  25  25   1  12    0.68333
 1 1  14  14   1  12    0.68333
 2 1  34  34   1  12    0.68333
 1 1  15  15   1  12    0.68333
 2 1  22  22   1  12    0.68333
 1 1  16  16   1  12    0.68333
 2 1  47  47   1  12    0.68333
 1 1   1   1  17  20    0.68333
 2 1  37  37  17  20    0.68333
 1 1   2   2  17  20    0.68333
 2 1   9   9  17  20    0.70000
 1 1   3   3  17  20    0.70000
 2 1  44  44  17  20    0.70000
 1 1   4   4  17  20    0.70000
 2 1  26  26  17  20    0.70000
 1 1   5   5  17  20    0.70000
 2 1  41  41  17  20    0.70000
 1 1   6   6  17  20    0.70000
 2 1  24  24  17  20    0.71667
 1 1   7   7  17  20    0.71667
 2 1  34  34  17  20    0.71667
 1 1   8   8  17  20    0.71667
 2 1  16  16  17  20    0.71667
 1 1   9   9  17  20    0.71667
 2 1  15  15  17  20    0.71667
 1 1  10  10  17  20    0.71667
 2 1  45  45  17  20    0.71667
 1 1  11  11  17  20    0.73333
 2 1  47  47  17  20    0.73333
 1 1  12  12  17  20    0.73333
 2 1  35  35  17  20    0.73333
 1 1  13  13  17  20    0.73333
 2 1  25  25  17  20    0.73333
 1 1  14  14  17  20    0.73333
 2 1  34  34  17  20    0.73333
 1 1  15  15  17  20    0.73333
 2 1  22  22  17  20    0.73333
 1 1  16  16  17  20    0.73333
 2 1  47  47  17  20    0.73333
 5  1   1024 strsm
 1 1   1  16   1   1    0.78333
 1 1   1  16  17  20    0.78333
 2 1   1  16  17  20    0.78333
 1 1   2  16   2   2    0.78333
 1 1   2  16  17  20    0.78333
 2 1   2  16  17  20    0.78333
 1 1   3  16   3   3    0.78333
 1 1   3  16  17  20    0.78333
 2 1   3  16  17  20    0.78333
 1 1   4  16   4   4    0.78333
 1 1   4  16  17  20    0.78333
 2 1   4  16  17  20    0.78333
 1 1   5  16   5   5    0.78333
 1 1   5  16  17  20    0.78333
 2 1   5  16  17  20    0.78333
 1 1   6  16   6   6    0.80000
 1 1   6  16  17  20    0.80000
 2 1   6  16  17  20    0.80000
 1 1   7  16   7   7    0.80000
 1 1   7  16  17  20    0.80000
 2 1   7  16  17  20    0.80000
 1 1   8  16   8   8    0.80000
 1 1   8  16  17  20    0.81667
 2 1   8  16  17  20    0.81667
 1 1   9  16   9   9    0.81667
 1 1   9  16  17  20    0.81667
 2 1   9  16  17  20    0.81667
 1 1  10  16  10  10    0.83333
 1 1  10  16  17  20    0.83333
 2 1  10  16  17  20    0.83333
 1 1  11  16  11  11    0.83333
 1 1  11  16  17  20    0.83333
 2 1  11  16  17  20    0.83333
 1 1  12  16  12  12    0.83333
 1 1  12  16  17  20    0.83333
 2 1  12  16  17  20    0.83333
 1 1  13  16  13  13    0.85000
 1 1  13  16  17  20    0.85000
 2 1  13  16  17  20    0.85000
 1 1  14  16  14  14    0.85000
 1 1  14  16  17  20    0.85000
 2 1  14  16  17  20    0.85000
 1 1  15  16  15  15    0.85000
 1 1  15  16  17  20    0.85000
 2 1  15  16  17  20    0.88333
 1 1  16  16  16  16    0.88333
 1 1  16  16  17  20    0.88333
 2 1  16  16  17  20    0.88333
 5  1   4352 sgemm
 1 1  17  50   1  16    0.88333
 1 1   1  16  17  20    0.88333
 1 1  17  50  17  20    0.88333
 2 1  17  50  17  20    0.88333
 1 1  17  50  17  20    1.05000
 2 1  17  50  17  20    1.05000
 1 1  17  17   1  16    1.05000
 2 1  34  34   1  16    1.05000
 1 1  18  18   1  16    1.05000
 2 1  36  36   1  16    1.05000
 1 1  19  19   1  16    1.08333
 2 1  31  31   1  16    1.08333
 1 1  20  20   1  16    1.08333
 2 1  41  41   1  16    1.08333
 1 1   1   1  21  24    1.08333
 2 1  37  37  21  24    1.08333
 1 1   2   2  21  24    1.08333
 2 1   9   9  21  24    1.08333
 1 1   3   3  21  24    1.08333
 2 1  44  44  21  24    1.10000
 1 1   4   4  21  24    1.10000
 2 1  26  26  21  24    1.10000
 1 1   5   5  21  24    1.10000
 2 1  41  41  21  24    1.10000
 1 1   6   6  21  24    1.10000
 2 1  24  24  21  24    1.10000
 1 1   7   7  21  24    1.10000
 2 1  34  34  21  24    1.10000
 1 1   8   8  21  24    1.10000
 2 1  16  16  21  24    1.10000
 1 1   9   9  21  24    1.10000
 2 1  15  15  21  24    1.10000
 1 1  10  10  21  24    1.10000
 2 1  45  45  21  24    1.10000
 1 1  11  11  21  24    1.10000
 2 1  47  47  21  24    1.11667
 1 1  12  12  21  24    1.11667
 2 1  35  35  21  24    1.11667
 1 1  13  13  21  24    1.11667
 2 1  25  25  21  24    1.11667
 1 1  14  14  21  24    1.11667
 2 1  34  34  21  24    1.11667
 1 1  15  15  21  24    1.11667
 2 1  22  22  21  24    1.13333
 1 1  16  16  21  24    1.13333
 2 1  47  47  21  24    1.13333
 1 1  17  17  21  24    1.13333
 2 1  34  34  21  24    1.13333
 1 1  18  18  21  24    1.13333
 2 1  36  36  21  24    1.13333
 1 1  19  19  21  24    1.13333
 2 1  31  31  21  24    1.13333
 1 1  20  20  21  24    1.15000
 2 1  41  41  21  24    1.15000
 5  1   1600 strsm
 1 1   1  20   1   1    1.21667
 1 1   1  20  21  24    1.21667
 2 1   1  20  21  24    1.21667
 1 1   2  20   2   2    1.21667
 1 1   2  20  21  24    1.21667
 2 1   2  20  21  24    1.21667
 1 1   3  20   3   3    1.21667
 1 1   3  20  21  24    1.21667
 2 1   3  20  21  24    1.23333
 1 1   4  20   4   4    1.23333
 1 1   4  20  21  24    1.23333
 2 1   4  20  21  24    1.23333
 1 1   5  20   5   5    1.23333
 1 1   5  20  21  24    1.23333
 2 1   5  20  21  24    1.23333
 1 1   6  20   6   6    1.23333
 1 1   6  20  21  24    1.23333
 2 1   6  20  21  24    1.25000
 1 1   7  20   7   7    1.25000
 1 1   7  20  21  24    1.25000
 2 1   7  20  21  24    1.25000
 1 1   8  20   8   8    1.25000
 1 1   8  20  21  24    1.25000
 2 1   8  20  21  24    1.25000
 1 1   9  20   9   9    1.25000
 1 1   9  20  21  24    1.28333
 2 1   9  20  21  24    1.28333
 1 1  10  20  10  10    1.28333
 1 1  10  20  21  24    1.28333
 2 1  10  20  21  24    1.28333
 1 1  11  20  11  11    1.28333
 1 1  11  20  21  24    1.28333
 2 1  11  20  21  24    1.28333
 1 1  12  20  12  12    1.28333
 1 1  12  20  21  24    1.30000
 2 1  12  20  21  24    1.30000
 1 1  13  20  13  13    1.30000
 1 1  13  20  21  24    1.30000
 2 1  13  20  21  24    1.30000
 1 1  14  20  14  14    1.30000
 1 1  14  20  21  24    1.30000
 2 1  14  20  21  24    1.30000
 1 1  15  20  15  15    1.31667
 1 1  15  20  21  24    1.31667
 2 1  15  20  21  24    1.31667
 1 1  16  20  16  16    1.31667
 1 1  16  20  21  24    1.31667
 2 1  16  20  21  24    1.31667
 1 1  17  20  17  17    1.31667
 1 1  17  20  21  24    1.31667
 2 1  17  20  21  24    1.31667
 1 1  18  20  18  18    1.33333
 1 1  18  20  21  24    1.33333
 2 1  18  20  21  24    1.33333
 1 1  19  20  19  19    1.33333
 1 1  19  20  21  24    1.33333
 2 1  19  20  21  24    1.33333
 1 1  20  20  20  20    1.33333
 1 1  20  20  21  24    1.33333
 2 1  20  20  21  24    1.33333
 5  1   4800 sgemm
 1 1  21  50   1  20    1.35000
 1 1   1  20  21  24    1.35000
 1 1  21  50  21  24    1.35000
 2 1  21  50  21  24    1.35000
 1 1  21  50  21  24    1.55000
 2 1  21  50  21  24    1.55000
 1 1  21  21   1  20    1.55000
 2 1  45  45   1  20    1.55000
 1 1  22  22   1  20    1.55000
 2 1  46  46   1  20    1.58333
 1 1  23  23   1  20    1.58333
 2 1  24  24   1  20    1.58333
 1 1  24  24   1  20    1.58333
 2 1  40  40   1  20    1.58333
 1 1   1   1  25  28    1.58333
 2 1  37  37  25  28    1.58333
 1 1   2   2  25  28    1.58333
 2 1   9   9  25  28    1.58333
 1 1   3   3  25  28    1.60000
 2 1  44  44  25  28    1.60000
 1 1   4   4  25  28    1.60000
 2 1  26  26  25  28    1.60000
 1 1   5   5  25  28    1.60000
 2 1  41  41  25  28    1.60000
 1 1   6   6  25  28    1.60000
 2 1  24  24  25  28    1.60000
 1 1   7   7  25  28    1.61667
 2 1  34  34  25  28    1.61667
 1 1   8   8  25  28    1.61667
 2 1  16  16  25  28    1.63333
 1 1   9   9  25  28    1.63333
 2 1  15  15  25  28    1.63333
 1 1  10  10  25  28    1.63333
 2 1  45  45  25  28    1.63333
 1 1  11  11  25  28    1.63333
 2 1  47  47  25  28    1.63333
 1 1  12  12  25  28    1.63333
 2 1  35  35  25  28    1.63333
 1 1  13  13  25  28    1.63333
 2 1  25  25  25  28    1.63333
 1 1  14  14  25  28    1.63333
 2 1  34  34  25  28    1.63333
 1 1  15  15  25  28    1.63333
 2 1  22  22  25  28    1.63333
 1 1  16  16  25  28    1.63333
 2 1  47  47  25  28    1.63333
 1 1  17  17  25  28    1.66667
 2 1  34  34  25  28    1.66667
 1 1  18  18  25  28    1.66667
 2 1  36  36  25  28    1.66667
 1 1  19  19  25  28    1.66667
 2 1  31  31  25  28    1.66667
 1 1  20  20  25  28    1.66667
 2 1  41  41  25  28    1.66667
 1 1  21  21  25  28    1.68333
 2 1  45  45  25  28    1.68333
 1 1  22  22  25  28    1.68333
 2 1  46  46  25  28    1.68333
 1 1  23  23  25  28    1.68333
 2 1  24  24  25  28    1.68333
 1 1  24  24  25  28    1.68333
 2 1  40  40  25  28    1.68333
 5  1   2304 strsm
 1 1   1  24   1   1    1.78334
 1 1   1  24  25  28    1.78334
 2 1   1  24  25  28    1.78334
 1 1   2  24   2   2    1.78334
 1 1   2  24  25  28    1.80000
 2 1   2  24  25  28    1.80000
 1 1   3  24   3   3    1.80000
 1 1   3  24  25  28    1.80000
 2 1   3  24  25  28    1.80000
 1 1   4  24   4   4    1.80000
 1 1   4  24  25  28    1.80000
 2 1   4  24  25  28    1.80000
 1 1   5  24   5   5    1.81667
 1 1   5  24  25  28    1.81667
 2 1   5  24  25  28    1.81667
 1 1   6  24   6   6    1.81667
 1 1   6  24  25  28    1.81667
 2 1   6  24  25  28    1.81667
 1 1   7  24   7   7    1.81667
 1 1   7  24  25  28    1.81667
 2 1   7  24  25  28    1.81667
 1 1   8  24   8   8    1.83334
 1 1   8  24  25  28    1.83334
 2 1   8  24  25  28    1.83334
 1 1   9  24   9   9    1.83334
 1 1   9  24  25  28    1.83334
 2 1   9  24  25  28    1.83334
 1 1  10  24  10  10    1.83334
 1 1  10  24  25  28    1.83334
 2 1  10  24  25  28    1.83334
 1 1  11  24  11  11    1.83334
 1 1  11  24  25  28    1.83334
 2 1  11  24  25  28    1.83334
 1 1  12  24  12  12    1.83334
 1 1  12  24  25  28    1.83334
 2 1  12  24  25  28    1.83334
 1 1  13  24  13  13    1.83334
 1 1  13  24  25  28    1.83334
 2 1  13  24  25  28    1.85000
 1 1  14  24  14  14    1.85000
 1 1  14  24  25  28    1.85000
 2 1  14  24  25  28    1.85000
 1 1  15  24  15  15    1.85000
 1 1  15  24  25  28    1.85000
 2 1  15  24  25  28    1.85000
 1 1  16  24  16  16    1.85000
 1 1  16  24  25  28    1.85000
 2 1  16  24  25  28    1.88334
 1 1  17  24  17  17    1.88334
 1 1  17  24  25  28    1.88334
 2 1  17  24  25  28    1.88334
 1 1  18  24  18  18    1.88334
 1 1  18  24  25  28    1.88334
 2 1  18  24  25  28    1.88334
 1 1  19  24  19  19    1.88334
 1 1  19  24  25  28    1.90000
 2 1  19  24  25  28    1.90000
 1 1  20  24  20  20    1.90000
 1 1  20  24  25  28    1.90000
 2 1  20  24  25  28    1.90000
 1 1  21  24  21  21    1.90000
 1 1  21  24  25  28    1.90000
 2 1  21  24  25  28    1.90000
 1 1  22  24  22  22    1.90000
 1 1  22  24  25  28    1.91667
 2 1  22  24  25  28    1.91667
 1 1  23  24  23  23    1.91667
 1 1  23  24  25  28    1.91667
 2 1  23  24  25  28    1.91667
 1 1  24  24  24  24    1.91667
 1 1  24  24  25  28    1.91667
 2 1  24  24  25  28    1.91667
 5  1   4992 sgemm
 1 1  25  50   1  24    1.93334
 1 1   1  24  25  28    1.93334
 1 1  25  50  25  28    1.93334
 2 1  25  50  25  28    1.93334
 1 1  25  50  25  28    2.11667
 2 1  25  50  25  28    2.13334
 1 1  25  25   1  24    2.13334
 2 1  28  28   1  24    2.13334
 1 1  26  26   1  24    2.13334
 2 1  48  48   1  24    2.13334
 1 1  27  27   1  24    2.13334
 2 1  37  37   1  24    2.13334
 1 1  28  28   1  24    2.13334
 2 1  32  32   1  24    2.13334
 1 1   1   1  29  32    2.13334
 2 1  37  37  29  32    2.15000
 1 1   2   2  29  32    2.15000
 2 1   9   9  29  32    2.15000
 1 1   3   3  29  32    2.15000
 2 1  44  44  29  32    2.15000
 1 1   4   4  29  32    2.15000
 2 1  26  26  29  32    2.15000
 1 1   5   5  29  32    2.15000
 2 1  41  41  29  32    2.15000
 1 1   6   6  29  32    2.15000
 2 1  24  24  29  32    2.15000
 1 1   7   7  29  32    2.15000
 2 1  34  34  29  32    2.15000
 1 1   8   8  29  32    2.15000
 2 1  16  16  29  32    2.15000
 1 1   9   9  29  32    2.15000
 2 1  15  15  29  32    2.15000
 1 1  10  10  29  32    2.18334
 2 1  45  45  29  32    2.18334
 1 1  11  11  29  32    2.18334
 2 1  47  47  29  32    2.18334
 1 1  12  12  29  32    2.18334
 2 1  35  35  29  32    2.18334
 1 1  13  13  29  32    2.18334
 2 1  25  25  29  32    2.18334
 1 1  14  14  29  32    2.20000
 2 1  34  34  29  32    2.20000
 1 1  15  15  29  32    2.20000
 2 1  22  22  29  32    2.20000
 1 1  16  16  29  32    2.20000
 2 1  47  47  29  32    2.20000
 1 1  17  17  29  32    2.20000
 2 1  34  34  29  32    2.20000
 1 1  18  18  29  32    2.21667
 2 1  36  36  29  32    2.21667
 1 1  19  19  29  32    2.21667
 2 1  31  31  29  32    2.21667
 1 1  20  20  29  32    2.21667
 2 1  41  41  29  32    2.21667
 1 1  21  21  29  32    2.21667
 2 1  45  45  29  32    2.21667
 1 1  22  22  29  32    2.23334
 2 1  46  46  29  32    2.23334
 1 1  23  23  29  32    2.23334
 2 1  24  24  29  32    2.23334
 1 1  24  24  29  32    2.23334
 2 1  40  40  29  32    2.23334
 1 1  25  25  29  32    2.23334
 2 1  28  28  29  32    2.23334
 1 1  26  26  29  32    2.23334
 2 1  48  48  29  32    2.25000
 1 1  27  27  29  32    2.25000
 2 1  37  37  29  32    2.25000
 1 1  28  28  29  32    2.25000
 2 1  32  32  29  32    2.25000
 5  1   3136 strsm
 1 1   1  28   1   1    2.38334
 1 1   1  28  29  32    2.38334
 2 1   1  28  29  32    2.38334
 1 1   2  28   2   2    2.38334
 1 1   2  28  29  32    2.38334
 2 1   2  28  29  32    2.38334
 1 1   3  28   3   3    2.38334
 1 1   3  28  29  32    2.38334
 2 1   3  28  29  32    2.38334
 1 1   4  28   4   4    2.40000
 1 1   4  28  29  32    2.40000
 2 1   4  28  29  32    2.40000
 1 1   5  28   5   5    2.40000
 1 1   5  28  29  32    2.40000
 2 1   5  28  29  32    2.40000
 1 1   6  28   6   6    2.40000
 1 1   6  28  29  32    2.40000
 2 1   6  28  29  32    2.41667
 1 1   7  28   7   7    2.41667
 1 1   7  28  29  32    2.41667
 2 1   7  28  29  32    2.41667
 1 1   8  28   8   8    2.41667
 1 1   8  28  29  32    2.41667
 2 1   8  28  29  32    2.41667
 1 1   9  28   9   9    2.41667
 1 1   9  28  29  32    2.41667
 2 1   9  28  29  32    2.43334
 1 1  10  28  10  10    2.43334
 1 1  10  28  29  32    2.43334
 2 1  10  28  29  32    2.43334
 1 1  11  28  11  11    2.43334
 1 1  11  28  29  32    2.43334
 2 1  11  28  29  32    2.43334
 1 1  12  28  12  12    2.43334
 1 1  12  28  29  32    2.45000
 2 1  12  28  29  32    2.45000
 1 1  13  28  13  13    2.45000
 1 1  13  28  29  32    2.45000
 2 1  13  28  29  32    2.45000
 1 1  14  28  14  14    2.45000
 1 1  14  28  29  32    2.45000
 2 1  14  28  29  32    2.45000
 1 1  15  28  15  15    2.45000
 1 1  15  28  29  32    2.48334
 2 1  15  28  29  32    2.48334
 1 1  16  28  16  16    2.48334
 1 1  16  28  29  32    2.48334
 2 1  16  28  29  32    2.48334
 1 1  17  28  17  17    2.48334
 1 1  17  28  29  32    2.48334
 2 1  17  28  29  32    2.48334
 1 1  18  28  18  18    2.48334
 1 1  18  28  29  32    2.50000
 2 1  18  28  29  32    2.50000
 1 1  19  28  19  19    2.50000
 1 1  19  28  29  32    2.50000
 2 1  19  28  29  32    2.50000
 1 1  20  28  20  20    2.50000
 1 1  20  28  29  32    2.50000
 2 1  20  28  29  32    2.50000
 1 1  21  28  21  21    2.51667
 1 1  21  28  29  32    2.51667
 2 1  21  28  29  32    2.51667
 1 1  22  28  22  22    2.51667
 1 1  22  28  29  32    2.51667
 2 1  22  28  29  32    2.51667
 1 1  23  28  23  23    2.51667
 1 1  23  28  29  32    2.51667
 2 1  23  28  29  32    2.51667
 1 1  24  28  24  24    2.53334
 1 1  24  28  29  32    2.53334
 2 1  24  28  29  32    2.53334
 1 1  25  28  25  25    2.53334
 1 1  25  28  29  32    2.53334
 2 1  25  28  29  32    2.53334
 1 1  26  28  26  26    2.53334
 1 1  26  28  29  32    2.53334
 2 1  26  28  29  32    2.55000
 1 1  27  28  27  27    2.55000
 1 1  27  28  29  32    2.55000
 2 1  27  28  29  32    2.55000
 1 1  28  28  28  28    2.55000
 1 1  28  28  29  32    2.55000
 2 1  28  28  29  32    2.55000
 5  1   4928 sgemm
 1 1  29  50   1  28    2.55000
 1 1   1  28  29  32    2.58334
 1 1  29  50  29  32    2.58334
 2 1  29  50  29  32    2.58334
 1 1  29  50  29  32    2.78334
 2 1  29  50  29  32    2.78334
 1 1  29  29   1  28    2.78334
 2 1  48  48   1  28    2.78334
 1 1  30  30   1  28    2.78334
 2 1  48  48   1  28    2.78334
 1 1  31  31   1  28    2.78334
 2 1  42  42   1  28    2.80000
 1 1  32  32   1  28    2.80000
 2 1  35  35   1  28    2.80000
 1 1   1   1  33  36    2.80000
 2 1  37  37  33  36    2.80000
 1 1   2   2  33  36    2.80000
 2 1   9   9  33  36    2.80000
 1 1   3   3  33  36    2.80000
 2 1  44  44  33  36    2.81667
 1 1   4   4  33  36    2.81667
 2 1  26  26  33  36    2.81667
 1 1   5   5  33  36    2.81667
 2 1  41  41  33  36    2.81667
 1 1   6   6  33  36    2.81667
 2 1  24  24  33  36    2.81667
 1 1   7   7  33  36    2.81667
 2 1  34  34  33  36    2.81667
 1 1   8   8  33  36    2.83334
 2 1  16  16  33  36    2.83334
 1 1   9   9  33  36    2.83334
 2 1  15  15  33  36    2.83334
 1 1  10  10  33  36    2.83334
 2 1  45  45  33  36    2.83334
 1 1  11  11  33  36    2.83334
 2 1  47  47  33  36    2.83334
 1 1  12  12  33  36    2.83334
 2 1  35  35  33  36    2.83334
 1 1  13  13  33  36    2.83334
 2 1  25  25  33  36    2.83334
 1 1  14  14  33  36    2.83334
 2 1  34  34  33  36    2.83334
 1 1  15  15  33  36    2.83334
 2 1  22  22  33  36    2.83334
 1 1  16  16  33  36    2.83334
 2 1  47  47  33  36    2.85000
 1 1  17  17  33  36    2.85000
 2 1  34  34  33  36    2.85000
 1 1  18  18  33  36    2.85000
 2 1  36  36  33  36    2.85000
 1 1  19  19  33  36    2.85000
 2 1  31  31  33  36    2.85000
 1 1  20  20  33  36    2.85000
 2 1  41  41  33  36    2.85000
 1 1  21  21  33  36    2.88334
 2 1  45  45  33  36    2.88334
 1 1  22  22  33  36    2.88334
 2 1  46  46  33  36    2.88334
 1 1  23  23  33  36    2.88334
 2 1  24  24  33  36    2.88334
 1 1  24  24  33  36    2.88334
 2 1  40  40  33  36    2.88334
 1 1  25  25  33  36    2.90000
 2 1  28  28  33  36    2.90000
 1 1  26  26  33  36    2.90000
 2 1  48  48  33  36    2.90000
 1 1  27  27  33  36    2.90000
 2 1  37  37  33  36    2.90000
 1 1  28  28  33  36    2.90000
 2 1  32  32  33  36    2.90000
 1 1  29  29  33  36    2.91667
 2 1  48  48  33  36    2.91667
 1 1  30  30  33  36    2.91667
 2 1  48  48  33  36    2.91667
 1 1  31  31  33  36    2.91667
 2 1  42  42  33  36    2.91667
 1 1  32  32  33  36    2.91667
 2 1  35  35  33  36    2.91667
 5  1   4096 strsm
 1 1   1  32   1   1    3.05000
 1 1   1  32  33  36    3.08334
 2 1   1  32  33  36    3.08334
 1 1   2  32   2   2    3.08334
 1 1   2  32  33  36    3.08334
 2 1   2  32  33  36    3.08334
 1 1   3  32   3   3    3.08334
 1 1   3  32  33  36    3.08334
 2 1   3  32  33  36    3.08334
 1 1   4  32   4   4    3.08334
 1 1   4  32  33  36    3.10000
 2 1   4  32  33  36    3.10000
 1 1   5  32   5   5    3.10000
 1 1   5  32  33  36    3.10000
 2 1   5  32  33  36    3.10000
 1 1   6  32   6   6    3.10000
 1 1   6  32  33  36    3.10000
 2 1   6  32  33  36    3.10000
 1 1   7  32   7   7    3.11667
 1 1   7  32  33  36    3.11667
 2 1   7  32  33  36    3.11667
 1 1   8  32   8   8    3.11667
 1 1   8  32  33  36    3.11667
 2 1   8  32  33  36    3.11667
 1 1   9  32   9   9    3.11667
 1 1   9  32  33  36    3.11667
 2 1   9  32  33  36    3.11667
 1 1  10  32  10  10    3.13334
 1 1  10  32  33  36    3.13334
 2 1  10  32  33  36    3.13334
 1 1  11  32  11  11    3.13334
 1 1  11  32  33  36    3.13334
 2 1  11  32  33  36    3.13334
 1 1  12  32  12  12    3.13334
 1 1  12  32  33  36    3.13334
 2 1  12  32  33  36    3.13334
 1 1  13  32  13  13    3.13334
 1 1  13  32  33  36    3.15000
 2 1  13  32  33  36    3.15000
 1 1  14  32  14  14    3.15000
 1 1  14  32  33  36    3.15000
 2 1  14  32  33  36    3.15000
 1 1  15  32  15  15    3.15000
 1 1  15  32  33  36    3.15000
 2 1  15  32  33  36    3.15000
 1 1  16  32  16  16    3.15000
 1 1  16  32  33  36    3.18334
 2 1  16  32  33  36    3.18334
 1 1  17  32  17  17    3.18334
 1 1  17  32  33  36    3.18334
 2 1  17  32  33  36    3.18334
 1 1  18  32  18  18    3.18334
 1 1  18  32  33  36    3.18334
 2 1  18  32  33  36    3.18334
 1 1  19  32  19  19    3.20000
 1 1  19  32  33  36    3.20000
 2 1  19  32  33  36    3.20000
 1 1  20  32  20  20    3.20000
 1 1  20  32  33  36    3.20000
 2 1  20  32  33  36    3.20000
 1 1  21  32  21  21    3.20000
 1 1  21  32  33  36    3.20000
 2 1  21  32  33  36    3.21667
 1 1  22  32  22  22    3.21667
 1 1  22  32  33  36    3.21667
 2 1  22  32  33  36    3.21667
 1 1  23  32  23  23    3.21667
 1 1  23  32  33  36    3.21667
 2 1  23  32  33  36    3.21667
 1 1  24  32  24  24    3.21667
 1 1  24  32  33  36    3.23334
 2 1  24  32  33  36    3.23334
 1 1  25  32  25  25    3.23334
 1 1  25  32  33  36    3.23334
 2 1  25  32  33  36    3.23334
 1 1  26  32  26  26    3.23334
 1 1  26  32  33  36    3.23334
 2 1  26  32  33  36    3.23334
 1 1  27  32  27  27    3.23334
 1 1  27  32  33  36    3.25000
 2 1  27  32  33  36    3.25000
 1 1  28  32  28  28    3.25000
 1 1  28  32  33  36    3.25000
 2 1  28  32  33  36    3.25000
 1 1  29  32  29  29    3.25000
 1 1  29  32  33  36    3.25000
 2 1  29  32  33  36    3.25000
 1 1  30  32  30  30    3.25000
 1 1  30  32  33  36    3.25000
 2 1  30  32  33  36    3.25000
 1 1  31  32  31  31    3.25000
 1 1  31  32  33  36    3.25000
 2 1  31  32  33  36    3.25000
 1 1  32  32  32  32    3.25000
 1 1  32  32  33  36    3.25000
 2 1  32  32  33  36    3.25000
 5  1   4608 sgemm
 1 1  33  50   1  32    3.28334
 1 1   1  32  33  36    3.28334
 1 1  33  50  33  36    3.28334
 2 1  33  50  33  36    3.28334
 1 1  33  50  33  36    3.45000
 2 1  33  50  33  36    3.45000
 1 1  33  33   1  32    3.48334
 2 1  38  38   1  32    3.48334
 1 1  34  34   1  32    3.50000
 2 1  47  47   1  32    3.50000
 1 1  35  35   1  32    3.50000
 2 1  39  39   1  32    3.50000
 1 1  36  36   1  32    3.50000
 2 1  42  42   1  32    3.50000
 1 1   1   1  37  40    3.50000
 2 1  37  37  37  40    3.50000
 1 1   2   2  37  40    3.50000
 2 1   9   9  37  40    3.51667
 1 1   3   3  37  40    3.51667
 2 1  44  44  37  40    3.51667
 1 1   4   4  37  40    3.51667
 2 1  26  26  37  40    3.51667
 1 1   5   5  37  40    3.51667
 2 1  41  41  37  40    3.51667
 1 1   6   6  37  40    3.51667
 2 1  24  24  37  40    3.53334
 1 1   7   7  37  40    3.53334
 2 1  34  34  37  40    3.53334
 1 1   8   8  37  40    3.53334
 2 1  16  16  37  40    3.53334
 1 1   9   9  37  40    3.53334
 2 1  15  15  37  40    3.53334
 1 1  10  10  37  40    3.53334
 2 1  45  45  37  40    3.53334
 1 1  11  11  37  40    3.55000
 2 1  47  47  37  40    3.55000
 1 1  12  12  37  40    3.55000
 2 1  35  35  37  40    3.55000
 1 1  13  13  37  40    3.55000
 2 1  25  25  37  40    3.55000
 1 1  14  14  37  40    3.55000
 2 1  34  34  37  40    3.55000
 1 1  15  15  37  40    3.58334
 2 1  22  22  37  40    3.58334
 1 1  16  16  37  40    3.58334
 2 1  47  47  37  40    3.58334
 1 1  17  17  37  40    3.58334
 2 1  34  34  37  40    3.58334
 1 1  18  18  37  40    3.58334
 2 1  36  36  37  40    3.58334
 1 1  19  19  37  40    3.58334
 2 1  31  31  37  40    3.58334
 1 1  20  20  37  40    3.58334
 2 1  41  41  37  40    3.58334
 1 1  21  21  37  40    3.58334
 2 1  45  45  37  40    3.58334
 1 1  22  22  37  40    3.58334
 2 1  46  46  37  40    3.58334
 1 1  23  23  37  40    3.58334
 2 1  24  24  37  40    3.60000
 1 1  24  24  37  40    3.60000
 2 1  40  40  37  40    3.60000
 1 1  25  25  37  40    3.60000
 2 1  28  28  37  40    3.60000
 1 1  26  26  37  40    3.60000
 2 1  48  48  37  40    3.60000
 1 1  27  27  37  40    3.60000
 2 1  37  37  37  40    3.60000
 1 1  28  28  37  40    3.60000
 2 1  32  32  37  40    3.60000
 1 1  29  29  37  40    3.60000
 2 1  48  48  37  40    3.61667
 1 1  30  30  37  40    3.61667
 2 1  48  48  37  40    3.61667
 1 1  31  31  37  40    3.61667
 2 1  42  42  37  40    3.61667
 1 1  32  32  37  40    3.61667
 2 1  35  35  37  40    3.61667
 1 1  33  33  37  40    3.61667
 2 1  38  38  37  40    3.63334
 1 1  34  34  37  40    3.63334
 2 1  47  47  37  40    3.63334
 1 1  35  35  37  40    3.63334
 2 1  39  39  37  40    3.63334
 1 1  36  36  37  40    3.63334
 2 1  42  42  37  40    3.63334
 5  1   5184 strsm
 1 1   1  36   1   1    3.81667
 1 1   1  36  37  40    3.81667
 2 1   1  36  37  40    3.81667
 1 1   2  36   2   2    3.83334
 1 1   2  36  37  40    3.83334
 2 1   2  36  37  40    3.83334
 1 1   3  36   3   3    3.83334
 1 1   3  36  37  40    3.83334
 2 1   3  36  37  40    3.83334
 1 1   4  36   4   4    3.83334
 1 1   4  36  37  40    3.83334
 2 1   4  36  37  40    3.83334
 1 1   5  36   5   5    3.85000
 1 1   5  36  37  40    3.85000
 2 1   5  36  37  40    3.85000
 1 1   6  36   6   6    3.85000
 1 1   6  36  37  40    3.85000
 2 1   6  36  37  40    3.85000
 1 1   7  36   7   7    3.85000
 1 1   7  36  37  40    3.85000
 2 1   7  36  37  40    3.88334
 1 1   8  36   8   8    3.88334
 1 1   8  36  37  40    3.88334
 2 1   8  36  37  40    3.88334
 1 1   9  36   9   9    3.88334
 1 1   9  36  37  40    3.88334
 2 1   9  36  37  40    3.88334
 1 1  10  36  10  10    3.88334
 1 1  10  36  37  40    3.88334
 2 1  10  36  37  40    3.90000
 1 1  11  36  11  11    3.90000
 1 1  11  36  37  40    3.90000
 2 1  11  36  37  40    3.90000
 1 1  12  36  12  12    3.90000
 1 1  12  36  37  40    3.90000
 2 1  12  36  37  40    3.90000
 1 1  13  36  13  13    3.90000
 1 1  13  36  37  40    3.90000
 2 1  13  36  37  40    3.90000
 1 1  14  36  14  14    3.90000
 1 1  14  36  37  40    3.90000
 2 1  14  36  37  40    3.90000
 1 1  15  36  15  15    3.90000
 1 1  15  36  37  40    3.90000
 2 1  15  36  37  40    3.90000
 1 1  16  36  16  16    3.90000
 1 1  16  36  37  40    3.91667
 2 1  16  36  37  40    3.91667
 1 1  17  36  17  17    3.91667
 1 1  17  36  37  40    3.91667
 2 1  17  36  37  40    3.91667
 1 1  18  36  18  18    3.91667
 1 1  18  36  37  40    3.91667
 2 1  18  36  37  40    3.91667
 1 1  19  36  19  19    3.91667
 1 1  19  36  37  40    3.93334
 2 1  19  36  37  40    3.93334
 1 1  20  36  20  20    3.93334
 1 1  20  36  37  40    3.93334
 2 1  20  36  37  40    3.93334
 1 1  21  36  21  21    3.93334
 1 1  21  36  37  40    3.93334
 2 1  21  36  37  40    3.93334
 1 1  22  36  22  22    3.95000
 1 1  22  36  37  40    3.95000
 2 1  22  36  37  40    3.95000
 1 1  23  36  23  23    3.95000
 1 1  23  36  37  40    3.95000
 2 1  23  36  37  40    3.95000
 1 1  24  36  24  24    3.95000
 1 1  24  36  37  40    3.95000
 2 1  24  36  37  40    3.95000
 1 1  25  36  25  25    3.98334
 1 1  25  36  37  40    3.98334
 2 1  25  36  37  40    3.98334
 1 1  26  36  26  26    3.98334
 1 1  26  36  37  40    3.98334
 2 1  26  36  37  40    3.98334
 1 1  27  36  27  27    3.98334
 1 1  27  36  37  40    3.98334
 2 1  27  36  37  40    3.98334
 1 1  28  36  28  28    3.98334
 1 1  28  36  37  40    3.98334
 2 1  28  36  37  40    3.98334
 1 1  29  36  29  29    3.98334
 1 1  29  36  37  40    3.98334
 2 1  29  36  37  40    3.98334
 1 1  30  36  30  30    3.98334
 1 1  30  36  37  40    3.98334
 2 1  30  36  37  40    4.00000
 1 1  31  36  31  31    4.00000
 1 1  31  36  37  40    4.00000
 2 1  31  36  37  40    4.00000
 1 1  32  36  32  32    4.00000
 1 1  32  36  37  40    4.00000
 2 1  32  36  37  40    4.00000
 1 1  33  36  33  33    4.00000
 1 1  33  36  37  40    4.00000
 2 1  33  36  37  40    4.00000
 1 1  34  36  34  34    4.00000
 1 1  34  36  37  40    4.00000
 2 1  34  36  37  40    4.00000
 1 1  35  36  35  35    4.00000
 1 1  35  36  37  40    4.00000
 2 1  35  36  37  40    4.00000
 1 1  36  36  36  36    4.00000
 1 1  36  36  37  40    4.00000
 2 1  36  36  37  40    4.00000
 5  1   4032 sgemm
 1 1  37  50   1  36    4.01667
 1 1   1  36  37  40    4.01667
 1 1  37  50  37  40    4.01667
 2 1  37  50  37  40    4.01667
 1 1  37  50  37  40    4.18334
 2 1  37  50  37  40    4.18334
 1 1  37  37   1  36    4.18334
 2 1  44  44   1  36    4.18334
 1 1  38  38   1  36    4.18334
 2 1  39  39   1  36    4.18334
 1 1  39  39   1  36    4.20000
 2 1  48  48   1  36    4.20000
 1 1  40  40   1  36    4.20000
 2 1  50  50   1  36    4.20000
 1 1   1   1  41  44    4.20000
 2 1  37  37  41  44    4.20000
 1 1   2   2  41  44    4.20000
 2 1   9   9  41  44    4.20000
 1 1   3   3  41  44    4.20000
 2 1  44  44  41  44    4.21667
 1 1   4   4  41  44    4.21667
 2 1  26  26  41  44    4.21667
 1 1   5   5  41  44    4.21667
 2 1  41  41  41  44    4.21667
 1 1   6   6  41  44    4.21667
 2 1  24  24  41  44    4.21667
 1 1   7   7  41  44    4.21667
 2 1  34  34  41  44    4.23334
 1 1   8   8  41  44    4.23334
 2 1  16  16  41  44    4.23334
 1 1   9   9  41  44    4.23334
 2 1  15  15  41  44    4.23334
 1 1  10  10  41  44    4.23334
 2 1  45  45  41  44    4.23334
 1 1  11  11  41  44    4.23334
 2 1  47  47  41  44    4.23334
 1 1  12  12  41  44    4.23334
 2 1  35  35  41  44    4.23334
 1 1  13  13  41  44    4.23334
 2 1  25  25  41  44    4.23334
 1 1  14  14  41  44    4.23334
 2 1  34  34  41  44    4.23334
 1 1  15  15  41  44    4.23334
 2 1  22  22  41  44    4.23334
 1 1  16  16  41  44    4.25000
 2 1  47  47  41  44    4.25000
 1 1  17  17  41  44    4.25000
 2 1  34  34  41  44    4.25000
 1 1  18  18  41  44    4.25000
 2 1  36  36  41  44    4.25000
 1 1  19  19  41  44    4.25000
 2 1  31  31  41  44    4.25000
 1 1  20  20  41  44    4.28334
 2 1  41  41  41  44    4.28334
 1 1  21  21  41  44    4.28334
 2 1  45  45  41  44    4.28334
 1 1  22  22  41  44    4.28334
 2 1  46  46  41  44    4.28334
 1 1  23  23  41  44    4.28334
 2 1  24  24  41  44    4.28334
 1 1  24  24  41  44    4.28334
 2 1  40  40  41  44    4.30000
 1 1  25  25  41  44    4.30000
 2 1  28  28  41  44    4.30000
 1 1  26  26  41  44    4.30000
 2 1  48  48  41  44    4.30000
 1 1  27  27  41  44    4.30000
 2 1  37  37  41  44    4.30000
 1 1  28  28  41  44    4.30000
 2 1  32  32  41  44    4.31667
 1 1  29  29  41  44    4.31667
 2 1  48  48  41  44    4.31667
 1 1  30  30  41  44    4.31667
 2 1  48  48  41  44    4.31667
 1 1  31  31  41  44    4.31667
 2 1  42  42  41  44    4.31667
 1 1  32  32  41  44    4.31667
 2 1  35  35  41  44    4.31667
 1 1  33  33  41  44    4.33334
 2 1  38  38  41  44    4.33334
 1 1  34  34  41  44    4.33334
 2 1  47  47  41  44    4.33334
 1 1  35  35  41  44    4.33334
 2 1  39  39  41  44    4.33334
 1 1  36  36  41  44    4.33334
 2 1  42  42  41  44    4.33334
 1 1  37  37  41  44    4.35000
 2 1  44  44  41  44    4.35000
 1 1  38  38  41  44    4.35000
 2 1  39  39  41  44    4.35000
 1 1  39  39  41  44    4.35000
 2 1  48  48  41  44    4.35000
 1 1  40  40  41  44    4.35000
 2 1  50  50  41  44    4.35000
 5  1   6400 strsm
 1 1   1  40   1   1    4.60000
 1 1   1  40  41  44    4.60000
 2 1   1  40  41  44    4.60000
 1 1   2  40   2   2    4.60000
 1 1   2  40  41  44    4.61667
 2 1   2  40  41  44    4.61667
 1 1   3  40   3   3    4.61667
 1 1   3  40  41  44    4.61667
 2 1   3  40  41  44    4.61667
 1 1   4  40   4   4    4.61667
 1 1   4  40  41  44    4.61667
 2 1   4  40  41  44    4.61667
 1 1   5  40   5   5    4.61667
 1 1   5  40  41  44    4.61667
 2 1   5  40  41  44    4.61667
 1 1   6  40   6   6    4.61667
 1 1   6  40  41  44    4.61667
 2 1   6  40  41  44    4.61667
 1 1   7  40   7   7    4.61667
 1 1   7  40  41  44    4.61667
 2 1   7  40  41  44    4.61667
 1 1   8  40   8   8    4.63334
 1 1   8  40  41  44    4.63334
 2 1   8  40  41  44    4.63334
 1 1   9  40   9   9    4.63334
 1 1   9  40  41  44    4.63334
 2 1   9  40  41  44    4.63334
 1 1  10  40  10  10    4.63334
 1 1  10  40  41  44    4.63334
 2 1  10  40  41  44    4.63334
 1 1  11  40  11  11    4.66667
 1 1  11  40  41  44    4.66667
 2 1  11  40  41  44    4.66667
 1 1  12  40  12  12    4.66667
 1 1  12  40  41  44    4.66667
 2 1  12  40  41  44    4.66667
 1 1  13  40  13  13    4.66667
 1 1  13  40  41  44    4.66667
 2 1  13  40  41  44    4.68334
 1 1  14  40  14  14    4.68334
 1 1  14  40  41  44    4.68334
 2 1  14  40  41  44    4.68334
 1 1  15  40  15  15    4.68334
 1 1  15  40  41  44    4.68334
 2 1  15  40  41  44    4.68334
 1 1  16  40  16  16    4.68334
 1 1  16  40  41  44    4.68334
 2 1  16  40  41  44    4.70000
 1 1  17  40  17  17    4.70000
 1 1  17  40  41  44    4.70000
 2 1  17  40  41  44    4.70000
 1 1  18  40  18  18    4.70000
 1 1  18  40  41  44    4.70000
 2 1  18  40  41  44    4.70000
 1 1  19  40  19  19    4.70000
 1 1  19  40  41  44    4.71667
 2 1  19  40  41  44    4.71667
 1 1  20  40  20  20    4.71667
 1 1  20  40  41  44    4.71667
 2 1  20  40  41  44    4.71667
 1 1  21  40  21  21    4.71667
 1 1  21  40  41  44    4.71667
 2 1  21  40  41  44    4.71667
 1 1  22  40  22  22    4.71667
 1 1  22  40  41  44    4.73334
 2 1  22  40  41  44    4.73334
 1 1  23  40  23  23    4.73334
 1 1  23  40  41  44    4.73334
 2 1  23  40  41  44    4.73334
 1 1  24  40  24  24    4.73334
 1 1  24  40  41  44    4.73334
 2 1  24  40  41  44    4.73334
 1 1  25  40  25  25    4.75000
 1 1  25  40  41  44    4.75000
 2 1  25  40  41  44    4.75000
 1 1  26  40  26  26    4.75000
 1 1  26  40  41  44    4.75000
 2 1  26  40  41  44    4.75000
 1 1  27  40  27  27    4.75000
 1 1  27  40  41  44    4.75000
 2 1  27  40  41  44    4.75000
 1 1  28  40  28  28    4.78334
 1 1  28  40  41  44    4.78334
 2 1  28  40  41  44    4.78334
 1 1  29  40  29  29    4.78334
 1 1  29  40  41  44    4.78334
 2 1  29  40  41  44    4.78334
 1 1  30  40  30  30    4.78334
 1 1  30  40  41  44    4.78334
 2 1  30  40  41  44    4.78334
 1 1  31  40  31  31    4.80000
 1 1  31  40  41  44    4.80000
 2 1  31  40  41  44    4.80000
 1 1  32  40  32  32    4.80000
 1 1  32  40  41  44    4.80000
 2 1  32  40  41  44    4.80000
 1 1  33  40  33  33    4.80000
 1 1  33  40  41  44    4.80000
 2 1  33  40  41  44    4.81667
 1 1  34  40  34  34    4.81667
 1 1  34  40  41  44    4.81667
 2 1  34  40  41  44    4.81667
 1 1  35  40  35  35    4.81667
 1 1  35  40  41  44    4.81667
 2 1  35  40  41  44    4.81667
 1 1  36  40  36  36    4.81667
 1 1  36  40  41  44    4.81667
 2 1  36  40  41  44    4.83334
 1 1  37  40  37  37    4.83334
 1 1  37  40  41  44    4.83334
 2 1  37  40  41  44    4.83334
 1 1  38  40  38  38    4.83334
 1 1  38  40  41  44    4.83334
 2 1  38  40  41  44    4.83334
 1 1  39  40  39  39    4.83334
 1 1  39  40  41  44    4.85000
 2 1  39  40  41  44    4.85000
 1 1  40  40  40  40    4.85000
 1 1  40  40  41  44    4.85000
 2 1  40  40  41  44    4.85000
 5  1   3200 sgemm
 1 1  41  50   1  40    4.85000
 1 1   1  40  41  44    4.85000
 1 1  41  50  41  44    4.85000
 2 1  41  50  41  44    4.88334
 1 1  41  50  41  44    5.00000
 2 1  41  50  41  44    5.00000
 1 1  41  41   1  40    5.00000
 2 1  50  50   1  40    5.00000
 1 1  42  42   1  40    5.00000
 2 1  43  43   1  40    5.00000
 1 1  43  43   1  40    5.00000
 2 1  45  45   1  40    5.01667
 1 1  44  44   1  40    5.01667
 2 1  46  46   1  40    5.01667
 1 1   1   1  45  48    5.01667
 2 1  37  37  45  48    5.01667
 1 1   2   2  45  48    5.01667
 2 1   9   9  45  48    5.01667
 1 1   3   3  45  48    5.01667
 2 1  44  44  45  48    5.03334
 1 1   4   4  45  48    5.03334
 2 1  26  26  45  48    5.03334
 1 1   5   5  45  48    5.03334
 2 1  41  41  45  48    5.03334
 1 1   6   6  45  48    5.03334
 2 1  24  24  45  48    5.03334
 1 1   7   7  45  48    5.03334
 2 1  34  34  45  48    5.03334
 1 1   8   8  45  48    5.05001
 2 1  16  16  45  48    5.05001
 1 1   9   9  45  48    5.05001
 2 1  15  15  45  48    5.05001
 1 1  10  10  45  48    5.05001
 2 1  45  45  45  48    5.05001
 1 1  11  11  45  48    5.05001
 2 1  47  47  45  48    5.05001
 1 1  12  12  45  48    5.08334
 2 1  35  35  45  48    5.08334
 1 1  13  13  45  48    5.08334
 2 1  25  25  45  48    5.08334
 1 1  14  14  45  48    5.08334
 2 1  34  34  45  48    5.08334
 1 1  15  15  45  48    5.08334
 2 1  22  22  45  48    5.08334
 1 1  16  16  45  48    5.08334
 2 1  47  47  45  48    5.08334
 1 1  17  17  45  48    5.10001
 2 1  34  34  45  48    5.10001
 1 1  18  18  45  48    5.10001
 2 1  36  36  45  48    5.10001
 1 1  19  19  45  48    5.10001
 2 1  31  31  45  48    5.10001
 1 1  20  20  45  48    5.10001
 2 1  41  41  45  48    5.10001
 1 1  21  21  45  48    5.10001
 2 1  45  45  45  48    5.11667
 1 1  22  22  45  48    5.11667
 2 1  46  46  45  48    5.11667
 1 1  23  23  45  48    5.11667
 2 1  24  24  45  48    5.11667
 1 1  24  24  45  48    5.11667
 2 1  40  40  45  48    5.11667
 1 1  25  25  45  48    5.11667
 2 1  28  28  45  48    5.13334
 1 1  26  26  45  48    5.13334
 2 1  48  48  45  48    5.13334
 1 1  27  27  45  48    5.13334
 2 1  37  37  45  48    5.13334
 1 1  28  28  45  48    5.13334
 2 1  32  32  45  48    5.13334
 1 1  29  29  45  48    5.13334
 2 1  48  48  45  48    5.13334
 1 1  30  30  45  48    5.13334
 2 1  48  48  45  48    5.13334
 1 1  31  31  45  48    5.13334
 2 1  42  42  45  48    5.13334
 1 1  32  32  45  48    5.13334
 2 1  35  35  45  48    5.13334
 1 1  33  33  45  48    5.13334
 2 1  38  38  45  48    5.15001
 1 1  34  34  45  48    5.15001
 2 1  47  47  45  48    5.15001
 1 1  35  35  45  48    5.15001
 2 1  39  39  45  48    5.15001
 1 1  36  36  45  48    5.15001
 2 1  42  42  45  48    5.15001
 1 1  37  37  45  48    5.15001
 2 1  44  44  45  48    5.18334
 1 1  38  38  45  48    5.18334
 2 1  39  39  45  48    5.18334
 1 1  39  39  45  48    5.18334
 2 1  48  48  45  48    5.18334
 1 1  40  40  45  48    5.18334
 2 1  50  50  45  48    5.18334
 1 1  41  41  45  48    5.18334
 2 1  50  50  45  48    5.18334
 1 1  42  42  45  48    5.18334
 2 1  43  43  45  48    5.18334
 1 1  43  43  45  48    5.20001
 2 1  45  45  45  48    5.20001
 1 1  44  44  45  48    5.20001
 2 1  46  46  45  48    5.20001
 5  1   7744 strsm
 1 1   1  44   1   1    5.48334
 1 1   1  44  45  48    5.50001
 2 1   1  44  45  48    5.50001
 1 1   2  44   2   2    5.50001
 1 1   2  44  45  48    5.50001
 2 1   2  44  45  48    5.50001
 1 1   3  44   3   3    5.50001
 1 1   3  44  45  48    5.50001
 2 1   3  44  45  48    5.50001
 1 1   4  44   4   4    5.50001
 1 1   4  44  45  48    5.51667
 2 1   4  44  45  48    5.51667
 1 1   5  44   5   5    5.51667
 1 1   5  44  45  48    5.51667
 2 1   5  44  45  48    5.51667
 1 1   6  44   6   6    5.51667
 1 1   6  44  45  48    5.51667
 2 1   6  44  45  48    5.51667
 1 1   7  44   7   7    5.53334
 1 1   7  44  45  48    5.53334
 2 1   7  44  45  48    5.53334
 1 1   8  44   8   8    5.53334
 1 1   8  44  45  48    5.53334
 2 1   8  44  45  48    5.53334
 1 1   9  44   9   9    5.53334
 1 1   9  44  45  48    5.53334
 2 1   9  44  45  48    5.53334
 1 1  10  44  10  10    5.55001
 1 1  10  44  45  48    5.55001
 2 1  10  44  45  48    5.55001
 1 1  11  44  11  11    5.55001
 1 1  11  44  45  48    5.55001
 2 1  11  44  45  48    5.55001
 1 1  12  44  12  12    5.55001
 1 1  12  44  45  48    5.55001
 2 1  12  44  45  48    5.55001
 1 1  13  44  13  13    5.58334
 1 1  13  44  45  48    5.58334
 2 1  13  44  45  48    5.58334
 1 1  14  44  14  14    5.58334
 1 1  14  44  45  48    5.58334
 2 1  14  44  45  48    5.58334
 1 1  15  44  15  15    5.58334
 1 1  15  44  45  48    5.58334
 2 1  15  44  45  48    5.60001
 1 1  16  44  16  16    5.60001
 1 1  16  44  45  48    5.60001
 2 1  16  44  45  48    5.60001
 1 1  17  44  17  17    5.60001
 1 1  17  44  45  48    5.60001
 2 1  17  44  45  48    5.60001
 1 1  18  44  18  18    5.60001
 1 1  18  44  45  48    5.60001
 2 1  18  44  45  48    5.61667
 1 1  19  44  19  19    5.61667
 1 1  19  44  45  48    5.61667
 2 1  19  44  45  48    5.61667
 1 1  20  44  20  20    5.61667
 1 1  20  44  45  48    5.61667
 2 1  20  44  45  48    5.61667
 1 1  21  44  21  21    5.61667
 1 1  21  44  45  48    5.63334
 2 1  21  44  45  48    5.63334
 1 1  22  44  22  22    5.63334
 1 1  22  44  45  48    5.63334
 2 1  22  44  45  48    5.63334
 1 1  23  44  23  23    5.63334
 1 1  23  44  45  48    5.63334
 2 1  23  44  45  48    5.63334
 1 1  24  44  24  24    5.63334
 1 1  24  44  45  48    5.66667
 2 1  24  44  45  48    5.66667
 1 1  25  44  25  25    5.66667
 1 1  25  44  45  48    5.66667
 2 1  25  44  45  48    5.66667
 1 1  26  44  26  26    5.66667
 1 1  26  44  45  48    5.66667
 2 1  26  44  45  48    5.66667
 1 1  27  44  27  27    5.68334
 1 1  27  44  45  48    5.68334
 2 1  27  44  45  48    5.68334
 1 1  28  44  28  28    5.68334
 1 1  28  44  45  48    5.68334
 2 1  28  44  45  48    5.68334
 1 1  29  44  29  29    5.68334
 1 1  29  44  45  48    5.68334
 2 1  29  44  45  48    5.68334
 1 1  30  44  30  30    5.70001
 1 1  30  44  45  48    5.70001
 2 1  30  44  45  48    5.70001
 1 1  31  44  31  31    5.70001
 1 1  31  44  45  48    5.70001
 2 1  31  44  45  48    5.70001
 1 1  32  44  32  32    5.70001
 1 1  32  44  45  48    5.70001
 2 1  32  44  45  48    5.70001
 1 1  33  44  33  33    5.71667
 1 1  33  44  45  48    5.71667
 2 1  33  44  45  48    5.71667
 1 1  34  44  34  34    5.71667
 1 1  34  44  45  48    5.71667
 2 1  34  44  45  48    5.71667
 1 1  35  44  35  35    5.71667
 1 1  35  44  45  48    5.71667
 2 1  35  44  45  48    5.73334
 1 1  36  44  36  36    5.73334
 1 1  36  44  45  48    5.73334
 2 1  36  44  45  48    5.73334
 1 1  37  44  37  37    5.73334
 1 1  37  44  45  48    5.73334
 2 1  37  44  45  48    5.73334
 1 1  38  44  38  38    5.73334
 1 1  38  44  45  48    5.73334
 2 1  38  44  45  48    5.75001
 1 1  39  44  39  39    5.75001
 1 1  39  44  45  48    5.75001
 2 1  39  44  45  48    5.75001
 1 1  40  44  40  40    5.75001
 1 1  40  44  45  48    5.75001
 2 1  40  44  45  48    5.75001
 1 1  41  44  41  41    5.75001
 1 1  41  44  45  48    5.78334
 2 1  41  44  45  48    5.78334
 1 1  42  44  42  42    5.78334
 1 1  42  44  45  48    5.78334
 2 1  42  44  45  48    5.78334
 1 1  43  44  43  43    5.78334
 1 1  43  44  45  48    5.78334
 2 1  43  44  45  48    5.78334
 1 1  44  44  44  44    5.78334
 1 1  44  44  45  48    5.80001
 2 1  44  44  45  48    5.80001
 5  1   2112 sgemm
 1 1  45  50   1  44    5.80001
 1 1   1  44  45  48    5.80001
 1 1  45  50  45  48    5.80001
 2 1  45  50  45  48    5.80001
 1 1  45  50  45  48    5.90001
 2 1  45  50  45  48    5.90001
 1 1  45  45   1  44    5.90001
 2 1  48  48   1  44    5.90001
 1 1  46  46   1  44    5.90001
 2 1  48  48   1  44    5.90001
 1 1  47  47   1  44    5.90001
 2 1  50  50   1  44    5.90001
 1 1   1   1  49  50    5.91667
 2 1  37  37  49  50    5.91667
 1 1   2   2  49  50    5.91667
 2 1   9   9  49  50    5.91667
 1 1   3   3  49  50    5.91667
 2 1  44  44  49  50    5.91667
 1 1   4   4  49  50    5.91667
 2 1  26  26  49  50    5.91667
 1 1   5   5  49  50    5.91667
 2 1  41  41  49  50    5.93334
 1 1   6   6  49  50    5.93334
 2 1  24  24  49  50    5.93334
 1 1   7   7  49  50    5.93334
 2 1  34  34  49  50    5.93334
 1 1   8   8  49  50    5.93334
 2 1  16  16  49  50    5.93334
 1 1   9   9  49  50    5.93334
 2 1  15  15  49  50    5.95001
 1 1  10  10  49  50    5.95001
 2 1  45  45  49  50    5.95001
 1 1  11  11  49  50    5.95001
 2 1  47  47  49  50    5.95001
 1 1  12  12  49  50    5.95001
 2 1  35  35  49  50    5.95001
 1 1  13  13  49  50    5.95001
 2 1  25  25  49  50    5.95001
 1 1  14  14  49  50    5.98334
 2 1  34  34  49  50    5.98334
 1 1  15  15  49  50    5.98334
 2 1  22  22  49  50    5.98334
 1 1  16  16  49  50    5.98334
 2 1  47  47  49  50    5.98334
 1 1  17  17  49  50    5.98334
 2 1  34  34  49  50    5.98334
 1 1  18  18  49  50    6.00001
 2 1  36  36  49  50    6.00001
 1 1  19  19  49  50    6.00001
 2 1  31  31  49  50    6.00001
 1 1  20  20  49  50    6.00001
 2 1  41  41  49  50    6.00001
 1 1  21  21  49  50    6.00001
 2 1  45  45  49  50    6.00001
 1 1  22  22  49  50    6.00001
 2 1  46  46  49  50    6.01667
 1 1  23  23  49  50    6.01667
 2 1  24  24  49  50    6.01667
 1 1  24  24  49  50    6.01667
 2 1  40  40  49  50    6.01667
 1 1  25  25  49  50    6.01667
 2 1  28  28  49  50    6.01667
 1 1  26  26  49  50    6.01667
 2 1  48  48  49  50    6.01667
 1 1  27  27  49  50    6.01667
 2 1  37  37  49  50    6.03334
 1 1  28  28  49  50    6.03334
 2 1  32  32  49  50    6.03334
 1 1  29  29  49  50    6.03334
 2 1  48  48  49  50    6.03334
 1 1  30  30  49  50    6.03334
 2 1  48  48  49  50    6.03334
 1 1  31  31  49  50    6.03334
 2 1  42  42  49  50    6.05001
 1 1  32  32  49  50    6.05001
 2 1  35  35  49  50    6.05001
 1 1  33  33  49  50    6.05001
 2 1  38  38  49  50    6.05001
 1 1  34  34  49  50    6.05001
 2 1  47  47  49  50    6.05001
 1 1  35  35  49  50    6.05001
 2 1  39  39  49  50    6.08334
 1 1  36  36  49  50    6.08334
 2 1  42  42  49  50    6.08334
 1 1  37  37  49  50    6.08334
 2 1  44  44  49  50    6.08334
 1 1  38  38  49  50    6.08334
 2 1  39  39  49  50    6.08334
 1 1  39  39  49  50    6.08334
 2 1  48  48  49  50    6.10001
 1 1  40  40  49  50    6.10001
 2 1  50  50  49  50    6.10001
 1 1  41  41  49  50    6.10001
 2 1  50  50  49  50    6.10001
 1 1  42  42  49  50    6.10001
 2 1  43  43  49  50    6.10001
 1 1  43  43  49  50    6.10001
 2 1  45  45  49  50    6.10001
 1 1  44  44  49  50    6.10001
 2 1  46  46  49  50    6.10001
 1 1  45  45  49  50    6.10001
 2 1  48  48  49  50    6.10001
 1 1  46  46  49  50    6.10001
 2 1  48  48  49  50    6.10001
 1 1  47  47  49  50    6.10001
 2 1  50  50  49  50    6.10001
 5  1   4608 strsm
 1 1   1  48   1   1    6.25001
 1 1   1  48  49  50    6.25001
 2 1   1  48  49  50    6.28334
 1 1   2  48   2   2    6.28334
 1 1   2  48  49  50    6.28334
 2 1   2  48  49  50    6.28334
 1 1   3  48   3   3    6.28334
 1 1   3  48  49  50    6.28334
 2 1   3  48  49  50    6.28334
 1 1   4  48   4   4    6.28334
 1 1   4  48  49  50    6.30001
 2 1   4  48  49  50    6.30001
 1 1   5  48   5   5    6.30001
 1 1   5  48  49  50    6.30001
 2 1   5  48  49  50    6.30001
 1 1   6  48   6   6    6.30001
 1 1   6  48  49  50    6.30001
 2 1   6  48  49  50    6.30001
 1 1   7  48   7   7    6.30001
 1 1   7  48  49  50    6.31667
 2 1   7  48  49  50    6.31667
 1 1   8  48   8   8    6.31667
 1 1   8  48  49  50    6.31667
 2 1   8  48  49  50    6.31667
 1 1   9  48   9   9    6.31667
 1 1   9  48  49  50    6.31667
 2 1   9  48  49  50    6.31667
 1 1  10  48  10  10    6.33334
 1 1  10  48  49  50    6.33334
 2 1  10  48  49  50    6.33334
 1 1  11  48  11  11    6.33334
 1 1  11  48  49  50    6.33334
 2 1  11  48  49  50    6.33334
 1 1  12  48  12  12    6.33334
 1 1  12  48  49  50    6.33334
 2 1  12  48  49  50    6.33334
 1 1  13  48  13  13    6.35001
 1 1  13  48  49  50    6.35001
 2 1  13  48  49  50    6.35001
 1 1  14  48  14  14    6.35001
 1 1  14  48  49  50    6.35001
 2 1  14  48  49  50    6.35001
 1 1  15  48  15  15    6.38334
 1 1  15  48  49  50    6.38334
 2 1  15  48  49  50    6.38334
 1 1  16  48  16  16    6.38334
 1 1  16  48  49  50    6.38334
 2 1  16  48  49  50    6.38334
 1 1  17  48  17  17    6.38334
 1 1  17  48  49  50    6.38334
 2 1  17  48  49  50    6.38334
 1 1  18  48  18  18    6.38334
 1 1  18  48  49  50    6.38334
 2 1  18  48  49  50    6.38334
 1 1  19  48  19  19    6.38334
 1 1  19  48  49  50    6.38334
 2 1  19  48  49  50    6.40001
 1 1  20  48  20  20    6.40001
 1 1  20  48  49  50    6.40001
 2 1  20  48  49  50    6.40001
 1 1  21  48  21  21    6.40001
 1 1  21  48  49  50    6.40001
 2 1  21  48  49  50    6.40001
 1 1  22  48  22  22    6.40001
 1 1  22  48  49  50    6.40001
 2 1  22  48  49  50    6.40001
 1 1  23  48  23  23    6.40001
 1 1  23  48  49  50    6.40001
 2 1  23  48  49  50    6.40001
 1 1  24  48  24  24    6.40001
 1 1  24  48  49  50    6.40001
 2 1  24  48  49  50    6.40001
 1 1  25  48  25  25    6.40001
 1 1  25  48  49  50    6.41667
 2 1  25  48  49  50    6.41667
 1 1  26  48  26  26    6.41667
 1 1  26  48  49  50    6.41667
 2 1  26  48  49  50    6.41667
 1 1  27  48  27  27    6.41667
 1 1  27  48  49  50    6.41667
 2 1  27  48  49  50    6.41667
 1 1  28  48  28  28    6.41667
 1 1  28  48  49  50    6.43334
 2 1  28  48  49  50    6.43334
 1 1  29  48  29  29    6.43334
 1 1  29  48  49  50    6.43334
 2 1  29  48  49  50    6.43334
 1 1  30  48  30  30    6.43334
 1 1  30  48  49  50    6.43334
 2 1  30  48  49  50    6.43334
 1 1  31  48  31  31    6.45001
 1 1  31  48  49  50    6.45001
 2 1  31  48  49  50    6.45001
 1 1  32  48  32  32    6.45001
 1 1  32  48  49  50    6.45001
 2 1  32  48  49  50    6.45001
 1 1  33  48  33  33    6.45001
 1 1  33  48  49  50    6.45001
 2 1  33  48  49  50    6.45001
 1 1  34  48  34  34    6.48334
 1 1  34  48  49  50    6.48334
 2 1  34  48  49  50    6.48334
 1 1  35  48  35  35    6.48334
 1 1  35  48  49  50    6.48334
 2 1  35  48  49  50    6.48334
 1 1  36  48  36  36    6.48334
 1 1  36  48  49  50    6.48334
 2 1  36  48  49  50    6.48334
 1 1  37  48  37  37    6.50001
 1 1  37  48  49  50    6.50001
 2 1  37  48  49  50    6.50001
 1 1  38  48  38  38    6.50001
 1 1  38  48  49  50    6.50001
 2 1  38  48  49  50    6.50001
 1 1  39  48  39  39    6.50001
 1 1  39  48  49  50    6.50001
 2 1  39  48  49  50    6.51667
 1 1  40  48  40  40    6.51667
 1 1  40  48  49  50    6.51667
 2 1  40  48  49  50    6.51667
 1 1  41  48  41  41    6.51667
 1 1  41  48  49  50    6.51667
 2 1  41  48  49  50    6.51667
 1 1  42  48  42  42    6.51667
 1 1  42  48  49  50    6.51667
 2 1  42  48  49  50    6.53334
 1 1  43  48  43  43    6.53334
 1 1  43  48  49  50    6.53334
 2 1  43  48  49  50    6.53334
 1 1  44  48  44  44    6.53334
 1 1  44  48  49  50    6.53334
 2 1  44  48  49  50    6.53334
 1 1  45  48  45  45    6.53334
 1 1  45  48  49  50    6.55001
 2 1  45  48  49  50    6.55001
 1 1  46  48  46  46    6.55001
 1 1  46  48  49  50    6.55001
 2 1  46  48  49  50    6.55001
 1 1  47  48  47  47    6.55001
 1 1  47  48  49  50    6.55001
 2 1  47  48  49  50    6.55001
 1 1  48  48  48  48    6.55001
 1 1  48  48  49  50    6.58334
 2 1  48  48  49  50    6.58334
 5  1    384 sgemm
 1 1  49  50   1  48    6.58334
 1 1   1  48  49  50    6.58334
 1 1  49  50  49  50    6.58334
 2 1  49  50  49  50    6.58334
 1 1  49  50  49  50    6.60001
 2 1  49  50  49  50    6.60001
SHAR_EOF
if test -f 'memory.sgetrf2'
then
	echo shar: over-writing existing file "'memory.sgetrf2'"
fi
cat << \SHAR_EOF > 'memory.sgetrf2'
  4  1  LU decomposition LAPACK blocked
  0  1  40  40
 1 1   1  40   1   4    0.00000
 2 1   1  40   1   4    0.00000
 1 1   1   1   5   8    0.00000
 2 1  37  37   5   8    0.00000
 1 1   2   2   5   8    0.00000
 2 1  37  37   5   8    0.00000
 1 1   3   3   5   8    0.00000
 2 1   8   8   5   8    0.00000
 1 1   4   4   5   8    0.00000
 2 1  29  29   5   8    0.00000
 1 1   1   4   1   1    0.00000
 1 1   1   4   5   8    0.00000
 2 1   1   4   5   8    0.00000
 1 1   2   4   2   2    0.00000
 1 1   2   4   5   8    0.00000
 2 1   2   4   5   8    0.00000
 1 1   3   4   3   3    0.00000
 1 1   3   4   5   8    0.00000
 2 1   3   4   5   8    0.00000
 1 1   4   4   4   4    0.00000
 1 1   4   4   5   8    0.00000
 2 1   4   4   5   8    0.00000
 1 1   5  40   1   4    0.00000
 1 1   1   4   5   8    0.01667
 1 1   5  40   5   8    0.01667
 2 1   5  40   5   8    0.01667
 1 1   5  40   5   8    0.06667
 2 1   5  40   5   8    0.06667
 1 1   5   5   1   4    0.06667
 2 1  11  11   1   4    0.06667
 1 1   6   6   1   4    0.06667
 2 1  17  17   1   4    0.10000
 1 1   7   7   1   4    0.10000
 2 1  18  18   1   4    0.10000
 1 1   8   8   1   4    0.10000
 2 1  11  11   1   4    0.10000
 1 1   1   1   9  12    0.10000
 2 1  37  37   9  12    0.10000
 1 1   2   2   9  12    0.10000
 2 1  37  37   9  12    0.10000
 1 1   3   3   9  12    0.10000
 2 1   8   8   9  12    0.10000
 1 1   4   4   9  12    0.10000
 2 1  29  29   9  12    0.10000
 1 1   5   5   9  12    0.10000
 2 1  11  11   9  12    0.10000
 1 1   6   6   9  12    0.10000
 2 1  17  17   9  12    0.11667
 1 1   7   7   9  12    0.11667
 2 1  18  18   9  12    0.11667
 1 1   8   8   9  12    0.11667
 2 1  11  11   9  12    0.11667
 1 1   1   8   1   1    0.13333
 1 1   1   8   9  12    0.13333
 2 1   1   8   9  12    0.13333
 1 1   2   8   2   2    0.13333
 1 1   2   8   9  12    0.13333
 2 1   2   8   9  12    0.13333
 1 1   3   8   3   3    0.13333
 1 1   3   8   9  12    0.13333
 2 1   3   8   9  12    0.15000
 1 1   4   8   4   4    0.15000
 1 1   4   8   9  12    0.15000
 2 1   4   8   9  12    0.15000
 1 1   5   8   5   5    0.15000
 1 1   5   8   9  12    0.15000
 2 1   5   8   9  12    0.15000
 1 1   6   8   6   6    0.15000
 1 1   6   8   9  12    0.15000
 2 1   6   8   9  12    0.16667
 1 1   7   8   7   7    0.16667
 1 1   7   8   9  12    0.16667
 2 1   7   8   9  12    0.16667
 1 1   8   8   8   8    0.16667
 1 1   8   8   9  12    0.16667
 2 1   8   8   9  12    0.16667
 1 1   9  40   1   8    0.16667
 1 1   1   8   9  12    0.20000
 1 1   9  40   9  12    0.20000
 2 1   9  40   9  12    0.20000
 1 1   9  40   9  12    0.26667
 2 1   9  40   9  12    0.26667
 1 1   9   9   1   8    0.30000
 2 1  37  37   1   8    0.30000
 1 1  10  10   1   8    0.30000
 2 1  26  26   1   8    0.30000
 1 1  11  11   1   8    0.30000
 2 1  31  31   1   8    0.30000
 1 1  12  12   1   8    0.30000
 2 1  34  34   1   8    0.30000
 1 1   1   1  13  16    0.31667
 2 1  37  37  13  16    0.31667
 1 1   2   2  13  16    0.31667
 2 1  37  37  13  16    0.31667
 1 1   3   3  13  16    0.31667
 2 1   8   8  13  16    0.31667
 1 1   4   4  13  16    0.31667
 2 1  29  29  13  16    0.31667
 1 1   5   5  13  16    0.31667
 2 1  11  11  13  16    0.31667
 1 1   6   6  13  16    0.31667
 2 1  17  17  13  16    0.31667
 1 1   7   7  13  16    0.31667
 2 1  18  18  13  16    0.31667
 1 1   8   8  13  16    0.31667
 2 1  11  11  13  16    0.31667
 1 1   9   9  13  16    0.31667
 2 1  37  37  13  16    0.33333
 1 1  10  10  13  16    0.33333
 2 1  26  26  13  16    0.33333
 1 1  11  11  13  16    0.33333
 2 1  31  31  13  16    0.33333
 1 1  12  12  13  16    0.33333
 2 1  34  34  13  16    0.33333
 1 1   1  12   1   1    0.35000
 1 1   1  12  13  16    0.35000
 2 1   1  12  13  16    0.35000
 1 1   2  12   2   2    0.35000
 1 1   2  12  13  16    0.35000
 2 1   2  12  13  16    0.35000
 1 1   3  12   3   3    0.35000
 1 1   3  12  13  16    0.35000
 2 1   3  12  13  16    0.35000
 1 1   4  12   4   4    0.35000
 1 1   4  12  13  16    0.36667
 2 1   4  12  13  16    0.36667
 1 1   5  12   5   5    0.36667
 1 1   5  12  13  16    0.36667
 2 1   5  12  13  16    0.36667
 1 1   6  12   6   6    0.36667
 1 1   6  12  13  16    0.36667
 2 1   6  12  13  16    0.40000
 1 1   7  12   7   7    0.40000
 1 1   7  12  13  16    0.40000
 2 1   7  12  13  16    0.40000
 1 1   8  12   8   8    0.40000
 1 1   8  12  13  16    0.40000
 2 1   8  12  13  16    0.40000
 1 1   9  12   9   9    0.40000
 1 1   9  12  13  16    0.41667
 2 1   9  12  13  16    0.41667
 1 1  10  12  10  10    0.41667
 1 1  10  12  13  16    0.41667
 2 1  10  12  13  16    0.41667
 1 1  11  12  11  11    0.41667
 1 1  11  12  13  16    0.41667
 2 1  11  12  13  16    0.41667
 1 1  12  12  12  12    0.41667
 1 1  12  12  13  16    0.43333
 2 1  12  12  13  16    0.43333
 1 1  13  40   1  12    0.43333
 1 1   1  12  13  16    0.43333
 1 1  13  40  13  16    0.43333
 2 1  13  40  13  16    0.43333
 1 1  13  40  13  16    0.55000
 2 1  13  40  13  16    0.55000
 1 1  13  13   1  12    0.55000
 2 1  28  28   1  12    0.55000
 1 1  14  14   1  12    0.55000
 2 1  15  15   1  12    0.55000
 1 1  15  15   1  12    0.55000
 2 1  38  38   1  12    0.56667
 1 1  16  16   1  12    0.56667
 2 1  27  27   1  12    0.56667
 1 1   1   1  17  20    0.56667
 2 1  37  37  17  20    0.56667
 1 1   2   2  17  20    0.56667
 2 1  37  37  17  20    0.56667
 1 1   3   3  17  20    0.56667
 2 1   8   8  17  20    0.60000
 1 1   4   4  17  20    0.60000
 2 1  29  29  17  20    0.60000
 1 1   5   5  17  20    0.60000
 2 1  11  11  17  20    0.60000
 1 1   6   6  17  20    0.60000
 2 1  17  17  17  20    0.60000
 1 1   7   7  17  20    0.60000
 2 1  18  18  17  20    0.60000
 1 1   8   8  17  20    0.60000
 2 1  11  11  17  20    0.60000
 1 1   9   9  17  20    0.60000
 2 1  37  37  17  20    0.60000
 1 1  10  10  17  20    0.60000
 2 1  26  26  17  20    0.60000
 1 1  11  11  17  20    0.60000
 2 1  31  31  17  20    0.60000
 1 1  12  12  17  20    0.61667
 2 1  34  34  17  20    0.61667
 1 1  13  13  17  20    0.61667
 2 1  28  28  17  20    0.61667
 1 1  14  14  17  20    0.61667
 2 1  15  15  17  20    0.61667
 1 1  15  15  17  20    0.61667
 2 1  38  38  17  20    0.61667
 1 1  16  16  17  20    0.61667
 2 1  27  27  17  20    0.61667
 1 1   1  16   1   1    0.63333
 1 1   1  16  17  20    0.65000
 2 1   1  16  17  20    0.65000
 1 1   2  16   2   2    0.65000
 1 1   2  16  17  20    0.65000
 2 1   2  16  17  20    0.65000
 1 1   3  16   3   3    0.66667
 1 1   3  16  17  20    0.66667
 2 1   3  16  17  20    0.66667
 1 1   4  16   4   4    0.66667
 1 1   4  16  17  20    0.66667
 2 1   4  16  17  20    0.66667
 1 1   5  16   5   5    0.66667
 1 1   5  16  17  20    0.66667
 2 1   5  16  17  20    0.66667
 1 1   6  16   6   6    0.66667
 1 1   6  16  17  20    0.66667
 2 1   6  16  17  20    0.66667
 1 1   7  16   7   7    0.66667
 1 1   7  16  17  20    0.66667
 2 1   7  16  17  20    0.66667
 1 1   8  16   8   8    0.66667
 1 1   8  16  17  20    0.66667
 2 1   8  16  17  20    0.70000
 1 1   9  16   9   9    0.70000
 1 1   9  16  17  20    0.70000
 2 1   9  16  17  20    0.70000
 1 1  10  16  10  10    0.70000
 1 1  10  16  17  20    0.70000
 2 1  10  16  17  20    0.70000
 1 1  11  16  11  11    0.70000
 1 1  11  16  17  20    0.70000
 2 1  11  16  17  20    0.71667
 1 1  12  16  12  12    0.71667
 1 1  12  16  17  20    0.71667
 2 1  12  16  17  20    0.71667
 1 1  13  16  13  13    0.71667
 1 1  13  16  17  20    0.71667
 2 1  13  16  17  20    0.71667
 1 1  14  16  14  14    0.71667
 1 1  14  16  17  20    0.71667
 2 1  14  16  17  20    0.73333
 1 1  15  16  15  15    0.73333
 1 1  15  16  17  20    0.73333
 2 1  15  16  17  20    0.73333
 1 1  16  16  16  16    0.73333
 1 1  16  16  17  20    0.73333
 2 1  16  16  17  20    0.73333
 1 1  17  40   1  16    0.73333
 1 1   1  16  17  20    0.75000
 1 1  17  40  17  20    0.75000
 2 1  17  40  17  20    0.75000
 1 1  17  40  17  20    0.86667
 2 1  17  40  17  20    0.86667
 1 1  17  17   1  16    0.86667
 2 1  28  28   1  16    0.86667
 1 1  18  18   1  16    0.86667
 2 1  21  21   1  16    0.90000
 1 1  19  19   1  16    0.90000
 2 1  29  29   1  16    0.91667
 1 1  20  20   1  16    0.91667
 2 1  31  31   1  16    0.91667
 1 1   1   1  21  24    0.91667
 2 1  37  37  21  24    0.91667
 1 1   2   2  21  24    0.91667
 2 1  37  37  21  24    0.91667
 1 1   3   3  21  24    0.91667
 2 1   8   8  21  24    0.93333
 1 1   4   4  21  24    0.93333
 2 1  29  29  21  24    0.93333
 1 1   5   5  21  24    0.93333
 2 1  11  11  21  24    0.93333
 1 1   6   6  21  24    0.93333
 2 1  17  17  21  24    0.93333
 1 1   7   7  21  24    0.93333
 2 1  18  18  21  24    0.95000
 1 1   8   8  21  24    0.95000
 2 1  11  11  21  24    0.95000
 1 1   9   9  21  24    0.95000
 2 1  37  37  21  24    0.95000
 1 1  10  10  21  24    0.95000
 2 1  26  26  21  24    0.95000
 1 1  11  11  21  24    0.95000
 2 1  31  31  21  24    0.96667
 1 1  12  12  21  24    0.96667
 2 1  34  34  21  24    0.96667
 1 1  13  13  21  24    0.96667
 2 1  28  28  21  24    0.96667
 1 1  14  14  21  24    0.96667
 2 1  15  15  21  24    0.96667
 1 1  15  15  21  24    0.96667
 2 1  38  38  21  24    0.96667
 1 1  16  16  21  24    0.96667
 2 1  27  27  21  24    0.96667
 1 1  17  17  21  24    0.96667
 2 1  28  28  21  24    0.96667
 1 1  18  18  21  24    0.96667
 2 1  21  21  21  24    0.96667
 1 1  19  19  21  24    0.96667
 2 1  29  29  21  24    0.96667
 1 1  20  20  21  24    1.00000
 2 1  31  31  21  24    1.00000
 1 1   1  20   1   1    1.05000
 1 1   1  20  21  24    1.05000
 2 1   1  20  21  24    1.05000
 1 1   2  20   2   2    1.05000
 1 1   2  20  21  24    1.05000
 2 1   2  20  21  24    1.05000
 1 1   3  20   3   3    1.05000
 1 1   3  20  21  24    1.05000
 2 1   3  20  21  24    1.05000
 1 1   4  20   4   4    1.06667
 1 1   4  20  21  24    1.06667
 2 1   4  20  21  24    1.06667
 1 1   5  20   5   5    1.06667
 1 1   5  20  21  24    1.06667
 2 1   5  20  21  24    1.06667
 1 1   6  20   6   6    1.06667
 1 1   6  20  21  24    1.06667
 2 1   6  20  21  24    1.10000
 1 1   7  20   7   7    1.10000
 1 1   7  20  21  24    1.10000
 2 1   7  20  21  24    1.10000
 1 1   8  20   8   8    1.10000
 1 1   8  20  21  24    1.10000
 2 1   8  20  21  24    1.10000
 1 1   9  20   9   9    1.10000
 1 1   9  20  21  24    1.10000
 2 1   9  20  21  24    1.11667
 1 1  10  20  10  10    1.11667
 1 1  10  20  21  24    1.11667
 2 1  10  20  21  24    1.11667
 1 1  11  20  11  11    1.11667
 1 1  11  20  21  24    1.11667
 2 1  11  20  21  24    1.11667
 1 1  12  20  12  12    1.11667
 1 1  12  20  21  24    1.11667
 2 1  12  20  21  24    1.13333
 1 1  13  20  13  13    1.13333
 1 1  13  20  21  24    1.13333
 2 1  13  20  21  24    1.13333
 1 1  14  20  14  14    1.13333
 1 1  14  20  21  24    1.13333
 2 1  14  20  21  24    1.13333
 1 1  15  20  15  15    1.13333
 1 1  15  20  21  24    1.15000
 2 1  15  20  21  24    1.15000
 1 1  16  20  16  16    1.15000
 1 1  16  20  21  24    1.15000
 2 1  16  20  21  24    1.15000
 1 1  17  20  17  17    1.15000
 1 1  17  20  21  24    1.15000
 2 1  17  20  21  24    1.15000
 1 1  18  20  18  18    1.15000
 1 1  18  20  21  24    1.16667
 2 1  18  20  21  24    1.16667
 1 1  19  20  19  19    1.16667
 1 1  19  20  21  24    1.16667
 2 1  19  20  21  24    1.16667
 1 1  20  20  20  20    1.16667
 1 1  20  20  21  24    1.16667
 2 1  20  20  21  24    1.16667
 1 1  21  40   1  20    1.20000
 1 1   1  20  21  24    1.20000
 1 1  21  40  21  24    1.20000
 2 1  21  40  21  24    1.20000
 1 1  21  40  21  24    1.31667
 2 1  21  40  21  24    1.33333
 1 1  21  21   1  20    1.33333
 2 1  34  34   1  20    1.33333
 1 1  22  22   1  20    1.33333
 2 1  35  35   1  20    1.33333
 1 1  23  23   1  20    1.33333
 2 1  32  32   1  20    1.33333
 1 1  24  24   1  20    1.33333
 2 1  36  36   1  20    1.35000
 1 1   1   1  25  28    1.35000
 2 1  37  37  25  28    1.35000
 1 1   2   2  25  28    1.35000
 2 1  37  37  25  28    1.35000
 1 1   3   3  25  28    1.35000
 2 1   8   8  25  28    1.35000
 1 1   4   4  25  28    1.35000
 2 1  29  29  25  28    1.35000
 1 1   5   5  25  28    1.36667
 2 1  11  11  25  28    1.36667
 1 1   6   6  25  28    1.36667
 2 1  17  17  25  28    1.36667
 1 1   7   7  25  28    1.36667
 2 1  18  18  25  28    1.36667
 1 1   8   8  25  28    1.36667
 2 1  11  11  25  28    1.36667
 1 1   9   9  25  28    1.40000
 2 1  37  37  25  28    1.40000
 1 1  10  10  25  28    1.40000
 2 1  26  26  25  28    1.40000
 1 1  11  11  25  28    1.40000
 2 1  31  31  25  28    1.40000
 1 1  12  12  25  28    1.40000
 2 1  34  34  25  28    1.40000
 1 1  13  13  25  28    1.40000
 2 1  28  28  25  28    1.41667
 1 1  14  14  25  28    1.41667
 2 1  15  15  25  28    1.41667
 1 1  15  15  25  28    1.41667
 2 1  38  38  25  28    1.41667
 1 1  16  16  25  28    1.41667
 2 1  27  27  25  28    1.41667
 1 1  17  17  25  28    1.41667
 2 1  28  28  25  28    1.43333
 1 1  18  18  25  28    1.43333
 2 1  21  21  25  28    1.43333
 1 1  19  19  25  28    1.43333
 2 1  29  29  25  28    1.43333
 1 1  20  20  25  28    1.43333
 2 1  31  31  25  28    1.43333
 1 1  21  21  25  28    1.43333
 2 1  34  34  25  28    1.43333
 1 1  22  22  25  28    1.45000
 2 1  35  35  25  28    1.45000
 1 1  23  23  25  28    1.45000
 2 1  32  32  25  28    1.45000
 1 1  24  24  25  28    1.45000
 2 1  36  36  25  28    1.45000
 1 1   1  24   1   1    1.53333
 1 1   1  24  25  28    1.53333
 2 1   1  24  25  28    1.53333
 1 1   2  24   2   2    1.55000
 1 1   2  24  25  28    1.55000
 2 1   2  24  25  28    1.55000
 1 1   3  24   3   3    1.55000
 1 1   3  24  25  28    1.55000
 2 1   3  24  25  28    1.55000
 1 1   4  24   4   4    1.55000
 1 1   4  24  25  28    1.55000
 2 1   4  24  25  28    1.56667
 1 1   5  24   5   5    1.56667
 1 1   5  24  25  28    1.56667
 2 1   5  24  25  28    1.56667
 1 1   6  24   6   6    1.56667
 1 1   6  24  25  28    1.56667
 2 1   6  24  25  28    1.56667
 1 1   7  24   7   7    1.56667
 1 1   7  24  25  28    1.56667
 2 1   7  24  25  28    1.60000
 1 1   8  24   8   8    1.60000
 1 1   8  24  25  28    1.60000
 2 1   8  24  25  28    1.60000
 1 1   9  24   9   9    1.60000
 1 1   9  24  25  28    1.60000
 2 1   9  24  25  28    1.60000
 1 1  10  24  10  10    1.60000
 1 1  10  24  25  28    1.60000
 2 1  10  24  25  28    1.61667
 1 1  11  24  11  11    1.61667
 1 1  11  24  25  28    1.61667
 2 1  11  24  25  28    1.61667
 1 1  12  24  12  12    1.61667
 1 1  12  24  25  28    1.63333
 2 1  12  24  25  28    1.63333
 1 1  13  24  13  13    1.63333
 1 1  13  24  25  28    1.63333
 2 1  13  24  25  28    1.63333
 1 1  14  24  14  14    1.63333
 1 1  14  24  25  28    1.63333
 2 1  14  24  25  28    1.63333
 1 1  15  24  15  15    1.63333
 1 1  15  24  25  28    1.65000
 2 1  15  24  25  28    1.65000
 1 1  16  24  16  16    1.65000
 1 1  16  24  25  28    1.65000
 2 1  16  24  25  28    1.65000
 1 1  17  24  17  17    1.65000
 1 1  17  24  25  28    1.65000
 2 1  17  24  25  28    1.65000
 1 1  18  24  18  18    1.66667
 1 1  18  24  25  28    1.66667
 2 1  18  24  25  28    1.66667
 1 1  19  24  19  19    1.66667
 1 1  19  24  25  28    1.66667
 2 1  19  24  25  28    1.66667
 1 1  20  24  20  20    1.66667
 1 1  20  24  25  28    1.66667
 2 1  20  24  25  28    1.66667
 1 1  21  24  21  21    1.70000
 1 1  21  24  25  28    1.70000
 2 1  21  24  25  28    1.70000
 1 1  22  24  22  22    1.71667
 1 1  22  24  25  28    1.71667
 2 1  22  24  25  28    1.71667
 1 1  23  24  23  23    1.71667
 1 1  23  24  25  28    1.71667
 2 1  23  24  25  28    1.71667
 1 1  24  24  24  24    1.71667
 1 1  24  24  25  28    1.71667
 2 1  24  24  25  28    1.73334
 1 1  25  40   1  24    1.73334
 1 1   1  24  25  28    1.73334
 1 1  25  40  25  28    1.73334
 2 1  25  40  25  28    1.73334
 1 1  25  40  25  28    1.86667
 2 1  25  40  25  28    1.86667
 1 1  25  25   1  24    1.86667
 2 1  34  34   1  24    1.86667
 1 1  26  26   1  24    1.86667
 2 1  31  31   1  24    1.86667
 1 1  27  27   1  24    1.86667
 2 1  32  32   1  24    1.90000
 1 1  28  28   1  24    1.90000
 2 1  35  35   1  24    1.90000
 1 1   1   1  29  32    1.90000
 2 1  37  37  29  32    1.90000
 1 1   2   2  29  32    1.90000
 2 1  37  37  29  32    1.90000
 1 1   3   3  29  32    1.90000
 2 1   8   8  29  32    1.90000
 1 1   4   4  29  32    1.90000
 2 1  29  29  29  32    1.91667
 1 1   5   5  29  32    1.91667
 2 1  11  11  29  32    1.91667
 1 1   6   6  29  32    1.91667
 2 1  17  17  29  32    1.91667
 1 1   7   7  29  32    1.91667
 2 1  18  18  29  32    1.91667
 1 1   8   8  29  32    1.91667
 2 1  11  11  29  32    1.91667
 1 1   9   9  29  32    1.93334
 2 1  37  37  29  32    1.93334
 1 1  10  10  29  32    1.93334
 2 1  26  26  29  32    1.93334
 1 1  11  11  29  32    1.93334
 2 1  31  31  29  32    1.93334
 1 1  12  12  29  32    1.93334
 2 1  34  34  29  32    1.93334
 1 1  13  13  29  32    1.95000
 2 1  28  28  29  32    1.95000
 1 1  14  14  29  32    1.95000
 2 1  15  15  29  32    1.95000
 1 1  15  15  29  32    1.95000
 2 1  38  38  29  32    1.95000
 1 1  16  16  29  32    1.95000
 2 1  27  27  29  32    1.95000
 1 1  17  17  29  32    1.96667
 2 1  28  28  29  32    1.96667
 1 1  18  18  29  32    1.96667
 2 1  21  21  29  32    1.96667
 1 1  19  19  29  32    1.96667
 2 1  29  29  29  32    1.96667
 1 1  20  20  29  32    1.96667
 2 1  31  31  29  32    1.96667
 1 1  21  21  29  32    2.00000
 2 1  34  34  29  32    2.00000
 1 1  22  22  29  32    2.00000
 2 1  35  35  29  32    2.00000
 1 1  23  23  29  32    2.00000
 2 1  32  32  29  32    2.00000
 1 1  24  24  29  32    2.00000
 2 1  36  36  29  32    2.00000
 1 1  25  25  29  32    2.01667
 2 1  34  34  29  32    2.01667
 1 1  26  26  29  32    2.01667
 2 1  31  31  29  32    2.01667
 1 1  27  27  29  32    2.01667
 2 1  32  32  29  32    2.01667
 1 1  28  28  29  32    2.01667
 2 1  35  35  29  32    2.01667
 1 1   1  28   1   1    2.13334
 1 1   1  28  29  32    2.13334
 2 1   1  28  29  32    2.13334
 1 1   2  28   2   2    2.13334
 1 1   2  28  29  32    2.13334
 2 1   2  28  29  32    2.13334
 1 1   3  28   3   3    2.13334
 1 1   3  28  29  32    2.15000
 2 1   3  28  29  32    2.15000
 1 1   4  28   4   4    2.15000
 1 1   4  28  29  32    2.15000
 2 1   4  28  29  32    2.15000
 1 1   5  28   5   5    2.15000
 1 1   5  28  29  32    2.15000
 2 1   5  28  29  32    2.15000
 1 1   6  28   6   6    2.15000
 1 1   6  28  29  32    2.15000
 2 1   6  28  29  32    2.15000
 1 1   7  28   7   7    2.15000
 1 1   7  28  29  32    2.15000
 2 1   7  28  29  32    2.15000
 1 1   8  28   8   8    2.15000
 1 1   8  28  29  32    2.15000
 2 1   8  28  29  32    2.15000
 1 1   9  28   9   9    2.16667
 1 1   9  28  29  32    2.16667
 2 1   9  28  29  32    2.16667
 1 1  10  28  10  10    2.16667
 1 1  10  28  29  32    2.16667
 2 1  10  28  29  32    2.16667
 1 1  11  28  11  11    2.16667
 1 1  11  28  29  32    2.16667
 2 1  11  28  29  32    2.16667
 1 1  12  28  12  12    2.20000
 1 1  12  28  29  32    2.20000
 2 1  12  28  29  32    2.20000
 1 1  13  28  13  13    2.20000
 1 1  13  28  29  32    2.20000
 2 1  13  28  29  32    2.20000
 1 1  14  28  14  14    2.20000
 1 1  14  28  29  32    2.20000
 2 1  14  28  29  32    2.21667
 1 1  15  28  15  15    2.21667
 1 1  15  28  29  32    2.21667
 2 1  15  28  29  32    2.21667
 1 1  16  28  16  16    2.21667
 1 1  16  28  29  32    2.21667
 2 1  16  28  29  32    2.21667
 1 1  17  28  17  17    2.21667
 1 1  17  28  29  32    2.21667
 2 1  17  28  29  32    2.23334
 1 1  18  28  18  18    2.23334
 1 1  18  28  29  32    2.23334
 2 1  18  28  29  32    2.23334
 1 1  19  28  19  19    2.23334
 1 1  19  28  29  32    2.23334
 2 1  19  28  29  32    2.23334
 1 1  20  28  20  20    2.23334
 1 1  20  28  29  32    2.23334
 2 1  20  28  29  32    2.23334
 1 1  21  28  21  21    2.23334
 1 1  21  28  29  32    2.23334
 2 1  21  28  29  32    2.23334
 1 1  22  28  22  22    2.23334
 1 1  22  28  29  32    2.23334
 2 1  22  28  29  32    2.25000
 1 1  23  28  23  23    2.25000
 1 1  23  28  29  32    2.25000
 2 1  23  28  29  32    2.25000
 1 1  24  28  24  24    2.25000
 1 1  24  28  29  32    2.25000
 2 1  24  28  29  32    2.25000
 1 1  25  28  25  25    2.25000
 1 1  25  28  29  32    2.25000
 2 1  25  28  29  32    2.26667
 1 1  26  28  26  26    2.26667
 1 1  26  28  29  32    2.26667
 2 1  26  28  29  32    2.26667
 1 1  27  28  27  27    2.26667
 1 1  27  28  29  32    2.26667
 2 1  27  28  29  32    2.26667
 1 1  28  28  28  28    2.26667
 1 1  28  28  29  32    2.30000
 2 1  28  28  29  32    2.30000
 1 1  29  40   1  28    2.30000
 1 1   1  28  29  32    2.30000
 1 1  29  40  29  32    2.30000
 2 1  29  40  29  32    2.30000
 1 1  29  40  29  32    2.40000
 2 1  29  40  29  32    2.41667
 1 1  29  29   1  28    2.41667
 2 1  33  33   1  28    2.41667
 1 1  30  30   1  28    2.41667
 2 1  33  33   1  28    2.41667
 1 1  31  31   1  28    2.41667
 2 1  33  33   1  28    2.41667
 1 1  32  32   1  28    2.41667
 2 1  38  38   1  28    2.43334
 1 1   1   1  33  36    2.43334
 2 1  37  37  33  36    2.43334
 1 1   2   2  33  36    2.43334
 2 1  37  37  33  36    2.43334
 1 1   3   3  33  36    2.43334
 2 1   8   8  33  36    2.43334
 1 1   4   4  33  36    2.43334
 2 1  29  29  33  36    2.43334
 1 1   5   5  33  36    2.45000
 2 1  11  11  33  36    2.45000
 1 1   6   6  33  36    2.45000
 2 1  17  17  33  36    2.45000
 1 1   7   7  33  36    2.45000
 2 1  18  18  33  36    2.45000
 1 1   8   8  33  36    2.45000
 2 1  11  11  33  36    2.45000
 1 1   9   9  33  36    2.46667
 2 1  37  37  33  36    2.46667
 1 1  10  10  33  36    2.46667
 2 1  26  26  33  36    2.46667
 1 1  11  11  33  36    2.46667
 2 1  31  31  33  36    2.46667
 1 1  12  12  33  36    2.46667
 2 1  34  34  33  36    2.46667
 1 1  13  13  33  36    2.50000
 2 1  28  28  33  36    2.50000
 1 1  14  14  33  36    2.50000
 2 1  15  15  33  36    2.50000
 1 1  15  15  33  36    2.50000
 2 1  38  38  33  36    2.50000
 1 1  16  16  33  36    2.50000
 2 1  27  27  33  36    2.50000
 1 1  17  17  33  36    2.50000
 2 1  28  28  33  36    2.51667
 1 1  18  18  33  36    2.51667
 2 1  21  21  33  36    2.51667
 1 1  19  19  33  36    2.51667
 2 1  29  29  33  36    2.51667
 1 1  20  20  33  36    2.51667
 2 1  31  31  33  36    2.51667
 1 1  21  21  33  36    2.51667
 2 1  34  34  33  36    2.53334
 1 1  22  22  33  36    2.53334
 2 1  35  35  33  36    2.53334
 1 1  23  23  33  36    2.53334
 2 1  32  32  33  36    2.53334
 1 1  24  24  33  36    2.53334
 2 1  36  36  33  36    2.53334
 1 1  25  25  33  36    2.53334
 2 1  34  34  33  36    2.53334
 1 1  26  26  33  36    2.55000
 2 1  31  31  33  36    2.55000
 1 1  27  27  33  36    2.55000
 2 1  32  32  33  36    2.55000
 1 1  28  28  33  36    2.55000
 2 1  35  35  33  36    2.56667
 1 1  29  29  33  36    2.56667
 2 1  33  33  33  36    2.56667
 1 1  30  30  33  36    2.56667
 2 1  33  33  33  36    2.56667
 1 1  31  31  33  36    2.56667
 2 1  33  33  33  36    2.56667
 1 1  32  32  33  36    2.56667
 2 1  38  38  33  36    2.60000
 1 1   1  32   1   1    2.73334
 1 1   1  32  33  36    2.73334
 2 1   1  32  33  36    2.73334
 1 1   2  32   2   2    2.73334
 1 1   2  32  33  36    2.73334
 2 1   2  32  33  36    2.73334
 1 1   3  32   3   3    2.73334
 1 1   3  32  33  36    2.73334
 2 1   3  32  33  36    2.73334
 1 1   4  32   4   4    2.75000
 1 1   4  32  33  36    2.75000
 2 1   4  32  33  36    2.75000
 1 1   5  32   5   5    2.75000
 1 1   5  32  33  36    2.75000
 2 1   5  32  33  36    2.75000
 1 1   6  32   6   6    2.75000
 1 1   6  32  33  36    2.75000
 2 1   6  32  33  36    2.75000
 1 1   7  32   7   7    2.75000
 1 1   7  32  33  36    2.75000
 2 1   7  32  33  36    2.75000
 1 1   8  32   8   8    2.75000
 1 1   8  32  33  36    2.75000
 2 1   8  32  33  36    2.75000
 1 1   9  32   9   9    2.75000
 1 1   9  32  33  36    2.75000
 2 1   9  32  33  36    2.78334
 1 1  10  32  10  10    2.78334
 1 1  10  32  33  36    2.78334
 2 1  10  32  33  36    2.78334
 1 1  11  32  11  11    2.78334
 1 1  11  32  33  36    2.78334
 2 1  11  32  33  36    2.78334
 1 1  12  32  12  12    2.78334
 1 1  12  32  33  36    2.78334
 2 1  12  32  33  36    2.80000
 1 1  13  32  13  13    2.80000
 1 1  13  32  33  36    2.80000
 2 1  13  32  33  36    2.80000
 1 1  14  32  14  14    2.80000
 1 1  14  32  33  36    2.80000
 2 1  14  32  33  36    2.80000
 1 1  15  32  15  15    2.80000
 1 1  15  32  33  36    2.80000
 2 1  15  32  33  36    2.80000
 1 1  16  32  16  16    2.81667
 1 1  16  32  33  36    2.81667
 2 1  16  32  33  36    2.81667
 1 1  17  32  17  17    2.81667
 1 1  17  32  33  36    2.81667
 2 1  17  32  33  36    2.81667
 1 1  18  32  18  18    2.81667
 1 1  18  32  33  36    2.81667
 2 1  18  32  33  36    2.81667
 1 1  19  32  19  19    2.81667
 1 1  19  32  33  36    2.81667
 2 1  19  32  33  36    2.81667
 1 1  20  32  20  20    2.81667
 1 1  20  32  33  36    2.81667
 2 1  20  32  33  36    2.81667
 1 1  21  32  21  21    2.81667
 1 1  21  32  33  36    2.83334
 2 1  21  32  33  36    2.83334
 1 1  22  32  22  22    2.83334
 1 1  22  32  33  36    2.83334
 2 1  22  32  33  36    2.83334
 1 1  23  32  23  23    2.83334
 1 1  23  32  33  36    2.83334
 2 1  23  32  33  36    2.83334
 1 1  24  32  24  24    2.83334
 1 1  24  32  33  36    2.85000
 2 1  24  32  33  36    2.85000
 1 1  25  32  25  25    2.85000
 1 1  25  32  33  36    2.85000
 2 1  25  32  33  36    2.85000
 1 1  26  32  26  26    2.85000
 1 1  26  32  33  36    2.85000
 2 1  26  32  33  36    2.85000
 1 1  27  32  27  27    2.85000
 1 1  27  32  33  36    2.85000
 2 1  27  32  33  36    2.85000
 1 1  28  32  28  28    2.85000
 1 1  28  32  33  36    2.85000
 2 1  28  32  33  36    2.85000
 1 1  29  32  29  29    2.85000
 1 1  29  32  33  36    2.85000
 2 1  29  32  33  36    2.85000
 1 1  30  32  30  30    2.86667
 1 1  30  32  33  36    2.86667
 2 1  30  32  33  36    2.86667
 1 1  31  32  31  31    2.86667
 1 1  31  32  33  36    2.86667
 2 1  31  32  33  36    2.86667
 1 1  32  32  32  32    2.86667
 1 1  32  32  33  36    2.86667
 2 1  32  32  33  36    2.90000
 1 1  33  40   1  32    2.90000
 1 1   1  32  33  36    2.90000
 1 1  33  40  33  36    2.90000
 2 1  33  40  33  36    2.90000
 1 1  33  40  33  36    2.96667
 2 1  33  40  33  36    2.96667
 1 1  33  33   1  32    2.96667
 2 1  38  38   1  32    3.00000
 1 1  34  34   1  32    3.00000
 2 1  37  37   1  32    3.00000
 1 1  35  35   1  32    3.00000
 2 1  38  38   1  32    3.00000
 1 1  36  36   1  32    3.00000
 2 1  39  39   1  32    3.00000
 1 1   1   1  37  40    3.00000
 2 1  37  37  37  40    3.01667
 1 1   2   2  37  40    3.01667
 2 1  37  37  37  40    3.01667
 1 1   3   3  37  40    3.01667
 2 1   8   8  37  40    3.01667
 1 1   4   4  37  40    3.01667
 2 1  29  29  37  40    3.01667
 1 1   5   5  37  40    3.01667
 2 1  11  11  37  40    3.01667
 1 1   6   6  37  40    3.03334
 2 1  17  17  37  40    3.03334
 1 1   7   7  37  40    3.03334
 2 1  18  18  37  40    3.03334
 1 1   8   8  37  40    3.03334
 2 1  11  11  37  40    3.03334
 1 1   9   9  37  40    3.03334
 2 1  37  37  37  40    3.03334
 1 1  10  10  37  40    3.05000
 2 1  26  26  37  40    3.05000
 1 1  11  11  37  40    3.05000
 2 1  31  31  37  40    3.05000
 1 1  12  12  37  40    3.05000
 2 1  34  34  37  40    3.05000
 1 1  13  13  37  40    3.05000
 2 1  28  28  37  40    3.05000
 1 1  14  14  37  40    3.05000
 2 1  15  15  37  40    3.06667
 1 1  15  15  37  40    3.06667
 2 1  38  38  37  40    3.06667
 1 1  16  16  37  40    3.06667
 2 1  27  27  37  40    3.06667
 1 1  17  17  37  40    3.06667
 2 1  28  28  37  40    3.06667
 1 1  18  18  37  40    3.06667
 2 1  21  21  37  40    3.10000
 1 1  19  19  37  40    3.10000
 2 1  29  29  37  40    3.10000
 1 1  20  20  37  40    3.10000
 2 1  31  31  37  40    3.10000
 1 1  21  21  37  40    3.10000
 2 1  34  34  37  40    3.10000
 1 1  22  22  37  40    3.10000
 2 1  35  35  37  40    3.10000
 1 1  23  23  37  40    3.10000
 2 1  32  32  37  40    3.10000
 1 1  24  24  37  40    3.10000
 2 1  36  36  37  40    3.10000
 1 1  25  25  37  40    3.10000
 2 1  34  34  37  40    3.10000
 1 1  26  26  37  40    3.10000
 2 1  31  31  37  40    3.10000
 1 1  27  27  37  40    3.11667
 2 1  32  32  37  40    3.11667
 1 1  28  28  37  40    3.11667
 2 1  35  35  37  40    3.11667
 1 1  29  29  37  40    3.11667
 2 1  33  33  37  40    3.11667
 1 1  30  30  37  40    3.11667
 2 1  33  33  37  40    3.11667
 1 1  31  31  37  40    3.11667
 2 1  33  33  37  40    3.13334
 1 1  32  32  37  40    3.13334
 2 1  38  38  37  40    3.13334
 1 1  33  33  37  40    3.13334
 2 1  38  38  37  40    3.13334
 1 1  34  34  37  40    3.13334
 2 1  37  37  37  40    3.15000
 1 1  35  35  37  40    3.15000
 2 1  38  38  37  40    3.15000
 1 1  36  36  37  40    3.15000
 2 1  39  39  37  40    3.15000
 1 1   1  36   1   1    3.33334
 1 1   1  36  37  40    3.33334
 2 1   1  36  37  40    3.33334
 1 1   2  36   2   2    3.33334
 1 1   2  36  37  40    3.33334
 2 1   2  36  37  40    3.33334
 1 1   3  36   3   3    3.35000
 1 1   3  36  37  40    3.35000
 2 1   3  36  37  40    3.35000
 1 1   4  36   4   4    3.35000
 1 1   4  36  37  40    3.35000
 2 1   4  36  37  40    3.35000
 1 1   5  36   5   5    3.35000
 1 1   5  36  37  40    3.35000
 2 1   5  36  37  40    3.36667
 1 1   6  36   6   6    3.36667
 1 1   6  36  37  40    3.36667
 2 1   6  36  37  40    3.36667
 1 1   7  36   7   7    3.36667
 1 1   7  36  37  40    3.36667
 2 1   7  36  37  40    3.36667
 1 1   8  36   8   8    3.36667
 1 1   8  36  37  40    3.36667
 2 1   8  36  37  40    3.40000
 1 1   9  36   9   9    3.40000
 1 1   9  36  37  40    3.40000
 2 1   9  36  37  40    3.40000
 1 1  10  36  10  10    3.40000
 1 1  10  36  37  40    3.40000
 2 1  10  36  37  40    3.40000
 1 1  11  36  11  11    3.40000
 1 1  11  36  37  40    3.41667
 2 1  11  36  37  40    3.41667
 1 1  12  36  12  12    3.41667
 1 1  12  36  37  40    3.41667
 2 1  12  36  37  40    3.41667
 1 1  13  36  13  13    3.41667
 1 1  13  36  37  40    3.41667
 2 1  13  36  37  40    3.41667
 1 1  14  36  14  14    3.41667
 1 1  14  36  37  40    3.43334
 2 1  14  36  37  40    3.43334
 1 1  15  36  15  15    3.43334
 1 1  15  36  37  40    3.43334
 2 1  15  36  37  40    3.43334
 1 1  16  36  16  16    3.43334
 1 1  16  36  37  40    3.43334
 2 1  16  36  37  40    3.43334
 1 1  17  36  17  17    3.45000
 1 1  17  36  37  40    3.45000
 2 1  17  36  37  40    3.45000
 1 1  18  36  18  18    3.45000
 1 1  18  36  37  40    3.45000
 2 1  18  36  37  40    3.45000
 1 1  19  36  19  19    3.46667
 1 1  19  36  37  40    3.46667
 2 1  19  36  37  40    3.46667
 1 1  20  36  20  20    3.46667
 1 1  20  36  37  40    3.46667
 2 1  20  36  37  40    3.46667
 1 1  21  36  21  21    3.46667
 1 1  21  36  37  40    3.46667
 2 1  21  36  37  40    3.50000
 1 1  22  36  22  22    3.50000
 1 1  22  36  37  40    3.50000
 2 1  22  36  37  40    3.50000
 1 1  23  36  23  23    3.50000
 1 1  23  36  37  40    3.50000
 2 1  23  36  37  40    3.50000
 1 1  24  36  24  24    3.50000
 1 1  24  36  37  40    3.50000
 2 1  24  36  37  40    3.51667
 1 1  25  36  25  25    3.51667
 1 1  25  36  37  40    3.51667
 2 1  25  36  37  40    3.51667
 1 1  26  36  26  26    3.51667
 1 1  26  36  37  40    3.51667
 2 1  26  36  37  40    3.51667
 1 1  27  36  27  27    3.51667
 1 1  27  36  37  40    3.51667
 2 1  27  36  37  40    3.53334
 1 1  28  36  28  28    3.53334
 1 1  28  36  37  40    3.53334
 2 1  28  36  37  40    3.55000
 1 1  29  36  29  29    3.55000
 1 1  29  36  37  40    3.55000
 2 1  29  36  37  40    3.55000
 1 1  30  36  30  30    3.55000
 1 1  30  36  37  40    3.55000
 2 1  30  36  37  40    3.55000
 1 1  31  36  31  31    3.55000
 1 1  31  36  37  40    3.56667
 2 1  31  36  37  40    3.56667
 1 1  32  36  32  32    3.56667
 1 1  32  36  37  40    3.56667
 2 1  32  36  37  40    3.56667
 1 1  33  36  33  33    3.56667
 1 1  33  36  37  40    3.56667
 2 1  33  36  37  40    3.56667
 1 1  34  36  34  34    3.60000
 1 1  34  36  37  40    3.60000
 2 1  34  36  37  40    3.60000
 1 1  35  36  35  35    3.60000
 1 1  35  36  37  40    3.60000
 2 1  35  36  37  40    3.60000
 1 1  36  36  36  36    3.60000
 1 1  36  36  37  40    3.60000
 2 1  36  36  37  40    3.60000
 1 1  37  40   1  36    3.61667
 1 1   1  36  37  40    3.61667
 1 1  37  40  37  40    3.61667
 2 1  37  40  37  40    3.63334
 1 1  37  40  37  40    3.66667
 2 1  37  40  37  40    3.66667
 1 1  37  37   1  36    3.66667
 2 1  40  40   1  36    3.70000
 1 1  38  38   1  36    3.70000
 2 1  40  40   1  36    3.70000
SHAR_EOF
if test -f 'print_stats.c'
then
	echo shar: over-writing existing file "'print_stats.c'"
fi
cat << \SHAR_EOF > 'print_stats.c'
/*
 Written by Jim Kohl, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

print_stats()
{
  float time_slice;
  float time_mark;
  float max_time;
  float time;
  char message[81];
  int ids[10];
  int num_ids;
  int reads[4],writes[4],flops[4];
  int hits,misses;
  int row1,row2,column1,column2;
  int opcode,id;
  int chunk_ctr;
  int hitrat;
  int count;
  int i,j,k;
  int x,y;
  int i1,i2,j1,j2;
  int num;

  if (vflag)
    {
      printf("NUM_CHUNKS = %d\n",NUM_CHUNKS);
      printf("MEM_FILE = %s\n",MEM_FILE);
      printf("PAGE_SIZE = %d\n",PAGE_SIZE);
      printf("PAGE_SIZE_P2 = %d\n",PAGE_SIZE_P2);
      printf("CACHE_SIZE = %d\n",CACHE_SIZE);
      printf("CACHE_SIZE_P2 = %d\n",CACHE_SIZE_P2);
      printf("CACHE_MECHANISM = ");
      switch (CACHE_MECHANISM)
        {
          case CACHE_LRU: printf("LRU\n"); break;
          case CACHE_LFU: printf("LFU\n"); break;
          case CACHE_FIFO: printf("FIFO\n"); break;
          case CACHE_CLOCK: printf("Clock\n"); break;
          case CACHE_LIFO: printf("LIFO\n"); break;
          case CACHE_RAND: printf("Random\n"); break;
          default: printf("Unknown\n");
        }
    }
  file_info_of(MEM_FILE,&max_time,&num_ids,ids);
  time_mark = time_slice = max_time / (float) NUM_CHUNKS;
  if ((memory_file = fopen(MEM_FILE, "r")) == NULL)
    {
      printf("\nError Opening File \"%s\"\n\n",MEM_FILE);
      exit(1);
    }
  cache_init();
  chunk_ctr = 0;
  time = 0.0;
  for (i = 0; i < num_ids; i++)
    {
      reads[(ids[i])] = 0;
      writes[(ids[i])] = 0;
      flops[(ids[i])] = 0;
    }
  hits = 0;
  misses = 0;

  if (!vflag)
    {
      printf("                    ");
      printf("          Matrices          ");
      printf("          Cache         \n");
      printf("                    ");
      printf("----------------------------");
      printf(" -----------------------\n");
      printf("   Time     # Mats ");
      printf("  ID   Reads  Writes   FLOPS ");
      printf("    Hits  Misses  Ratio \n");
    }
  while (fscanf(memory_file,"%d",&opcode) != EOF)
    {
      switch (opcode)
        {
          case 0: /* Matrix Defn */
            fscanf(memory_file, "%d", &id);
            id--;
            fscanf(memory_file,"%d %d",
                  &number_of_rows[id],&number_of_columns[id]);
            current_max = 2 * number_of_rows[id] * number_of_columns[id];
            if (vflag)
              {
                printf("Matrix Defn    id=%d    ",id+1);
                printf("number_of_rows=%d    ",number_of_rows[id]);
                printf("number_of_columns=%d\n", number_of_columns[id]);
              }
            break;
         case 1: /* Read */
         case 2: /* Write */
           fscanf(memory_file,"%d %d %d %d %d %f",
                 &id,&row1,&row2,&column1,&column2,&time);
           id--;
           i1 = row1 - 1;
           j1 = column1 - 1;
           i2 = row2 - 1;
           j2 = column2 - 1;
           num = ( i2 - i1 + 1 ) * ( j2 - j1 + 1 );
           if (opcode == 1)
             {
               reads[id] += num;
               r_counter[id] += num;
             }
           else
             {
               writes[id] += num;
               w_counter[id] += num;
             }
           for (i = i1; i <= i2; i++)
             {
               for (j = j1; j <= j2; j++)
                 {
                   int cache_addr;
                   int result;
                   result = cache(id,opcode,i,j,&cache_addr);
                   if (result == CACHE_MISS  &&  opcode == READ)
                     {
                       misses += PAGE_SIZE;
                       num_cache_misses += PAGE_SIZE;
                     }
                   else if (opcode == READ)
                     {
                       hits++;
                       num_cache_hits++;
                     }
                 }
             }
           break;
         case 3: /* Ignore */
            fscanf(memory_file, "%d", &id);
            id--;
            if (vflag)
              printf("Ignore    id=%d\n",id+1);
            break;
          case 4: /* Informational message on the array. */
            fscanf(memory_file,"%d",&id);
            id--;
            while ((message[0] = getc(memory_file)) == ' ');
            i = 1;
            while ((message[i] = getc(memory_file)) != '\n')
              i++;
            message[i] = '\0';
            if (vflag)
              printf("Info Message    id=%d    message:\n%s\n",id+1,message);
            break;
          case 5: /* FLOPS & subroutine name. */
            fscanf(memory_file,"%d %d %s",&id,&count,message);
            id--;
            flops[id] += count;
            op_counts[id] += count;
            if (vflag)
              printf("id=%1d    FLOPS= %6d    subr name: %s\n",
                      id+1,count,message);
            break;
        }
      if (time > time_mark  &&  chunk_ctr < NUM_CHUNKS)
        {
          chunk_ctr++;
          time_mark += time_slice;
          hitrat = 0;
          if (hits || misses)
          hitrat = (int) (100 * ((float) hits / (float) (hits + misses)));
          if (vflag)
            {
              printf("Time Stamp: %f\n",time);
              for (i = 0; i < num_ids; i++)
                {
                  printf("id=%1d    ",(ids[i])+1);
                  printf("Reads: %6d    ",reads[(ids[i])]);
                  printf("Writes: %6d    ",writes[(ids[i])]);
                  printf("FLOPS: %6d\n",flops[(ids[i])]);
                }
              printf("CACHE   Hits:  %6d    ",hits);
              printf("Misses: %6d    ",misses);
              printf("Hit Ratio: %2d%%\n",hitrat);
            }
          else
            {
              printf("%10f     %1d   ",time,num_ids);
              printf("   %1d ",(ids[0])+1);
              printf(" %6d ",reads[0]);
              printf(" %6d ",writes[0]);
              printf(" %6d ",flops[0]);
              printf("  %6d ",hits);
              printf(" %6d ",misses);
              printf("   %2d%%\n",hitrat);
              for (i = 1; i < num_ids; i++)
                {
                  printf("                    ");
                  printf("  %1d ",(ids[i])+1);
                  printf(" %6d ",reads[(ids[i])]);
                  printf(" %6d ",writes[(ids[i])]);
                  printf(" %6d\n",flops[(ids[i])]);
                }
            }
          for (i = 0; i < num_ids; i++)
            {
              reads[(ids[i])] = 0;
              writes[(ids[i])] = 0;
              flops[(ids[i])] = 0;
            }
          hits = 0;
          misses = 0;
        }
    }
  fclose(memory_file);
  if (chunk_ctr < NUM_CHUNKS)
    {
      hitrat = 0;
      if (hits || misses)
      hitrat = (int) (100 * ((float) hits / (float) (hits + misses)));
      if (vflag)
        {
          printf("Time Stamp: %f\n",time);
          for (i = 0; i < num_ids; i++)
            {
              printf("id=%1d    ",(ids[i])+1);
              printf("Reads: %6d    ",reads[(ids[i])]);
              printf("Writes: %6d    ",writes[(ids[i])]);
              printf("FLOPS: %6d\n",flops[(ids[i])]);
            }
          printf("CACHE   Hits:  %6d    ",hits);
          printf("Misses: %6d    ",misses);
          printf("Hit Ratio: %2d%%\n",hitrat);
        }
      else
        {
          printf("%10f     %1d   ",time,num_ids);
          printf("   %1d ",(ids[0])+1);
          printf(" %6d ",reads[0]);
          printf(" %6d ",writes[0]);
          printf(" %6d ",flops[0]);
          printf("  %6d ",hits);
          printf(" %6d ",misses);
          printf("   %2d%%\n",hitrat);
          for (i = 1; i < num_ids; i++)
            {
              printf("                    ");
              printf("  %1d ",(ids[i])+1);
              printf(" %6d ",reads[(ids[i])]);
              printf(" %6d ",writes[(ids[i])]);
              printf(" %6d\n",flops[(ids[i])]);
            }
        }
    }
  hitrat = 0;
  if (num_cache_hits || num_cache_misses)
    hitrat = (int) (100 * ((float) num_cache_hits /
             (float) (num_cache_hits + num_cache_misses)));
  if (vflag)
    {
      printf("\nTOTALS:\n");
      for (i = 0; i < num_ids; i++)
        {
          printf("id=%1d    ",(ids[i])+1);
          printf("Reads: %6d    ",r_counter[(ids[i])]);
          printf("Writes: %6d    ",w_counter[(ids[i])]);
          printf("FLOPS: %6d\n",op_counts[(ids[i])]);
        }
      printf("CACHE   Hits:  %6d    ",num_cache_hits);
      printf("Misses: %6d    ",num_cache_misses);
      printf("Hit Ratio: %2d%%\n",hitrat);
    }
  else
    {
      printf("\nTOTALS:        %1d   ",num_ids);
      printf("   %1d ",(ids[0])+1);
      printf(" %6d ",r_counter[0]);
      printf(" %6d ",w_counter[0]);
      printf(" %6d ",op_counts[0]);
      printf("  %6d ",num_cache_hits);
      printf(" %6d ",num_cache_misses);
      printf("   %2d%%\n",hitrat);
      for (i = 1; i < num_ids; i++)
        {
          printf("                    ");
          printf("  %1d ",(ids[i])+1);
          printf(" %6d ",r_counter[(ids[i])]);
          printf(" %6d ",w_counter[(ids[i])]);
          printf(" %6d\n",op_counts[(ids[i])]);
        }
    }
  printf("\n");
  return;
}

file_info_of(fname,max_time,num_ids,ids)
char *fname;
float *max_time;
int *num_ids;
int *ids;
{
  int i, id, opcode;
  float time;
  char message[81];

  if ((memory_file = fopen(fname, "r")) == NULL)
    {
      printf("\nError Opening File \"%s\"\n\n",fname);
      exit(1);
    }
  *num_ids = 0;
  while (fscanf(memory_file, "%d", &opcode) != EOF)
    {
      switch (opcode)
        {
          case 0: /* Matrix Defn */
            fscanf(memory_file, "%d %*d %*d", &id);
            ids[(*num_ids)++] = id - 1;
            break;
          case 1: /* Read */
          case 2: /* Write */
            fscanf(memory_file, "%*d %*d %*d %*d %*d %f", &time);
            break;
          case 3: /* Ignore */
            fscanf(memory_file, "%*d");
            break;
          case 4: /* Informational message on the array. */
            fscanf(memory_file, "%*d");
            while ((message[0] = getc(memory_file)) == ' ');
            i = 1;
            while ((message[i] = getc(memory_file)) != '\n')
              i++;
            message[i] = '\0';
            break;
          case 5: /* FLOPS & subroutine name. */
            fscanf(memory_file, "%*d %*d %*s");
            break;
        }
    }
  fclose(memory_file);
  *max_time = time;
  return;
}
SHAR_EOF
if test -f 'memory.spotrf'
then
	echo shar: over-writing existing file "'memory.spotrf'"
fi
cat << \SHAR_EOF > 'memory.spotrf'
  4  1  Cholesky by LAPACK
  0  1  40  40
 1 1   1   1   1   1    0.00000
 2 1   1   1   1   1    0.00000
 1 1   1   2   2   2    0.00000
 2 1   1   2   2   2    0.00000
 1 1   1   3   3   3    0.00000
 2 1   1   3   3   3    0.00000
 1 1   1   4   4   4    0.00000
 2 1   1   4   4   4    0.01667
 5  1    576 strsm
 1 1   1   4   4   4    0.06667
 1 1   1   4   5  40    0.06667
 2 1   1   4   5  40    0.06667
 1 1   1   3   3   3    0.06667
 1 1   1   3   5  40    0.06667
 2 1   1   3   5  40    0.06667
 1 1   1   2   2   2    0.06667
 1 1   1   2   5  40    0.06667
 2 1   1   2   5  40    0.08333
 1 1   1   1   1   1    0.08333
 1 1   1   1   5  40    0.08333
 2 1   1   1   5  40    0.08333
 5  1     64 ssyrk
 5  1      8 sgemv
 1 1   1   4   5   5    0.08333
 1 1   1   4   5   5    0.08333
 1 1   5   5   5   5    0.08333
 2 1   5   5   5   5    0.08333
 5  1     16 sgemv
 1 1   1   4   5   6    0.08333
 1 1   1   4   6   6    0.10000
 1 1   5   6   6   6    0.10000
 2 1   5   6   6   6    0.10000
 5  1     24 sgemv
 1 1   1   4   5   7    0.10000
 1 1   1   4   7   7    0.10000
 1 1   5   7   7   7    0.10000
 2 1   5   7   7   7    0.10000
 5  1     32 sgemv
 1 1   1   4   5   8    0.11667
 1 1   1   4   8   8    0.11667
 1 1   5   8   8   8    0.11667
 2 1   5   8   8   8    0.11667
 1 1   5   5   5   5    0.11667
 2 1   5   5   5   5    0.11667
 1 1   5   6   6   6    0.11667
 2 1   5   6   6   6    0.15000
 1 1   5   7   7   7    0.15000
 2 1   5   7   7   7    0.15000
 1 1   5   8   8   8    0.15000
 2 1   5   8   8   8    0.15000
 5  1   1024 sgemm
 1 1   1   4   5   8    0.15000
 1 1   1   4   9  40    0.15000
 1 1   5   8   9  40    0.15000
 2 1   5   8   9  40    0.16667
 5  1    512 strsm
 1 1   5   8   8   8    0.21667
 1 1   5   8   9  40    0.25000
 2 1   5   8   9  40    0.25000
 1 1   5   7   7   7    0.25000
 1 1   5   7   9  40    0.25000
 2 1   5   7   9  40    0.25000
 1 1   5   6   6   6    0.25000
 1 1   5   6   9  40    0.25000
 2 1   5   6   9  40    0.25000
 1 1   5   5   5   5    0.25000
 1 1   5   5   9  40    0.26667
 2 1   5   5   9  40    0.26667
 5  1    128 ssyrk
 5  1     16 sgemv
 1 1   1   8   9   9    0.26667
 1 1   1   8   9   9    0.26667
 1 1   9   9   9   9    0.26667
 2 1   9   9   9   9    0.26667
 5  1     32 sgemv
 1 1   1   8   9  10    0.28333
 1 1   1   8  10  10    0.28333
 1 1   9  10  10  10    0.28333
 2 1   9  10  10  10    0.28333
 5  1     48 sgemv
 1 1   1   8   9  11    0.28333
 1 1   1   8  11  11    0.28333
 1 1   9  11  11  11    0.28333
 2 1   9  11  11  11    0.30000
 5  1     64 sgemv
 1 1   1   8   9  12    0.30000
 1 1   1   8  12  12    0.30000
 1 1   9  12  12  12    0.30000
 2 1   9  12  12  12    0.30000
 1 1   9   9   9   9    0.30000
 2 1   9   9   9   9    0.30000
 1 1   9  10  10  10    0.30000
 2 1   9  10  10  10    0.30000
 1 1   9  11  11  11    0.30000
 2 1   9  11  11  11    0.30000
 1 1   9  12  12  12    0.30000
 2 1   9  12  12  12    0.30000
 5  1   1792 sgemm
 1 1   1   8   9  12    0.30000
 1 1   1   8  13  40    0.30000
 1 1   9  12  13  40    0.30000
 2 1   9  12  13  40    0.30000
 5  1    448 strsm
 1 1   9  12  12  12    0.40000
 1 1   9  12  13  40    0.40000
 2 1   9  12  13  40    0.40000
 1 1   9  11  11  11    0.40000
 1 1   9  11  13  40    0.40000
 2 1   9  11  13  40    0.40000
 1 1   9  10  10  10    0.40000
 1 1   9  10  13  40    0.40000
 2 1   9  10  13  40    0.41667
 1 1   9   9   9   9    0.41667
 1 1   9   9  13  40    0.41667
 2 1   9   9  13  40    0.41667
 5  1    192 ssyrk
 5  1     24 sgemv
 1 1   1  12  13  13    0.41667
 1 1   1  12  13  13    0.41667
 1 1  13  13  13  13    0.41667
 2 1  13  13  13  13    0.41667
 5  1     48 sgemv
 1 1   1  12  13  14    0.41667
 1 1   1  12  14  14    0.41667
 1 1  13  14  14  14    0.41667
 2 1  13  14  14  14    0.41667
 5  1     72 sgemv
 1 1   1  12  13  15    0.41667
 1 1   1  12  15  15    0.45000
 1 1  13  15  15  15    0.45000
 2 1  13  15  15  15    0.45000
 5  1     96 sgemv
 1 1   1  12  13  16    0.45000
 1 1   1  12  16  16    0.45000
 1 1  13  16  16  16    0.45000
 2 1  13  16  16  16    0.45000
 1 1  13  13  13  13    0.46667
 2 1  13  13  13  13    0.46667
 1 1  13  14  14  14    0.46667
 2 1  13  14  14  14    0.46667
 1 1  13  15  15  15    0.46667
 2 1  13  15  15  15    0.46667
 1 1  13  16  16  16    0.46667
 2 1  13  16  16  16    0.46667
 5  1   2304 sgemm
 1 1   1  12  13  16    0.48333
 1 1   1  12  17  40    0.48333
 1 1  13  16  17  40    0.48333
 2 1  13  16  17  40    0.48333
 5  1    384 strsm
 1 1  13  16  16  16    0.60000
 1 1  13  16  17  40    0.60000
 2 1  13  16  17  40    0.60000
 1 1  13  15  15  15    0.60000
 1 1  13  15  17  40    0.60000
 2 1  13  15  17  40    0.60000
 1 1  13  14  14  14    0.60000
 1 1  13  14  17  40    0.61667
 2 1  13  14  17  40    0.61667
 1 1  13  13  13  13    0.61667
 1 1  13  13  17  40    0.61667
 2 1  13  13  17  40    0.61667
 5  1    256 ssyrk
 5  1     32 sgemv
 1 1   1  16  17  17    0.61667
 1 1   1  16  17  17    0.61667
 1 1  17  17  17  17    0.65000
 2 1  17  17  17  17    0.65000
 5  1     64 sgemv
 1 1   1  16  17  18    0.65000
 1 1   1  16  18  18    0.65000
 1 1  17  18  18  18    0.65000
 2 1  17  18  18  18    0.65000
 5  1     96 sgemv
 1 1   1  16  17  19    0.66667
 1 1   1  16  19  19    0.66667
 1 1  17  19  19  19    0.66667
 2 1  17  19  19  19    0.66667
 5  1    128 sgemv
 1 1   1  16  17  20    0.66667
 1 1   1  16  20  20    0.66667
 1 1  17  20  20  20    0.68333
 2 1  17  20  20  20    0.68333
 1 1  17  17  17  17    0.68333
 2 1  17  17  17  17    0.68333
 1 1  17  18  18  18    0.68333
 2 1  17  18  18  18    0.68333
 1 1  17  19  19  19    0.68333
 2 1  17  19  19  19    0.70000
 1 1  17  20  20  20    0.70000
 2 1  17  20  20  20    0.70000
 5  1   2560 sgemm
 1 1   1  16  17  20    0.70000
 1 1   1  16  21  40    0.70000
 1 1  17  20  21  40    0.70000
 2 1  17  20  21  40    0.70000
 5  1    320 strsm
 1 1  17  20  20  20    0.83333
 1 1  17  20  21  40    0.83333
 2 1  17  20  21  40    0.83333
 1 1  17  19  19  19    0.83333
 1 1  17  19  21  40    0.83333
 2 1  17  19  21  40    0.83333
 1 1  17  18  18  18    0.85000
 1 1  17  18  21  40    0.85000
 2 1  17  18  21  40    0.85000
 1 1  17  17  17  17    0.85000
 1 1  17  17  21  40    0.85000
 2 1  17  17  21  40    0.85000
 5  1    320 ssyrk
 5  1     40 sgemv
 1 1   1  20  21  21    0.85000
 1 1   1  20  21  21    0.86667
 1 1  21  21  21  21    0.86667
 2 1  21  21  21  21    0.86667
 5  1     80 sgemv
 1 1   1  20  21  22    0.86667
 1 1   1  20  22  22    0.86667
 1 1  21  22  22  22    0.86667
 2 1  21  22  22  22    0.86667
 5  1    120 sgemv
 1 1   1  20  21  23    0.88333
 1 1   1  20  23  23    0.88333
 1 1  21  23  23  23    0.88333
 2 1  21  23  23  23    0.88333
 5  1    160 sgemv
 1 1   1  20  21  24    0.90000
 1 1   1  20  24  24    0.90000
 1 1  21  24  24  24    0.90000
 2 1  21  24  24  24    0.90000
 1 1  21  21  21  21    0.90000
 2 1  21  21  21  21    0.90000
 1 1  21  22  22  22    0.90000
 2 1  21  22  22  22    0.91667
 1 1  21  23  23  23    0.91667
 2 1  21  23  23  23    0.91667
 1 1  21  24  24  24    0.91667
 2 1  21  24  24  24    0.91667
 5  1   2560 sgemm
 1 1   1  20  21  24    0.91667
 1 1   1  20  25  40    0.91667
 1 1  21  24  25  40    0.91667
 2 1  21  24  25  40    0.95000
 5  1    256 strsm
 1 1  21  24  24  24    1.05000
 1 1  21  24  25  40    1.05000
 2 1  21  24  25  40    1.06667
 1 1  21  23  23  23    1.06667
 1 1  21  23  25  40    1.06667
 2 1  21  23  25  40    1.06667
 1 1  21  22  22  22    1.06667
 1 1  21  22  25  40    1.06667
 2 1  21  22  25  40    1.06667
 1 1  21  21  21  21    1.06667
 1 1  21  21  25  40    1.06667
 2 1  21  21  25  40    1.08333
 5  1    384 ssyrk
 5  1     48 sgemv
 1 1   1  24  25  25    1.08333
 1 1   1  24  25  25    1.08333
 1 1  25  25  25  25    1.08333
 2 1  25  25  25  25    1.08333
 5  1     96 sgemv
 1 1   1  24  25  26    1.10000
 1 1   1  24  26  26    1.10000
 1 1  25  26  26  26    1.10000
 2 1  25  26  26  26    1.11667
 5  1    144 sgemv
 1 1   1  24  25  27    1.11667
 1 1   1  24  27  27    1.11667
 1 1  25  27  27  27    1.11667
 2 1  25  27  27  27    1.11667
 5  1    192 sgemv
 1 1   1  24  25  28    1.15000
 1 1   1  24  28  28    1.15000
 1 1  25  28  28  28    1.15000
 2 1  25  28  28  28    1.15000
 1 1  25  25  25  25    1.15000
 2 1  25  25  25  25    1.15000
 1 1  25  26  26  26    1.16667
 2 1  25  26  26  26    1.16667
 1 1  25  27  27  27    1.16667
 2 1  25  27  27  27    1.16667
 1 1  25  28  28  28    1.16667
 2 1  25  28  28  28    1.16667
 5  1   2304 sgemm
 1 1   1  24  25  28    1.16667
 1 1   1  24  29  40    1.16667
 1 1  25  28  29  40    1.18333
 2 1  25  28  29  40    1.18333
 5  1    192 strsm
 1 1  25  28  28  28    1.26667
 1 1  25  28  29  40    1.28333
 2 1  25  28  29  40    1.28333
 1 1  25  27  27  27    1.28333
 1 1  25  27  29  40    1.28333
 2 1  25  27  29  40    1.28333
 1 1  25  26  26  26    1.28333
 1 1  25  26  29  40    1.28333
 2 1  25  26  29  40    1.28333
 1 1  25  25  25  25    1.28333
 1 1  25  25  29  40    1.30000
 2 1  25  25  29  40    1.30000
 5  1    448 ssyrk
 5  1     56 sgemv
 1 1   1  28  29  29    1.30000
 1 1   1  28  29  29    1.30000
 1 1  29  29  29  29    1.30000
 2 1  29  29  29  29    1.30000
 5  1    112 sgemv
 1 1   1  28  29  30    1.31667
 1 1   1  28  30  30    1.31667
 1 1  29  30  30  30    1.31667
 2 1  29  30  30  30    1.31667
 5  1    168 sgemv
 1 1   1  28  29  31    1.35000
 1 1   1  28  31  31    1.35000
 1 1  29  31  31  31    1.35000
 2 1  29  31  31  31    1.35000
 5  1    224 sgemv
 1 1   1  28  29  32    1.35000
 1 1   1  28  32  32    1.36667
 1 1  29  32  32  32    1.36667
 2 1  29  32  32  32    1.36667
 1 1  29  29  29  29    1.36667
 2 1  29  29  29  29    1.36667
 1 1  29  30  30  30    1.36667
 2 1  29  30  30  30    1.36667
 1 1  29  31  31  31    1.36667
 2 1  29  31  31  31    1.38333
 1 1  29  32  32  32    1.38333
 2 1  29  32  32  32    1.38333
 5  1   1792 sgemm
 1 1   1  28  29  32    1.38333
 1 1   1  28  33  40    1.38333
 1 1  29  32  33  40    1.38333
 2 1  29  32  33  40    1.38333
 5  1    128 strsm
 1 1  29  32  32  32    1.46667
 1 1  29  32  33  40    1.46667
 2 1  29  32  33  40    1.46667
 1 1  29  31  31  31    1.46667
 1 1  29  31  33  40    1.46667
 2 1  29  31  33  40    1.46667
 1 1  29  30  30  30    1.48333
 1 1  29  30  33  40    1.48333
 2 1  29  30  33  40    1.48333
 1 1  29  29  29  29    1.48333
 1 1  29  29  33  40    1.48333
 2 1  29  29  33  40    1.48333
 5  1    512 ssyrk
 5  1     64 sgemv
 1 1   1  32  33  33    1.50000
 1 1   1  32  33  33    1.50000
 1 1  33  33  33  33    1.50000
 2 1  33  33  33  33    1.50000
 5  1    128 sgemv
 1 1   1  32  33  34    1.51667
 1 1   1  32  34  34    1.51667
 1 1  33  34  34  34    1.51667
 2 1  33  34  34  34    1.51667
 5  1    192 sgemv
 1 1   1  32  33  35    1.51667
 1 1   1  32  35  35    1.55000
 1 1  33  35  35  35    1.55000
 2 1  33  35  35  35    1.55000
 5  1    256 sgemv
 1 1   1  32  33  36    1.55000
 1 1   1  32  36  36    1.55000
 1 1  33  36  36  36    1.56667
 2 1  33  36  36  36    1.56667
 1 1  33  33  33  33    1.56667
 2 1  33  33  33  33    1.56667
 1 1  33  34  34  34    1.56667
 2 1  33  34  34  34    1.56667
 1 1  33  35  35  35    1.56667
 2 1  33  35  35  35    1.58333
 1 1  33  36  36  36    1.58333
 2 1  33  36  36  36    1.58333
 5  1   1024 sgemm
 1 1   1  32  33  36    1.58333
 1 1   1  32  37  40    1.58333
 1 1  33  36  37  40    1.58333
 2 1  33  36  37  40    1.58333
 5  1     64 strsm
 1 1  33  36  36  36    1.61667
 1 1  33  36  37  40    1.61667
 2 1  33  36  37  40    1.65000
 1 1  33  35  35  35    1.65000
 1 1  33  35  37  40    1.65000
 2 1  33  35  37  40    1.65000
 1 1  33  34  34  34    1.65000
 1 1  33  34  37  40    1.65000
 2 1  33  34  37  40    1.65000
 1 1  33  33  33  33    1.65000
 1 1  33  33  37  40    1.66667
 2 1  33  33  37  40    1.66667
 5  1    576 ssyrk
 5  1     72 sgemv
 1 1   1  36  37  37    1.66667
 1 1   1  36  37  37    1.66667
 1 1  37  37  37  37    1.66667
 2 1  37  37  37  37    1.66667
 5  1    144 sgemv
 1 1   1  36  37  38    1.68333
 1 1   1  36  38  38    1.68333
 1 1  37  38  38  38    1.68333
 2 1  37  38  38  38    1.68333
 5  1    216 sgemv
 1 1   1  36  37  39    1.70000
 1 1   1  36  39  39    1.70000
 1 1  37  39  39  39    1.70000
 2 1  37  39  39  39    1.70000
 5  1    288 sgemv
 1 1   1  36  37  40    1.71667
 1 1   1  36  40  40    1.71667
 1 1  37  40  40  40    1.71667
 2 1  37  40  40  40    1.71667
 1 1  37  37  37  37    1.71667
 2 1  37  37  37  37    1.71667
 1 1  37  38  38  38    1.71667
 2 1  37  38  38  38    1.75000
 1 1  37  39  39  39    1.75000
 2 1  37  39  39  39    1.75000
 1 1  37  40  40  40    1.75000
 2 1  37  40  40  40    1.75000
SHAR_EOF
if test -f 'memory.spotrfl'
then
	echo shar: over-writing existing file "'memory.spotrfl'"
fi
cat << \SHAR_EOF > 'memory.spotrfl'
  4  1  Cholesky by LAPACK
  0  1  40  40
 1 1   1   4   1   1    0.00000
 2 1   1   4   1   1    0.00000
 1 1   2   4   2   2    0.00000
 2 1   2   4   2   2    0.00000
 1 1   3   4   3   3    0.00000
 2 1   3   4   3   3    0.00000
 1 1   4   4   4   4    0.00000
 2 1   4   4   4   4    0.01667
 5  1    576 strsm
 1 1   1   4   1   1    0.05000
 1 1   2   4   2   2    0.06667
 1 1   3   4   3   3    0.06667
 1 1   4   4   4   4    0.06667
 1 1   5  40   1   4    0.06667
 2 1   5  40   1   4    0.06667
 5  1     64 ssyrk
 5  1     32 sgemv
 1 1   5   8   1   4    0.08333
 1 1   5   5   1   4    0.08333
 1 1   5   8   5   5    0.08333
 2 1   5   8   5   5    0.08333
 5  1     24 sgemv
 1 1   6   8   1   4    0.08333
 1 1   6   6   1   4    0.08333
 1 1   6   8   6   6    0.10000
 2 1   6   8   6   6    0.10000
 5  1     16 sgemv
 1 1   7   8   1   4    0.10000
 1 1   7   7   1   4    0.10000
 1 1   7   8   7   7    0.10000
 2 1   7   8   7   7    0.10000
 5  1      8 sgemv
 1 1   8   8   1   4    0.10000
 1 1   8   8   1   4    0.11667
 1 1   8   8   8   8    0.11667
 2 1   8   8   8   8    0.11667
 1 1   5   8   5   5    0.11667
 2 1   5   8   5   5    0.11667
 1 1   6   8   6   6    0.11667
 2 1   6   8   6   6    0.11667
 1 1   7   8   7   7    0.11667
 2 1   7   8   7   7    0.15000
 1 1   8   8   8   8    0.15000
 2 1   8   8   8   8    0.15000
 5  1   1024 sgemm
 1 1   9  40   1   4    0.15000
 1 1   5   8   1   4    0.15000
 1 1   9  40   5   8    0.15000
 2 1   9  40   5   8    0.15000
 5  1    512 strsm
 1 1   5   8   5   5    0.21667
 1 1   6   8   6   6    0.21667
 1 1   7   8   7   7    0.21667
 1 1   8   8   8   8    0.21667
 1 1   9  40   5   8    0.25000
 2 1   9  40   5   8    0.25000
 5  1    128 ssyrk
 5  1     64 sgemv
 1 1   9  12   1   8    0.25000
 1 1   9   9   1   8    0.25000
 1 1   9  12   9   9    0.25000
 2 1   9  12   9   9    0.25000
 5  1     48 sgemv
 1 1  10  12   1   8    0.26667
 1 1  10  10   1   8    0.26667
 1 1  10  12  10  10    0.26667
 2 1  10  12  10  10    0.26667
 5  1     32 sgemv
 1 1  11  12   1   8    0.26667
 1 1  11  11   1   8    0.26667
 1 1  11  12  11  11    0.28333
 2 1  11  12  11  11    0.28333
 5  1     16 sgemv
 1 1  12  12   1   8    0.28333
 1 1  12  12   1   8    0.28333
 1 1  12  12  12  12    0.28333
 2 1  12  12  12  12    0.28333
 1 1   9  12   9   9    0.28333
 2 1   9  12   9   9    0.30000
 1 1  10  12  10  10    0.30000
 2 1  10  12  10  10    0.30000
 1 1  11  12  11  11    0.30000
 2 1  11  12  11  11    0.30000
 1 1  12  12  12  12    0.30000
 2 1  12  12  12  12    0.30000
 5  1   1792 sgemm
 1 1  13  40   1   8    0.30000
 1 1   9  12   1   8    0.31667
 1 1  13  40   9  12    0.31667
 2 1  13  40   9  12    0.31667
 5  1    448 strsm
 1 1   9  12   9   9    0.40000
 1 1  10  12  10  10    0.40000
 1 1  11  12  11  11    0.40000
 1 1  12  12  12  12    0.40000
 1 1  13  40   9  12    0.40000
 2 1  13  40   9  12    0.40000
 5  1    192 ssyrk
 5  1     96 sgemv
 1 1  13  16   1  12    0.40000
 1 1  13  13   1  12    0.40000
 1 1  13  16  13  13    0.40000
 2 1  13  16  13  13    0.40000
 5  1     72 sgemv
 1 1  14  16   1  12    0.40000
 1 1  14  14   1  12    0.40000
 1 1  14  16  14  14    0.40000
 2 1  14  16  14  14    0.41667
 5  1     48 sgemv
 1 1  15  16   1  12    0.41667
 1 1  15  15   1  12    0.41667
 1 1  15  16  15  15    0.41667
 2 1  15  16  15  15    0.41667
 5  1     24 sgemv
 1 1  16  16   1  12    0.41667
 1 1  16  16   1  12    0.45000
 1 1  16  16  16  16    0.45000
 2 1  16  16  16  16    0.45000
 1 1  13  16  13  13    0.45000
 2 1  13  16  13  13    0.45000
 1 1  14  16  14  14    0.45000
 2 1  14  16  14  14    0.45000
 1 1  15  16  15  15    0.45000
 2 1  15  16  15  15    0.46667
 1 1  16  16  16  16    0.46667
 2 1  16  16  16  16    0.46667
 5  1   2304 sgemm
 1 1  17  40   1  12    0.46667
 1 1  13  16   1  12    0.46667
 1 1  17  40  13  16    0.46667
 2 1  17  40  13  16    0.46667
 5  1    384 strsm
 1 1  13  16  13  13    0.58333
 1 1  14  16  14  14    0.58333
 1 1  15  16  15  15    0.58333
 1 1  16  16  16  16    0.58333
 1 1  17  40  13  16    0.58333
 2 1  17  40  13  16    0.58333
 5  1    256 ssyrk
 5  1    128 sgemv
 1 1  17  20   1  16    0.60000
 1 1  17  17   1  16    0.60000
 1 1  17  20  17  17    0.60000
 2 1  17  20  17  17    0.60000
 5  1     96 sgemv
 1 1  18  20   1  16    0.61667
 1 1  18  18   1  16    0.61667
 1 1  18  20  18  18    0.61667
 2 1  18  20  18  18    0.61667
 5  1     64 sgemv
 1 1  19  20   1  16    0.61667
 1 1  19  19   1  16    0.61667
 1 1  19  20  19  19    0.61667
 2 1  19  20  19  19    0.65000
 5  1     32 sgemv
 1 1  20  20   1  16    0.65000
 1 1  20  20   1  16    0.65000
 1 1  20  20  20  20    0.65000
 2 1  20  20  20  20    0.65000
 1 1  17  20  17  17    0.65000
 2 1  17  20  17  17    0.66667
 1 1  18  20  18  18    0.66667
 2 1  18  20  18  18    0.66667
 1 1  19  20  19  19    0.66667
 2 1  19  20  19  19    0.66667
 1 1  20  20  20  20    0.66667
 2 1  20  20  20  20    0.66667
 5  1   2560 sgemm
 1 1  21  40   1  16    0.66667
 1 1  17  20   1  16    0.68333
 1 1  21  40  17  20    0.68333
 2 1  21  40  17  20    0.68333
 5  1    320 strsm
 1 1  17  20  17  17    0.80000
 1 1  18  20  18  18    0.80000
 1 1  19  20  19  19    0.80000
 1 1  20  20  20  20    0.80000
 1 1  21  40  17  20    0.80000
 2 1  21  40  17  20    0.80000
 5  1    320 ssyrk
 5  1    160 sgemv
 1 1  21  24   1  20    0.83333
 1 1  21  21   1  20    0.83333
 1 1  21  24  21  21    0.83333
 2 1  21  24  21  21    0.83333
 5  1    120 sgemv
 1 1  22  24   1  20    0.83333
 1 1  22  22   1  20    0.85000
 1 1  22  24  22  22    0.85000
 2 1  22  24  22  22    0.85000
 5  1     80 sgemv
 1 1  23  24   1  20    0.85000
 1 1  23  23   1  20    0.85000
 1 1  23  24  23  23    0.85000
 2 1  23  24  23  23    0.86667
 5  1     40 sgemv
 1 1  24  24   1  20    0.86667
 1 1  24  24   1  20    0.86667
 1 1  24  24  24  24    0.86667
 2 1  24  24  24  24    0.86667
 1 1  21  24  21  21    0.86667
 2 1  21  24  21  21    0.88333
 1 1  22  24  22  22    0.88333
 2 1  22  24  22  22    0.88333
 1 1  23  24  23  23    0.88333
 2 1  23  24  23  23    0.88333
 1 1  24  24  24  24    0.88333
 2 1  24  24  24  24    0.88333
 5  1   2560 sgemm
 1 1  25  40   1  20    0.88333
 1 1  21  24   1  20    0.90000
 1 1  25  40  21  24    0.90000
 2 1  25  40  21  24    0.90000
 5  1    256 strsm
 1 1  21  24  21  21    1.00000
 1 1  22  24  22  22    1.00000
 1 1  23  24  23  23    1.01667
 1 1  24  24  24  24    1.01667
 1 1  25  40  21  24    1.01667
 2 1  25  40  21  24    1.01667
 5  1    384 ssyrk
 5  1    192 sgemv
 1 1  25  28   1  24    1.05000
 1 1  25  25   1  24    1.05000
 1 1  25  28  25  25    1.05000
 2 1  25  28  25  25    1.05000
 5  1    144 sgemv
 1 1  26  28   1  24    1.06667
 1 1  26  26   1  24    1.06667
 1 1  26  28  26  26    1.06667
 2 1  26  28  26  26    1.06667
 5  1     96 sgemv
 1 1  27  28   1  24    1.06667
 1 1  27  27   1  24    1.06667
 1 1  27  28  27  27    1.06667
 2 1  27  28  27  27    1.06667
 5  1     48 sgemv
 1 1  28  28   1  24    1.06667
 1 1  28  28   1  24    1.06667
 1 1  28  28  28  28    1.06667
 2 1  28  28  28  28    1.08333
 1 1  25  28  25  25    1.08333
 2 1  25  28  25  25    1.08333
 1 1  26  28  26  26    1.08333
 2 1  26  28  26  26    1.08333
 1 1  27  28  27  27    1.08333
 2 1  27  28  27  27    1.08333
 1 1  28  28  28  28    1.08333
 2 1  28  28  28  28    1.10000
 5  1   2304 sgemm
 1 1  29  40   1  24    1.10000
 1 1  25  28   1  24    1.11667
 1 1  29  40  25  28    1.11667
 2 1  29  40  25  28    1.11667
 5  1    192 strsm
 1 1  25  28  25  25    1.25000
 1 1  26  28  26  26    1.25000
 1 1  27  28  27  27    1.25000
 1 1  28  28  28  28    1.25000
 1 1  29  40  25  28    1.25000
 2 1  29  40  25  28    1.25000
 5  1    448 ssyrk
 5  1    224 sgemv
 1 1  29  32   1  28    1.26667
 1 1  29  29   1  28    1.26667
 1 1  29  32  29  29    1.26667
 2 1  29  32  29  29    1.26667
 5  1    168 sgemv
 1 1  30  32   1  28    1.28333
 1 1  30  30   1  28    1.28333
 1 1  30  32  30  30    1.28333
 2 1  30  32  30  30    1.28333
 5  1    112 sgemv
 1 1  31  32   1  28    1.30000
 1 1  31  31   1  28    1.30000
 1 1  31  32  31  31    1.30000
 2 1  31  32  31  31    1.30000
 5  1     56 sgemv
 1 1  32  32   1  28    1.30000
 1 1  32  32   1  28    1.30000
 1 1  32  32  32  32    1.31667
 2 1  32  32  32  32    1.31667
 1 1  29  32  29  29    1.31667
 2 1  29  32  29  29    1.31667
 1 1  30  32  30  30    1.31667
 2 1  30  32  30  30    1.31667
 1 1  31  32  31  31    1.31667
 2 1  31  32  31  31    1.31667
 1 1  32  32  32  32    1.31667
 2 1  32  32  32  32    1.31667
 5  1   1792 sgemm
 1 1  33  40   1  28    1.31667
 1 1  29  32   1  28    1.31667
 1 1  33  40  29  32    1.31667
 2 1  33  40  29  32    1.31667
 5  1    128 strsm
 1 1  29  32  29  29    1.40000
 1 1  30  32  30  30    1.40000
 1 1  31  32  31  31    1.41667
 1 1  32  32  32  32    1.41667
 1 1  33  40  29  32    1.41667
 2 1  33  40  29  32    1.41667
 5  1    512 ssyrk
 5  1    256 sgemv
 1 1  33  36   1  32    1.45000
 1 1  33  33   1  32    1.45000
 1 1  33  36  33  33    1.45000
 2 1  33  36  33  33    1.45000
 5  1    192 sgemv
 1 1  34  36   1  32    1.46667
 1 1  34  34   1  32    1.46667
 1 1  34  36  34  34    1.46667
 2 1  34  36  34  34    1.46667
 5  1    128 sgemv
 1 1  35  36   1  32    1.46667
 1 1  35  35   1  32    1.48333
 1 1  35  36  35  35    1.48333
 2 1  35  36  35  35    1.48333
 5  1     64 sgemv
 1 1  36  36   1  32    1.48333
 1 1  36  36   1  32    1.48333
 1 1  36  36  36  36    1.48333
 2 1  36  36  36  36    1.50000
 1 1  33  36  33  33    1.50000
 2 1  33  36  33  33    1.50000
 1 1  34  36  34  34    1.50000
 2 1  34  36  34  34    1.50000
 1 1  35  36  35  35    1.50000
 2 1  35  36  35  35    1.50000
 1 1  36  36  36  36    1.50000
 2 1  36  36  36  36    1.51667
 5  1   1024 sgemm
 1 1  37  40   1  32    1.51667
 1 1  33  36   1  32    1.51667
 1 1  37  40  33  36    1.51667
 2 1  37  40  33  36    1.51667
 5  1     64 strsm
 1 1  33  36  33  33    1.58333
 1 1  34  36  34  34    1.58333
 1 1  35  36  35  35    1.58333
 1 1  36  36  36  36    1.58333
 1 1  37  40  33  36    1.58333
 2 1  37  40  33  36    1.58333
 5  1    576 ssyrk
 5  1    288 sgemv
 1 1  37  40   1  36    1.60000
 1 1  37  37   1  36    1.60000
 1 1  37  40  37  37    1.60000
 2 1  37  40  37  37    1.60000
 5  1    216 sgemv
 1 1  38  40   1  36    1.61667
 1 1  38  38   1  36    1.61667
 1 1  38  40  38  38    1.61667
 2 1  38  40  38  38    1.61667
 5  1    144 sgemv
 1 1  39  40   1  36    1.65000
 1 1  39  39   1  36    1.65000
 1 1  39  40  39  39    1.65000
 2 1  39  40  39  39    1.65000
 5  1     72 sgemv
 1 1  40  40   1  36    1.66667
 1 1  40  40   1  36    1.66667
 1 1  40  40  40  40    1.66667
 2 1  40  40  40  40    1.66667
 1 1  37  40  37  37    1.66667
 2 1  37  40  37  37    1.66667
 1 1  38  40  38  38    1.66667
 2 1  38  40  38  38    1.68333
 1 1  39  40  39  39    1.68333
 2 1  39  40  39  39    1.68333
 1 1  40  40  40  40    1.68333
 2 1  40  40  40  40    1.68333
 5  1      0 strsm
 1 1  37  40  37  37    1.68333
 1 1  38  40  38  38    1.68333
 1 1  39  40  39  39    1.68333
 1 1  40  40  40  40    1.70000
SHAR_EOF
if test -f 'process_file.c'
then
	echo shar: over-writing existing file "'process_file.c'"
fi
cat << \SHAR_EOF > 'process_file.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

process_file()
{
  int   i, opcode, id, row1, row2, column1, column2, count;
  float time;
  char  string[10], message[81];

  while (fscanf (memory_file, "%d", &opcode) != EOF)
    {
      int wait;
      for (wait = 0; wait < ((100-execute_speed)/100.0)*wait_interval; wait++);
      switch (opcode)
        {
          /* Definition for a matrix. */
          case 0:
            fscanf (memory_file, "%d", &id);
            id--;
            fscanf (memory_file, "%d %d",
                    &number_of_rows[id], &number_of_columns[id]);
            current_max = 2 * number_of_rows[id] * number_of_columns[id];
            map_matrix(id);
            break;
          /* Reads and writes. */
          case 1: /* Read */
          case 2: /* Write */
            fscanf (memory_file, "%d %d %d %d %d %f",
                    &id, &row1, &row2, &column1, &column2, &time);
            /* Ignore bad data. */
            if ((id < 1)  ||  (id > 4)  ||
                (row1 < 1)  ||  (row2 < 1)  ||
                (column1 < 1)  ||  (column2 < 1)  ||
                (row1 > number_of_rows[id-1])  ||
                (row2 > number_of_rows[id-1])  ||
                (column1 > number_of_columns[id-1])  ||
                (column2 > number_of_columns[id-1]))
              printf("Bad data: %d %d %d %d %d %d\n", opcode, id,
                     row1, row2, column1, column2);
            else
              flash_access(opcode, --id, --row1, --column1,
                                         --row2, --column2, time);
            break;
          case 3: /* Ignore */
            fscanf (memory_file, "%d", &id);
            break;
          case 4: /* Informational message on the array. */
            fscanf(memory_file, "%d", &id);
            while ((message[0] = getc(memory_file)) == ' ');
            i = 1;
            while ((message[i] = getc(memory_file)) != '\n')
              i++;
            message[i] = '\0';
            set_label(header_message[id-1], message);
            break;
          case 5: /* FLOPS & subroutine name. */
            fscanf(memory_file, "%d %d %s", &id, &count, message);
            sprintf(string, "%d", op_counts[id-1]  += count);
            set_label(ops_counter[id-1], string);
            set_label(sub_name[id-1], message);
            break;
        }
      if (button_hit()) break;
    }
}
SHAR_EOF
if test -f 'program_init.c'
then
	echo shar: over-writing existing file "'program_init.c'"
fi
cat << \SHAR_EOF > 'program_init.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

program_init()
{
  current_max = 900;
  update_speed  = 100;
  execute_speed = 100;
  file_opened = FALSE;
  wait_interval = 1000;
  update_interval = 0.5;
  srandom(0);
  strcpy(MEM_FILE,"");
  SCREEN = FALSE;
  NUM_CHUNKS = 10;
  PAGE_SIZE = 1;
  PAGE_SIZE_P2 = 0;
  CACHE_SIZE = 1;
  CACHE_SIZE_P2 = 0;
  CACHE_MECHANISM = CACHE_LRU;
  vflag = FALSE;
  directory_table[0] = file_table[0] = NULL;
}
SHAR_EOF
if test -f 'read_args.c'
then
	echo shar: over-writing existing file "'read_args.c'"
fi
cat << \SHAR_EOF > 'read_args.c'
/*
 Written by Jim Kohl, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

read_args(argc, argv)
int argc;
char *argv[];
{
  int i, j, k;

  for (i = 1; i < argc; i++)
    {
      if (argv[i][0] == '-')
        {
          j = 0;
          k = 1;
          while (argv[i][j])
            {
              switch (argv[i][j])
                {
                  case 's':
                    SCREEN = TRUE;
                    break;
                  case 'f':
                    strcpy(MEM_FILE, argv[i+(k++)]);
                    break;
                  case 'v':
                    vflag = TRUE;
                    break;
                  case 'N':
                    NUM_CHUNKS = atoi(argv[i+(k++)]);
                    if (!NUM_CHUNKS)
                      NUM_CHUNKS++;
                    break;
                  case 'P':
                    PAGE_SIZE_P2 = log_2(atoi(argv[i+(k++)]));
                    PAGE_SIZE = POWER_OF_2(PAGE_SIZE_P2);
                    break;
                  case 'C':
                    CACHE_SIZE_P2 = log_2(atoi(argv[i+(k++)]));
                    CACHE_SIZE = POWER_OF_2(CACHE_SIZE_P2);
                    break;
                  case 'M':
                    cache_mech_of(argv[i+(k++)]);
                    break;
                }
              j++;
            }
        }
      else if (argv[i][0] == '?')
        {
          printf("\nusage: pmapa [-sfvNPCM [args]]\n\n");
          printf("where:\n");
          printf("  -s        Text output to screen only.\n");
          printf("  -f  arg   Use file \"arg\" for input.\n");
          printf("  -v        Run in verbose mode.\n");
          printf("  -N  arg   Set number of chunks to \"arg\"\n");
          printf("  -P  arg   Set page size to \"arg\"\n");
          printf("  -C  arg   Set cache size to \"arg\"\n");
          printf("  -M  arg   Set cache mechanism to \"arg\"\n");
          printf("\n");
          exit(0);
        }
    }
  if (PAGE_SIZE > CACHE_SIZE)
    {
      PAGE_SIZE = 1;
      PAGE_SIZE_P2 = 0;
      CACHE_SIZE = 1;
      CACHE_SIZE_P2 = 0;
    }
}

cache_mech_of(string)
char *string;
{
  if (!strcmp(string, "LRU"))
    CACHE_MECHANISM = CACHE_LRU;
  if (!strcmp(string, "LFU"))
    CACHE_MECHANISM = CACHE_LFU;
  if (!strcmp(string, "FIFO"))
    CACHE_MECHANISM = CACHE_FIFO;
  if (!strcmp(string, "Clock"))
    CACHE_MECHANISM = CACHE_CLOCK;
  if (!strcmp(string, "LIFO"))
    CACHE_MECHANISM = CACHE_LIFO;
  if (!strcmp(string, "Random"))
    CACHE_MECHANISM = CACHE_RAND;
  return;
}
SHAR_EOF
if test -f 'mapa.icon'
then
	echo shar: over-writing existing file "'mapa.icon'"
fi
cat << \SHAR_EOF > 'mapa.icon'
/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
 */
	0xFFFF,0xFFFF,0xFFFF,0xFFFF,0x8000,0x00A1,0x8E00,0x0001,
	0x8000,0x00A2,0x4900,0x0001,0x8000,0x0152,0x4E00,0x0001,
	0x8000,0x0153,0xC800,0x0001,0x8000,0x0152,0x4800,0x0001,
	0x8000,0x0152,0x4800,0x0001,0x8000,0x0000,0x0000,0x0001,
	0xB6EE,0xF000,0x0000,0x0001,0x8000,0x000D,0xDDBD,0xC001,
	0xBA3D,0xB00B,0xB4AB,0x8001,0x8000,0x0000,0x0000,0x0001,
	0x8000,0x0000,0x0000,0x0001,0xBEF7,0xDF00,0x0000,0x0001,
	0xA294,0x5100,0x0000,0x0001,0xBEF7,0xDF00,0x0000,0x0001,
	0x8000,0x0000,0x0000,0x0001,0x8000,0x0000,0x0000,0x0001,
	0xADC1,0x3FFF,0xFFF8,0x8001,0x8000,0x3FFF,0xFFF8,0x0001,
	0x8000,0x0000,0x0000,0x0001,0xB5C1,0x3FFF,0xFFF8,0x8001,
	0x8000,0x3FFF,0xFFF8,0x0001,0x8000,0x0000,0x0000,0x0001,
	0x8000,0x0000,0x0000,0x0001,0xBB80,0x3B80,0x3B80,0x3B81,
	0x8000,0x0000,0x0000,0x0001,0xBB80,0x3B80,0x3B80,0x3B81,
	0x8000,0x0000,0x0000,0x0001,0xBFFE,0x3FFE,0x3FFE,0x3FFD,
	0x8000,0x0000,0x0000,0x0001,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
	0xDF00,0x8029,0x8000,0x8001,0xAF00,0x8044,0x8000,0x8001,
	0xDF00,0x802A,0x8000,0x8001,0xAF00,0x8005,0x8000,0x8001,
	0x8000,0xAAF0,0x8000,0x8001,0x8000,0xD5F0,0x8000,0x8001,
	0x8000,0xAAF0,0x8000,0x8001,0x8000,0xD5F0,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
	0x8000,0xF000,0x8000,0x8001,0x8000,0xF000,0x8000,0x8001,
	0x8000,0xF000,0x8000,0x8001,0x8000,0xF000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0x8000,0x8000,0x8000,0x8001,
	0x8000,0x8000,0x8000,0x8001,0xFFFF,0xFFFF,0xFFFF,0xFFFF
SHAR_EOF
if test -f 'procs.c'
then
	echo shar: over-writing existing file "'procs.c'"
fi
cat << \SHAR_EOF > 'procs.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

void file_proc(item, value, event)
Panel_item item;
int        value;
Event     *event;
{
  static char current_file[150];

  if (ft_index != value)
    {
      ft_index = value;
      strcpy(current_file, "Memory file: ");
      strcpy(current_file + 13, file_table[ft_index]);
      set_label(file_choice, current_file);
      set_label(info_message, "File selection changed but not yet loaded.");
    }
}

void page_size_proc(item, value, event)
Panel_item item;
int        value;
Event     *event;
{
  static char string[150];
  int height, width;
  int show_cache;

  if (PAGE_SIZE_P2 != value)
    {
      if (POWER_OF_2(value) > CACHE_SIZE)
        {
         set_label(info_message,"Page size cannot be larger than Cache size.");
        }
      else
        {
          PAGE_SIZE = POWER_OF_2(value);
          PAGE_SIZE_P2 = value;
          sprintf(string, "Page size: %d", PAGE_SIZE);
          set_label(page_size_choice, string);
          set_label(info_message,"Page size changed but file not yet loaded.");
          show_cache = ((int) window_get(cache_frame, WIN_SHOW));
          window_set (cache_frame, FRAME_NO_CONFIRM, TRUE, 0);
          window_destroy(cache_frame);
          if (CACHE_SIZE_P2 % 2 == 0)
            height = width = POWER_OF_2(CACHE_SIZE_P2/2);
          else
            {
              height = POWER_OF_2((CACHE_SIZE_P2-1)/2);
              width  = POWER_OF_2((CACHE_SIZE_P2+1)/2);
            }
          cache_frame = window_create (frame, FRAME,
                                       WIN_X, 280,
                                       WIN_Y, 395,
                                       0);
          cache_canvas = window_create(cache_frame, CANVAS,
                                       WIN_WIDTH, width,
                                       WIN_HEIGHT, height,
                                       0);
          pw_cache = canvas_pixwin(cache_canvas);
          sprintf(string, "Cache");
          pw_setcmsname(pw_cache, string);
          pw_putcolormap(pw_cache, 0, 4, r, g, b);
          window_fit(cache_frame);
          cache_init();
          window_set(cache_frame, WIN_SHOW, show_cache, 0);
        }
    }
}

void cache_size_proc(item, value, event)
Panel_item item;
int        value;
Event     *event;
{
	static char string[150];
	int height, width;
	int show_cache;

	if (CACHE_SIZE_P2 != value)
	{
		if ( POWER_OF_2(value) < PAGE_SIZE )
		{
			panel_set(info_message, PANEL_LABEL_STRING,
				"Cache size cannot be smaller than Page size.", 0);
		}

		else
		{
			CACHE_SIZE = POWER_OF_2(value);
			CACHE_SIZE_P2 = value;
			sprintf(string, "Cache size: %d", CACHE_SIZE);
			panel_set(cache_size_choice, PANEL_LABEL_STRING, string, 0);
			panel_set(info_message, PANEL_LABEL_STRING,
				"Cache size changed but file not yet loaded.", 0);
			show_cache = ((int) window_get(cache_frame, WIN_SHOW));
			window_set (cache_frame, FRAME_NO_CONFIRM, TRUE, 0);
			window_destroy(cache_frame);
			if (CACHE_SIZE_P2 % 2 == 0)
				height = width = POWER_OF_2(CACHE_SIZE_P2/2);
			else
			{
				height = POWER_OF_2((CACHE_SIZE_P2-1)/2);
				width  = POWER_OF_2((CACHE_SIZE_P2+1)/2);
			}
			cache_frame = window_create (frame, FRAME,
				WIN_X, 280,
				WIN_Y, 395,
				0);
			cache_canvas = window_create(cache_frame, CANVAS,
				WIN_WIDTH, width,
				WIN_HEIGHT, height,
				0);
			pw_cache = canvas_pixwin(cache_canvas);
			sprintf(string, "Cache");
			pw_setcmsname(pw_cache, string);
			pw_putcolormap(pw_cache, 0, 4, r, g, b);
			window_fit(cache_frame);
			cache_init();
			window_set(cache_frame, WIN_SHOW, show_cache, 0);
		}
	}
}

void cache_policy_proc(item, value, event)
  Panel_item item;
  int        value;
  Event     *event;
{
  char string[50];
  int height, width;
  int show_cache;

  if (CACHE_MECHANISM != value)
    {
      CACHE_MECHANISM = value;
      switch (value)
        {
          case CACHE_LRU:
            strcpy(string, "Cache policy: LRU");
            break;
          case CACHE_LFU:
            strcpy(string, "Cache policy: LFU");
            break;
          case CACHE_FIFO:
            strcpy(string, "Cache policy: FIFO");
            break;
          case CACHE_CLOCK:
            strcpy(string, "Cache policy: Clock");
            break;
          case CACHE_LIFO:
            strcpy(string, "Cache policy: LIFO");
            break;
          case CACHE_RAND:
            strcpy(string, "Cache policy: Random");
            break;
        }
      panel_set(cache_policy_choice, PANEL_LABEL_STRING, string, 0);
      panel_set(info_message, PANEL_LABEL_STRING,
                             "Cache policy changed but file not yet loaded.", 0);
	  show_cache = ((int) window_get(cache_frame, WIN_SHOW));
	  window_set (cache_frame, FRAME_NO_CONFIRM, TRUE, 0);
	  window_destroy(cache_frame);
	  if (CACHE_SIZE_P2 % 2 == 0)
		  height = width = POWER_OF_2(CACHE_SIZE_P2/2);
	  else
	  {
		  height = POWER_OF_2((CACHE_SIZE_P2-1)/2);
		  width  = POWER_OF_2((CACHE_SIZE_P2+1)/2);
	  }
	  cache_frame = window_create (frame, FRAME,
		  WIN_X, 280,
		  WIN_Y, 395,
		  0);
	  cache_canvas = window_create(cache_frame, CANVAS,
		  WIN_WIDTH, width,
		  WIN_HEIGHT, height,
		  0);
	  pw_cache = canvas_pixwin(cache_canvas);
	  sprintf(string, "Cache");
	  pw_setcmsname(pw_cache, string);
	  pw_putcolormap(pw_cache, 0, 4, r, g, b);
	  window_fit(cache_frame);
	  cache_init();
	  window_set(cache_frame, WIN_SHOW, show_cache, 0);
    }
}

void load_proc()
{
  open_memoryfile();
}

void go_proc ()
{
  if (file_opened)
    process_file();
  else
    set_label(info_message, "No file has been loaded.");
}

void cache_proc(item, value, event)
Panel_item   item;
int          value;
Event       *event;
{
  int show_cache;
  show_cache = !((int) window_get(cache_frame, WIN_SHOW));
  window_set(cache_frame, WIN_SHOW, show_cache, 0);
}

void info_proc(item, value, event)
Panel_item   item;
int          value;
Event       *event;
{
  if(file_opened)
    {
      fclose(memory_file);
      file_opened = FALSE;
    }
  if (file_table[ft_index] != NULL)
    {
      strcpy(MEM_FILE, file_table[ft_index]);
      set_label(info_message, "Calculating information.");
      print_stats();
      set_label(info_message, "Done.");
      load_proc();
    }
  else
    {
      set_label(info_message, "No memory files.");
    }
}

void screendump_proc(item, value, event)
  Panel_item   item;
  int          value;
  Event       *event;
{
  char command[50];

  if (depth == 1)
    {
      panel_set(info_message, PANEL_LABEL_STRING,
               "Sending the screen image to the default printer.", 0);
      strcpy(command, "screendump | pssun -r -2 | lpr");
      system(command);
      panel_set(info_message, PANEL_LABEL_STRING, "Done.", 0);
    }
  else
    panel_set(info_message, PANEL_LABEL_STRING,
             "Unable to dump color screen.", 0);
}

void quit_proc()
{
  window_set (frame, FRAME_NO_CONFIRM, FALSE, 0);
  window_destroy (frame);
}

void update_speed_proc(item, value, event)
  Panel_item   item;
  int          value;
  Event       *event;
{
  update_speed = value;
}

void execute_speed_proc(item, value, event)
  Panel_item   item;
  int          value;
  Event       *event;
{
  execute_speed = value;
}

void histogram_proc(item, value, event)
Panel_item   item;
int          value;
Event       *event;
{
  window_set(histogram_frame, WIN_SHOW, value, 0);
}

void timeline_proc(item, value, event)
Panel_item   item;
int          value;
Event       *event;
{
  window_set(timeline_frame, WIN_SHOW, value, 0);
}

decay(canvas, row, column, id)
  int canvas, row, column, id;
{
  Pixrect *p;
 
  if (depth == 1) 
    {
      p = pr[id][--colors[canvas][row][column]];
      pw_rop(pw[canvas], column*x_factor[id], row*y_factor[id],
             x_factor[id], y_factor[id], PIX_SRC, p, 0, 0);
    }
  else 
    pw_rop(pw[canvas], column*x_factor[id], row*y_factor[id],
            x_factor[id],   y_factor[id],
            PIX_SRC | PIX_COLOR(--colors[canvas][row][column]),
           (Pixrect *)0, 0, 0);
}

void directory_proc(item,value,event)
Panel_item item;
int value;
Event *event;
{
  if (value < enter_new_directory)
    {
      chdir(directory_table[value]);
      load_tables();
    }
/*
  else
    {
      Frame popup_frame;
      popup_frame = window_create(frame, FRAME,
                    WIN_ROWS,         1,
                    WIN_COLUMNS,     80,
                    0);
      window_fit(popup_frame);
      popup_panel = window_create(popup_frame, PANEL, 0);
      panel_text  = panel_create_item(popup_panel, PANEL_TEXT,
                    PANEL_LABEL_STRING,        "New directory: ",
                    0);
      panel_button = panel_create_item(popup_frame, PANEL_BUTTON,
                    PANEL_LABEL_IMAGE,
                     panel_button_image(popup_panel, "Ready", 0, NULL);
                    PANEL_NOTIFY_PROC,         ready_notify_proc,
                    0);
      window_set(popup_frame, WIN_SHOW, TRUE, 0);
      
    }
  if (chdir(directory_table[value]) == -1)
	printf("chdir failed with error number %d\n", errno);
  else
*/
}
SHAR_EOF
if test -f 'wd_drawing.c'
then
	echo shar: over-writing existing file "'wd_drawing.c'"
fi
cat << \SHAR_EOF > 'wd_drawing.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

enter_loop()
{
  window_main_loop(frame);
}

point(surface, x, y, color)
Surface surface;
int x, y, color;
{
  pw_put(surface, x, y, color);
}

line(surface, x1, y1, x2, y2, color)
Surface surface;
int x1, y1, x2, y2, color;
{
  pw_vector(surface, x1, y1, x2, y2, PIX_SRC, color);
}

text(surface, x, y, string)
Surface surface;
int x, y;
char *string;
{
  pw_text(surface, x, y, PIX_SRC, 0, string);
}

clear_screen(surface, x, y)
Surface surface;
int x, y;
{
  pw_writebackground(surface, 0, 0, x, y, PIX_CLR);
}

set_label(item, string)
Panel_item item;
char  *string;
{
  panel_set(item, PANEL_LABEL_STRING, string, 0);
}

button_hit()
{
  return ((int) window_get(panel, WIN_EVENT_STATE, MS_LEFT));
}

set_directory_menu()
{
  int i;
  char current_dir[150];

  panel_set(directory_choice, PANEL_CHOICE_STRINGS, "",	0, 0);
  for (i = 0; directory_table[i] != NULL; i++)
    panel_set(directory_choice, PANEL_CHOICE_STRING,
              i, directory_table[i], 0);
  panel_set(directory_choice, PANEL_CHOICE_STRING,
            i, "Enter new directory.", 0);
  enter_new_directory = i;
  strcpy(current_dir,"Directory: ");
  getwd(current_dir + 11);
  panel_set(directory_choice, PANEL_LABEL_STRING, current_dir, 0);
}

set_file_menu()
{
  int i;
  char current_file[50];

  panel_set(file_choice, PANEL_CHOICE_STRINGS, "", 0, 0);
  for (i = 0; file_table[i] != NULL; i++)
    panel_set(file_choice, PANEL_CHOICE_STRING, i, file_table[i], 0);
  ft_index = 0;
  if (file_table[ft_index] != NULL)
    {
      strcpy(current_file, "Memory file: ");
      strcpy(current_file + 13, file_table[ft_index]);
      panel_set(file_choice,  PANEL_LABEL_STRING, current_file, 0);
      panel_set(info_message, PANEL_LABEL_STRING,
                              "Select file & click load.", 0);
    }
  else
    {
      strcpy(current_file, "Memory file: ");
      strcpy(current_file + 13, "");
      panel_set(file_choice,  PANEL_LABEL_STRING, current_file, 0);
      panel_set(info_message, PANEL_LABEL_STRING,
                              "No memory files in current directory.", 0);
    }
}

b_w_patterns(id)
int id;
{
  /* Monochrome mointor; create the fading patterns. */
  int i, x, y, step;

  step = NUMBER_OF_SHADES;
  for (i = NUMBER_OF_SHADES - 1; i >= 0; i--)
    {
      pr[id][i] = mem_create(x_factor[id], y_factor[id], 1);
      if (i == NUMBER_OF_SHADES - 1)
        pr_rop(pr[id][i], 0, 0, x_factor[id], y_factor[id],
               PIX_SRC | PIX_COLOR(1), (struct Pixrect *)0, 0, 0);
      else
        pr_rop(pr[id][i], 0, 0, x_factor[id], y_factor[id],
               PIX_SRC, pr[id][i+1], 0, 0);
      x = y = 0;
      pr_put(pr[id][i], x, y, 0);
      while (y < y_factor[id])
        {
          x += step;
          if (x >= x_factor[id])
            {
              x -= x_factor[id];
              y++;
            }
          if (y < y_factor[id])
            pr_put(pr[id][i], x, y, 0);
        }
      step--;
    }
}
SHAR_EOF
if test -f 'window_init.c'
then
	echo shar: over-writing existing file "'window_init.c'"
fi
cat << \SHAR_EOF > 'window_init.c'
/*
 Written by Orlie Brewer, Mathematics and Computer Science Division,
 Argonne National Laboratory, 9700 South Cass Avenue, Argonne, Illinois 60439.
 Last update: December 7, 1988.
*/

#include "mapa.h"

/* Notify procedures. */
extern void
  directory_proc(),
  file_proc(),
  page_size_proc(),
  cache_size_proc(),
  cache_policy_proc(),
  event_proc(),
  load_proc(),
  go_proc(),
  cache_proc(),
  info_proc(),
  screendump_proc(),
  quit_proc(),
  histogram_proc(),
  timeline_proc(),
  update_speed_proc(),
  execute_speed_proc();

static short icon_image[] =
{
#include "mapa.icon"
};
DEFINE_ICON_FROM_IMAGE (o_icon, icon_image);

window_init()
{
  /* Initialize the window for SUNVIEW. */

  frame = window_create (NULL, FRAME,
                    WIN_X,          100,
                    WIN_Y,          100,
                    FRAME_LABEL,   "Argonne MAP.",
                    FRAME_ICON,    &o_icon,
                    0);
  cache_frame = window_create (frame, FRAME,
                    WIN_X,          280,
                    WIN_Y,          395,
                    0);
  histogram_frame = window_create(frame, FRAME,
                    WIN_X,            0,
                    WIN_Y,          400,
                    0);
  timeline_frame = window_create(frame, FRAME,
                    WIN_X,          510,
                    WIN_Y,          400,
                    0);
  do_panel();
  do_canvas();
  window_fit(frame);
  window_fit(cache_frame);
  window_fit(histogram_frame);
  window_fit(timeline_frame);
}

do_panel()
{
  /* Create the panel items for MAPA. */
  int i;
  Pixfont *bold_font, *title_font, *message_font;;
  bold_font    = pf_open("/usr/lib/fonts/fixedwidthfonts/screen.b.12");
  title_font   = pf_open("/usr/lib/fonts/fixedwidthfonts/gallant.r.19");
  message_font = pf_open("/usr/lib/fonts/fixedwidthfonts/cour.b.16");

  panel = window_create (frame, PANEL,
             WIN_FONT,                bold_font,
             WIN_WIDTH,               WIN_EXTEND_TO_EDGE,
             0);
  panel_create_item(panel, PANEL_MESSAGE,
             PANEL_ITEM_X,	      ATTR_COL(40),
             PANEL_ITEM_Y,	      ATTR_ROW(0),
             PANEL_LABEL_STRING,     "Argonne Memory Access Patterns",
             PANEL_LABEL_FONT,	      title_font,
             0);
  directory_choice = panel_create_item(panel, PANEL_CHOICE,
             PANEL_ITEM_X,	      ATTR_COL(0),
             PANEL_ITEM_Y,	      ATTR_ROW(1),
             PANEL_LABEL_STRING,     "Directory: ",
             PANEL_DISPLAY_LEVEL,     PANEL_NONE,
             PANEL_NOTIFY_PROC,       directory_proc,
             0);
  file_choice   = panel_create_item(panel, PANEL_CHOICE,
             PANEL_ITEM_X,            ATTR_COL(0),
             PANEL_ITEM_Y,            ATTR_ROW(2),
             PANEL_LABEL_STRING,     "Trace file: ",
             PANEL_DISPLAY_LEVEL,     PANEL_NONE,
             PANEL_NOTIFY_PROC,       file_proc,
             0);
  info_message = panel_create_item(panel, PANEL_MESSAGE,
             PANEL_LABEL_X,           ATTR_COL(40),
             PANEL_LABEL_Y,           ATTR_ROW(2),
             PANEL_LABEL_STRING,     "Select file & click load.",
             PANEL_LABEL_FONT,	      message_font,
             0);
  load_button = panel_create_item (panel, PANEL_BUTTON,
             PANEL_LABEL_X,     ATTR_COL(0),
             PANEL_LABEL_Y,     ATTR_ROW(3),
             PANEL_LABEL_IMAGE, panel_button_image(panel, "Load", 0, 0),
             PANEL_NOTIFY_PROC, load_proc,
             0);
  go_button = panel_create_item (panel, PANEL_BUTTON,
             PANEL_LABEL_IMAGE, panel_button_image(panel, "Go", 0, 0),
             PANEL_NOTIFY_PROC, go_proc,
             0);
  stop_button = panel_create_item (panel, PANEL_BUTTON,
             PANEL_LABEL_IMAGE, panel_button_image(panel, "Stop", 0, 0),
             0);
  cache_button = panel_create_item (panel, PANEL_BUTTON,
             PANEL_LABEL_IMAGE, panel_button_image(panel, "Cache", 0, 0),
             PANEL_NOTIFY_PROC, cache_proc,
             0);
  info_button = panel_create_item (panel, PANEL_BUTTON,
             PANEL_LABEL_IMAGE, panel_button_image(panel, "Info", 0, 0),
             PANEL_NOTIFY_PROC, info_proc,
             0);
  screendump_button = panel_create_item (panel, PANEL_BUTTON,
             PANEL_LABEL_IMAGE, panel_button_image(panel, "Screen dump", 0, 0),
             PANEL_NOTIFY_PROC, screendump_proc,
             0);
  quit_button = panel_create_item (panel, PANEL_BUTTON,
             PANEL_LABEL_IMAGE, panel_button_image(panel, "Quit", 0, 0),
             PANEL_NOTIFY_PROC, quit_proc,
             0);
  update_slider = panel_create_item (panel, PANEL_SLIDER,
             PANEL_LABEL_X,      ATTR_COL(0),
             PANEL_LABEL_Y,      ATTR_ROW(5),
             PANEL_VALUE,                100,
             PANEL_MIN_VALUE,              0,
             PANEL_MAX_VALUE,            100,
             PANEL_SLIDER_WIDTH,         400,
             PANEL_SHOW_RANGE,          TRUE,
             PANEL_SHOW_VALUE,          TRUE,
             PANEL_LABEL_STRING, "Update    speed ",
             PANEL_NOTIFY_PROC,   update_speed_proc,
             0);
  speed_slider = panel_create_item (panel, PANEL_SLIDER,
             PANEL_LABEL_X,      ATTR_COL(0),
             PANEL_LABEL_Y,      ATTR_ROW(6),
             PANEL_VALUE,                100,
             PANEL_MIN_VALUE,              0,
             PANEL_MAX_VALUE,            100,
             PANEL_SLIDER_WIDTH,         400,
             PANEL_SHOW_RANGE,          TRUE,
             PANEL_SHOW_VALUE,          TRUE,
             PANEL_LABEL_STRING, "Execution speed ",
             PANEL_NOTIFY_PROC,   execute_speed_proc,
             0);
  page_size_choice = panel_create_item(panel, PANEL_CHOICE,
             PANEL_ITEM_X,        ATTR_COL(100),
             PANEL_ITEM_Y,        ATTR_ROW(0),
             PANEL_LABEL_STRING, "Page size: 1",
             PANEL_DISPLAY_LEVEL, PANEL_NONE,
             PANEL_NOTIFY_PROC,   page_size_proc,
             0);
  cache_size_choice = panel_create_item(panel, PANEL_CHOICE,
             PANEL_ITEM_X,        ATTR_COL(100),
             PANEL_ITEM_Y,        ATTR_ROW(1),
             PANEL_LABEL_STRING, "Cache size: 1",
             PANEL_DISPLAY_LEVEL, PANEL_NONE,
             PANEL_NOTIFY_PROC,   cache_size_proc,
             0);
  cache_policy_choice   = panel_create_item(panel, PANEL_CHOICE,
             PANEL_ITEM_X,        ATTR_COL(100),
             PANEL_ITEM_Y,        ATTR_ROW(2),
             PANEL_LABEL_STRING, "Cache policy: LRU",
             PANEL_DISPLAY_LEVEL, PANEL_NONE,
             PANEL_NOTIFY_PROC,   cache_policy_proc,
             0);
  set_cache_menus();
  panel_create_item(panel, PANEL_MESSAGE,
             PANEL_LABEL_X,       ATTR_COL(100),
             PANEL_LABEL_Y,       ATTR_ROW(3),
             PANEL_LABEL_STRING, "Cache hits: ",
             0);
  panel_create_item(panel, PANEL_MESSAGE,
             PANEL_LABEL_X,       ATTR_COL(100),
             PANEL_LABEL_Y,       ATTR_ROW(4),
             PANEL_LABEL_STRING, "Cache misses: ",
             0);
  panel_create_item(panel, PANEL_MESSAGE,
             PANEL_LABEL_X,       ATTR_COL(100),
             PANEL_LABEL_Y,       ATTR_ROW(5),
             PANEL_LABEL_STRING, "Hit ratio: ",
             0);
  cache_hits = panel_create_item(panel, PANEL_MESSAGE,
             PANEL_LABEL_X,       ATTR_COL(115),
             PANEL_LABEL_Y,       ATTR_ROW(3),
             PANEL_LABEL_STRING, "0",
             0);
  cache_misses = panel_create_item(panel, PANEL_MESSAGE,
             PANEL_LABEL_X,       ATTR_COL(115),
             PANEL_LABEL_Y,       ATTR_ROW(4),
             PANEL_LABEL_STRING, "0",
             0);
  hit_ratio = panel_create_item(panel, PANEL_MESSAGE,
             PANEL_LABEL_X,       ATTR_COL(115),
             PANEL_LABEL_Y,       ATTR_ROW(5),
             PANEL_LABEL_STRING, "0%",
             0);
  histogram_choice   = panel_create_item(panel, PANEL_CYCLE,
             PANEL_ITEM_X,            ATTR_COL(100),
             PANEL_ITEM_Y,            ATTR_ROW(6),
             PANEL_LABEL_STRING,     "Access histogram: ",
             PANEL_CHOICE_STRINGS,   "Off", "On", 0,
             PANEL_NOTIFY_PROC,       histogram_proc,
             0);
  timeline_choice   = panel_create_item(panel, PANEL_CYCLE,
             PANEL_ITEM_X,            ATTR_COL(100),
             PANEL_ITEM_Y,            ATTR_ROW(7),
             PANEL_LABEL_STRING,     "Access time line: ",
             PANEL_CHOICE_STRINGS,   "Off", "On", 0,
             PANEL_NOTIFY_PROC,       timeline_proc,
             0);
  for (i = 0; i < 4; i++)
    {
      panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i),
                 PANEL_LABEL_Y,      ATTR_ROW(8),
                 PANEL_LABEL_STRING,  "Reads: ",
                 0);
      panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i),
                 PANEL_LABEL_Y,      ATTR_ROW(9),
                 PANEL_LABEL_STRING,  "Writes: ",
                 0);
      panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i),
                 PANEL_LABEL_Y,      ATTR_ROW(10),
                 PANEL_LABEL_STRING,  "FLOPS: ",
                 0);
      reads_counter[i] = panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i+9),
                 PANEL_LABEL_Y,      ATTR_ROW(8),
                 PANEL_LABEL_STRING,  "0",
                 0);
      writes_counter[i] = panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i+9),
                 PANEL_LABEL_Y,      ATTR_ROW(9),
                 PANEL_LABEL_STRING,  "0",
                 0);
      ops_counter[i] = panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i+9),
                 PANEL_LABEL_Y,      ATTR_ROW(10),
                 PANEL_LABEL_STRING,  "0",
                 0);
      sub_name[i] = panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i),
                 PANEL_LABEL_Y,      ATTR_ROW(11),
                 PANEL_LABEL_STRING,  " ",
                 0);
      header_message[i] = panel_create_item(panel, PANEL_MESSAGE,
                 PANEL_LABEL_X,      ATTR_COL(32*i),
                 PANEL_LABEL_Y,      ATTR_ROW(12),
                 PANEL_LABEL_STRING,  " ",
                 0);
    }
  window_fit_height (panel);
}

set_cache_menus()
{
  int i;
  char string[10];
  panel_set(page_size_choice, PANEL_CHOICE_STRINGS, "", 0, 0);
  for (i = 0; i <= 16; i++)
    {
      sprintf(string, "%d", POWER_OF_2(i));
      panel_set(page_size_choice, PANEL_CHOICE_STRING, i, string, 0);
    }
  panel_set(cache_size_choice, PANEL_CHOICE_STRINGS, "", 0, 0);
  for (i = 0; i <= 16; i++)
    {
      sprintf(string, "%d", POWER_OF_2(i));
      panel_set(cache_size_choice, PANEL_CHOICE_STRING, i, string, 0);
    }
  panel_set(cache_policy_choice, PANEL_CHOICE_STRINGS, "", 0, 0);
  for (i = CACHE_LRU; i <= CACHE_RAND; i++)
    {
      switch (i)
        {
          case CACHE_LRU:
            strcpy(string, "LRU");
            break;
          case CACHE_LFU:
            strcpy(string, "LFU");
            break;
          case CACHE_FIFO:
            strcpy(string, "FIFO");
            break;
          case CACHE_CLOCK:
            strcpy(string, "Clock");
            break;
          case CACHE_LIFO:
            strcpy(string, "LIFO");
            break;
          case CACHE_RAND:
            strcpy(string, "Random");
            break;
        }
      panel_set(cache_policy_choice, PANEL_CHOICE_STRING, i, string, 0);
    }
  panel_set_value(cache_policy_choice, 10);
}

do_canvas()
{
  /* Create the canvases for MAPA. */
  int  i, j, height, width;
  u_char red[CMS_SIZE], green[CMS_SIZE], blue[CMS_SIZE], zero[CMS_SIZE];
  char string[10];

/*
  Set up the red, green, and blue arrays for the color map segemnt.
*/
  for (i = 0; i < NUMBER_OF_COLORS; i++)
    {
       zero[i] = 0;
        red[i] = green[i]  = (255*i)/(NUMBER_OF_COLORS - 1);
       blue[i] = 255 - red[i];
    }
  for (i = NUMBER_OF_COLORS; i < CMS_SIZE; i++)
    red[i] = green[i] = blue[i] = zero[i] = 255;

  /* Create the canvases for the arrays. */
  for (i = 0; i < NUMBER_OF_CANVASES; i++)
    {
      canvas[i] = window_create (frame, CANVAS,
                                 CANVAS_WIDTH,             CANVAS_SIZE,
                                 CANVAS_HEIGHT,            CANVAS_SIZE,
                                 WIN_WIDTH,                CANVAS_SIZE,
                                 WIN_HEIGHT,               CANVAS_SIZE,
                                 0);
      if (i == 4) window_set(canvas[i], WIN_BELOW, canvas[1], WIN_X, 0, 0);
      pw[i] = canvas_pixwin (canvas[i]);
      depth = pw[i]->pw_pixrect->pr_depth;
      if (depth > 1)
        {
          sprintf (string, "Color_test%d", i);
          pw_setcmsname  (pw[i], string);
          if (i < 4)
            pw_putcolormap (pw[i], 0, 16, zero, green, blue);
          else
            pw_putcolormap (pw[i], 0, 16, red,  zero, blue);
        }
    }

  /* Create the cache canvas. */
  if (CACHE_SIZE_P2 % 2 == 0)
    height = width = POWER_OF_2(CACHE_SIZE_P2/2);
  else
    {
      height = POWER_OF_2((CACHE_SIZE_P2-1)/2);
      width  = POWER_OF_2((CACHE_SIZE_P2+1)/2);
    }
  cache_canvas = window_create(cache_frame, CANVAS,
                 WIN_WIDTH,                width,
                 WIN_HEIGHT,               height,
                 0);
  pw_cache     = canvas_pixwin(cache_canvas);
  r[0] = 0;
  g[0] = 0;
  b[0] = 255;
  r[1] = 255;
  g[1] = 0;
  b[1] = 0;
  r[2] = 255;
  g[2] = 255;
  b[2] = 0;
  r[3] = 255;
  g[3] = 255;
  b[3] = 255;
  sprintf(string, "Cache");
  pw_setcmsname(pw_cache, string);
  pw_putcolormap(pw_cache, 0, 4, r, g, b);

  /* Create the canvases for the histogram and the time line. */
  histogram_canvas = window_create(histogram_frame, CANVAS,
                 CANVAS_WIDTH,             500,
                 CANVAS_HEIGHT,            500,
                 WIN_WIDTH,                500,
                 WIN_HEIGHT,               500,
                 CANVAS_AUTO_SHRINK,       FALSE,
                 0);
  timeline_canvas = window_create(timeline_frame, CANVAS,
                 CANVAS_WIDTH,             500,
                 CANVAS_HEIGHT,            500,
                 WIN_WIDTH,                500,
                 WIN_HEIGHT,               500,
                 CANVAS_AUTO_SHRINK,       FALSE,
                 0);
  pw_histogram = canvas_pixwin(histogram_canvas);
  pw_timeline = canvas_pixwin(timeline_canvas);
}
SHAR_EOF
cd ..
if test ! -d 'MAPI'
then
	mkdir 'MAPI'
fi
cd 'MAPI'
if test -f 'README'
then
	echo shar: over-writing existing file "'README'"
fi
cat << \SHAR_EOF > 'README'

	This subdirectory contains the source code, written in C, for
MAPI, the preprocessor of FORTRAN programs that use the BLAS (Basic Linear
Algebra Subprograms). The subdirectory, lib, contains the modified
BLAS files that output trace information. The output of the preproccesor
is a FORTRAN module that, when linked with libmapi.a in lib, will output
array indices to a trace file, whenever selected arrays are referenced.
The trace file can then be used by MAPA to display the array references
on a graphics screen (at this time, only Sun workstations using Sunview.)
By default, the preprocessor looks for references to array A and
assumes that any array in a call to a BLAS subroutine is array A.
However, it has a run-time option to search for up to three different arrays.
Thus, you can run "mapi a b c < infile.f > outfile.f".
	The preprocessor makes several assumptions about the input
FORTRAN program:

  1) The program is syntacticlly correct and compiles.
  2) Statements should not extend beyond column 72; in fact, nothing
     should be beyond column 72, such as old dusty decks that used columns
     73-80 as ordering information for the cards.
  3) A single parameter is not split across lines in a call to a BLAS
     routine or in an assignment statement:
      CALL SUB (n1, n2, a(i,
     $                    j), ..., b
     $                   (j,i), ..., nlast).
      A(I,J) = T*A(J,
     $             I)/(A(J,
     $                   I)+B(J,I)).
  4) Comments are not interwoven with continuation lines:
      CALL SUB (n1, n2, ...,
C comment
     $          ni, nj, ..., nlast)
  5) There no variable names like DO30I (i.e DO30I = 1.3 vs DO30I = 1,3)
     or function names like IF, etc.
  6) There is a variable named N in the file being preprocessed which is
     set to the array size.
  7) The designated arrays are global throughout the file. In other
     words, you shouldn't have two subroutines each with local arrays using
     the same variable name. The preprocessor wouldn't know the difference.
     Also, the main driver program should be in a seprate file to perform
     array references that you don't want flagged (i.e. array initialization).
  8) In subroutine calls, the sequence "CALL SUB(parameter1,", should be on
     the same line.

	The preprocessor does not yet catch the following references:

  1) IF(...A(I,J)...) ...      array referece in logical expression of IF.
  2) ...z(A(I,J))...           array reference used as an array index.

	If your program only involves array A, type
"mapi < infile.f > outfile.f" in order to invoke MAPI.
Otherwise, type "mapi A B C < infile.f > outfile.f",
where your program uses arrays A, B, and C. You can type in from
one to three array names. The resulting file, outfile.f, should be
compiled and then linked with the driver and lib/libmapi.a.
When executed, it should produce the trace file, memory.trace.

        The directory also contains some examples. The files
lu1.f, lu2.f & lu3.f are different algorithms for performing lu
factorization. The file lumain.f is the driver.
SHAR_EOF
if test -f 'add_new_parameters.c'
then
	echo shar: over-writing existing file "'add_new_parameters.c'"
fi
cat << \SHAR_EOF > 'add_new_parameters.c'
#include "mapi.h"

int add_new_parameters(original_line, line, number,
                       arrays_in_call, parameters, dimension)
  char original_line[][LINE_LENGTH], line[][LINE_LENGTH];
  int *number, arrays_in_call, parameters[], dimension[];
{
  int done, i, j, k, l, n, line_of_call;
  int line_number, number_of_parameters, parentheses_count, number_to_add;
  int do_next_parameter, array_number;
  char c, array_names[3][32], addition[9][50];

  if(just_started)
    do_initial_stuff();
  if (to_upper(line[0][7])  == 'I'  &&
      to_upper(line[0][8])  == 'F'  &&
               line[0][9]   == '(')
    {
      parentheses_count = 1;
      line_number = 0;
      i = 9;
      do
        {
          switch (c = line[line_number][++i])
            {
              case '\n':
                line_number++;
                i = 6;
                break;
              case '(':
                parentheses_count++;
                break;
              case ')':
                parentheses_count--;
                break;
            }
        }
      while (parentheses_count > 0);
    }
  else
    {
      i = 6;
      line_number = 0;
    }
  do  /* Advance to the opening parentheses for the parameters. */
    if ((c = line[line_number][++i]) == '\n')
      {
        line_number++;
        i = 6;
      }
  while (c != '(');
  line_of_call = line_number;
  number_of_parameters = 0;
  parentheses_count = 1;
  done = FALSE;
  do
    {
      c = line[line_number][++i]; 
      do_next_parameter = FALSE;
      switch (c)
        {
          case ',':
            if (parentheses_count == 1)
              number_of_parameters++;
            for (j = 0; j < arrays_in_call; j++)
              if (number_of_parameters == parameters[j])
                {
                  do_next_parameter = TRUE;
                  array_number  = j;
                }
            break;
          case '(':
            parentheses_count++;
            break;
          case ')':
            parentheses_count--;
            break;
          case '\n':
            line_number++;
            i = 6;
            break;
        }
      if (parentheses_count == 0)
        done = TRUE;
      else if (do_next_parameter)
        {
          if ((c = line[line_number][++i]) == '\n')
            {
              line_number++;
              i = 6;
              c = line[line_number][++i];
            }
          j = 0;
          array_names[array_number][j] = to_upper(c);
          do
            {
              c = line[line_number][++i];
              array_names[array_number][++j] = to_upper(c);
            }
          while (c != ','  &&  c != '(');
          array_names[array_number][j] = '\0';
          n = 3*array_number;
          addition[n][0] = '1';
          for (k = 2; k <= number_of_arrays; k++)
            if (strcmp(&array_names[array_number][0], &arrays[k][0]) == 0)
                addition[n][0] = '0' + k;
          addition[n][1] = '\0';
          if (c == ',')
            {
              if (dimension[array_number] == 1)
                {
                  addition[n+1][0] = '1';
                  addition[n+1][1] = addition[n+2][0] = '\0';
                }
              else
                {
                  addition[n+1][0] = addition[n+2][0] = '1';
                  addition[n+1][1] = addition[n+2][1] = '\0';
                }
              number_of_parameters++;
            }
          else if (c == '(')
            {
              int j = -1;
              parentheses_count++;
              do
                {
                  c = addition[n+1][++j] = line[line_number][++i];
                  if (c == '(')
                    parentheses_count++;
                  if (c == ')')
                    parentheses_count--;
                }
              while ((c != ','  ||  parentheses_count > 2)  &&
                      parentheses_count != 1);
              addition[n+1][j] = '\0';
              if (parentheses_count != 1)
                {
                  j = -1;
                  do
                    {
                      c = addition[n+2][++j] = line[line_number][++i];
                      if (c == '(')
                        parentheses_count++;
                      if (c == ')')
                        parentheses_count--;
                    }
                  while (parentheses_count > 1);
                }
              else
                j = 0;
              addition[n+2][j] = '\0';
              number_of_parameters++;
              i++;
            }
        }
    }
  while (!done);
/*
Add the additions to the original line.
*/
  i = 0;
  while ((c = original_line[line_number][++i]) != '\n');
  while ((c = original_line[line_number][--i]) != ')');
  for (j = 0; j < 3*arrays_in_call; j++)
    {
      k = -1;
      while (addition[j][++k] != '\0');
      if ((number_to_add = k)  !=  0)
        {
          original_line[line_number][i] = ',';
          if (j == 0  ||  (i + 1 + number_to_add > 72))
            {
              line_number++;
              for (l = 1; l < 18; l++)
                original_line[line_number][l] = ' ';
              original_line[line_number][6] = '$';
              i = 17;
            }
          for (k = 0; k < number_to_add; k++)
            original_line[line_number][++i] = addition[j][k];
          i++;
        }
    }
  original_line[line_number][i] = ')';
  original_line[line_number][++i] = '\n';
  *number = line_number;
  /* Add 'm' to the front of the subroutine name. */
  for (i = 0; (c = original_line[line_of_call][i]) != '\n'; i++);
  if (i < 73)
    {
      for (j = i; j >= 7; j--)
        original_line[line_of_call][j+1] = original_line[line_of_call][j];
      j = 7;
      done = FALSE;
      do
        if (to_upper(original_line[line_of_call][++j]) == 'C'  &&
            to_upper(original_line[line_of_call][j+1]) == 'A'  &&
            to_upper(original_line[line_of_call][j+2]) == 'L'  &&
            to_upper(original_line[line_of_call][j+3]) == 'L')
          done = TRUE;
      while (!done);
      j = j + 3;  /* Have j point to the last 'L' in "CALL". */
      for (k = 8; k <= j; k++)
        original_line[line_of_call][k-1] = original_line[line_of_call][k];
      original_line[line_of_call][j] = ' ';
      do
        c = original_line[line_of_call][++j];
      while (c == ' '  ||  c == '\t');
      original_line[line_of_call][j-1] = 'm';
    }
  else  /* Adding 'm' to the front of the subroutine call will extend the */
    {   /* line past column 72. */
      for (j = *number; j > line_of_call; j--)
        {
          l = -1;
          do
            l++;
          while ((original_line[j+1][l] = original_line[j][l]) != '\n');
        }
      j = 6;
      done = FALSE;
      do
        if (to_upper(original_line[line_of_call][++j]) == 'C'  &&
            to_upper(original_line[line_of_call][j+1]) == 'A'  &&
            to_upper(original_line[line_of_call][j+2]) == 'L'  &&
            to_upper(original_line[line_of_call][j+3]) == 'L')
          done = TRUE;
      while (!done);
      k = j = j + 3;  /* Have k point to the last 'L' in "CALL". */
      do         /* Have j point to the first letter in the subroutine name. */
        c = original_line[line_of_call][++j];
      while (c == ' '  ||  c == '\t');
      for (l = 1; l < 6; l++)
        original_line[line_of_call+1][l] = ' ';
      original_line[line_of_call+1][6] = '$';
      original_line[line_of_call+1][7] = 'm';
      l = 7;
      do
        c = original_line[line_of_call+1][++l]
          = original_line[line_of_call][++j];
      while (c != '\n');
      original_line[line_of_call][k+1] = '\n';
      (*number)++;
    }
}
SHAR_EOF
if test -f 'assignment.c'
then
	echo shar: over-writing existing file "'assignment.c'"
fi
cat << \SHAR_EOF > 'assignment.c'
#include "mapi.h"

assignment(original_line, line, number)
  char original_line[][LINE_LENGTH], line[][LINE_LENGTH];
  int *number;

{
  int  i, j, k, l, id, dim, done, lhs_flag, rhs_flag, parentheses_count;
  char c, name[33], addition[3][80];

  lhs_flag = rhs_flag = FALSE;
/*
  Check for arrays on the right hand side of the assignment statement.
  If it is, generate a call to r (possibly multiple calls).
*/
  i = 0;
  j = 6;
  do
    {
      c = line[i][++j];
      if (c == '\n')
        {
          i++;
          j = 6;
        }
    }
  while (c != '=');
  c = line[i][++j];
  done = FALSE;
  do
    {
      if (c == '\n')
        {
          i++;
          j = 6;
          if (i > *number)
            done = TRUE;
        }
      if ((to_upper(c) >= 'A')  &&  (to_upper(c) <= 'Z'))
        {
          name[0] = to_upper(c);
          l = 0;
          do
            {
              c = line[i][++j];
              name[++l] = to_upper(c);
            }
          while (((to_upper(c) >= 'A')  &&  (to_upper(c) <= 'Z'))  ||
                 (c >= '0'  &&  c <= '9'));
          name[l] = '\0';
          rhs_flag = FALSE;
          switch (number_of_arrays)
            {
              case 0:
                if (strcmp(name, "A") == 0)
                  rhs_flag = TRUE;
                id = 1;
                break;
              case 1:
                if (strcmp(name, arrays[1]) == 0)
                  {
                    rhs_flag = TRUE;
                    id = 1;
                  }
                break;
              case 2:
                if (strcmp(name, arrays[1]) == 0)
                  {
                    rhs_flag = TRUE;
                    id = 1;
                  }
                else if (strcmp(name, arrays[2]) == 0)
                  {
                    rhs_flag = TRUE;
                    id = 2;
                  }
                break;
              case 3:
                if (strcmp(name, arrays[1]) == 0)
                  {
                    rhs_flag = TRUE;
                    id = 1;
                  }
                else if (strcmp(name, arrays[2]) == 0)
                  {
                    rhs_flag = TRUE;
                    id = 2;
                  }
                else if (strcmp(name, arrays[3]) == 0)
                  {
                    rhs_flag = TRUE;
                    id = 3;
                  }
                break;
	    }
          if (rhs_flag)
            {
              int k = -1;
              if (just_started)
                do_initial_stuff();
              parentheses_count = 1;
              do
                {
                  c = addition[1][++k] = line[i][++j];
                  if (c == '(')
                    parentheses_count++;
                  if (c == ')')
                    parentheses_count--;
                }
              while ((c != ','  ||  parentheses_count != 1)  &&
                      parentheses_count != 0);
              addition[1][k] = '\0';
              if (parentheses_count != 0)
                {
                  k = -1;
                  do
                    {
                      c = addition[2][++k] = line[i][++j];
                      if (c == '(')
                        parentheses_count++;
                      if (c == ')')
                        parentheses_count--;
                    }
                  while (parentheses_count > 0);
                  dim = 2;
                }
              else
                {
                  k = 0;
                  dim = 1;
                }
              addition[2][k] = '\0';
              printf("      call r(%d,", id);
              for (k = 1; k <= dim; k++)
                for (l = 1; l <= 2; l++)
                  {
                    int m = -1;
                    do
                      if ((c = addition[k][++m]) != '\0')
                        putchar(c);
                    while (c != '\0');
                    if (l == 2  &&  k == dim)
                      putchar(')');
                    else
                      putchar(',');
                  }
              putchar('\n');
              c = line[i][++j];
            }
        }
      else if (c >= '0'  &&  c <= '9')
        {
          do
            c = line[i][++j];
          while (c >= '0'  &&  c <= '9');
          if (c == '.')
            do
              c = line[i][++j];
            while (c >= '0'  &&  c <= '9');
          if (to_upper(c) == 'E'  ||  to_upper(c) == 'D')
            {
              if ((c = line[i][j+1]) == '+'  ||  c == '-')
                ++j;
              do
                c = line[i][++j];
              while (c >= '0'  &&  c <= '9');
            }
        }
      else
        if (!done) c = line[i][++j];
    }
  while (!done);
/*
  Check for array on the left hand side of the assignment statement.
  If it is, generate a call to w.
*/
  if (to_upper(line[0][7]) == 'I'  &&
      to_upper(line[0][8]) == 'F'  &&
               line[0][9]  == '(')
    {          /* IF(...)<assignment> */
      i = 0;
      j = 9;
      parentheses_count = 1;
      do
        switch (c = line[i][++j])
          {
            case '\n':
              i++;
              j = 6;
              break;
            case '(':
              parentheses_count++;
              break;
            case ')':
              parentheses_count--;
              break;
          }
      while (parentheses_count > 0);
      if ((c = line[i][j+1]) == '\n')
        {
          i++;
          j = 6;
        }
    }
  else   /* Just a plain old assignment statement. */
    {
      i = 0;
      j = 6;
    }
  l = -1;
  do
    {
      c = line[i][++j];
      name[++l] = to_upper(c);
    }
  while (((to_upper(c) >= 'A')  &&  (to_upper(c) <= 'Z'))  ||
          (c >= '0'  &&  c <= '9'));
  name[l] = '\0';
  lhs_flag = FALSE;
  switch (number_of_arrays)
    {
      case 0:
        if (strcmp(name, "A") == 0)
          lhs_flag = TRUE;
        id = 1;
        break;
      case 1:
        if (strcmp(name, arrays[1]) == 0)
          {
            lhs_flag = TRUE;
            id = 1;
          }
        break;
      case 2:
        if (strcmp(name, arrays[1]) == 0)
          {
            lhs_flag = TRUE;
            id = 1;
          }
        else if (strcmp(name, arrays[2]) == 0)
          {
            lhs_flag = TRUE;
            id = 2;
          }
        break;
      case 3:
        if (strcmp(name, arrays[1]) == 0)
          {
            lhs_flag = TRUE;
            id = 1;
          }
        else if (strcmp(name, arrays[2]) == 0)
          {
            lhs_flag = TRUE;
            id = 2;
          }
        else if (strcmp(name, arrays[3]) == 0)
          {
            lhs_flag = TRUE;
            id = 3;
          }
        break;
    }

  if (lhs_flag)
    {
      int k = -1;
      if (just_started)
        do_initial_stuff();
      parentheses_count = 1;
      do
        {
          c = addition[1][++k] = line[i][++j];
          if (c == '(')
            parentheses_count++;
          if (c == ')')
            parentheses_count--;
        }
      while ((c != ','  ||  parentheses_count != 1)  &&
              parentheses_count != 0);
      addition[1][k] = '\0';
      if (parentheses_count != 0)
        {
          k = -1;
          do
            {
              c = addition[2][++k] = line[i][++j];
              if (c == '(')
                parentheses_count++;
              if (c == ')')
                parentheses_count--;
            }
          while (parentheses_count > 0);
          dim = 2;
        }
      else
        {
          k = 0;
          dim = 1;
	}
      addition[2][k] = '\0';
      printf("      call w(%d,", id);
      for (k = 1; k <= dim; k++)
        for (l = 1; l <= 2; l++)
          {
            int m = -1;
            do
              if ((c = addition[k][++m]) != '\0')
                putchar(c);
            while (c != '\0');
            if (l == 2  &&  k == dim)
              putchar(')');
            else
              putchar(',');
          }
      putchar('\n');
    }

/*  Debugging print
  for (i = 0; i <= *number; i++)
    {
      for (j = 1; (c = original_line[i][j]) != '\n'; j++)
        printf("%c", c);
      printf("\n");
    }
*/
	     
}
SHAR_EOF
if test -f 'do_initial_stuff.c'
then
	echo shar: over-writing existing file "'do_initial_stuff.c'"
fi
cat << \SHAR_EOF > 'do_initial_stuff.c'
#include "mapi.h"

do_initial_stuff()
{
  int i, n;

  just_started = FALSE;
  printf("      open(unit=3,file='memory.trace')\n");
  n = number_of_arrays;
  if (number_of_arrays == 0)
    n = 1;
  for (i = 1; i <= n; i++)
    printf("      call init(%d,n,n)\n", i);
}
SHAR_EOF
if test -f 'get_next_line.c'
then
	echo shar: over-writing existing file "'get_next_line.c'"
fi
cat << \SHAR_EOF > 'get_next_line.c'
#include "mapi.h"

int get_next_line(line)
  char *line;
{
/*
  Return the next line from the input file.
*/
  int c;
  int i = 0;

  while (((c = getchar()) != '\n')  &&  (c != EOF))
    *(line + (++i)) = c;
  if (c == '\n')
    *(line + (++i)) = c;
  return(c);
}
SHAR_EOF
if test -f 'lu1.f'
then
	echo shar: over-writing existing file "'lu1.f'"
fi
cat << \SHAR_EOF > 'lu1.f'
      SUBROUTINE LU1( M, N, A, LDA, IPIV, INFO )
*
*  -- LAPACK routine -- Written on March 8, 1988.
*
*     .. Scalar Arguments ..
      INTEGER          M, N, LDA, INFO
*
*     .. Array Arguments ..
      INTEGER          IPIV( * )
      REAL             A( LDA, * )
*
*  Purpose
*  =======
*
*     Computes an LU factorization of an m-by-n matrix A, using partial
*     pivoting with row interchanges.
*     This is the Level 3 BLAS version of the algorithm, reducing NB
*     columns at a time.
*
*  Arguments
*  =========
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of the matrix
*           A .  M must be at least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of the matrix
*           A . N must be at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, N ).
*           On entry, A specifies the array which contains the matrix 
*           being factored.
*           On exit, the array A is overwritten by the
*           LU factorization. The factorization can be written as
*           A = L*U where L is a product of permutation and unit lower
*           triagnular matrices and U is an upper triangular matrix.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. 
*           LDA must be at least  max( 1, M ).
*           Unchanged on exit.
*
*  IPIV   - INTEGER           array of DIMINSON ( M ).
*           On exit, the array IPIV contains the pivot incides.
*
*  INFO   - INTEGER.
*           On exit, a value of 0 indicated a normal return;
*           a positive value, say K, indicates that U(K,K) = 0.0 exactly.
*           This is not an error condition for this subroutine, but it
*           does indicate that SGETRS or SGEINV will divide by zero
*           if called. Use routine SGECON for a reliable indication of
*           singularity;
*           a negative value, say -K, indicates the Kth argument has an
*           illegal value.
*
*     .. Parameters ..
      REAL             ONE
      PARAMETER        ( ONE = 1.0E+0 )
*     .. Local Scalars ..
      INTEGER          I, IP, J, JB, NB
*     .. External Subroutines ..
      EXTERNAL         ENVIR, SGEMM, SGETF2, SSWAP, STRSM, XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC        MAX, MIN
*     ..
*     .. Executable Statements ..
*     Gaussian elimination with partial pivoting
*
*     Test the input parameters.
*
      INFO = 0
*
*     Quick return if possible.
*
      IF( N.EQ.0 ) RETURN
      IF( M.LT.0 )THEN
         INFO = -1
      ELSE IF( N.LT.0 )THEN
         INFO = -2
      ELSE IF( LDA.LT.MAX( 1, M ) )THEN
         INFO = -4
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SGETRF', -INFO )
         RETURN
      END IF
*
*     Determine the block size for this environment.
*
c      CALL ENVIR( 'Get', NB )
      NB = 5
      IF( NB.EQ.1 ) NB = N
*
      DO 40 J = 1, N, NB
         JB = MIN( N - J + 1, NB )
*
*        Apply previous interchanges to current block.
*
         DO 10 I = 1, J - 1
            IP = IPIV( I )
            IF( IP.NE.I )
     $         CALL SSWAP( JB, A( I, J ), LDA, A( IP, J ), LDA )
   10    CONTINUE
*
*        Compute superdiagonal block of U.
*
         CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', J - 1, 
     $               JB, A, LDA, A( 1, J ), LDA )
*
*        Update diagonal and subdiagonal blocks.
*
         CALL SGEMM( 'No transpose', 'No transpose', M - J + 1, JB, 
     $               J - 1, -ONE, A( J, 1 ), LDA, A( 1, J ), LDA, ONE,
     $               A( J, J ), LDA )
*
*        Factorize diagonal and subdiagonal blocks and test for exact
*        singularity.
*
         CALL SGETF2( M - J + 1, JB, A( J, J ), LDA, IPIV( J ), INFO )
         call r(1,j,m,j,j+jb-1)
         call w(1,j,m,j,j+jb-1)
         DO 20 I = J, J + JB - 1
            IPIV( I ) = J - 1 + IPIV( I )
   20    CONTINUE
         IF( INFO.NE.0 ) GO TO 50
*
*        Apply interchanges to previous blocks.
*
         DO 30 I = J, J + JB - 1
            IP = IPIV( I )
            IF( IP.NE.I )
     $         CALL SSWAP( J - 1, A( I, 1 ), LDA, A( IP, 1 ), LDA )
   30    CONTINUE
   40 CONTINUE
      RETURN
*
   50 CONTINUE
      INFO = INFO + J - 1
      RETURN
*
*     Last line of SGETRF
      END
SHAR_EOF
if test -f 'lu2.f'
then
	echo shar: over-writing existing file "'lu2.f'"
fi
cat << \SHAR_EOF > 'lu2.f'
      SUBROUTINE LU2( M, N, A, LDA, IPIV, INFO )
*
*     .. Scalar Arguments ..
      INTEGER          M, N, LDA, INFO
*
*     .. Array Arguments ..
      INTEGER          IPIV( * )
      REAL             A( LDA, * )
*
*  Purpose
*  =======
*     Computes an LU factorization of an m-by-n matrix A, using partial
*     pivoting with row interchanges.
*     Blocked algorithm - Crout variant.
*
*  Arguments
*  =========
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of the matrix
*           A .  M must be at least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of the matrix
*           A . N must be at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, N ).
*           On entry, A specifies the array which contains the matrix
*           being factored.
*           On exit, the array A is overwritten by the
*           LU factorization. The factorization can be written as
*           A = L*U where L is a product of permutation and unit lower
*           triagnular matrices and U is an upper triangular matrix.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program.
*           LDA must be at least  max( 1, M ).
*           Unchanged on exit.
*
*  IPIV   - INTEGER           array of DIMINSON ( M ).
*           On exit, the array IPIV contains the pivot incides.
*
*  INFO   - INTEGER.
*           On exit, a value of 0 indicated a normal return;
*           a positive value, say K, indicates that U(K,K) = 0.0 exactly.
*           This is not an error condition for this subroutine, but it
*           does indicate that SGETRS or SGEINV will divide by zero
*           if called. Use routine SGECON for a reliable indication of
*           singularity;
*           a negative value, say -K, indicates the Kth argument has an
*           illegal value.
*
*     .. Parameters ..
      REAL               ONE
      PARAMETER          ( ONE = 1.0E+0 )
*     .. Local Scalars ..
      INTEGER            I, IP, J, JB, NB
*     .. External Subroutines ..
      EXTERNAL           SGEMM, SPLU, SSWAP, STRSM
*     .. Intrinsic Functions ..
      INTRINSIC          MIN
*     .. Executable Statements ..
*
      INFO = 0
*
*     Determine the block size for this environment.
*
c      CALL ENVIR( 'Get', NB )
      NB = 5
*
      DO 40 J = 1, N, NB
         JB = MIN( N - J + 1, NB )
*
*        Update diagonal and subdiagonal blocks.
*
         CALL SGEMM( 'No transpose', 'No transpose', M - J + 1, JB,
     $               J - 1, -ONE, A( J, 1 ), LDA, A( 1, J ), LDA, ONE,
     $               A( J, J ), LDA )
*
*        Factorize diagonal and subdiagonal blocks and test for
*        singularity.
*
         CALL SGETF2( M - J + 1, JB, A( J, J ), LDA, IPIV( J ), INFO )
         call r(2,j,m,j,j+jb-1)
         call w(2,j,m,j,j+jb-1)
         DO 10 I = J, J + JB - 1
            IPIV( I ) = J - 1 + IPIV( I )
   10    CONTINUE
         IF( INFO.NE.0 )
     $      GO TO 50
*
*        Apply interchanges to previous blocks.
*
         DO 20 I = J, J + JB - 1
            IP = IPIV( I )
            IF( IP.NE.I )
     $         CALL SSWAP( J - 1, A( I, 1 ), LDA, A( IP, 1 ), LDA )
   20    CONTINUE
*
*        Apply interchanges to following blocks.
*
         DO 30 I = J, J + JB - 1
            IP = IPIV( I )
            IF( IP.NE.I )
     $         CALL SSWAP( N - J - JB + 1, A( I, J + JB ), LDA,
     $                     A( IP, J + JB ), LDA )
   30    CONTINUE
*
         IF( J.LT.N )THEN
*
*           Compute block row of U.
*
            CALL SGEMM( 'No transpose', 'No transpose', JB,
     $                  N - J - JB + 1, J - 1, -ONE, A( J, 1 ), LDA,
     $                  A( 1, J + JB ), LDA, ONE, A( J, J + JB ), LDA )
            CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', JB,
     $                  N - J - JB + 1, A( J, J ), LDA, A( J, J + JB ),
     $                  LDA )
         END IF
   40 CONTINUE
      RETURN
*
   50 INFO = INFO + J - 1
      RETURN
*
*     End of SPLUB .
*
      END
SHAR_EOF
if test -f 'lu3.f'
then
	echo shar: over-writing existing file "'lu3.f'"
fi
cat << \SHAR_EOF > 'lu3.f'
      SUBROUTINE LU3( M, N, A, LDA, IPIV, INFO )
*
*     .. Scalar Arguments ..
      INTEGER          M, N, LDA, INFO
*
*     .. Array Arguments ..
      INTEGER          IPIV( * )
      REAL             A( LDA, * )
*
*  Purpose
*  =======
*
*     Computes an LU factorization of an m-by-n matrix A, using partial
*     pivoting with row interchanges.
*     Blocked algorithm - kji variant.
*
*  Arguments
*  =========
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of the matrix
*           A .  M must be at least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of the matrix
*           A . N must be at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, N ).
*           On entry, A specifies the array which contains the matrix
*           being factored.
*           On exit, the array A is overwritten by the
*           LU factorization. The factorization can be written as
*           A = L*U where L is a product of permutation and unit lower
*           triagnular matrices and U is an upper triangular matrix.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program.
*           LDA must be at least  max( 1, M ).
*           Unchanged on exit.
*
*  IPIV   - INTEGER           array of DIMINSON ( M ).
*           On exit, the array IPIV contains the pivot incides.
*
*  INFO   - INTEGER.
*           On exit, a value of 0 indicated a normal return;
*           a positive value, say K, indicates that U(K,K) = 0.0 exactly.
*           This is not an error condition for this subroutine, but it
*           does indicate that SGETRS or SGEINV will divide by zero
*           if called. Use routine SGECON for a reliable indication of
*           singularity;
*           a negative value, say -K, indicates the Kth argument has an
*           illegal value.
*
*     .. Parameters ..
      REAL               ONE
      PARAMETER          ( ONE = 1.0E+0 )
*     .. Local Scalars ..
      INTEGER            I, IP, J, JB
*     .. External Subroutines ..
      EXTERNAL           SGEMM, SPLU, SSWAP, STRSM
*     .. Intrinsic Functions ..
      INTRINSIC          MIN
*     .. Executable Statements ..
*
      INFO = 0
*
*     Determine the block size for this environment.
*
c      CALL ENVIR( 'Get', NB )
      NB = 5
*
      DO 40 J = 1, N, NB
         JB = MIN( N - J + 1, NB )
*
*        Factorize diagonal and subdiagonal blocks and test for
*        singularity.
*
         CALL SGETF2( M - J + 1, JB, A( J, J ), LDA, IPIV( J ), INFO )
         call r(3,j,m,j,j+jb-1)
         call w(3,j,m,j,j+jb-1)
         DO 10 I = J, J + JB - 1
            IPIV( I ) = J - 1 + IPIV( I )
   10    CONTINUE
         IF( INFO.NE.0 )
     $      GO TO 50
*
*        Apply interchanges to previous blocks.
*
         DO 20 I = J, J + JB - 1
            IP = IPIV( I )
            IF( IP.NE.I )
     $         CALL SSWAP( J - 1, A( I, 1 ), LDA, A( IP, 1 ), LDA )
   20    CONTINUE
*
*        Apply interchanges to following blocks.
*
         DO 30 I = J, J + JB - 1
            IP = IPIV( I )
            IF( IP.NE.I )
     $         CALL SSWAP( N - J - JB + 1, A( I, J + JB ), LDA,
     $                     A( IP, J + JB ), LDA )
   30    CONTINUE
         IF( J.LT.N )THEN
*
*        Compute block row of U.
*
            CALL STRSM( 'Left', 'Lower', 'No transpose', 'Unit', JB,
     $                  N - J - JB + 1, A( J, J ), LDA, A( J, J + JB ),
     $                  LDA )
*
*        Update trailing submatrix.
*
            CALL SGEMM( 'No transpose', 'No transpose', M - J - JB + 1,
     $                  N - J - JB + 1, JB, -ONE, A( J + JB, J ), LDA,
     $                  A( J, J + JB ), LDA, ONE, A( J + JB, J + JB ),
     $                  LDA )
         END IF
   40 CONTINUE
      RETURN
*
   50 INFO = INFO + J - 1
      RETURN
*
*     End of SPLUB .
*
      END
SHAR_EOF
if test -f 'lumain.f'
then
	echo shar: over-writing existing file "'lumain.f'"
fi
cat << \SHAR_EOF > 'lumain.f'
      parameter (n = 100)
      integer ipiv(n)
      real a(n,n), u(n,n), d(n), e(n)
c      do 20 i = 1, n
c        do 10 j = 1, n
c          a(i,j) = i + j
c10      continue
c20    continue
      call matgen(a,n,n,n)
c      do 10 i = 1, n
c        a(i,i) = 10000.0
c10    continue
      call lu3(n,n,a,n,ipiv,info)
c      call DSYTRD( N, A, n, D, E, U, n, INFO )
      stop
      end
SHAR_EOF
if test -f 'main.c'
then
	echo shar: over-writing existing file "'main.c'"
fi
cat << \SHAR_EOF > 'main.c'
#include "mapi.h"

main(argc, argv)
  int   argc;
  char *argv[];
{
  int i, j;

  if (argc > 4)
    number_of_arrays = 3;
  else
    number_of_arrays = argc - 1;
  for (i = 1; i <= number_of_arrays; i++)
    {
      arrays[i] = argv[i];
      for (j = 0; *(arrays[i]+j) != '\0'; j++)
        *(arrays[i]+j) = to_upper(*(arrays[i]+j));
    }
  process_input();
}
SHAR_EOF
if test -f 'makefile'
then
	echo shar: over-writing existing file "'makefile'"
fi
cat << \SHAR_EOF > 'makefile'
CFLAGS = -g
LFLAGS =

OBJS = main.o \
       process_input.o \
       get_next_line.o \
       remove_blanks.o \
       sub_call.o \
       add_new_parameters.o \
       assignment.o \
       do_initial_stuff.o \
       to_upper.o
LIBS =
SUBDIRS = lib

all : mapi libmapi

mapi : $(OBJS)
	cc $(CFLAGS) $(LFLAGS) -o mapi $(OBJS) $(LIBS)

libmapi:
	@case '${MFLAGS}' in *[ik]*) set +e;; esac; \
	for i in $(SUBDIRS);\
	do \
	(cd $$i ; echo "making $$i"; \
	make  $(MFLAGS)); \
	done

clean:
	rm -f *.o *~

.c.o:
	cc $(CFLAGS) -c $*.c

SHAR_EOF
if test -f 'mapi.h'
then
	echo shar: over-writing existing file "'mapi.h'"
fi
cat << \SHAR_EOF > 'mapi.h'
#include <stdio.h>

#define LINE_LENGTH  82
#define FALSE 0
#define TRUE  1

FILE *in_file, *out_file;
char to_upper();
char *arrays[4];
int  number_of_arrays;
int  just_started;
char base_name[81];

SHAR_EOF
if test -f 'process_input.c'
then
	echo shar: over-writing existing file "'process_input.c'"
fi
cat << \SHAR_EOF > 'process_input.c'
#include "mapi.h"

process_input()
{
  int  c, i, j, number, flag, equal_flag, parentheses_count;
  char line[20][LINE_LENGTH], next_line[LINE_LENGTH];
  char statement[20][LINE_LENGTH];

  just_started = TRUE;
  flag = get_next_line(&line[0][0]);
  while (flag != EOF)
    {
      number = 0;
      switch (to_upper(line[0][1]))
        {
          case 'C':
          case 'D':
          case '*':
          case '\n':
            flag = get_next_line(next_line);
            break;
          default:
            remove_blanks(&line[0][0], &statement[0][0]);
            flag = get_next_line(next_line);
            while (flag != EOF  &&  to_upper(next_line[1]) != 'C'  &&
                   next_line[6] != ' '  &&  next_line[6] != '0')
              {
                number++;
                i = 0;
                do
                  c = line[number][++i] = next_line[i];
                while (c != '\n');
                remove_blanks(&line[number][0], &statement[number][0]);
                flag = get_next_line(next_line);
              }
            /* Add check for IF statement; i.e IF (A(I,J).EQ.0) */
            /* Also check for IF (...) CALL SUB */
            if (to_upper(statement[0][7])  == 'I'  &&
                to_upper(statement[0][8])  == 'F'  &&
                         statement[0][9]   == '(')
              {
                parentheses_count = 1;
                i = 0;
                j = 9;
                do
                  {
                    switch (c = statement[i][++j])
                      {
                        case '\n':
                          i++;
                          j = 6;
                          break;
                        case '(':
                          parentheses_count++;
                          break;
                        case ')':
                          parentheses_count--;
                          break;
                      }
                  }
                while (parentheses_count > 0);
                if (statement[i][j+1] == '\n')
                  {
                    i++;
                    j = 6;
                  }
                if (to_upper(statement[i][j+1]) == 'C'  &&
                    to_upper(statement[i][j+2]) == 'A'  &&
                    to_upper(statement[i][j+3]) == 'L'  &&
                    to_upper(statement[i][j+4]) == 'L')
                  sub_call(&line[0][0], &statement[0][0], &number);
              }
            if (to_upper(statement[0][7])  == 'D'  &&
                to_upper(statement[0][8])  == 'O'  &&
                         statement[0][9]   >= '0'  &&
                         statement[0][10]  <= '9')
              if (just_started)  /* We've reached the executable statements. */
                do_initial_stuff();
            if (to_upper(statement[0][7])  == 'C'  &&
                to_upper(statement[0][8])  == 'A'  &&
                to_upper(statement[0][9])  == 'L'  &&
                to_upper(statement[0][10]) == 'L')
              sub_call(&line[0][0], &statement[0][0], &number);
            else      /* Check for equals sign. */
              {
                equal_flag = FALSE;
                for (i = 0; i <= number; i++)
                  for (j = 1; (c = line[i][j]) != '\n'; j++)
                    if (c == '=') equal_flag = TRUE;
                if (equal_flag)
                  {
                    if (to_upper(statement[0][7])  == 'O'  &&
                        to_upper(statement[0][8])  == 'P'  &&
                        to_upper(statement[0][9])  == 'E'  &&
                        to_upper(statement[0][10]) == 'N'  &&
                        to_upper(statement[0][11]) == '(')
                      ;
                    else if (to_upper(statement[0][7])  == 'D'  &&
                             to_upper(statement[0][8])  == 'O')
                      ;
                    else
                      assignment(&line[0][0], &statement[0][0], &number);
                  }
              }
            break;
        }
      /* Output the possibly modified line. */
      for (i = 0; i <= number; i++)
        {
          j = 0;
          do
            putchar(c = line[i][++j]);
          while (c != '\n');
        }
      if (flag != EOF)
        {
          i = 0;
          do
            c = line[0][++i] = next_line[i];
          while (c != '\n');
        }
    }
}
SHAR_EOF
if test -f 'remove_blanks.c'
then
	echo shar: over-writing existing file "'remove_blanks.c'"
fi
cat << \SHAR_EOF > 'remove_blanks.c'
#include "mapi.h"

int remove_blanks(input_line, output_line)
  char *input_line, *output_line;
/*
  Remove all blanks & tabs from column 7 through the end of the line.
*/
{
  int i, j, c;

  for (i = 1; i < 7; i++)
    *(output_line+i) = *(input_line+i);
  i = j = 6;
  do
    if (((c = *(input_line+(++i))) != ' ')  &&  (c != '\t'))
      *(output_line+(++j)) = c;
  while (c != '\n');
  *(output_line+(++j)) = 0;
}
SHAR_EOF
if test -f 'sub_call.c'
then
	echo shar: over-writing existing file "'sub_call.c'"
fi
cat << \SHAR_EOF > 'sub_call.c'
#include "mapi.h"

int sub_call(original_line, line, number)
  char original_line[][LINE_LENGTH], line[][LINE_LENGTH];
  int  *number;
{
  int  i, line_number, parentheses_count, parameters[3], dim[3];
  char c;

  if (to_upper(line[0][7]) == 'I'  &&
      to_upper(line[0][8]) == 'F'  &&
               line[0][9]  == '(')
    { /* Locate the beginning of the call. */
      i = 9;
      line_number = 0;
      parentheses_count = 1;
      do
        switch (c = line[line_number][++i])
          {
            case '\n':
              line_number++;
              i = 6;
              break;
            case '(':
              parentheses_count++;
              break;
            case ')':
              parentheses_count--;
              break;
          }
      while (parentheses_count > 0);
      if (line[line_number][++i] == '\n')
        {
          line_number++;
          i = 10;
        }
    }  /* We want i to point to the last 'l' in "call". */
  else
    {
      i = 10;
      line_number = 0;
    }
  if (to_upper(line[line_number][i+1]) != 'S'  &&
      to_upper(line[line_number][i+1]) != 'D')
  ;
  else
  if (to_upper(line[line_number][i+2]) == 'G'  &&
      to_upper(line[line_number][i+3]) == 'E'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'M')
    {
      parameters[0] = 6;   dim[0] = 2;
      parameters[1] = 8;   dim[1] = 2;
      parameters[2] = 11;  dim[2] = 2;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'Y'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'M')
    {
      parameters[0] = 6;   dim[0] = 2;
      parameters[1] = 8;   dim[1] = 2;
      parameters[2] = 11;  dim[2] = 2;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'Y'  &&
      to_upper(line[line_number][i+4]) == 'R'  &&
      to_upper(line[line_number][i+5]) == 'K')
    {
      parameters[0] = 5;   dim[0] = 2;
      parameters[1] = 8;   dim[1] = 2;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'Y'  &&
      to_upper(line[line_number][i+4]) == 'R'  &&
      to_upper(line[line_number][i+5]) == '2'  &&
      to_upper(line[line_number][i+6]) == 'K')
    {
      parameters[0] = 5;    dim[0] = 2;
      parameters[1] = 7;    dim[1] = 2;
      parameters[2] = 10;   dim[2] = 2;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'T'  &&
      to_upper(line[line_number][i+3]) == 'R'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'M')
    {
      parameters[0] = 6;   dim[0] = 2;
      parameters[1] = 8;   dim[1] = 2;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'T'  &&
      to_upper(line[line_number][i+3]) == 'R'  &&
      to_upper(line[line_number][i+4]) == 'S'  &&
      to_upper(line[line_number][i+5]) == 'M')
    {
      parameters[0] = 6;   dim[0] = 2;
      parameters[1] = 8;   dim[1] = 2;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  /* Level-2 BLAS */
  else
  if (to_upper(line[line_number][i+2]) == 'G'  &&
      to_upper(line[line_number][i+3]) == 'E'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 4;   dim[0] = 2;
      parameters[1] = 6;   dim[1] = 1;
      parameters[2] = 9;   dim[2] = 1;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'G'  &&
      to_upper(line[line_number][i+3]) == 'B'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 6;   dim[0] = 2;
      parameters[1] = 8;   dim[1] = 1;
      parameters[2] = 11;  dim[2] = 1;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'Y'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 3;   dim[0] = 2;
      parameters[1] = 5;   dim[1] = 1;
      parameters[2] = 8;   dim[2] = 1;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'B'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 4;   dim[0] = 2;
      parameters[1] = 6;   dim[1] = 1;
      parameters[2] = 9;   dim[2] = 1;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'T'  &&
      to_upper(line[line_number][i+3]) == 'R'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 4;   dim[0] = 2;
      parameters[1] = 6;   dim[1] = 1;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'T'  &&
      to_upper(line[line_number][i+3]) == 'B'  &&
      to_upper(line[line_number][i+4]) == 'M'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 5;   dim[0] = 2;
      parameters[1] = 7;   dim[1] = 1;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'T'  &&
      to_upper(line[line_number][i+3]) == 'R'  &&
      to_upper(line[line_number][i+4]) == 'S'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 4;   dim[0] = 2;
      parameters[1] = 6;   dim[1] = 1;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'T'  &&
      to_upper(line[line_number][i+3]) == 'B'  &&
      to_upper(line[line_number][i+4]) == 'S'  &&
      to_upper(line[line_number][i+5]) == 'V')
    {
      parameters[0] = 5;   dim[0] = 2;
      parameters[1] = 7;   dim[1] = 1;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'G'  &&
      to_upper(line[line_number][i+3]) == 'E'  &&
      to_upper(line[line_number][i+4]) == 'R')
    {
      parameters[0] = 3;   dim[0] = 1;
      parameters[1] = 5;   dim[1] = 1;
      parameters[2] = 7;   dim[2] = 2;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'Y'  &&
      to_upper(line[line_number][i+4]) == 'R'  &&
      to_upper(line[line_number][i+5]) == '(')
    {
      parameters[0] = 3;   dim[0] = 1;
      parameters[1] = 5;   dim[1] = 2;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'Y'  &&
      to_upper(line[line_number][i+4]) == 'R'  &&
      to_upper(line[line_number][i+5]) == '2'  &&
      to_upper(line[line_number][i+6]) == '(')
    {
      parameters[0] = 3;   dim[0] = 1;
      parameters[1] = 5;   dim[1] = 1;
      parameters[2] = 7;   dim[2] = 2;
      add_new_parameters(original_line, line, number, 3, parameters, dim);
    }
  /* Level-1 BLAS */
  else
  if (to_upper(line[line_number][i+2]) == 'A'  &&
      to_upper(line[line_number][i+3]) == 'X'  &&
      to_upper(line[line_number][i+4]) == 'P'  &&
      to_upper(line[line_number][i+5]) == 'Y')
    {
      parameters[0] = 2;   dim[0] = 1;
      parameters[1] = 4;   dim[1] = 1;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'C'  &&
      to_upper(line[line_number][i+3]) == 'O'  &&
      to_upper(line[line_number][i+4]) == 'P'  &&
      to_upper(line[line_number][i+5]) == 'Y')
    {
      parameters[0] = 1;   dim[0] = 1;
      parameters[1] = 3;   dim[1] = 1;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'C'  &&
      to_upper(line[line_number][i+4]) == 'A'  &&
      to_upper(line[line_number][i+5]) == 'L')
    {
      parameters[0] = 2;   dim[0] = 1;
      add_new_parameters(original_line, line, number, 1, parameters, dim);
    }
  else
  if (to_upper(line[line_number][i+2]) == 'S'  &&
      to_upper(line[line_number][i+3]) == 'W'  &&
      to_upper(line[line_number][i+4]) == 'A'  &&
      to_upper(line[line_number][i+5]) == 'P')
    {
      parameters[0] = 1;   dim[0] = 1;
      parameters[1] = 3;   dim[1] = 1;
      add_new_parameters(original_line, line, number, 2, parameters, dim);
    }
}
SHAR_EOF
if test -f 'to_upper.c'
then
	echo shar: over-writing existing file "'to_upper.c'"
fi
cat << \SHAR_EOF > 'to_upper.c'
#include "mapi.h"

char to_upper(c)
  char c;
{
/*
  If c is a lower case letter, return the upper case equivalent.
*/
  if (c >= 'a'  &&  c <= 'z')
    return(c - 'a' + 'A');
  else
    return(c);
}
SHAR_EOF
if test ! -d 'lib'
then
	mkdir 'lib'
fi
cd 'lib'
if test -f 'README'
then
	echo shar: over-writing existing file "'README'"
fi
cat << \SHAR_EOF > 'README'

	This subdirectory contains the FORTRAN source code for the
modified BLAS and other routines that are used to output memory
access information on arrays to a trace file. The trace file will have
the name memory.trace.
The modified BLAS are perfectly functional with respect
to the normal BLAS. All the routines are in libmapi.a, so the
FORTRAN program produced by MAPI should be linked
with this library.
SHAR_EOF
if test -f 'init.f'
then
	echo shar: over-writing existing file "'init.f'"
fi
cat << \SHAR_EOF > 'init.f'
      subroutine init(id,i,j)
      write(3,*)0,id,i,j
      return
      end
SHAR_EOF
if test -f 'isamax.f'
then
	echo shar: over-writing existing file "'isamax.f'"
fi
cat << \SHAR_EOF > 'isamax.f'
      integer function isamax(n,sx,incx)
c
c     finds the index of element having max. absolute value.
c     jack dongarra, linpack, 3/11/78.
c
      real sx(1),smax
      integer i,incx,ix,n
c
      isamax = 0
      if( n .lt. 1 ) return
      isamax = 1
      if(n.eq.1)return
      if(incx.eq.1)go to 20
c
c        code for increment not equal to 1
c
      ix = 1
      smax = abs(sx(1))
      ix = ix + incx
      do 10 i = 2,n
         if(abs(sx(ix)).le.smax) go to 5
         isamax = i
         smax = abs(sx(ix))
    5    ix = ix + incx
   10 continue
      return
c
c        code for increment equal to 1
c
   20 smax = abs(sx(1))
      do 30 i = 2,n
         if(abs(sx(i)).le.smax) go to 30
         isamax = i
         smax = abs(sx(i))
   30 continue
      return
      end
SHAR_EOF
if test -f 'lsame.f'
then
	echo shar: over-writing existing file "'lsame.f'"
fi
cat << \SHAR_EOF > 'lsame.f'
      LOGICAL FUNCTION LSAME ( CA, CB )
*     .. Scalar Arguments ..
      CHARACTER*1            CA, CB
*     ..
*
*  Purpose
*  =======
*
*  LSAME  tests if CA is the same letter as CB regardless of case.
*  CB is assumed to be an upper case letter. LSAME returns .TRUE. if
*  CA is either the same as CB or the equivalent lower case letter.
*
*  N.B. This version of the routine is only correct for ASCII code.
*       Installers must modify the routine for other character-codes.
*
*       For EBCDIC systems the constant IOFF must be changed to -64.
*       For CDC systems using 6-12 bit representations, the system-
*       specific code in comments must be activated.
*
*  Parameters
*  ==========
*
*  CA     - CHARACTER*1
*  CB     - CHARACTER*1
*           On entry, CA and CB specify characters to be compared.
*           Unchanged on exit.
*
*
*  Auxiliary routine for Level 2 Blas.
*
*  -- Written on 20-July-1986
*     Richard Hanson, Sandia National Labs.
*     Jeremy Du Croz, Nag Central Office.
*
*     .. Parameters ..
      INTEGER                IOFF
      PARAMETER            ( IOFF=32 )
*     .. Intrinsic Functions ..
      INTRINSIC              ICHAR
*     .. Executable Statements ..
*
*     Test if the characters are equal
*
      LSAME = CA .EQ. CB
*
*     Now test for equivalence
*
      IF ( .NOT.LSAME ) THEN
         LSAME = ICHAR(CA) - IOFF .EQ. ICHAR(CB)
      END IF
*
      RETURN
*
*  The following comments contain code for CDC systems using 6-12 bit
*  representations.
*
*     .. Parameters ..
*     INTEGER                ICIRFX
*     PARAMETER            ( ICIRFX=62 )
*     .. Scalar Arguments ..
*     CHARACTER*1            CB
*     .. Array Arguments ..
*     CHARACTER*1            CA(*)
*     .. Local Scalars ..
*     INTEGER                IVAL
*     .. Intrinsic Functions ..
*     INTRINSIC              ICHAR, CHAR
*     .. Executable Statements ..
*
*     See if the first character in string CA equals string CB.
*
*     LSAME = CA(1) .EQ. CB .AND. CA(1) .NE. CHAR(ICIRFX)
*
*     IF (LSAME) RETURN
*
*     The characters are not identical. Now check them for equivalence.
*     Look for the 'escape' character, circumflex, followed by the
*     letter.
*
*     IVAL = ICHAR(CA(2))
*     IF (IVAL.GE.ICHAR('A') .AND. IVAL.LE.ICHAR('Z')) THEN
*        LSAME = CA(1) .EQ. CHAR(ICIRFX) .AND. CA(2) .EQ. CB
*     END IF
*
*     RETURN
*
*     End of LSAME.
*
      END
SHAR_EOF
if test -f 'makefile'
then
	echo shar: over-writing existing file "'makefile'"
fi
cat << \SHAR_EOF > 'makefile'
CFLAGS = -g
FFLAGS = -g
AFLAGS = qv

OBJS = msaxpy.o \
       mscopy.o \
       msgemm.o \
       msgemv.o \
       msscal.o \
       msswap.o \
       mssymm.o \
       mssymv.o \
       mssyr.o \
       mssyrk.o \
       mssyr2k.o \
       mstrmm.o \
       mstrmv.o \
       mstrsm.o \
       mstrsv.o \
       sgetf2.o \
       isamax.o \
        saxpy.o \
        scopy.o \
        sgemv.o \
        sscal.o \
        sswap.o \
        strsv.o \
         init.o \
            r.o \
            w.o \
          ops.o \
       xerbla.o \
        lsame.o \
       matgen.o \
       second.o \
       mclock.o

libmapi : $(OBJS)
	rm -f libmapi.a
	ar $(AFLAGS) libmapi.a $(OBJS)
	ranlib libmapi.a

clean:
	rm -f  *.o *~

.f.o:
	f77 $(FFLAGS) -c $*.f

.c.o:
	cc $(CFLAGS) -c $*.c

SHAR_EOF
if test -f 'matgen.f'
then
	echo shar: over-writing existing file "'matgen.f'"
fi
cat << \SHAR_EOF > 'matgen.f'
      subroutine matgen(a,lda,m,n)
c
      real a(lda,*)
c
      data init /3125/

      do 20 j = 1,n
         do 10 i = 1,m
            init = mod(3125*init,65536)
            a(i,j) = (init - 32768.0)/16384.0
   10    continue
   20 continue
      return
      end
SHAR_EOF
if test -f 'mclock.c'
then
	echo shar: over-writing existing file "'mclock.c'"
fi
cat << \SHAR_EOF > 'mclock.c'
long mclock_()
  {
  long  buf[4];
  times(buf);
  return(buf[0]);
  }
SHAR_EOF
if test -f 'msaxpy.f'
then
	echo shar: over-writing existing file "'msaxpy.f'"
fi
cat << \SHAR_EOF > 'msaxpy.f'
      subroutine msaxpy(n,sa,sx,incx,sy,incy,idx,ix,jx,idy,iy,jy)
c
c     output the memory access patterns for saxpy.
c     orlie brewer, anl, 3/14/88
c
      real sx(1),sy(1),sa
      integer incx,incy,idx,idy,ix,jx,iy,jy,n
      if(n.eq.0) go to 40
c
c     check the x vector.
c
      if(incx.eq.1)go to 10
c
c     incx.ne.1 => sx is a row vector of a matrix.
c
      call r(idx,ix,ix,jx,jx+n-1)
      go to 20
c
c     incx.eq.1 => sx is a column vector of a matrix.
c
10    continue
      call r(idx,ix,ix+n-1,jx,jx)
c
c     check the y vector.
c
20    continue
      if(incy.eq.1)go to 30
c
c     incy.ne.1 => sy is a row vector of a matrix.
c
      call r(idy,iy,iy,jy,jy+n-1)
      call w(idy,iy,iy,jy,jy+n-1)
      go to 40
c
c     incy.eq.1 => sy is a column vector of a matrix.
c
30    continue
      call r(idy,iy,iy+n-1,jy,jy)
      call w(idy,iy,iy+n-1,jy,jy)
40    continue
      call saxpy(n,sa,sx,incx,sy,incy)
      return
      end
SHAR_EOF
if test -f 'mscopy.f'
then
	echo shar: over-writing existing file "'mscopy.f'"
fi
cat << \SHAR_EOF > 'mscopy.f'
      subroutine mscopy(n,sx,incx,sy,incy,idx,ix,jx,idy,iy,jy)
c
c     output the memory access patterns for scopy.
c     orlie brewer, anl, 3/14/88
c
      real sx(1),sy(1)
      integer incx,incy,idx,idy,ix,jx,iy,jy,n
      if(n.eq.0) go to 40
c
c     check the x vector.
c
      if(incx.eq.1)go to 10
c
c     incx.ne.1 => sx is a row vector of a matrix.
c
      call r(idx,ix,ix,jx,jx+n-1)
      go to 20
c
c     incx.eq.1 => sx is a column vector of a matrix.
c
10    continue
      call r(idx,ix,ix+n-1,jx,jx)
c
c     check the y vector.
c
20    continue
      if(incy.eq.1)go to 30
c
c     incy.ne.1 => sy is a row vector of a matrix.
c
      call w(idy,iy,iy,jy,jy+n-1)
      go to 40
c
c     incy.eq.1 => sy is a column vector of a matrix.
c
30    continue
      call w(idy,iy,iy+n-1,jy,jy)
40    continue
      call scopy(n,sx,incx,sy,incy)
      return
      end
SHAR_EOF
if test -f 'msgemm.f'
then
	echo shar: over-writing existing file "'msgemm.f'"
fi
cat << \SHAR_EOF > 'msgemm.f'
*
      SUBROUTINE mSGEMM ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B,LDB,
     $                   BETA, C, LDC ,ida,ia,ja,idb,ib,jb,idc,ic,jc)
*     .. Scalar Arguments ..
      REAL               ALPHA, BETA
      INTEGER            M, N, K, LDA, LDB, LDC
      CHARACTER*1        TRANSA, TRANSB
*     .. Array Arguments ..
      REAL               A( LDA, * ), B( LDB, * ), C( LDC, * )
*     ..
*
*  Purpose
*  =======
*
*  SGEMM  performs one of the matrix-matrix operations
*
*     C := alpha*op( A )*op( B ) + beta*C,
*
*  where  op( X ) is one of
*
*     op( X ) = X   or   op( X ) = X',
*
*  alpha and beta are scalars, and A, B and C are matrices, with op( A )
*  an m by k matrix,  op( B )  a  k by n matrix and  C an m by n matrix.
*
*  Parameters
*  ==========
*
*  TRANSA - CHARACTER*1.
*           On entry, TRANSA specifies the form of op( A ) to be used in
*           the matrix multiplication as follows:
*
*              TRANSA = 'N' or 'n',  op( A ) = A.
*
*              TRANSA = 'T' or 't',  op( A ) = A'.
*
*              TRANSA = 'C' or 'c',  op( A ) = A'.
*
*           Unchanged on exit.
*
*  TRANSB - CHARACTER*1.
*           On entry, TRANSB specifies the form of op( B ) to be used in
*           the matrix multiplication as follows:
*
*              TRANSA = 'N' or 'n',  op( B ) = B.
*
*              TRANSA = 'T' or 't',  op( B ) = B'.
*
*              TRANSA = 'C' or 'c',  op( B ) = B'.
*
*           Unchanged on exit.
*
*  M      - INTEGER.
*           On entry,  M  specifies  the number  of rows  of the  matrix
*           op( A )  and of the  matrix  C.  M  must  be at least  zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry,  N  specifies the number  of columns of the matrix
*           op( B ) and the number of columns of the matrix C. N must be
*           at least zero.
*           Unchanged on exit.
*
*  K      - INTEGER.
*           On entry,  K  specifies  the number of columns of the matrix
*           op( A ) and the number of rows of the matrix op( B ). K must
*           be at least  zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, ka ), where ka is
*           k  when  TRANSA = 'N' or 'n',  and is  m  otherwise.
*           Before entry with  TRANSA = 'N' or 'n',  the leading  m by k
*           part of the array  A  must contain the matrix  A,  otherwise
*           the leading  k by m  part of the array  A  must contain  the
*           matrix A.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. When  TRANSA = 'N' or 'n' then
*           LDA must be at least  max( 1, m ), otherwise  LDA must be at
*           least  max( 1, k ).
*           Unchanged on exit.
*
*  B      - REAL             array of DIMENSION ( LDB, kb ), where kb is
*           n  when  TRANSB = 'N' or 'n',  and is  k  otherwise.
*           Before entry with  TRANSB = 'N' or 'n',  the leading  k by n
*           part of the array  B  must contain the matrix  B,  otherwise
*           the leading  n by k  part of the array  B  must contain  the
*           matrix B.
*           Unchanged on exit.
*
*  LDB    - INTEGER.
*           On entry, LDB specifies the first dimension of B as declared
*           in the calling (sub) program. When  TRANSB = 'N' or 'n' then
*           LDB must be at least  max( 1, k ), otherwise  LDB must be at
*           least  max( 1, n ).
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry,  BETA  specifies the scalar  beta.  When  BETA  is
*           supplied as zero then C need not be set on input.
*           Unchanged on exit.
*
*  C      - REAL             array of DIMENSION ( LDC, n ).
*           Before entry, the leading  m by n  part of the array  C must
*           contain the matrix  C,  except when  beta  is zero, in which
*           case C need not be set on entry.
*           On exit, the array  C  is overwritten by the  m by n  matrix
*           ( alpha*op( A )*op( B ) + beta*C ).
*
*  LDC    - INTEGER.
*           On entry, LDC specifies the first dimension of C as declared
*           in  the  calling  (sub)  program.   LDC  must  be  at  least
*           max( 1, m ).
*           Unchanged on exit.
*
*
*  Level 3 Blas routine.
*
*  -- Written on 30-April-1987.
*     Sven Hammarling, Nag Central Office.
*
*
*     .. Parameters ..
      REAL               ONE  ,         ZERO
      PARAMETER        ( ONE  = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      INTEGER            I, INFO, J, NCOLA, NROWA, NROWB
      LOGICAL            NOTA, NOTB
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           SGEMV, XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Set  NOTA  and  NOTB  as  true if  A  and  B  respectively are not
*     transposed, and set  NROWA, NCOLA and  NROWB as the number of rows
*     and  columns  of  A  and the  number of rows  of  B  respectively.
*
      NOTA = LSAME( TRANSA, 'N' )
      NOTB = LSAME( TRANSB, 'N' )
      IF( NOTA )THEN
         NROWA = M
         NCOLA = K
      ELSE
         NROWA = K
         NCOLA = M
      END IF
      IF( NOTB )THEN
         NROWB = K
      ELSE
         NROWB = N
      END IF
*
*     Test the input parameters.
*
      INFO = 0
      IF(      ( .NOT.NOTA                 ).AND.
     $         ( .NOT.LSAME( TRANSA, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANSA, 'C' ) )      )THEN
         INFO = 1
      ELSE IF( ( .NOT.NOTB                 ).AND.
     $         ( .NOT.LSAME( TRANSB, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANSB, 'C' ) )      )THEN
         INFO = 2
      ELSE IF( M.LT.0 )THEN
         INFO = 3
      ELSE IF( N.LT.0 )THEN
         INFO = 4
      ELSE IF( K.LT.0 )THEN
         INFO = 5
      ELSE IF( LDA.LT.MAX( 1, NROWA ) )THEN
         INFO = 8
      ELSE IF( LDB.LT.MAX( 1, NROWB ) )THEN
         INFO = 10
      ELSE IF( LDC.LT.MAX( 1, M ) )THEN
         INFO = 13
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SGEMM ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( M.EQ.0 ).OR.( N.EQ.0 ).OR.
     $    ( ( ( ALPHA.EQ.ZERO ).or.( K.EQ.0 ) ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     Start the operations.
*
      call ops(idc,2*n*m*k,'sgemm')
      if( transa .eq. 'n' .or. transa .eq. 'N' ) then
          call r(ida,ia,ia+nrowa-1,ja,ja+ncola-1)
      else
          call r(ida,ia,ia+nrowa-1,ja,ja+ncola-1)
      endif
      if( transb .eq. 'n' .or. transb .eq. 'N' ) then
         call r(idb,ib,ib+nrowb-1,jb,jb+n-1)
      else
         call r(idb,ib,ib+n-1,jb,jb+ncola-1)
      endif
      call r(idc,ic,ic+m-1,jc,jc+n-1)
      call w(idc,ic,ic+m-1,jc,jc+n-1)
      IF( K.EQ.0 )THEN
*
*        Form  C := beta*C.
*
         IF( BETA.EQ.ZERO )THEN
            DO 20, J = 1, N
               DO 10, I = 1, M
                  C( I, J ) = ZERO
   10          CONTINUE
   20       CONTINUE
         ELSE
            DO 40, J = 1, N
               DO 30, I = 1, M
                  C( I, J ) = BETA*C( I, J )
   30          CONTINUE
   40       CONTINUE
         END IF
      ELSE IF( NOTB )THEN
*
*        Form  C := alpha*op( A )*B + beta*C.
*
         DO 50, J = 1, N
            CALL SGEMV ( TRANSA, NROWA, NCOLA,
     $                   ALPHA, A, LDA, B( 1, J ), 1,
     $                   BETA, C( 1, J ), 1 )
   50    CONTINUE
      ELSE
*
*        Form  C := alpha*op( A )*B' + beta*C.
*
         DO 60, J = 1, N
            CALL SGEMV ( TRANSA, NROWA, NCOLA,
     $                   ALPHA, A, LDA, B( J, 1 ), LDB,
     $                   BETA, C( 1, J ), 1 )
   60    CONTINUE
      END IF
*
      RETURN
*
*     End of SGEMM .
*
      END
SHAR_EOF
if test -f 'msgemv.f'
then
	echo shar: over-writing existing file "'msgemv.f'"
fi
cat << \SHAR_EOF > 'msgemv.f'
      SUBROUTINE mSGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY ,
     $                   ida,ia,ja,idx,ixx,jxx,idy,iyy,jyy)
*     .. Scalar Arguments ..
      REAL               ALPHA, BETA
      INTEGER            INCX, INCY, LDA, M, N
      CHARACTER*1        TRANS
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose
*  =======
*
*  SGEMV  performs one of the matrix-vector operations
*
*     y := alpha*A*x + beta*y,   or   y := alpha*A'*x + beta*y,
*
*  where alpha and beta are scalars, x and y are vectors and A is an
*  m by n matrix.
*
*  Parameters
*  ==========
*
*  TRANS  - CHARACTER*1.
*           On entry, TRANS specifies the operation to be performed as
*           follows:
*
*              TRANS = 'N' or 'n'   y := alpha*A*x + beta*y.
*
*              TRANS = 'T' or 't'   y := alpha*A'*x + beta*y.
*
*              TRANS = 'C' or 'c'   y := alpha*A'*x + beta*y.
*
*           Unchanged on exit.
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of the matrix A.
*           M must be at least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry, the leading m by n part of the array A must
*           contain the matrix of coefficients.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, m ).
*           Unchanged on exit.
*
*  X      - REAL             array of DIMENSION at least
*           ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*           and at least
*           ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
*           Before entry, the incremented array X must contain the
*           vector x.
*           Unchanged on exit.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry, BETA specifies the scalar beta. When BETA is
*           supplied as zero then Y need not be set on input.
*           Unchanged on exit.
*
*  Y      - REAL             array of DIMENSION at least
*           ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*           and at least
*           ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
*           Before entry with BETA non-zero, the incremented array Y
*           must contain the vector y. On exit, Y is overwritten by the
*           updated vector y.
*
*  INCY   - INTEGER.
*           On entry, INCY specifies the increment for the elements of
*           Y. INCY must not be zero.
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ONE         , ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP
      INTEGER            I, INFO, IX, IY, J, JX, JY, KX, KY, LENX, LENY
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( TRANS, 'N' ).AND.
     $         .NOT.LSAME( TRANS, 'T' ).AND.
     $         .NOT.LSAME( TRANS, 'C' )      )THEN
         INFO = 1
      ELSE IF( M.LT.0 )THEN
         INFO = 2
      ELSE IF( N.LT.0 )THEN
         INFO = 3
      ELSE IF( LDA.LT.MAX( 1, M ) )THEN
         INFO = 6
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 8
      ELSE IF( INCY.EQ.0 )THEN
         INFO = 11
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SGEMV ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( M.EQ.0 ).OR.( N.EQ.0 ).OR.
     $    ( ( ALPHA.EQ.ZERO ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     Set  LENX  and  LENY, the lengths of the vectors x and y, and set
*     up the start points in  X  and  Y.
*
      IF( LSAME( TRANS, 'N' ) )THEN
         LENX = N
         LENY = M
      ELSE
         LENX = M
         LENY = N
      END IF
      IF( INCX.GT.0 )THEN
         KX = 1
      ELSE
         KX = 1 - ( LENX - 1 )*INCX
      END IF
      IF( INCY.GT.0 )THEN
         KY = 1
      ELSE
         KY = 1 - ( LENY - 1 )*INCY
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through A.
*
*     First form  y := beta*y.
*
      call ops(ida,2*n*m,'sgemv')
      IF( BETA.NE.ONE )THEN
         IF( INCY.EQ.1 )THEN
            IF( BETA.EQ.ZERO )THEN
               DO 10, I = 1, LENY
                  Y( I ) = ZERO
   10          CONTINUE
            ELSE
               DO 20, I = 1, LENY
                  Y( I ) = BETA*Y( I )
   20          CONTINUE
            END IF
         ELSE
            IY = KY
            IF( BETA.EQ.ZERO )THEN
               DO 30, I = 1, LENY
                  Y( IY ) = ZERO
                  IY      = IY   + INCY
   30          CONTINUE
            ELSE
               DO 40, I = 1, LENY
                  Y( IY ) = BETA*Y( IY )
                  IY      = IY           + INCY
   40          CONTINUE
            END IF
         END IF
      END IF
      IF( ALPHA.EQ.ZERO )
     $   RETURN
      IF( LSAME( TRANS, 'N' ) )THEN
*
*        Form  y := alpha*A*x + y.
*
         JX = KX
         IF( INCY.EQ.1 )THEN
            DO 60, J = 1, N
               IF( X( JX ).NE.ZERO )THEN
                  TEMP = ALPHA*X( JX )
                  DO 50, I = 1, M
                     Y( I ) = Y( I ) + TEMP*A( I, J )
   50             CONTINUE
               END IF
               JX = JX + INCX
   60       CONTINUE
         ELSE
            DO 80, J = 1, N
               IF( X( JX ).NE.ZERO )THEN
                  TEMP = ALPHA*X( JX )
                  IY   = KY
                  DO 70, I = 1, M
                     Y( IY ) = Y( IY ) + TEMP*A( I, J )
                     IY      = IY      + INCY
   70             CONTINUE
               END IF
               JX = JX + INCX
   80       CONTINUE
         END IF
         call r(ida,ia,ia+m-1,ja,ja+n-1)
         if( incx .eq. 1 ) then 
            call r(idx,ixx,ixx+n-1,jxx,jxx)
         else
            call r(idx,ixx,ixx,jxx,jxx+n-1)
         endif
         if( incy .eq. 1 ) then
            call r(idy,iyy,iyy+m-1,jyy,jyy)
            call w(idy,iyy,iyy+m-1,jyy,jyy)
         else
            call r(idy,iyy,iyy,jyy,jyy+m-1)
            call w(idy,iyy,iyy,jyy,jyy+m-1)
         endif
      ELSE
*
*        Form  y := alpha*A'*x + y.
*
         JY = KY
         IF( INCX.EQ.1 )THEN
            DO 100, J = 1, N
               TEMP = ZERO
               DO 90, I = 1, M
                  TEMP = TEMP + A( I, J )*X( I )
   90          CONTINUE
               Y( JY ) = Y( JY ) + ALPHA*TEMP
               JY      = JY      + INCY
  100       CONTINUE
         ELSE
            DO 120, J = 1, N
               TEMP = ZERO
               IX   = KX
               DO 110, I = 1, M
                  TEMP = TEMP + A( I, J )*X( IX )
                  IX   = IX   + INCX
  110          CONTINUE
               Y( JY ) = Y( JY ) + ALPHA*TEMP
               JY      = JY      + INCY
  120       CONTINUE
         END IF
         call r(ida,ia,ia+m-1,ja,ja+n-1)
         if( incx .eq. 1 ) then 
            call r(idx,ixx,ixx+m-1,jxx,jxx)
         else
            call r(idx,ixx,ixx,jxx,jxx+m-1)
         endif
         if( incy .eq. 1 ) then
            call r(idy,iyy,iyy+n-1,jyy,jyy)
            call w(idy,iyy,iyy+n-1,jyy,jyy)
         else
            call r(idy,iyy,iyy,jyy,jyy+n-1)
            call w(idy,iyy,iyy,jyy,jyy+n-1)
         endif
      END IF
*
      RETURN
*
*     End of SGEMV .
*
      END
SHAR_EOF
if test -f 'msscal.f'
then
	echo shar: over-writing existing file "'msscal.f'"
fi
cat << \SHAR_EOF > 'msscal.f'
      subroutine msscal(n,sa,sx,incx,idx,ix,jx)
c
c     output the memory access patterns for sscal.
c     orlie brewer, anl, 3/14/88
c
      real sx(1),sa
      integer incx,idx,ix,jx,n
      if(n.eq.0) go to 20
c
c     check the x vector.
c
      if(incx.eq.1)go to 10
c
c     incx.ne.1 => sx is a row vector of a matrix.
c
      call r(idx,ix,ix,jx,jx+n-1)
      call w(idx,ix,ix,jx,jx+n-1)
      go to 20
c
c     incx.eq.1 => sx is a column vector of a matrix.
c
10    continue
      call r(idx,ix,ix+n-1,jx,jx)
      call w(idx,ix,ix+n-1,jx,jx)
20    continue
      call sscal(n,sa,sx,incx)
      return
      end
SHAR_EOF
if test -f 'msswap.f'
then
	echo shar: over-writing existing file "'msswap.f'"
fi
cat << \SHAR_EOF > 'msswap.f'
      subroutine msswap(n,sx,incx,sy,incy,idx,ix,jx,idy,iy,jy)
c
c     output the memory access patterns for sswap.
c     orlie brewer, anl, 3/14/88
c
      real sx(1),sy(1)
      integer incx,incy,idx,idy,ix,jx,iy,jy,n
      if(n.eq.0) go to 40
c
c     check the x vector.
c
      if(incx.eq.1)go to 10
c
c     incx.ne.1 => sx is a row vector of a matrix.
c
      call r(idx,ix,ix,jx,jx+n-1)
      call w(idx,ix,ix,jx,jx+n-1)
      go to 20
c
c     incx.eq.1 => sx is a column vector of a matrix.
c
10    continue
      call r(idx,ix,ix+n-1,jx,jx)
      call w(idx,ix,ix+n-1,jx,jx)
c
c     check the y vector.
c
20    continue
      if(incy.eq.1)go to 30
c
c     incy.ne.1 => sy is a row vector of a matrix.
c
      call r(idy,iy,iy,jy,jy+n-1)
      call w(idy,iy,iy,jy,jy+n-1)
      go to 40
c
c     incy.eq.1 => sy is a column vector of a matrix.
c
30    continue
      call r(idy,iy,iy+n-1,jy,jy)
      call w(idy,iy,iy+n-1,jy,jy)
40    continue
      call sswap(n,sx,incx,sy,incy)
      return
      end
SHAR_EOF
if test -f 'mssymm.f'
then
	echo shar: over-writing existing file "'mssymm.f'"
fi
cat << \SHAR_EOF > 'mssymm.f'
*
************************************************************************
*
      SUBROUTINE mSSYMM ( SIDE, UPLO, TRANSB, M, N,
     $                   ALPHA, A, LDA, B, LDB, BETA, C, LDC ,
     $                   ida,ia,ja,idb,ib,jb,idc,ic,jc)
*     .. Scalar Arguments ..
      REAL               ALPHA, BETA
      INTEGER            M, N, LDA, LDB, LDC
      CHARACTER*1        SIDE, UPLO, TRANSB
*     .. Array Arguments ..
      REAL               A( LDA, * ), B( LDB, * ), C( LDC, * )
*     ..
*
*  Purpose
*  =======
*
*  SSYMM  performs one of the matrix-matrix operations
*
*     C := alpha*A*op( B ) + beta*C,
*
*  or
*
*     C := alpha*op( B )*A + beta*C,
*
*  where  op( B ) is one of
*
*     op( B ) = B   or   op( B ) = B',
*
*  alpha and beta  are scalars,  A is a symmetric matrix,  op( B ) is an
*  m by n  matrix and  C is an  m by n matrix.
*
*  Parameters
*  ==========
*
*  SIDE   - CHARACTER*1.
*           On entry,  SIDE  specifies whether  the  symmetric matrix  A
*           appears on the  left or right  in the  operation as follows:
*
*              SIDE = 'L' or 'l'   C := alpha*A*op( B ) + beta*C,
*
*              SIDE = 'R' or 'r'   C := alpha*op( B )*A + beta*C,
*
*           Unchanged on exit.
*
*  UPLO   - CHARACTER*1.
*           On  entry,   UPLO  specifies  whether  the  upper  of  lower
*           triangular  part  of  the  symmetric  matrix   A  is  to  be
*           referenced as follows:
*
*              UPLO = 'U' or 'u'   Only the upper triangular part of the
*                                  symmetric matrix is to be referenced.
*
*              UPLO = 'L' or 'l'   Only the lower triangular part of the
*                                  symmetric matrix is to be referenced.
*
*           Unchanged on exit.
*
*  TRANSB - CHARACTER*1.
*           On entry, TRANSB  specifies the form  of  op( B ) to be used
*           in the matrix multiplication as follows:
*
*              TRANSB = 'N' or 'n'   op( B ) = B.
*
*              TRANSB = 'T' or 't'   op( B ) = B'.
*
*              TRANSB = 'C' or 'c'   op( B ) = B'.
*
*           Unchanged on exit.
*
*  M      - INTEGER.
*           On entry,  M  specifies the number of rows of the matrix  C.
*           M  must be at least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of the matrix C.
*           N  must be at least zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, ka ), where ka is
*           m  when  SIDE = 'L' or 'l'  and is  n otherwise.
*           Before entry  with  SIDE = 'L' or 'l',  the  m by m  part of
*           the array  A  must contain the  symmetric matrix,  such that
*           when  UPLO = 'U' or 'u', the leading m by m upper triangular
*           part of the array  A  must contain the upper triangular part
*           of the  symmetric matrix and the  strictly  lower triangular
*           part of  A  is not referenced,  and when  UPLO = 'L' or 'l',
*           the leading  m by m  lower triangular part  of the  array  A
*           must  contain  the  lower triangular part  of the  symmetric
*           matrix and the  strictly upper triangular part of  A  is not
*           referenced.
*           Before entry  with  SIDE = 'R' or 'r',  the  n by n  part of
*           the array  A  must contain the  symmetric matrix,  such that
*           when  UPLO = 'U' or 'u', the leading n by n upper triangular
*           part of the array  A  must contain the upper triangular part
*           of the  symmetric matrix and the  strictly  lower triangular
*           part of  A  is not referenced,  and when  UPLO = 'L' or 'l',
*           the leading  n by n  lower triangular part  of the  array  A
*           must  contain  the  lower triangular part  of the  symmetric
*           matrix and the  strictly upper triangular part of  A  is not
*           referenced.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program.  When  SIDE = 'L' or 'l'  then
*           LDA must be at least  max( 1, m ), otherwise  LDA must be at
*           least  max( 1, n ).
*           Unchanged on exit.
*
*  B      - REAL             array of DIMENSION ( LDB, kb ), where kb is
*           n  when  TRANSB = 'N' or 'n'  and is  m  otherwise.
*           Before entry  with  TRANSB = 'N' or 'n',  the leading m by n
*           part of the array  B must contain the matrix B. Before entry
*           with  TRANSB = 'T' or 't' or 'C' or 'c', the leading  n by m
*           part of the array  B must contain the matrix  B.
*           Unchanged on exit.
*
*  LDB    - INTEGER.
*           On entry, LDB specifies the first dimension of B as declared
*           in  the  calling  (sub)  program.  When  TRANSB = 'N' or 'n'
*           then  LDB must be at least  max( 1, m ), otherwise  LDB must
*           be at least max( 1, n ).
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry,  BETA  specifies the scalar  beta.  When  BETA  is
*           supplied as zero then C need not be set on input.
*           Unchanged on exit.
*
*  C      - REAL             array of DIMENSION ( LDC, n ).
*           Before entry, the leading  m by n  part of the array  C must
*           contain the matrix  C,  except when  beta  is zero, in which
*           case C need not be set on entry.
*           On exit, the array  C  is overwritten by the  m by n updated
*           matrix.
*
*  LDC    - INTEGER.
*           On entry, LDC specifies the first dimension of C as declared
*           in  the  calling  (sub)  program.   LDC  must  be  at  least
*           max( 1, m ).
*           Unchanged on exit.
*
*
*  Level 3 Blas routine.
*
*  -- Written on 30-April-1987.
*     Sven Hammarling, Nag Central Office.
*
*
*     .. Parameters ..
      REAL               ONE         , ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      INTEGER            I, INFO, J, NROWA, NROWB
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           SSYMV, XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Set NROWA and NROWB as the number of rows of A and B respectively.
*
      IF( LSAME( SIDE, 'L' ) )THEN
         NROWA = M
      ELSE
         NROWA = N
      END IF
      IF( LSAME( TRANSB, 'N' ) )THEN
         NROWB = M
      ELSE
         NROWB = N
      END IF
*
*     Test the input parameters.
*
      INFO = 0
      IF(      ( .NOT.LSAME( SIDE  , 'L' ) ).AND.
     $         ( .NOT.LSAME( SIDE  , 'R' ) )      )THEN
         INFO = 1
      ELSE IF( ( .NOT.LSAME( UPLO  , 'U' ) ).AND.
     $         ( .NOT.LSAME( UPLO  , 'L' ) )      )THEN
         INFO = 2
      ELSE IF( ( .NOT.LSAME( TRANSB, 'N' ) ).AND.
     $         ( .NOT.LSAME( TRANSB, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANSB, 'C' ) )      )THEN
         INFO = 3
      ELSE IF( M.LT.0 )THEN
         INFO = 4
      ELSE IF( N.LT.0 )THEN
         INFO = 5
      ELSE IF( LDA.LT.MAX( 1, NROWA ) )THEN
         INFO = 8
      ELSE IF( LDB.LT.MAX( 1, NROWB ) )THEN
         INFO = 10
      ELSE IF( LDC.LT.MAX( 1, M ) )THEN
         INFO = 13
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SSYMM ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( M.EQ.0 ).OR.( N.EQ.0 ).OR.
     $    ( ( ALPHA.EQ.ZERO ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     Start the operations.
*
      call ops(idc,m*n*n,'ssymm')
      IF( LSAME( SIDE, 'L' ) )THEN
         IF( LSAME( TRANSB, 'N' ) )THEN
*
*           Form  C := alpha*A*B + beta*C.
*
            if( uplo .eq. 'l' .or. uplo .eq. 'L' ) then
               do 1 jj = 1,m
                  call r(ida,ia+jj-1,ia+m-1,ja+jj-1,ja+jj-1)
    1          continue
            else
               do 2 jj = 1,m
                  call r(ida,ia,ia+jj-1,ja+jj-1,ja+jj-1)
    2          continue
            endif
            call r(idb,ib,ib+m-1,jb,jb+n-1)
            call r(idc,ic,ic+m-1,jc,jc+n-1)
            call w(idc,ic,ic+m-1,jc,jc+n-1)
            DO 10, J = 1, N
               CALL SSYMV ( UPLO, M, ALPHA, A, LDA, B( 1, J ), 1,
     $                      BETA, C( 1, J ), 1 )
   10       CONTINUE
         ELSE
*
*           Form  C := alpha*A*B' + beta*C.
*
            if( uplo .eq. 'l' .or. uplo .eq. 'L' ) then
               do 3 jj = 1,m
                  call r(ida,ia+jj-1,ia+m-1,ja+jj-1,ja+jj-1)
    3          continue
            else
               do 4 jj = 1,m
                  call r(ida,ia,ia+jj-1,ja+jj-1,ja+jj-1)
    4          continue
            endif
            call r(idb,jb,jb+n-1,ib,ib+m-1)
            call r(idc,ic,ic+m-1,jc,jc+n-1)
            call w(idc,ic,ic+m-1,jc,jc+n-1)
            DO 20, J = 1, N
               CALL SSYMV ( UPLO, M, ALPHA, A, LDA, B( J, 1 ), LDB,
     $                      BETA, C( 1, J ), 1 )
   20       CONTINUE
         END IF
      ELSE
         IF( LSAME( TRANSB, 'N' ) )THEN
*
*           Form  C  := alpha*B*A  + beta*C  using
*                 C' := alpha*A*B' + beta*C'
*
            call r(idb,ib,ib+m-1,jb,jb+n-1)
            if( uplo .eq. 'l' .or. uplo .eq. 'L' ) then
               do 5 jj = 1,n
                  call r(ida,ia+jj-1,ia+n-1,ja+jj-1,ja+jj-1)
    5          continue
            else
               do 6 jj = 1,n
                  call r(ida,ia,ia+jj-1,ja+jj-1,ja+jj-1)
    6          continue
            endif
            call r(idc,ic,ic+m-1,jc,jc+n-1)
            call w(idc,ic,ic+m-1,jc,jc+n-1)
            DO 30, I = 1, M
               CALL SSYMV ( UPLO, N, ALPHA, A, LDA, B( I, 1 ), LDB,
     $                      BETA, C( I, 1 ), LDC )
   30       CONTINUE
         ELSE
*
*           Form  C  := alpha*B'*A + beta*C  using
*                 C' := alpha*A*B  + beta*C'.
*
            call r(idb,jb,jb+n-1,ib,ib+m-1)
            if( uplo .eq. 'l' .or. uplo .eq. 'L' ) then
               do 7 jj = 1,n
                  call r(ida,ia+jj-1,ia+n-1,ja+jj-1,ja+jj-1)
    7          continue
            else
               do 8 jj = 1,n
                  call r(ida,ia,ia+jj-1,ja+jj-1,ja+jj-1)
    8          continue
            endif
            call r(idc,ic,ic+m-1,jc,jc+n-1)
            call w(idc,ic,ic+m-1,jc,jc+n-1)
            DO 40, I = 1, M
               CALL SSYMV ( UPLO, N, ALPHA, A, LDA, B( 1, I ), 1,
     $                      BETA, C( I, 1 ), LDC )
   40       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of SSYMM .
*
      END
SHAR_EOF
if test -f 'mssymv.f'
then
	echo shar: over-writing existing file "'mssymv.f'"
fi
cat << \SHAR_EOF > 'mssymv.f'
*
************************************************************************
*
      SUBROUTINE mSSYMV ( UPLO, N, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY ,
     $                   ida,ia,ja,idx,ixx,jxx,idy,iyy,jyy)
*     .. Scalar Arguments ..
      REAL               ALPHA, BETA
      INTEGER            INCX, INCY, LDA, N
      CHARACTER*1        UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose
*  =======
*
*  SSYMV  performs the matrix-vector  operation
*
*     y := alpha*A*x + beta*y,
*
*  where alpha and beta are scalars, x and y are n element vectors and
*  A is an n by n symmetric matrix.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the upper or lower
*           triangular part of the array A is to be referenced as
*           follows:
*
*              UPLO = 'U' or 'u'   Only the upper triangular part of A
*                                  is to be referenced.
*
*              UPLO = 'L' or 'l'   Only the lower triangular part of A
*                                  is to be referenced.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the order of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry with  UPLO = 'U' or 'u', the leading n by n
*           upper triangular part of the array A must contain the upper
*           triangular part of the symmetric matrix and the strictly
*           lower triangular part of A is not referenced.
*           Before entry with UPLO = 'L' or 'l', the leading n by n
*           lower triangular part of the array A must contain the lower
*           triangular part of the symmetric matrix and the strictly
*           upper triangular part of A is not referenced.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, n ).
*           Unchanged on exit.
*
*  X      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCX ) ).
*           Before entry, the incremented array X must contain the n
*           element vector x.
*           Unchanged on exit.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry, BETA specifies the scalar beta. When BETA is
*           supplied as zero then Y need not be set on input.
*           Unchanged on exit.
*
*  Y      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCY ) ).
*           Before entry, the incremented array Y must contain the n
*           element vector y. On exit, Y is overwritten by the updated
*           vector y.
*
*  INCY   - INTEGER.
*           On entry, INCY specifies the increment for the elements of
*           Y. INCY must not be zero.
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ONE         , ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP1, TEMP2
      INTEGER            I, INFO, IX, IY, J, JX, JY, KX, KY
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( UPLO, 'U' ).AND.
     $         .NOT.LSAME( UPLO, 'L' )      )THEN
         INFO = 1
      ELSE IF( N.LT.0 )THEN
         INFO = 2
      ELSE IF( LDA.LT.MAX( 1, N ) )THEN
         INFO = 5
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 7
      ELSE IF( INCY.EQ.0 )THEN
         INFO = 10
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SSYMV ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( N.EQ.0 ).OR.( ( ALPHA.EQ.ZERO ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     Set up the start points in  X  and  Y.
*
      IF( INCX.GT.0 )THEN
         KX = 1
      ELSE
         KX = 1 - ( N - 1 )*INCX
      END IF
      IF( INCY.GT.0 )THEN
         KY = 1
      ELSE
         KY = 1 - ( N - 1 )*INCY
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through the triangular part
*     of A.
*
*     First form  y := beta*y.
*
      call ops(ida,n*n,'ssymv')
      IF( BETA.NE.ONE )THEN
         IF( INCY.EQ.1 )THEN
            IF( BETA.EQ.ZERO )THEN
               DO 10, I = 1, N
                  Y( I ) = ZERO
   10          CONTINUE
            ELSE
               DO 20, I = 1, N
                  Y( I ) = BETA*Y( I )
   20          CONTINUE
            END IF
         ELSE
            IY = KY
            IF( BETA.EQ.ZERO )THEN
               DO 30, I = 1, N
                  Y( IY ) = ZERO
                  IY      = IY   + INCY
   30          CONTINUE
            ELSE
               DO 40, I = 1, N
                  Y( IY ) = BETA*Y( IY )
                  IY      = IY           + INCY
   40          CONTINUE
            END IF
         END IF
      END IF
      IF( ALPHA.EQ.ZERO )
     $   RETURN
      IF( LSAME( UPLO, 'U' ) )THEN
*
*        Form  y  when A is stored in upper triangle.
*
         IF( ( INCX.EQ.1 ).AND.( INCY.EQ.1 ) )THEN
            DO 60, J = 1, N
               TEMP1 = ALPHA*X( J )
               TEMP2 = ZERO
               DO 50, I = 1, J - 1
                  Y( I ) = Y( I ) + TEMP1*A( I, J )
                  TEMP2  = TEMP2  + A( I, J )*X( I )
   50          CONTINUE
               Y( J ) = Y( J ) + TEMP1*A( J, J ) + ALPHA*TEMP2
   60       CONTINUE
         ELSE
            JX = KX
            JY = KY
            DO 80, J = 1, N
               TEMP1 = ALPHA*X( JX )
               TEMP2 = ZERO
               IX    = KX
               IY    = KY
               DO 70, I = 1, J - 1
                  Y( IY ) = Y( IY ) + TEMP1*A( I, J )
                  TEMP2   = TEMP2   + A( I, J )*X( IX )
                  IX      = IX      + INCX
                  IY      = IY      + INCY
   70          CONTINUE
               Y( JY ) = Y( JY ) + TEMP1*A( J, J ) + ALPHA*TEMP2
               JX      = JX      + INCX
               JY      = JY      + INCY
   80       CONTINUE
         END IF
      ELSE
*
*        Form  y  when A is stored in lower triangle.
*
         IF( ( INCX.EQ.1 ).AND.( INCY.EQ.1 ) )THEN
            DO 100, J = 1, N
               TEMP1  = ALPHA*X( J )
               TEMP2  = ZERO
               Y( J ) = Y( J )       + TEMP1*A( J, J )
               DO 90, I = J + 1, N
                  Y( I ) = Y( I ) + TEMP1*A( I, J )
                  TEMP2  = TEMP2  + A( I, J )*X( I )
   90          CONTINUE
               Y( J ) = Y( J ) + ALPHA*TEMP2
  100       CONTINUE
         ELSE
            JX = KX
            JY = KY
            DO 120, J = 1, N
               TEMP1   = ALPHA*X( JX )
               TEMP2   = ZERO
               Y( JY ) = Y( JY )       + TEMP1*A( J, J )
               IX      = JX
               IY      = JY
               DO 110, I = J + 1, N
                  IX      = IX      + INCX
                  IY      = IY      + INCY
                  Y( IY ) = Y( IY ) + TEMP1*A( I, J )
                  TEMP2   = TEMP2   + A( I, J )*X( IX )
  110          CONTINUE
               Y( JY ) = Y( JY ) + ALPHA*TEMP2
               JX      = JX      + INCX
               JY      = JY      + INCY
  120       CONTINUE
         END IF
      END IF
         IF( ( INCX.EQ.1 ) ) then
            call r(idx,ixx,ixx+n-1,jxx,jxx)
          else
            call r(idx,ixx,ixx,jxx,jxx+n-1)
          endif
          if( incy .eq. 1 ) then
            call r(idy,iyy,iyy+n-1,jyy,jyy)
            call w(idy,iyy,iyy+n-1,jyy,jyy)
          else
            call r(idy,iyy,iyy,jyy,jyy+n-1)
            call w(idy,iyy,iyy,jyy,jyy+n-1)
          endif
            if( uplo .eq. 'l' .or. uplo .eq. 'L' ) then
               do 3 jj = 1,n
                  call r(ida,ia+jj-1,ia+n-1,ja+jj-1,ja+jj-1)
    3          continue
            else
               do 4 jj = 1,n
                  call r(ida,ia,ia+jj-1,ja+jj-1,ja+jj-1)
    4          continue
            endif
*
      RETURN
*
*     End of SSYMV .
*
      END
SHAR_EOF
if test -f 'mssyr.f'
then
	echo shar: over-writing existing file "'mssyr.f'"
fi
cat << \SHAR_EOF > 'mssyr.f'
*
************************************************************************
*
      SUBROUTINE mSSYR  ( UPLO, N, ALPHA, X, INCX, A, LDA ,
     $                    idx,ixx,jxx,ida,ia,ja)
*     .. Scalar Arguments ..
      REAL               ALPHA
      INTEGER            INCX, LDA, N
      CHARACTER*1        UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * )
*     ..
*
*  Purpose
*  =======
*
*  SSYR   performs the symmetric rank 1 operation
*
*     A := alpha*x*x' + A,
*
*  where alpha is a real scalar, x is an n element vector and A is an
*  n by n symmetric matrix.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the upper or lower
*           triangular part of the array A is to be referenced as
*           follows:
*
*              UPLO = 'U' or 'u'   Only the upper triangular part of A
*                                  is to be referenced.
*
*              UPLO = 'L' or 'l'   Only the lower triangular part of A
*                                  is to be referenced.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the order of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  X      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCX ) ).
*           Before entry, the incremented array X must contain the n
*           element vector x.
*           Unchanged on exit.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry with  UPLO = 'U' or 'u', the leading n by n
*           upper triangular part of the array A must contain the upper
*           triangular part of the symmetric matrix and the strictly
*           lower triangular part of A is not referenced. On exit, the
*           upper triangular part of the array A is overwritten by the
*           upper triangular part of the updated matrix.
*           Before entry with UPLO = 'L' or 'l', the leading n by n
*           lower triangular part of the array A must contain the lower
*           triangular part of the symmetric matrix and the strictly
*           upper triangular part of A is not referenced. On exit, the
*           lower triangular part of the array A is overwritten by the
*           lower triangular part of the updated matrix.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, n ).
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ZERO
      PARAMETER        ( ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP
      INTEGER            I, INFO, IX, J, JX, KX
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( UPLO, 'U' ).AND.
     $         .NOT.LSAME( UPLO, 'L' )      )THEN
         INFO = 1
      ELSE IF( N.LT.0 )THEN
         INFO = 2
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 5
      ELSE IF( LDA.LT.MAX( 1, N ) )THEN
         INFO = 7
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SSYR  ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( N.EQ.0 ).OR.( ALPHA.EQ.ZERO ) )
     $   RETURN
      call ops(ida,n*n,'ssyr')
*
*     Set the start point in X if the increment is not unity.
*
      IF( INCX.LE.0 )THEN
         KX = 1 - ( N - 1 )*INCX
      ELSE IF( INCX.NE.1 )THEN
         KX = 1
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through the triangular part
*     of A.
*
      IF( LSAME( UPLO, 'U' ) )THEN
*
*        Form  A  when A is stored in upper triangle.
*
         IF( INCX.EQ.1 )THEN
            DO 20, J = 1, N
               IF( X( J ).NE.ZERO )THEN
                  TEMP = ALPHA*X( J )
                  DO 10, I = 1, J
                     A( I, J ) = A( I, J ) + X( I )*TEMP
   10             CONTINUE
                  call r(idx,ixx,ixx+j-1,jxx,jxx)
                  call r(ida,ia,ia+j-1,ja+j-1,ja+j-1)
                  call w(ida,ia,ia+j-1,ja+j-1,ja+j-1)
               END IF
   20       CONTINUE
         ELSE
            JX = KX
            DO 40, J = 1, N
               IF( X( JX ).NE.ZERO )THEN
                  TEMP = ALPHA*X( JX )
                  IX   = KX
                  DO 30, I = 1, J
                     A( I, J ) = A( I, J ) + X( IX )*TEMP
                     IX        = IX        + INCX
   30             CONTINUE
                  call r(idx,ixx,ixx,jxx,jxx+j-1)
                  call r(ida,ia,ia+j-1,ja+j-1,ja+j-1)
                  call w(ida,ia,ia+j-1,ja+j-1,ja+j-1)
               END IF
               JX = JX + INCX
   40       CONTINUE
         END IF
      ELSE
*
*        Form  A  when A is stored in lower triangle.
*
         IF( INCX.EQ.1 )THEN
            DO 60, J = 1, N
               IF( X( J ).NE.ZERO )THEN
                  TEMP = ALPHA*X( J )
                  DO 50, I = J, N
                     A( I, J ) = A( I, J ) + X( I )*TEMP
   50             CONTINUE
                  call r(idx,ixx+j-1,ixx+n-1,jxx,jxx)
                  call r(ida,ia+j-1,ia+n-1,ja+j-1,ja+j-1)
                  call w(ida,ia+j-1,ia+n-1,ja+j-1,ja+j-1)
               END IF
   60       CONTINUE
         ELSE
            JX = KX
            DO 80, J = 1, N
               IF( X( JX ).NE.ZERO )THEN
                  TEMP = ALPHA*X( JX )
                  IX   = JX
                  DO 70, I = J, N
                     A( I, J ) = A( I, J ) + X( IX )*TEMP
                     IX        = IX        + INCX
   70             CONTINUE
                  call r(idx,ixx,ixx,jxx+j-1,jxx+n-1)
                  call r(ida,ia+j-1,ia+n-1,ja+j-1,ja+j-1)
                  call w(ida,ia+j-1,ia+n-1,ja+j-1,ja+j-1)
               END IF
               JX = JX + INCX
   80       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of SSYR  .
*
      END
SHAR_EOF
if test -f 'mssyrk.f'
then
	echo shar: over-writing existing file "'mssyrk.f'"
fi
cat << \SHAR_EOF > 'mssyrk.f'
*
************************************************************************
*
      SUBROUTINE mSSYRK ( UPLO, TRANSA, N, K, ALPHA, A, LDA,
     $                   BETA, C, LDC ,ida,ia,ja,idc,ic,jc)
*     .. Scalar Arguments ..
      REAL               ALPHA, BETA
      INTEGER            N, K, LDA, LDC
      CHARACTER*1        UPLO, TRANSA
*     .. Array Arguments ..
      REAL               A( LDA, * ), C( LDC, * )
*     ..
*
*  Purpose
*  =======
*
*  SSYRK  performs one of the symmetric rank k operations
*
*     C := alpha*A*A' + beta*C,
*
*  or
*
*     C := alpha*A'*A + beta*C,
*
*  where  alpha and beta  are scalars, C is an  n by n  symmetric matrix
*  and  A  is an  n by k  matrix in the first case and a  k by n  matrix
*  in the second case.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On  entry,   UPLO  specifies  whether  the  upper  or  lower
*           triangular  part  of the  array  C  is to be  referenced  as
*           follows:
*
*              UPLO = 'U' or 'u'   Only the  upper triangular part of  C
*                                  is to be referenced.
*
*              UPLO = 'L' or 'l'   Only the  lower triangular part of  C
*                                  is to be referenced.
*
*           Unchanged on exit.
*
*  TRANSA - CHARACTER*1.
*           On entry, TRANSA  specifies the operation to be performed as
*           follows:
*
*              TRANSA = 'N' or 'n'   C := alpha*A*A' + beta*C.
*
*              TRANSA = 'T' or 't'   C := alpha*A'*A + beta*C.
*
*              TRANSA = 'C' or 'c'   C := alpha*A'*A + beta*C.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry,  N specifies the order of the matrix C.  N must be
*           at least zero.
*           Unchanged on exit.
*
*  K      - INTEGER.
*           On entry with  TRANSA = 'N' or 'n',  K  specifies the number
*           of  columns   of  the   matrix   A,   and  on   entry   with
*           TRANSA = 'T' or 't' or 'C' or 'c',  K  specifies  the number
*           of rows of the matrix  A.  K must be at least zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, ka ), where ka is
*           k  when  TRANSA = 'N' or 'n',  and is  n  otherwise.
*           Before entry with  TRANSA = 'N' or 'n',  the leading  n by k
*           part of the array  A  must contain the matrix  A,  otherwise
*           the leading  k by n  part of the array  A  must contain  the
*           matrix A.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in  the  calling  (sub) program.   When  TRANSA = 'N' or 'n'
*           then  LDA must be at least  max( 1, n ), otherwise  LDA must
*           be at least  max( 1, k ).
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry, BETA specifies the scalar beta.
*           Unchanged on exit.
*
*  C      - REAL             array of DIMENSION ( LDC, n ).
*           Before entry  with  UPLO = 'U' or 'u',  the leading  n by n
*           upper triangular part of the array C must contain the upper
*           triangular part  of the  symmetric matrix  and the strictly
*           lower triangular part of C is not referenced.  On exit, the
*           upper triangular part of the array  C is overwritten by the
*           upper triangular part of the updated matrix.
*           Before entry  with  UPLO = 'L' or 'l',  the leading  n by n
*           lower triangular part of the array C must contain the lower
*           triangular part  of the  symmetric matrix  and the strictly
*           upper triangular part of C is not referenced.  On exit, the
*           lower triangular part of the array  C is overwritten by the
*           lower triangular part of the updated matrix.
*
*  LDC    - INTEGER.
*           On entry, LDC specifies the first dimension of C as declared
*           in  the  calling  (sub)  program.   LDC  must  be  at  least
*           max( 1, n ).
*           Unchanged on exit.
*
*
*  Level 3 Blas routine.
*
*  -- Written on 30-April-1987.
*     Sven Hammarling, Nag Central Office.
*
*
*     .. Parameters ..
      REAL               ONE ,         ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      INTEGER            I, INFO, J, NROWA
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           SGEMV, XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      IF( LSAME( TRANSA, 'N' ) )THEN
         NROWA = N
      ELSE
         NROWA = K
      END IF
      INFO = 0
      IF(      ( .NOT.LSAME( UPLO  , 'U' ) ).AND.
     $         ( .NOT.LSAME( UPLO  , 'L' ) )      )THEN
         INFO = 1
      ELSE IF( ( .NOT.LSAME( TRANSA, 'N' ) ).AND.
     $         ( .NOT.LSAME( TRANSA, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANSA, 'C' ) )      )THEN
         INFO = 2
      ELSE IF( N.LT.0 )THEN
         INFO = 3
      ELSE IF( K.LT.0 )THEN
         INFO = 4
      ELSE IF( LDA.LT.NROWA )THEN
         INFO = 7
      ELSE IF( LDC.LT.MAX( 1, N ) )THEN
         INFO = 10
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SSYRK ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( N.EQ.0 ).OR.
     $    ( ( ( ALPHA.EQ.ZERO ).OR.( K.EQ.0 ) ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     Start the operations.
*
      call ops(idc,n*n*k,'ssyrk')
      IF( K.EQ.0 )THEN
*
*        First form  C := beta*C.
*
         IF( BETA.EQ.ZERO )THEN
            IF( LSAME( UPLO, 'U' ) )THEN
               DO 50, J = 1, N
                  DO 40, I = 1, J
                     C( I, J ) = ZERO
   40             CONTINUE
   50          CONTINUE
            ELSE
               DO 70, J = 1, N
                  DO 60, I = J, N
                     C( I, J ) = ZERO
   60             CONTINUE
   70          CONTINUE
            END IF
         ELSE
            IF( LSAME( UPLO, 'U' ) )THEN
               DO 90, J = 1, N
                  DO 80, I = 1, J
                     C( I, J ) = BETA*C( I, J )
   80             CONTINUE
   90          CONTINUE
            ELSE
               DO 110, J = 1, N
                  DO 100, I = J, N
                     C( I, J ) = BETA*C( I, J )
  100             CONTINUE
  110          CONTINUE
            END IF
         END IF
      ELSE IF( LSAME( TRANSA, 'T' ) )THEN
*
*        Form  C := alpha*A'*A + beta*C
*
         IF( LSAME( UPLO, 'U' ) )THEN
            DO 120, J = 1, N
               CALL mSGEMV ( 'T', K, J,
     $                      ALPHA, A, LDA, A( 1, J ), 1,
     $                      BETA, C( 1, J ), 1 ,
     $                      ida,ia,ja,ida,ia,ja+j-1,idc,ic,jc+j-1)
  120       CONTINUE
         ELSE
            DO 130, J = 1, N
               CALL mSGEMV ( 'T', K, N - J + 1,
     $                      ALPHA, A( 1, J ), LDA, A( 1, J ), 1,
     $                      BETA, C( J, J ), 1 ,
     $                ida,ia,ja+j-1,ida,ia,ja+j-1,idc,ic+j-1,jc+j-1)
  130       CONTINUE
         END IF
      ELSE
*
*        Form  C := alpha*A*A' + beta*C
*
         IF( LSAME( UPLO, 'U' ) )THEN
            DO 140, J = 1, N
               CALL mSGEMV ( 'N', J, K,
     $                      ALPHA, A, LDA, A( J, 1 ), LDA,
     $                      BETA, C( 1, J ), 1 ,
     $                      ida,ia,ja,ida,ia+j-1,ja,idc,ic,jc+j-1)
  140       CONTINUE
         ELSE
            DO 150, J = 1, N
               CALL mSGEMV ( 'N', N - J + 1, K,
     $                      ALPHA, A( J, 1 ), LDA, A( J, 1 ), LDA,
     $                      BETA, C( J, J ), 1 ,
     $                  ida,ia+j-1,ja,ida,ia+j-1,ja,idc,ic+j-1,jc+j-1)
  150       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of SSYRK .
*
      END
SHAR_EOF
if test -f 'mstrmm.f'
then
	echo shar: over-writing existing file "'mstrmm.f'"
fi
cat << \SHAR_EOF > 'mstrmm.f'
*
************************************************************************
*
      SUBROUTINE mSTRMM ( SIDE, UPLO, TRANS, DIAG, M, N, A, LDA, B, LDB,
     $                   ida,ia,ja,idb,ib,jb )
*     .. Scalar Arguments ..
      INTEGER            LDA, LDB, M, N
      CHARACTER*1        SIDE, DIAG, TRANS, UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), B( LDB, * )
*     ..
*
*  Purpose
*  =======
*
*  STRMM  performs one of the matrix-matrix operations
*
*     B := op( A )*B,   or   B := B*op( A )
*
*  where B is an m by n matrix, A is a unit, or non-unit, upper or lower
*  triangular matrix and  op( A )  is one of
*
*     op( A ) = A   or   op( A ) = A'.
*
*  Parameters
*  ==========
*
*  SIDE   - CHARACTER*1.
*           On entry,  SIDE specifies whether  op( A ) multiplies B from
*           the left or right as follows:
*
*              SIDE = 'L' or 'l'   B := op( A )*B.
*
*              SIDE = 'R' or 'r'   B := B*op( A ).
*
*           Unchanged on exit.
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the matrix A is an upper or
*           lower triangular matrix as follows:
*
*              UPLO = 'U' or 'u'   A is an upper triangular matrix.
*
*              UPLO = 'L' or 'l'   A is a lower triangular matrix.
*
*           Unchanged on exit.
*
*  TRANS  - CHARACTER*1.
*           On entry, TRANS specifies the form of op( A ) to be used in
*           the matrix multiplication as follows:
*
*              TRANS = 'N' or 'n'   op( A ) = A.
*
*              TRANS = 'T' or 't'   op( A ) = A'.
*
*              TRANS = 'C' or 'c'   op( A ) = A'.
*
*           Unchanged on exit.
*
*  DIAG   - CHARACTER*1.
*           On entry, DIAG specifies whether or not A is unit triangular
*           as follows:
*
*              DIAG = 'U' or 'u'   A is assumed to be unit triangular.
*
*              DIAG = 'N' or 'n'   A is not assumed to be unit
*                                  triangular.
*
*           Unchanged on exit.
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of B. M must be at
*           least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of B.  N must be
*           at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, k ), where k is m
*           when  SIDE = 'L' or 'l'  and is  n  when  SIDE = 'R' or 'r'.
*           Before entry  with  UPLO = 'U' or 'u',  the  leading  k by k
*           upper triangular part of the array  A must contain the upper
*           triangular matrix  and the strictly lower triangular part of
*           A is not referenced.
*           Before entry  with  UPLO = 'L' or 'l',  the  leading  k by k
*           lower triangular part of the array  A must contain the lower
*           triangular matrix  and the strictly upper triangular part of
*           A is not referenced.
*           Note that when  DIAG = 'U' or 'u',  the diagonal elements of
*           A  are not referenced either,  but are assumed to be  unity.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program.  When  SIDE = 'L' or 'l'  then
*           LDA  must be at least  max( 1, m ),  when  SIDE = 'R' or 'r'
*           then LDA must be at least max( 1, n ).
*           Unchanged on exit.
*
*  B      - REAL             array of DIMENSION ( LDB, n ).
*           Before entry,  the leading  m by n part of the array  B must
*           contain the matrix  B,  and  on exit  is overwritten  by the
*           transformed matrix.
*
*  LDB    - INTEGER.
*           On entry, LDB specifies the first dimension of B as declared
*           in  the  calling  (sub)  program.   LDB  must  be  at  least
*           max( 1, m ).
*           Unchanged on exit.
*
*
*  Level 3 Blas routine.
*
*  -- Written on 30-April-1987.
*     Sven Hammarling, Nag Central Office.
*
*
*     .. Local Scalars ..
      INTEGER            INFO, J, NROWA
      LOGICAL            LSIDE
      CHARACTER*1        NOTR
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           STRMV, XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      LSIDE = LSAME( SIDE, 'L' )
      IF( LSIDE )THEN
         NROWA = M
      ELSE
         NROWA = N
      END IF
      INFO = 0
      IF(      ( .NOT.LSIDE               ).AND.
     $         ( .NOT.LSAME( SIDE , 'R' ) )      )THEN
         INFO = 1
      ELSE IF( ( .NOT.LSAME( UPLO , 'U' ) ).AND.
     $         ( .NOT.LSAME( UPLO , 'L' ) )      )THEN
         INFO = 2
      ELSE IF( ( .NOT.LSAME( TRANS, 'N' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'C' ) )      )THEN
         INFO = 3
      ELSE IF( ( .NOT.LSAME( DIAG , 'U' ) ).AND.
     $         ( .NOT.LSAME( DIAG , 'N' ) )      )THEN
         INFO = 4
      ELSE IF( M.LT.0 )THEN
         INFO = 5
      ELSE IF( N.LT.0 )THEN
         INFO = 6
      ELSE IF( LDA.LT.MAX( 1, NROWA ) )THEN
         INFO = 8
      ELSE IF( LDB.LT.MAX( 1, M ) )THEN
         INFO = 10
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'STRMM ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( N.EQ.0 )
     $   RETURN
*
*     Start the operations.
*
      IF( LSIDE )THEN
         call ops(idb,m*m*n,'strmm')
*
*        Form  B := op( A )*B.
*
         DO 10, J = 1, N
            CALL STRMV ( UPLO, TRANS, DIAG, M, A, LDA, B( 1, J ), 1 )
   10    CONTINUE
         CALL strmv2 ( UPLO, TRANS, DIAG, M, A, LDA, B( 1, J ), 1 ,
     $                 ida,ia,ja,idb,ib,jb+j-1)
         call r(idb,ib,ib+m-1,jb,jb+n-1)
         call w(idb,ib,ib+m-1,jb,jb+n-1)
      ELSE
         call ops(idb,m*n*n,'strmm')
         IF( LSAME( TRANS, 'N' ) )THEN
            NOTR = 'T'
         ELSE
            NOTR = 'N'
         END IF
*
*        Form  B := B*op( A )  using  B' := op( A' )*B'.
*
         DO 20, J = 1, M
            CALL STRMV ( UPLO, NOTR, DIAG, N, A, LDA, B( J, 1 ), LDB )
   20    CONTINUE
         CALL strmv2 ( UPLO, NOTR, DIAG, N, A, LDA, B( J, 1 ), LDB ,
     $                 ida,ia,ja,idb,ib+j-1,jb)
         call r(idb,ib,ib+m-1,jb,jb+n-1)
         call w(idb,ib,ib+m-1,jb,jb+n-1)
      END IF
*
      RETURN
*
*     End of STRMM .
*
      END
SHAR_EOF
if test -f 'mstrmv.f'
then
	echo shar: over-writing existing file "'mstrmv.f'"
fi
cat << \SHAR_EOF > 'mstrmv.f'
*
************************************************************************
*
      SUBROUTINE mSTRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX ,
     $                    ida,ia,ja,idx,ixx,jxx)
*     .. Scalar Arguments ..
      INTEGER            INCX, LDA, N
      CHARACTER*1        DIAG, TRANS, UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * )
*     ..
*
*  Purpose
*  =======
*
*  STRMV  performs one of the matrix-vector operations
*
*     x := A*x,   or   x := A'*x,
*
*  where x is an n element vector and  A is an n by n unit, or non-unit,
*  upper or lower triangular matrix.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the matrix is an upper or
*           lower triangular matrix as follows:
*
*              UPLO = 'U' or 'u'   A is an upper triangular matrix.
*
*              UPLO = 'L' or 'l'   A is a lower triangular matrix.
*
*           Unchanged on exit.
*
*  TRANS  - CHARACTER*1.
*           On entry, TRANS specifies the operation to be performed as
*           follows:
*
*              TRANS = 'N' or 'n'   x := A*x.
*
*              TRANS = 'T' or 't'   x := A'*x.
*
*              TRANS = 'C' or 'c'   x := A'*x.
*
*           Unchanged on exit.
*
*  DIAG   - CHARACTER*1.
*           On entry, DIAG specifies whether or not A is unit
*           triangular as follows:
*
*              DIAG = 'U' or 'u'   A is assumed to be unit triangular.
*
*              DIAG = 'N' or 'n'   A is not assumed to be unit
*                                  triangular.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the order of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry with  UPLO = 'U' or 'u', the leading n by n
*           upper triangular part of the array A must contain the upper
*           triangular matrix and the strictly lower triangular part of
*           A is not referenced.
*           Before entry with UPLO = 'L' or 'l', the leading n by n
*           lower triangular part of the array A must contain the lower
*           triangular matrix and the strictly upper triangular part of
*           A is not referenced.
*           Note that when  DIAG = 'U' or 'u', the diagonal elements of
*           A are not referenced either, but are assumed to be unity.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, n ).
*           Unchanged on exit.
*
*  X      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCX ) ).
*           Before entry, the incremented array X must contain the n
*           element vector x. On exit, X is overwritten with the
*           tranformed vector x.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ZERO
      PARAMETER        ( ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP
      INTEGER            I, INFO, IX, J, JX, KX
      LOGICAL            NOUNIT
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( UPLO , 'U' ).AND.
     $         .NOT.LSAME( UPLO , 'L' )      )THEN
         INFO = 1
      ELSE IF( .NOT.LSAME( TRANS, 'N' ).AND.
     $         .NOT.LSAME( TRANS, 'T' ).AND.
     $         .NOT.LSAME( TRANS, 'C' )      )THEN
         INFO = 2
      ELSE IF( .NOT.LSAME( DIAG , 'U' ).AND.
     $         .NOT.LSAME( DIAG , 'N' )      )THEN
         INFO = 3
      ELSE IF( N.LT.0 )THEN
         INFO = 4
      ELSE IF( LDA.LT.MAX( 1, N ) )THEN
         INFO = 6
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 8
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'STRMV ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( N.EQ.0 )
     $   RETURN
*
      NOUNIT = LSAME( DIAG, 'N' )
*
*     Set up the start point in X if the increment is not unity. This
*     will be  ( N - 1 )*INCX  too small for descending loops.
*
      IF( INCX.LE.0 )THEN
         KX = 1 - ( N - 1 )*INCX
      ELSE IF( INCX.NE.1 )THEN
         KX = 1
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through A.
*
      call ops(idx,n*m,'strmv')
      IF( LSAME( TRANS, 'N' ) )THEN
*
*        Form  x := A*x.
*
         IF( LSAME( UPLO, 'U' ) )THEN
            IF( INCX.EQ.1 )THEN
               DO 20, J = 1, N
                  IF( X( J ).NE.ZERO )THEN
                     TEMP = X( J )
                     DO 10, I = 1, J - 1
                        X( I ) = X( I ) + TEMP*A( I, J )
   10                CONTINUE
                     call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                     call r(idx,ixx,ixx+j-2,jxx,jxx)
                     call w(idx,ixx,ixx+j-2,jxx,jxx)
                     IF( NOUNIT ) then
                        X( J ) = X( J )*A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                        call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                     endif
                  END IF
   20          CONTINUE
            ELSE
               JX = KX
               DO 40, J = 1, N
                  IF( X( JX ).NE.ZERO )THEN
                     TEMP = X( JX )
                     IX   = KX
                     DO 30, I = 1, J - 1
                        X( IX ) = X( IX ) + TEMP*A( I, J )
                        IX      = IX      + INCX
   30                CONTINUE
                     call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                     call r(idx,ixx,ixx,jxx,jxx+j-2)
                     call w(idx,ixx,ixx,jxx,jxx+j-2)
                     IF( NOUNIT ) then
                        X( JX ) = X( JX )*A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                        call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                     endif
                  END IF
                  JX = JX + INCX
   40          CONTINUE
            END IF
         ELSE
            IF( INCX.EQ.1 )THEN
               DO 60, J = N, 1, -1
                  IF( X( J ).NE.ZERO )THEN
                     TEMP = X( J )
                     DO 50, I = N, J + 1, -1
                        X( I ) = X( I ) + TEMP*A( I, J )
   50                CONTINUE
                     call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                     call r(idx,ixx+j,ixx+n-1,jxx,jxx)
                     call w(idx,ixx+j,ixx+n-1,jxx,jxx)
                     IF( NOUNIT ) then
                        X( J ) = X( J )*A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                        call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                     endif
                  END IF
   60          CONTINUE
            ELSE
               KX = KX + ( N - 1 )*INCX
               JX = KX
               DO 80, J = N, 1, -1
                  IF( X( JX ).NE.ZERO )THEN
                     TEMP = X( JX )
                     IX   = KX
                     DO 70, I = N, J + 1, -1
                        X( IX ) = X( IX ) + TEMP*A( I, J )
                        IX      = IX      - INCX
   70                CONTINUE
                     call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                     call r(idx,ixx,ixx,jxx+j,jxx+n-1)
                     call w(idx,ixx,ixx,jxx+j,jxx+n-1)
                     IF( NOUNIT ) then
                        X( JX ) = X( JX )*A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                        call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                     endif
                  END IF
                  JX = JX - INCX
   80          CONTINUE
            END IF
         END IF
      ELSE
*
*        Form  x := A'*x.
*
         IF( LSAME( UPLO, 'U' ) )THEN
            IF( INCX.EQ.1 )THEN
               DO 100, J = N, 1, -1
                  TEMP = X( J )
                  IF( NOUNIT ) then
                     TEMP = TEMP*A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  DO 90, I = J - 1, 1, -1
                     TEMP = TEMP + A( I, J )*X( I )
   90             CONTINUE
                  call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                  call r(idx,ixx,ixx+j-2,jxx,jxx)
                  X( J ) = TEMP
                  call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
  100          CONTINUE
            ELSE
               JX = KX + ( N - 1 )*INCX
               DO 120, J = N, 1, -1
                  TEMP = X( JX )
                  IX   = JX
                  IF( NOUNIT ) then
                     TEMP = TEMP*A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  DO 110, I = J - 1, 1, -1
                     IX   = IX   - INCX
                     TEMP = TEMP + A( I, J )*X( IX )
  110             CONTINUE
                  call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                  call r(idx,ixx,ixx,jxx,jxx+j-2)
                  X( JX ) = TEMP
                  call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                  JX      = JX   - INCX
  120          CONTINUE
            END IF
         ELSE
            IF( INCX.EQ.1 )THEN
               DO 140, J = 1, N
                  TEMP = X( J )
                  IF( NOUNIT ) then
                     TEMP = TEMP*A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  DO 130, I = J + 1, N
                     TEMP = TEMP + A( I, J )*X( I )
  130             CONTINUE
                  call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                  call r(idx,ixx+j,ixx+n-1,jxx,jxx)
                  X( J ) = TEMP
                  call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
  140          CONTINUE
            ELSE
               JX = KX
               DO 160, J = 1, N
                  TEMP = X( JX )
                  IX   = JX
                  IF( NOUNIT ) then
                     TEMP = TEMP*A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  DO 150, I = J + 1, N
                     IX   = IX   + INCX
                     TEMP = TEMP + A( I, J )*X( IX )
  150             CONTINUE
                  call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                  call r(idx,ixx,ixx,jxx+j,jxx+n-1)
                  X( JX ) = TEMP
                  call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                  JX      = JX   + INCX
  160          CONTINUE
            END IF
         END IF
      END IF
*
      RETURN
*
*     End of STRMV .
*
      END
SHAR_EOF
if test -f 'mstrsm.f'
then
	echo shar: over-writing existing file "'mstrsm.f'"
fi
cat << \SHAR_EOF > 'mstrsm.f'
*
************************************************************************
*
      SUBROUTINE mSTRSM ( SIDE, UPLO, TRANS, DIAG, M, N, A, LDA, B, LDB,
     $                   ida,ia,ja,idb,ib,jb)
*     .. Scalar Arguments ..
      INTEGER            LDA, LDB, M, N
      CHARACTER*1        SIDE, DIAG, TRANS, UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), B( LDB, * )
*     ..
*
*  Purpose
*  =======
*
*  STRSM  solves one of the matrix equations
*
*     op( A )*X = B,   or   X*op( A ) = B,
*
*  where X and B are m by n matrices, A is a unit, or non-unit, upper
*  or lower triangular matrix and  op( A )  is one of
*
*     op( A ) = A   or   op( A ) = A'.
*
*  The matrix X is overwritten on B.
*
*  Parameters
*  ==========
*
*  SIDE   - CHARACTER*1.
*           On entry, SIDE specifies whether op( A ) appears on the left
*           or right of X as follows:
*
*              SIDE = 'L' or 'l'   op( A )*X = B.
*
*              SIDE = 'R' or 'r'   X*op( A ) = B.
*
*           Unchanged on exit.
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the matrix A is an upper or
*           lower triangular matrix as follows:
*
*              UPLO = 'U' or 'u'   A is an upper triangular matrix.
*
*              UPLO = 'L' or 'l'   A is a lower triangular matrix.
*
*           Unchanged on exit.
*
*  TRANS  - CHARACTER*1.
*           On entry, TRANS specifies the form of op( A ) to be used in
*           the matrix multiplication as follows:
*
*              TRANS = 'N' or 'n'   op( A ) = A.
*
*              TRANS = 'T' or 't'   op( A ) = A'.
*
*              TRANS = 'C' or 'c'   op( A ) = A'.
*
*           Unchanged on exit.
*
*  DIAG   - CHARACTER*1.
*           On entry, DIAG specifies whether or not A is unit triangular
*           as follows:
*
*              DIAG = 'U' or 'u'   A is assumed to be unit triangular.
*
*              DIAG = 'N' or 'n'   A is not assumed to be unit
*                                  triangular.
*
*           Unchanged on exit.
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of B. M must be at
*           least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of B.  N must be
*           at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, k ), where k is m
*           when  SIDE = 'L' or 'l'  and is  n  when  SIDE = 'R' or 'r'.
*           Before entry  with  UPLO = 'U' or 'u',  the  leading  k by k
*           upper triangular part of the array  A must contain the upper
*           triangular matrix  and the strictly lower triangular part of
*           A is not referenced.
*           Before entry  with  UPLO = 'L' or 'l',  the  leading  k by k
*           lower triangular part of the array  A must contain the lower
*           triangular matrix  and the strictly upper triangular part of
*           A is not referenced.
*           Note that when  DIAG = 'U' or 'u',  the diagonal elements of
*           A  are not referenced either,  but are assumed to be  unity.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program.  When  SIDE = 'L' or 'l'  then
*           LDA  must be at least  max( 1, m ),  when  SIDE = 'R' or 'r'
*           then LDA must be at least max( 1, n ).
*           Unchanged on exit.
*
*  B      - REAL             array of DIMENSION ( LDB, n ).
*           Before entry,  the leading  m by n part of the array  B must
*           contain  the  right-hand  side  matrix  B,  and  on exit  is
*           overwritten by the solution matrix  X.
*
*  LDB    - INTEGER.
*           On entry, LDB specifies the first dimension of B as declared
*           in  the  calling  (sub)  program.   LDB  must  be  at  least
*           max( 1, m ).
*           Unchanged on exit.
*
*
*  Level 3 Blas routine.
*
*  -- Written on 30-April-1987.
*     Sven Hammarling, Nag Central Office.
*
*
*     .. Local Scalars ..
      INTEGER            INFO, J, NROWA
      LOGICAL            LSIDE
      CHARACTER*1        NOTR
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           STRSV, XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      LSIDE = LSAME( SIDE, 'L' )
      IF( LSIDE )THEN
         NROWA = M
      ELSE
         NROWA = N
      END IF
      INFO = 0
      IF(      ( .NOT.LSIDE               ).AND.
     $         ( .NOT.LSAME( SIDE , 'R' ) )      )THEN
         INFO = 1
      ELSE IF( ( .NOT.LSAME( UPLO , 'U' ) ).AND.
     $         ( .NOT.LSAME( UPLO , 'L' ) )      )THEN
         INFO = 2
      ELSE IF( ( .NOT.LSAME( TRANS, 'N' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'C' ) )      )THEN
         INFO = 3
      ELSE IF( ( .NOT.LSAME( DIAG , 'U' ) ).AND.
     $         ( .NOT.LSAME( DIAG , 'N' ) )      )THEN
         INFO = 4
      ELSE IF( M.LT.0 )THEN
         INFO = 5
      ELSE IF( N.LT.0 )THEN
         INFO = 6
      ELSE IF( LDA.LT.MAX( 1, NROWA ) )THEN
         INFO = 8
      ELSE IF( LDB.LT.MAX( 1, M ) )THEN
         INFO = 10
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'STRSM ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( N.EQ.0 )
     $   RETURN
*
*     Start the operations.
*
      IF( LSIDE )THEN
         call ops(ida,m*m*n,'strsm')
*
*        Solve  op( A )*X = B.
*
         DO 10, J = 1, N
            CALL STRSV ( UPLO, TRANS, DIAG, M, A, LDA, B( 1, J ), 1 )
   10    CONTINUE
c         if( lsame(trans, 'N') .and. lsame(uplo, 'L') .or.
c     $       lsame(trans, 'T') .and. lsame(uplo, 'U') ) then
         if( lsame(uplo, 'L') ) then
            do 1 j = 1,m
               call r(ida,j+ia-1,m+ia-1,j+ja-1,j+ja-1)
    1       continue
            call r(idb,ib,m+ib-1,jb,n+jb-1)
            call w(idb,ib,m+ib-1,jb,n+jb-1)
         else
            do 2 j = m,1,-1
               call r(ida,ia,j+ia-1,j+ja-1,j+ja-1)
    2       continue
            call r(idb,ib,m+ib-1,jb,n+jb-1)
            call w(idb,ib,m+ib-1,jb,n+jb-1)
         endif
      ELSE
         call ops(ida,m*n*n,'strsm')
         IF( LSAME( TRANS, 'N' ) )THEN
            NOTR = 'T'
         ELSE
            NOTR = 'N'
         END IF
*
*        Solve  X*op( A ) = B  using  op( A' )*X' = B'.
*
         DO 20, J = 1, M
            CALL STRSV ( UPLO, NOTR, DIAG, N, A, LDA, B( J, 1 ), LDB )
   20    CONTINUE
c         if( lsame(trans, 'T') .and. lsame(uplo, 'L') .or.
c     $       lsame(trans, 'N') .and. lsame(uplo, 'U') ) then
         if( lsame(uplo, 'L') ) then
            do 3 j = 1,n
               call r(ida,j+ia-1,ia+n-1,j+ja-1,j+ja-1)
    3       continue
            call r(idb,ib,ib+m-1,jb,jb+n-1)
            call w(idb,ib,ib+m-1,jb,jb+n-1)
         else
            do 4 j = 1,n
               call r(ida,ia,j+ia-1,j+ja-1,j+ja-1)
    4       continue
            call r(idb,ib,ib+m-1,jb,jb+n-1)
            call w(idb,ib,ib+m-1,jb,jb+n-1)
         endif
      END IF
*
      RETURN
*
*     End of STRSM .
*
      END
SHAR_EOF
if test -f 'mstrsv.f'
then
	echo shar: over-writing existing file "'mstrsv.f'"
fi
cat << \SHAR_EOF > 'mstrsv.f'
*
************************************************************************
*
      SUBROUTINE mSTRSV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX ,
     $                   ida,ia,ja,idx,ixx,jxx)
*     .. Scalar Arguments ..
      INTEGER            INCX, LDA, N
      CHARACTER*1        DIAG, TRANS, UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * )
*     ..
*
*  Purpose
*  =======
*
*  STRSV  solves one of the systems of equations
*
*     A*x = b,   or   A'*x = b,
*
*  where b and x are n element vectors and A is an n by n unit, or
*  non-unit, upper or lower triangular matrix.
*
*  No test for singularity or near-singularity is included in this
*  routine. Such tests must be performed before calling this routine.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the matrix is an upper or
*           lower triangular matrix as follows:
*
*              UPLO = 'U' or 'u'   A is an upper triangular matrix.
*
*              UPLO = 'L' or 'l'   A is a lower triangular matrix.
*
*           Unchanged on exit.
*
*  TRANS  - CHARACTER*1.
*           On entry, TRANS specifies the equations to be solved as
*           follows:
*
*              TRANS = 'N' or 'n'   A*x = b.
*
*              TRANS = 'T' or 't'   A'*x = b.
*
*              TRANS = 'C' or 'c'   A'*x = b.
*
*           Unchanged on exit.
*
*  DIAG   - CHARACTER*1.
*           On entry, DIAG specifies whether or not A is unit
*           triangular as follows:
*
*              DIAG = 'U' or 'u'   A is assumed to be unit triangular.
*
*              DIAG = 'N' or 'n'   A is not assumed to be unit
*                                  triangular.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the order of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry with  UPLO = 'U' or 'u', the leading n by n
*           upper triangular part of the array A must contain the upper
*           triangular matrix and the strictly lower triangular part of
*           A is not referenced.
*           Before entry with UPLO = 'L' or 'l', the leading n by n
*           lower triangular part of the array A must contain the lower
*           triangular matrix and the strictly upper triangular part of
*           A is not referenced.
*           Note that when  DIAG = 'U' or 'u', the diagonal elements of
*           A are not referenced either, but are assumed to be unity.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, n ).
*           Unchanged on exit.
*
*  X      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCX ) ).
*           Before entry, the incremented array X must contain the n
*           element right-hand side vector b. On exit, X is overwritten
*           with the solution vector x.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ZERO
      PARAMETER        ( ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP
      INTEGER            I, INFO, IX, J, JX, KX
      LOGICAL            NOUNIT
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( UPLO , 'U' ).AND.
     $         .NOT.LSAME( UPLO , 'L' )      )THEN
         INFO = 1
      ELSE IF( .NOT.LSAME( TRANS, 'N' ).AND.
     $         .NOT.LSAME( TRANS, 'T' ).AND.
     $         .NOT.LSAME( TRANS, 'C' )      )THEN
         INFO = 2
      ELSE IF( .NOT.LSAME( DIAG , 'U' ).AND.
     $         .NOT.LSAME( DIAG , 'N' )      )THEN
         INFO = 3
      ELSE IF( N.LT.0 )THEN
         INFO = 4
      ELSE IF( LDA.LT.MAX( 1, N ) )THEN
         INFO = 6
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 8
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'STRSV ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( N.EQ.0 )
     $   RETURN
*
      NOUNIT = LSAME( DIAG, 'N' )
*
*     Set up the start point in X if the increment is not unity. This
*     will be  ( N - 1 )*INCX  too small for descending loops.
*
      IF( INCX.LE.0 )THEN
         KX = 1 - ( N - 1 )*INCX
      ELSE IF( INCX.NE.1 )THEN
         KX = 1
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through A.
*
      call ops(ida,n*n,'strsv')
      IF( LSAME( TRANS, 'N' ) )THEN
*
*        Form  x := inv( A )*x.
*
         IF( LSAME( UPLO, 'U' ) )THEN
            IF( INCX.EQ.1 )THEN
               DO 20, J = N, 1, -1
                  IF( X( J ).NE.ZERO )THEN
                     IF( NOUNIT ) then
                        X( J ) = X( J )/A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                        call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                     endif
                     TEMP = X( J )
                     DO 10, I = J - 1, 1, -1
                        X( I ) = X( I ) - TEMP*A( I, J )
   10                CONTINUE
                     call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                     call r(idx,ixx,ixx+j-2,jxx,jxx)
                     call w(idx,ixx,ixx+j-2,jxx,jxx)
                  END IF
   20          CONTINUE
            ELSE
               JX = KX + ( N - 1 )*INCX
               DO 40, J = N, 1, -1
                  IF( X( JX ).NE.ZERO )THEN
                     IF( NOUNIT ) then
                        X( JX ) = X( JX )/A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                        call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                     endif
                     TEMP = X( JX )
                     IX   = JX
                     DO 30, I = J - 1, 1, -1
                        IX      = IX      - INCX
                        X( IX ) = X( IX ) - TEMP*A( I, J )
   30                CONTINUE
                     call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                     call r(idx,ixx,ixx,jxx,jxx+j-2)
                     call w(idx,ixx,ixx,jxx,jxx+j-2)
                  END IF
                  JX = JX - INCX
   40          CONTINUE
            END IF
         ELSE
            IF( INCX.EQ.1 )THEN
               DO 60, J = 1, N
                  IF( X( J ).NE.ZERO )THEN
                     IF( NOUNIT ) then
                        X( J ) = X( J )/A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                        call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
                     endif
                     TEMP = X( J )
                     DO 50, I = J + 1, N
                        X( I ) = X( I ) - TEMP*A( I, J )
   50                CONTINUE
                     call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                     call r(idx,ixx+j,ixx+n-1,jxx,jxx)
                     call w(idx,ixx+j,ixx+n-1,jxx,jxx)
                  END IF
   60          CONTINUE
            ELSE
               JX = KX
               DO 80, J = 1, N
                  IF( X( JX ).NE.ZERO )THEN
                     IF( NOUNIT ) then
                        X( JX ) = X( JX )/A( J, J )
                        call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                        call r(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                        call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                     endif
                     TEMP = X( JX )
                     IX   = JX
                     DO 70, I = J + 1, N
                        IX      = IX      + INCX
                        X( IX ) = X( IX ) - TEMP*A( I, J )
   70                CONTINUE
                     call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                     call r(idx,ixx,ixx,jxx+j,jxx+n-1)
                     call w(idx,ixx,ixx,jxx+j,jxx+n-1)
                  END IF
                  JX = JX + INCX
   80          CONTINUE
            END IF
         END IF
      ELSE
*
*        Form  x := inv( A' )*x.
*
         IF( LSAME( UPLO, 'U' ) )THEN
            IF( INCX.EQ.1 )THEN
               DO 100, J = 1, N
                  TEMP = X( J )
                  DO 90, I = 1, J - 1
                     TEMP = TEMP - A( I, J )*X( I )
   90             CONTINUE
                  call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                  call r(idx,ixx,ixx+j-2,jxx,jxx)
                  IF( NOUNIT ) then
                     TEMP = TEMP/A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  X( J ) = TEMP
                  call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
  100          CONTINUE
            ELSE
               JX = KX
               DO 120, J = 1, N
                  TEMP = X( JX )
                  IX   = KX
                  DO 110, I = 1, J - 1
                     TEMP = TEMP - A( I, J )*X( IX )
                     IX   = IX   + INCX
  110             CONTINUE
                  call r(ida,ia,ia+j-2,ja+j-1,ja+j-1)
                  call r(idx,ixx,ixx,jxx,jxx+j-2)
                  IF( NOUNIT ) then
                     TEMP = TEMP/A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  X( JX ) = TEMP
                  call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                  JX      = JX   + INCX
  120          CONTINUE
            END IF
         ELSE
            IF( INCX.EQ.1 )THEN
               DO 140, J = N, 1, -1
                  TEMP = X( J )
                  DO 130, I = N, J + 1, -1
                     TEMP = TEMP - A( I, J )*X( I )
  130             CONTINUE
                  call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                  call r(idx,ixx+j,ixx+n-1,jxx,jxx)
                  IF( NOUNIT ) then
                     TEMP = TEMP/A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  X( J ) = TEMP
                  call w(idx,ixx+j-1,ixx+j-1,jxx,jxx)
  140          CONTINUE
            ELSE
               KX = KX + ( N - 1 )*INCX
               JX = KX
               DO 160, J = N, 1, -1
                  TEMP = X( JX )
                  IX   = KX
                  DO 150, I = N, J + 1, -1
                     TEMP = TEMP - A( I, J )*X( IX )
                     IX   = IX   - INCX
  150             CONTINUE
                  call r(ida,ia+j,ia+n-1,ja+j-1,ja+j-1)
                  call r(idx,ixx,ixx,jxx+j,jxx+n-1)
                  IF( NOUNIT ) then
                     TEMP = TEMP/A( J, J )
                     call r(ida,ia+j-1,ia+j-1,ja+j-1,ja+j-1)
                  endif
                  X( JX ) = TEMP
                  call w(idx,ixx,ixx,jxx+j-1,jxx+j-1)
                  JX      = JX   - INCX
  160          CONTINUE
            END IF
         END IF
      END IF
*
      RETURN
*
*     End of STRSV .
*
      END
SHAR_EOF
if test -f 'ops.f'
then
	echo shar: over-writing existing file "'ops.f'"
fi
cat << \SHAR_EOF > 'ops.f'
      subroutine ops(id,n,name)
      integer id,n
      character*6 name
      write(3,10)5,id,n,name
   10 format(i2,i3,i7,1x,a6)
      return
      end
SHAR_EOF
if test -f 'r.f'
then
	echo shar: over-writing existing file "'r.f'"
fi
cat << \SHAR_EOF > 'r.f'
      subroutine r(id,i1,i2,j1,j2)
      if( i2 .lt. i1 ) return
      if( j2 .lt. j1 ) return
      write(3,10)1,id,i1,i2,j1,j2,second(t)
   10 format(i2,i2,i4,i4,i4,i4,2x,f10.5)
      return
      end
SHAR_EOF
if test -f 'saxpy.f'
then
	echo shar: over-writing existing file "'saxpy.f'"
fi
cat << \SHAR_EOF > 'saxpy.f'
      subroutine saxpy(n,sa,sx,incx,sy,incy)
c
c     constant times a vector plus a vector.
c     uses unrolled loop for increments equal to one.
c     jack dongarra, linpack, 3/11/78.
c
      real sx(1),sy(1),sa
      integer i,incx,incy,ix,iy,m,mp1,n
c
      if(n.le.0)return
      if (sa .eq. 0.0) return
      if(incx.eq.1.and.incy.eq.1)go to 20
c
c        code for unequal increments or equal increments
c          not equal to 1
c
      ix = 1
      iy = 1
      if(incx.lt.0)ix = (-n+1)*incx + 1
      if(incy.lt.0)iy = (-n+1)*incy + 1
      do 10 i = 1,n
        sy(iy) = sy(iy) + sa*sx(ix)
        ix = ix + incx
        iy = iy + incy
   10 continue
      return
c
c        code for both increments equal to 1
c
c
c        clean-up loop
c
   20 m = mod(n,4)
      if( m .eq. 0 ) go to 40
      do 30 i = 1,m
        sy(i) = sy(i) + sa*sx(i)
   30 continue
      if( n .lt. 4 ) return
   40 mp1 = m + 1
      do 50 i = mp1,n,4
        sy(i) = sy(i) + sa*sx(i)
        sy(i + 1) = sy(i + 1) + sa*sx(i + 1)
        sy(i + 2) = sy(i + 2) + sa*sx(i + 2)
        sy(i + 3) = sy(i + 3) + sa*sx(i + 3)
   50 continue
      return
      end
SHAR_EOF
if test -f 'scopy.f'
then
	echo shar: over-writing existing file "'scopy.f'"
fi
cat << \SHAR_EOF > 'scopy.f'
      subroutine scopy(n,sx,incx,sy,incy)
c
c     copies a vector, x, to a vector, y.
c     uses unrolled loops for increments equal to 1.
c     jack dongarra, linpack, 3/11/78.
c
      real sx(1),sy(1)
      integer i,incx,incy,ix,iy,m,mp1,n
c
      if(n.le.0)return
      if(incx.eq.1.and.incy.eq.1)go to 20
c
c        code for unequal increments or equal increments
c          not equal to 1
c
      ix = 1
      iy = 1
      if(incx.lt.0)ix = (-n+1)*incx + 1
      if(incy.lt.0)iy = (-n+1)*incy + 1
      do 10 i = 1,n
        sy(iy) = sx(ix)
        ix = ix + incx
        iy = iy + incy
   10 continue
      return
c
c        code for both increments equal to 1
c
c
c        clean-up loop
c
   20 m = mod(n,7)
      if( m .eq. 0 ) go to 40
      do 30 i = 1,m
        sy(i) = sx(i)
   30 continue
      if( n .lt. 7 ) return
   40 mp1 = m + 1
      do 50 i = mp1,n,7
        sy(i) = sx(i)
        sy(i + 1) = sx(i + 1)
        sy(i + 2) = sx(i + 2)
        sy(i + 3) = sx(i + 3)
        sy(i + 4) = sx(i + 4)
        sy(i + 5) = sx(i + 5)
        sy(i + 6) = sx(i + 6)
   50 continue
      return
      end
SHAR_EOF
if test -f 'second.f'
then
	echo shar: over-writing existing file "'second.f'"
fi
cat << \SHAR_EOF > 'second.f'
      real function second(t)
c
c     this routine will gather the user time for a process.
c     it has resolution of 1/60 of a second
c     and uses the unix c program times.
c     see the unix manual for details
c     reports time in seconds.
c
      itime = mclock(i)
      second = float(itime)/60.
c
c     this statement is here to bump the time by a bit
c     incase no the interval was too small.
c
      second = second + second*1.0e-6
      return
      end

SHAR_EOF
if test -f 'sgemv.f'
then
	echo shar: over-writing existing file "'sgemv.f'"
fi
cat << \SHAR_EOF > 'sgemv.f'
*
************************************************************************
*
*     File of the REAL              Level-2 BLAS.
*     ===========================================
*
*     SUBROUTINE SGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,
*    $                   BETA, Y, INCY )
*
*     SUBROUTINE SGBMV ( TRANS, M, N, KL, KU, ALPHA, A, LDA, X, INCX,
*    $                   BETA, Y, INCY )
*
*     SUBROUTINE SSYMV ( UPLO, N, ALPHA, A, LDA, X, INCX,
*    $                   BETA, Y, INCY )
*
*     SUBROUTINE SSBMV ( UPLO, N, K, ALPHA, A, LDA, X, INCX,
*    $                   BETA, Y, INCY )
*
*     SUBROUTINE SSPMV ( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY )
*
*     SUBROUTINE STRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
*
*     SUBROUTINE STBMV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )
*
*     SUBROUTINE STPMV ( UPLO, TRANS, DIAG, N, AP, X, INCX )
*
*     SUBROUTINE STRSV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
*
*     SUBROUTINE STBSV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )
*
*     SUBROUTINE STPSV ( UPLO, TRANS, DIAG, N, AP, X, INCX )
*
*     SUBROUTINE SGER  ( M, N, ALPHA, X, INCX, Y, INCY, A, LDA )
*
*     SUBROUTINE SSYR  ( UPLO, N, ALPHA, X, INCX, A, LDA )
*
*     SUBROUTINE SSPR  ( UPLO, N, ALPHA, X, INCX, AP )
*
*     SUBROUTINE SSYR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA )
*
*     SUBROUTINE SSPR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, AP )
*
*     See:
*
*        Dongarra J. J., Du Croz J. J., Hammarling S.  and Hanson R. J..
*        An  extended  set of Fortran  Basic Linear Algebra Subprograms.
*
*        Technical  Memoranda  Nos. 41 (revision 3) and 81,  Mathematics
*        and  Computer Science  Division,  Argonne  National Laboratory,
*        9700 South Cass Avenue, Argonne, Illinois 60439, US.
*
*        Or
*
*        NAG  Technical Reports TR3/87 and TR4/87,  Numerical Algorithms
*        Group  Ltd.,  NAG  Central  Office,  256  Banbury  Road, Oxford
*        OX2 7DE, UK,  and  Numerical Algorithms Group Inc.,  1101  31st
*        Street,  Suite 100,  Downers Grove,  Illinois 60515-1263,  USA.
*
************************************************************************
*
      SUBROUTINE SGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY )
*     .. Scalar Arguments ..
      REAL               ALPHA, BETA
      INTEGER            INCX, INCY, LDA, M, N
      CHARACTER*1        TRANS
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose
*  =======
*
*  SGEMV  performs one of the matrix-vector operations
*
*     y := alpha*A*x + beta*y,   or   y := alpha*A'*x + beta*y,
*
*  where alpha and beta are scalars, x and y are vectors and A is an
*  m by n matrix.
*
*  Parameters
*  ==========
*
*  TRANS  - CHARACTER*1.
*           On entry, TRANS specifies the operation to be performed as
*           follows:
*
*              TRANS = 'N' or 'n'   y := alpha*A*x + beta*y.
*
*              TRANS = 'T' or 't'   y := alpha*A'*x + beta*y.
*
*              TRANS = 'C' or 'c'   y := alpha*A'*x + beta*y.
*
*           Unchanged on exit.
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of the matrix A.
*           M must be at least zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry, the leading m by n part of the array A must
*           contain the matrix of coefficients.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, m ).
*           Unchanged on exit.
*
*  X      - REAL             array of DIMENSION at least
*           ( 1 + ( n - 1 )*abs( INCX ) ) when TRANS = 'N' or 'n'
*           and at least
*           ( 1 + ( m - 1 )*abs( INCX ) ) otherwise.
*           Before entry, the incremented array X must contain the
*           vector x.
*           Unchanged on exit.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry, BETA specifies the scalar beta. When BETA is
*           supplied as zero then Y need not be set on input.
*           Unchanged on exit.
*
*  Y      - REAL             array of DIMENSION at least
*           ( 1 + ( m - 1 )*abs( INCY ) ) when TRANS = 'N' or 'n'
*           and at least
*           ( 1 + ( n - 1 )*abs( INCY ) ) otherwise.
*           Before entry with BETA non-zero, the incremented array Y
*           must contain the vector y. On exit, Y is overwritten by the
*           updated vector y.
*
*  INCY   - INTEGER.
*           On entry, INCY specifies the increment for the elements of
*           Y. INCY must not be zero.
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ONE         , ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP
      INTEGER            I, INFO, IX, IY, J, JX, JY, KX, KY, LENX, LENY
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( TRANS, 'N' ).AND.
     $         .NOT.LSAME( TRANS, 'T' ).AND.
     $         .NOT.LSAME( TRANS, 'C' )      )THEN
         INFO = 1
      ELSE IF( M.LT.0 )THEN
         INFO = 2
      ELSE IF( N.LT.0 )THEN
         INFO = 3
      ELSE IF( LDA.LT.MAX( 1, M ) )THEN
         INFO = 6
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 8
      ELSE IF( INCY.EQ.0 )THEN
         INFO = 11
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SGEMV ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( M.EQ.0 ).OR.( N.EQ.0 ).OR.
     $    ( ( ALPHA.EQ.ZERO ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     Set  LENX  and  LENY, the lengths of the vectors x and y, and set
*     up the start points in  X  and  Y.
*
      IF( LSAME( TRANS, 'N' ) )THEN
         LENX = N
         LENY = M
      ELSE
         LENX = M
         LENY = N
      END IF
      IF( INCX.GT.0 )THEN
         KX = 1
      ELSE
         KX = 1 - ( LENX - 1 )*INCX
      END IF
      IF( INCY.GT.0 )THEN
         KY = 1
      ELSE
         KY = 1 - ( LENY - 1 )*INCY
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through A.
*
*     First form  y := beta*y.
*
      IF( BETA.NE.ONE )THEN
         IF( INCY.EQ.1 )THEN
            IF( BETA.EQ.ZERO )THEN
               DO 10, I = 1, LENY
                  Y( I ) = ZERO
   10          CONTINUE
            ELSE
               DO 20, I = 1, LENY
                  Y( I ) = BETA*Y( I )
   20          CONTINUE
            END IF
         ELSE
            IY = KY
            IF( BETA.EQ.ZERO )THEN
               DO 30, I = 1, LENY
                  Y( IY ) = ZERO
                  IY      = IY   + INCY
   30          CONTINUE
            ELSE
               DO 40, I = 1, LENY
                  Y( IY ) = BETA*Y( IY )
                  IY      = IY           + INCY
   40          CONTINUE
            END IF
         END IF
      END IF
      IF( ALPHA.EQ.ZERO )
     $   RETURN
      IF( LSAME( TRANS, 'N' ) )THEN
*
*        Form  y := alpha*A*x + y.
*
         JX = KX
         IF( INCY.EQ.1 )THEN
            DO 60, J = 1, N
               IF( X( JX ).NE.ZERO )THEN
                  TEMP = ALPHA*X( JX )
                  DO 50, I = 1, M
                     Y( I ) = Y( I ) + TEMP*A( I, J )
   50             CONTINUE
               END IF
               JX = JX + INCX
   60       CONTINUE
         ELSE
            DO 80, J = 1, N
               IF( X( JX ).NE.ZERO )THEN
                  TEMP = ALPHA*X( JX )
                  IY   = KY
                  DO 70, I = 1, M
                     Y( IY ) = Y( IY ) + TEMP*A( I, J )
                     IY      = IY      + INCY
   70             CONTINUE
               END IF
               JX = JX + INCX
   80       CONTINUE
         END IF
      ELSE
*
*        Form  y := alpha*A'*x + y.
*
         JY = KY
         IF( INCX.EQ.1 )THEN
            DO 100, J = 1, N
               TEMP = ZERO
               DO 90, I = 1, M
                  TEMP = TEMP + A( I, J )*X( I )
   90          CONTINUE
               Y( JY ) = Y( JY ) + ALPHA*TEMP
               JY      = JY      + INCY
  100       CONTINUE
         ELSE
            DO 120, J = 1, N
               TEMP = ZERO
               IX   = KX
               DO 110, I = 1, M
                  TEMP = TEMP + A( I, J )*X( IX )
                  IX   = IX   + INCX
  110          CONTINUE
               Y( JY ) = Y( JY ) + ALPHA*TEMP
               JY      = JY      + INCY
  120       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of SGEMV .
*
      END
SHAR_EOF
if test -f 'sgetf2.f'
then
	echo shar: over-writing existing file "'sgetf2.f'"
fi
cat << \SHAR_EOF > 'sgetf2.f'
      SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO )
*
*  -- LAPACK routine -- Written on March 8, 1988.
*
*     .. Scalar Arguments ..
      INTEGER          M, N, LDA, INFO
*     .. Array Arguments ..
      REAL             A( LDA, * )
      INTEGER          IPIV( N )
*
*  Purpose
*  =======
*
*     Computes an LU factorization of an m-by-n matrix A, using partial
*     pivoting with row interchanges.
*     This is the Level 2 BLAS version of the algorithm.
*
*  Arguments
*  =========
*
*  M      - INTEGER.
*           On entry, M specifies the number of rows of the matrix
*           A . M must be at least  zero.
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the number of columns of the matrix
*           A . N must be at least zero.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. 
*           LDA must be at least  max( 1, M ).
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, N ).
*           On entry, A specifies the array which contains the matrix 
*           being factored.
*           On exit, the array A is overwritten by the
*           LU factorization. The factorization can be written as
*           A = L*U where L is a product of permutation and unit lower
*           triagnular matrices and U is an upper triangular matrix.
*
*  IPIV   - INTEGER           array of DIMINSON ( M ).
*           On exit, the array IPIV contains the pivot incides.
*
*  INFO   - INTEGER.
*           On exit, a value of 0 indicated a normal return;
*           a value nonzero, say K, indicates that U(K,K) = 0.0 exactly.
*           This is not an error condition for this subroutine, but it
*           does indicate that SGETRS or SGEINV will divide by zero
*           if called. Use routine SGECON for a reliable indication of
*           singularity;
*           a negative value, say -K, indicates the Kth argument has an
*           illegal value.
*
*     .. Parameters ..
      REAL               ONE, ZERO
      PARAMETER          ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               T
      INTEGER            I, IP, J, JP
*     .. External Functions ..
      INTEGER            ISAMAX
      EXTERNAL           ISAMAX
*     .. External Subroutines ..
      EXTERNAL           SGEMV, SSCAL, SSWAP, STRSV, XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC        MAX
*     ..
*     .. Executable Statements ..
*     Gaussian elimination with partial pivoting
*
*     Test the input parameters.
*
      INFO = 0
*
*     Quick return if possible.
*
      IF( N.EQ.0 ) RETURN
      IF( M.LT.0 )THEN
         INFO = -1
      ELSE IF( N.LT.0 )THEN
         INFO = -2
      ELSE IF( LDA.LT.MAX( 1, M ) )THEN
         INFO = -4
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SGETF2', -INFO )
         RETURN
      END IF
*
      DO 20 J = 1, N
*
*        Apply previous interchanges to jth column.
*
         DO 10 I = 1, J - 1
            IP = IPIV( I )
            T = A( I, J )
            A( I, J ) = A( IP, J )
            A( IP, J ) = T
   10    CONTINUE
*
*        Compute elements 1:j-1 of j-th column.
*
         CALL STRSV( 'Lower', 'No transpose', 'Unit', J - 1, A,
     $               LDA, A( 1, J ), 1 )
*
*        Update elements j:n of j-th column.
*
         CALL SGEMV( 'No transpose', M - J + 1, J - 1, -ONE, A( J, 1 ),
     $               LDA, A( 1, J ), 1, ONE, A( J, J ), 1 )
*
*        Find pivot and test for singularity.
*
         JP = J - 1 + ISAMAX( M - J + 1, A( J, J ), 1 )
         IPIV( J ) = JP
         IF( A( JP, J ).EQ.ZERO ) GO TO 30
*
*        Apply interchange to columns 1:j.
*
         IF( JP.NE.J )
     $      CALL SSWAP( J, A( J, 1 ), LDA, A( JP, 1 ), LDA )
*
*        Compute elements j+1:m of j-th column.
*
         IF( J.LT.M )
     $      CALL SSCAL( M - J, ONE/A( J, J ), A( J + 1, J ), 1 )
   20 CONTINUE
      RETURN
*
   30 CONTINUE
      INFO = J
      RETURN
*
*     Last line of SGETF2
      END
SHAR_EOF
if test -f 'sscal.f'
then
	echo shar: over-writing existing file "'sscal.f'"
fi
cat << \SHAR_EOF > 'sscal.f'
      subroutine sscal(n,sa,sx,incx)
c
c     scales a vector by a constant.
c     uses unrolled loops for increment equal to 1.
c     jack dongarra, linpack, 3/11/78.
c
      real sa,sx(1)
      integer i,incx,m,mp1,n,nincx
c
      if(n.le.0)return
      if(incx.eq.1)go to 20
c
c        code for increment not equal to 1
c
      nincx = n*incx
      do 10 i = 1,nincx,incx
        sx(i) = sa*sx(i)
   10 continue
      return
c
c        code for increment equal to 1
c
c
c        clean-up loop
c
   20 m = mod(n,5)
      if( m .eq. 0 ) go to 40
      do 30 i = 1,m
        sx(i) = sa*sx(i)
   30 continue
      if( n .lt. 5 ) return
   40 mp1 = m + 1
      do 50 i = mp1,n,5
        sx(i) = sa*sx(i)
        sx(i + 1) = sa*sx(i + 1)
        sx(i + 2) = sa*sx(i + 2)
        sx(i + 3) = sa*sx(i + 3)
        sx(i + 4) = sa*sx(i + 4)
   50 continue
      return
      end
SHAR_EOF
if test -f 'sswap.f'
then
	echo shar: over-writing existing file "'sswap.f'"
fi
cat << \SHAR_EOF > 'sswap.f'
      subroutine sswap (n,sx,incx,sy,incy)
c
c     interchanges two vectors.
c     uses unrolled loops for increments equal to 1.
c     jack dongarra, linpack, 3/11/78.
c
      real sx(1),sy(1),stemp
      integer i,incx,incy,ix,iy,m,mp1,n
c
      if(n.le.0)return
      if(incx.eq.1.and.incy.eq.1)go to 20
c
c       code for unequal increments or equal increments not equal
c         to 1
c
      ix = 1
      iy = 1
      if(incx.lt.0)ix = (-n+1)*incx + 1
      if(incy.lt.0)iy = (-n+1)*incy + 1
      do 10 i = 1,n
        stemp = sx(ix)
        sx(ix) = sy(iy)
        sy(iy) = stemp
        ix = ix + incx
        iy = iy + incy
   10 continue
      return
c
c       code for both increments equal to 1
c
c
c       clean-up loop
c
   20 m = mod(n,3)
      if( m .eq. 0 ) go to 40
      do 30 i = 1,m
        stemp = sx(i)
        sx(i) = sy(i)
        sy(i) = stemp
   30 continue
      if( n .lt. 3 ) return
   40 mp1 = m + 1
      do 50 i = mp1,n,3
        stemp = sx(i)
        sx(i) = sy(i)
        sy(i) = stemp
        stemp = sx(i + 1)
        sx(i + 1) = sy(i + 1)
        sy(i + 1) = stemp
        stemp = sx(i + 2)
        sx(i + 2) = sy(i + 2)
        sy(i + 2) = stemp
   50 continue
      return
      end
SHAR_EOF
if test -f 'ssymv.f'
then
	echo shar: over-writing existing file "'ssymv.f'"
fi
cat << \SHAR_EOF > 'ssymv.f'
*
************************************************************************
*
      SUBROUTINE SSYMV ( UPLO, N, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY )
*     .. Scalar Arguments ..
      REAL               ALPHA, BETA
      INTEGER            INCX, INCY, LDA, N
      CHARACTER*1        UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose
*  =======
*
*  SSYMV  performs the matrix-vector  operation
*
*     y := alpha*A*x + beta*y,
*
*  where alpha and beta are scalars, x and y are n element vectors and
*  A is an n by n symmetric matrix.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the upper or lower
*           triangular part of the array A is to be referenced as
*           follows:
*
*              UPLO = 'U' or 'u'   Only the upper triangular part of A
*                                  is to be referenced.
*
*              UPLO = 'L' or 'l'   Only the lower triangular part of A
*                                  is to be referenced.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the order of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry with  UPLO = 'U' or 'u', the leading n by n
*           upper triangular part of the array A must contain the upper
*           triangular part of the symmetric matrix and the strictly
*           lower triangular part of A is not referenced.
*           Before entry with UPLO = 'L' or 'l', the leading n by n
*           lower triangular part of the array A must contain the lower
*           triangular part of the symmetric matrix and the strictly
*           upper triangular part of A is not referenced.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, n ).
*           Unchanged on exit.
*
*  X      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCX ) ).
*           Before entry, the incremented array X must contain the n
*           element vector x.
*           Unchanged on exit.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry, BETA specifies the scalar beta. When BETA is
*           supplied as zero then Y need not be set on input.
*           Unchanged on exit.
*
*  Y      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCY ) ).
*           Before entry, the incremented array Y must contain the n
*           element vector y. On exit, Y is overwritten by the updated
*           vector y.
*
*  INCY   - INTEGER.
*           On entry, INCY specifies the increment for the elements of
*           Y. INCY must not be zero.
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ONE         , ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP1, TEMP2
      INTEGER            I, INFO, IX, IY, J, JX, JY, KX, KY
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( UPLO, 'U' ).AND.
     $         .NOT.LSAME( UPLO, 'L' )      )THEN
         INFO = 1
      ELSE IF( N.LT.0 )THEN
         INFO = 2
      ELSE IF( LDA.LT.MAX( 1, N ) )THEN
         INFO = 5
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 7
      ELSE IF( INCY.EQ.0 )THEN
         INFO = 10
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SSYMV ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( N.EQ.0 ).OR.( ( ALPHA.EQ.ZERO ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     Set up the start points in  X  and  Y.
*
      IF( INCX.GT.0 )THEN
         KX = 1
      ELSE
         KX = 1 - ( N - 1 )*INCX
      END IF
      IF( INCY.GT.0 )THEN
         KY = 1
      ELSE
         KY = 1 - ( N - 1 )*INCY
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through the triangular part
*     of A.
*
*     First form  y := beta*y.
*
      IF( BETA.NE.ONE )THEN
         IF( INCY.EQ.1 )THEN
            IF( BETA.EQ.ZERO )THEN
               DO 10, I = 1, N
                  Y( I ) = ZERO
   10          CONTINUE
            ELSE
               DO 20, I = 1, N
                  Y( I ) = BETA*Y( I )
   20          CONTINUE
            END IF
         ELSE
            IY = KY
            IF( BETA.EQ.ZERO )THEN
               DO 30, I = 1, N
                  Y( IY ) = ZERO
                  IY      = IY   + INCY
   30          CONTINUE
            ELSE
               DO 40, I = 1, N
                  Y( IY ) = BETA*Y( IY )
                  IY      = IY           + INCY
   40          CONTINUE
            END IF
         END IF
      END IF
      IF( ALPHA.EQ.ZERO )
     $   RETURN
      IF( LSAME( UPLO, 'U' ) )THEN
*
*        Form  y  when A is stored in upper triangle.
*
         IF( ( INCX.EQ.1 ).AND.( INCY.EQ.1 ) )THEN
            DO 60, J = 1, N
               TEMP1 = ALPHA*X( J )
               TEMP2 = ZERO
               DO 50, I = 1, J - 1
                  Y( I ) = Y( I ) + TEMP1*A( I, J )
                  TEMP2  = TEMP2  + A( I, J )*X( I )
   50          CONTINUE
               Y( J ) = Y( J ) + TEMP1*A( J, J ) + ALPHA*TEMP2
   60       CONTINUE
         ELSE
            JX = KX
            JY = KY
            DO 80, J = 1, N
               TEMP1 = ALPHA*X( JX )
               TEMP2 = ZERO
               IX    = KX
               IY    = KY
               DO 70, I = 1, J - 1
                  Y( IY ) = Y( IY ) + TEMP1*A( I, J )
                  TEMP2   = TEMP2   + A( I, J )*X( IX )
                  IX      = IX      + INCX
                  IY      = IY      + INCY
   70          CONTINUE
               Y( JY ) = Y( JY ) + TEMP1*A( J, J ) + ALPHA*TEMP2
               JX      = JX      + INCX
               JY      = JY      + INCY
   80       CONTINUE
         END IF
      ELSE
*
*        Form  y  when A is stored in lower triangle.
*
         IF( ( INCX.EQ.1 ).AND.( INCY.EQ.1 ) )THEN
            DO 100, J = 1, N
               TEMP1  = ALPHA*X( J )
               TEMP2  = ZERO
               Y( J ) = Y( J )       + TEMP1*A( J, J )
               DO 90, I = J + 1, N
                  Y( I ) = Y( I ) + TEMP1*A( I, J )
                  TEMP2  = TEMP2  + A( I, J )*X( I )
   90          CONTINUE
               Y( J ) = Y( J ) + ALPHA*TEMP2
  100       CONTINUE
         ELSE
            JX = KX
            JY = KY
            DO 120, J = 1, N
               TEMP1   = ALPHA*X( JX )
               TEMP2   = ZERO
               Y( JY ) = Y( JY )       + TEMP1*A( J, J )
               IX      = JX
               IY      = JY
               DO 110, I = J + 1, N
                  IX      = IX      + INCX
                  IY      = IY      + INCY
                  Y( IY ) = Y( IY ) + TEMP1*A( I, J )
                  TEMP2   = TEMP2   + A( I, J )*X( IX )
  110          CONTINUE
               Y( JY ) = Y( JY ) + ALPHA*TEMP2
               JX      = JX      + INCX
               JY      = JY      + INCY
  120       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of SSYMV .
*
      END
SHAR_EOF
if test -f 'strsv.f'
then
	echo shar: over-writing existing file "'strsv.f'"
fi
cat << \SHAR_EOF > 'strsv.f'
*
************************************************************************
*
      SUBROUTINE STRSV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
*     .. Scalar Arguments ..
      INTEGER            INCX, LDA, N
      CHARACTER*1        DIAG, TRANS, UPLO
*     .. Array Arguments ..
      REAL               A( LDA, * ), X( * )
*     ..
*
*  Purpose
*  =======
*
*  STRSV  solves one of the systems of equations
*
*     A*x = b,   or   A'*x = b,
*
*  where b and x are n element vectors and A is an n by n unit, or
*  non-unit, upper or lower triangular matrix.
*
*  No test for singularity or near-singularity is included in this
*  routine. Such tests must be performed before calling this routine.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On entry, UPLO specifies whether the matrix is an upper or
*           lower triangular matrix as follows:
*
*              UPLO = 'U' or 'u'   A is an upper triangular matrix.
*
*              UPLO = 'L' or 'l'   A is a lower triangular matrix.
*
*           Unchanged on exit.
*
*  TRANS  - CHARACTER*1.
*           On entry, TRANS specifies the equations to be solved as
*           follows:
*
*              TRANS = 'N' or 'n'   A*x = b.
*
*              TRANS = 'T' or 't'   A'*x = b.
*
*              TRANS = 'C' or 'c'   A'*x = b.
*
*           Unchanged on exit.
*
*  DIAG   - CHARACTER*1.
*           On entry, DIAG specifies whether or not A is unit
*           triangular as follows:
*
*              DIAG = 'U' or 'u'   A is assumed to be unit triangular.
*
*              DIAG = 'N' or 'n'   A is not assumed to be unit
*                                  triangular.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry, N specifies the order of the matrix A.
*           N must be at least zero.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, n ).
*           Before entry with  UPLO = 'U' or 'u', the leading n by n
*           upper triangular part of the array A must contain the upper
*           triangular matrix and the strictly lower triangular part of
*           A is not referenced.
*           Before entry with UPLO = 'L' or 'l', the leading n by n
*           lower triangular part of the array A must contain the lower
*           triangular matrix and the strictly upper triangular part of
*           A is not referenced.
*           Note that when  DIAG = 'U' or 'u', the diagonal elements of
*           A are not referenced either, but are assumed to be unity.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in the calling (sub) program. LDA must be at least
*           max( 1, n ).
*           Unchanged on exit.
*
*  X      - REAL             array of dimension at least
*           ( 1 + ( n - 1 )*abs( INCX ) ).
*           Before entry, the incremented array X must contain the n
*           element right-hand side vector b. On exit, X is overwritten
*           with the solution vector x.
*
*  INCX   - INTEGER.
*           On entry, INCX specifies the increment for the elements of
*           X. INCX must not be zero.
*           Unchanged on exit.
*
*
*  Level 2 Blas routine.
*
*  -- Written on 22-October-1986.
*     Jack Dongarra, Argonne National Lab.
*     Jeremy Du Croz, Nag Central Office.
*     Sven Hammarling, Nag Central Office.
*     Richard Hanson, Sandia National Labs.
*
*
*     .. Parameters ..
      REAL               ZERO
      PARAMETER        ( ZERO = 0.0E+0 )
*     .. Local Scalars ..
      REAL               TEMP
      INTEGER            I, INFO, IX, J, JX, KX
      LOGICAL            NOUNIT
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      INFO = 0
      IF     ( .NOT.LSAME( UPLO , 'U' ).AND.
     $         .NOT.LSAME( UPLO , 'L' )      )THEN
         INFO = 1
      ELSE IF( .NOT.LSAME( TRANS, 'N' ).AND.
     $         .NOT.LSAME( TRANS, 'T' ).AND.
     $         .NOT.LSAME( TRANS, 'C' )      )THEN
         INFO = 2
      ELSE IF( .NOT.LSAME( DIAG , 'U' ).AND.
     $         .NOT.LSAME( DIAG , 'N' )      )THEN
         INFO = 3
      ELSE IF( N.LT.0 )THEN
         INFO = 4
      ELSE IF( LDA.LT.MAX( 1, N ) )THEN
         INFO = 6
      ELSE IF( INCX.EQ.0 )THEN
         INFO = 8
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'STRSV ', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( N.EQ.0 )
     $   RETURN
*
      NOUNIT = LSAME( DIAG, 'N' )
*
*     Set up the start point in X if the increment is not unity. This
*     will be  ( N - 1 )*INCX  too small for descending loops.
*
      IF( INCX.LE.0 )THEN
         KX = 1 - ( N - 1 )*INCX
      ELSE IF( INCX.NE.1 )THEN
         KX = 1
      END IF
*
*     Start the operations. In this version the elements of A are
*     accessed sequentially with one pass through A.
*
      IF( LSAME( TRANS, 'N' ) )THEN
*
*        Form  x := inv( A )*x.
*
         IF( LSAME( UPLO, 'U' ) )THEN
            IF( INCX.EQ.1 )THEN
               DO 20, J = N, 1, -1
                  IF( X( J ).NE.ZERO )THEN
                     IF( NOUNIT )
     $                  X( J ) = X( J )/A( J, J )
                     TEMP = X( J )
                     DO 10, I = J - 1, 1, -1
                        X( I ) = X( I ) - TEMP*A( I, J )
   10                CONTINUE
                  END IF
   20          CONTINUE
            ELSE
               JX = KX + ( N - 1 )*INCX
               DO 40, J = N, 1, -1
                  IF( X( JX ).NE.ZERO )THEN
                     IF( NOUNIT )
     $                  X( JX ) = X( JX )/A( J, J )
                     TEMP = X( JX )
                     IX   = JX
                     DO 30, I = J - 1, 1, -1
                        IX      = IX      - INCX
                        X( IX ) = X( IX ) - TEMP*A( I, J )
   30                CONTINUE
                  END IF
                  JX = JX - INCX
   40          CONTINUE
            END IF
         ELSE
            IF( INCX.EQ.1 )THEN
               DO 60, J = 1, N
                  IF( X( J ).NE.ZERO )THEN
                     IF( NOUNIT )
     $                  X( J ) = X( J )/A( J, J )
                     TEMP = X( J )
                     DO 50, I = J + 1, N
                        X( I ) = X( I ) - TEMP*A( I, J )
   50                CONTINUE
                  END IF
   60          CONTINUE
            ELSE
               JX = KX
               DO 80, J = 1, N
                  IF( X( JX ).NE.ZERO )THEN
                     IF( NOUNIT )
     $                  X( JX ) = X( JX )/A( J, J )
                     TEMP = X( JX )
                     IX   = JX
                     DO 70, I = J + 1, N
                        IX      = IX      + INCX
                        X( IX ) = X( IX ) - TEMP*A( I, J )
   70                CONTINUE
                  END IF
                  JX = JX + INCX
   80          CONTINUE
            END IF
         END IF
      ELSE
*
*        Form  x := inv( A' )*x.
*
         IF( LSAME( UPLO, 'U' ) )THEN
            IF( INCX.EQ.1 )THEN
               DO 100, J = 1, N
                  TEMP = X( J )
                  DO 90, I = 1, J - 1
                     TEMP = TEMP - A( I, J )*X( I )
   90             CONTINUE
                  IF( NOUNIT )
     $               TEMP = TEMP/A( J, J )
                  X( J ) = TEMP
  100          CONTINUE
            ELSE
               JX = KX
               DO 120, J = 1, N
                  TEMP = X( JX )
                  IX   = KX
                  DO 110, I = 1, J - 1
                     TEMP = TEMP - A( I, J )*X( IX )
                     IX   = IX   + INCX
  110             CONTINUE
                  IF( NOUNIT )
     $               TEMP = TEMP/A( J, J )
                  X( JX ) = TEMP
                  JX      = JX   + INCX
  120          CONTINUE
            END IF
         ELSE
            IF( INCX.EQ.1 )THEN
               DO 140, J = N, 1, -1
                  TEMP = X( J )
                  DO 130, I = N, J + 1, -1
                     TEMP = TEMP - A( I, J )*X( I )
  130             CONTINUE
                  IF( NOUNIT )
     $               TEMP = TEMP/A( J, J )
                  X( J ) = TEMP
  140          CONTINUE
            ELSE
               KX = KX + ( N - 1 )*INCX
               JX = KX
               DO 160, J = N, 1, -1
                  TEMP = X( JX )
                  IX   = KX
                  DO 150, I = N, J + 1, -1
                     TEMP = TEMP - A( I, J )*X( IX )
                     IX   = IX   - INCX
  150             CONTINUE
                  IF( NOUNIT )
     $               TEMP = TEMP/A( J, J )
                  X( JX ) = TEMP
                  JX      = JX   - INCX
  160          CONTINUE
            END IF
         END IF
      END IF
*
      RETURN
*
*     End of STRSV .
*
      END
SHAR_EOF
if test -f 'w.f'
then
	echo shar: over-writing existing file "'w.f'"
fi
cat << \SHAR_EOF > 'w.f'
      subroutine w(id,i1,i2,j1,j2)
      if( i2 .lt. i1 ) return
      if( j2 .lt. j1 ) return
      write(3,10)2,id,i1,i2,j1,j2,second(t)
   10 format(i2,i2,i4,i4,i4,i4,2x,f10.5)
      return
      end
SHAR_EOF
if test -f 'xerbla.f'
then
	echo shar: over-writing existing file "'xerbla.f'"
fi
cat << \SHAR_EOF > 'xerbla.f'
      SUBROUTINE XERBLA ( SRNAME, INFO )
*     ..    Scalar Arguments ..
      INTEGER            INFO
      CHARACTER*6        SRNAME
*     ..
*
*  Purpose
*  =======
*
*  XERBLA  is an error handler for the Level 2 BLAS routines.
*
*  It is called by the Level 2 BLAS routines if an input parameter is
*  invalid.
*
*  Installers should consider modifying the STOP statement in order to
*  call system-specific exception-handling facilities.
*
*  Parameters
*  ==========
*
*  SRNAME - CHARACTER*6.
*           On entry, SRNAME specifies the name of the routine which
*           called XERBLA.
*
*  INFO   - INTEGER.
*           On entry, INFO specifies the position of the invalid
*           parameter in the parameter-list of the calling routine.
*
*
*  Auxiliary routine for Level 2 Blas.
*
*  Written on 20-July-1986.
*
*     .. Executable Statements ..
*
      WRITE (*,99999) SRNAME, INFO
*
      STOP
*
99999 FORMAT ( ' ** On entry to ', A6, ' parameter number ', I2,
     $         ' had an illegal value' )
*
*     End of XERBLA.
*
      END
SHAR_EOF
if test -f 'ssyr2k.f'
then
	echo shar: over-writing existing file "'ssyr2k.f'"
fi
cat << \SHAR_EOF > 'ssyr2k.f'
*
************************************************************************
*
      SUBROUTINE SSYR2K( UPLO, TRANS, N, K, ALPHA, A, LDA, B, LDB,
     $                   BETA, C, LDC )
*     .. Scalar Arguments ..
      CHARACTER*1        UPLO, TRANS
      INTEGER            N, K, LDA, LDB, LDC
      REAL               ALPHA, BETA
*     .. Array Arguments ..
      REAL               A( LDA, * ), B( LDB, * ), C( LDC, * )
*     ..
*
*  Purpose
*  =======
*
*  SSYR2K  performs one of the symmetric rank 2k operations
*
*     C := alpha*A*B' + alpha*B*A' + beta*C,
*
*  or
*
*     C := alpha*A'*B + alpha*B'*A + beta*C,
*
*  where  alpha and beta  are scalars, C is an  n by n  symmetric matrix
*  and  A and B  are  n by k  matrices  in the  first  case  and  k by n
*  matrices in the second case.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On  entry,   UPLO  specifies  whether  the  upper  or  lower
*           triangular  part  of the  array  C  is to be  referenced  as
*           follows:
*
*              UPLO = 'U' or 'u'   Only the  upper triangular part of  C
*                                  is to be referenced.
*
*              UPLO = 'L' or 'l'   Only the  lower triangular part of  C
*                                  is to be referenced.
*
*           Unchanged on exit.
*
*  TRANS  - CHARACTER*1.
*           On entry,  TRANS  specifies the operation to be performed as
*           follows:
*
*              TRANS = 'N' or 'n'   C := alpha*A*B' + alpha*B*A' +
*                                        beta*C.
*
*              TRANS = 'T' or 't'   C := alpha*A'*B + alpha*B'*A +
*                                        beta*C.
*
*              TRANS = 'C' or 'c'   C := alpha*A'*B + alpha*B'*A +
*                                        beta*C.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry,  N specifies the order of the matrix C.  N must be
*           at least zero.
*           Unchanged on exit.
*
*  K      - INTEGER.
*           On entry with  TRANS = 'N' or 'n',  K  specifies  the number
*           of  columns  of the  matrices  A and B,  and on  entry  with
*           TRANS = 'T' or 't' or 'C' or 'c',  K  specifies  the  number
*           of rows of the matrices  A and B.  K must be at least  zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, ka ), where ka is
*           k  when  TRANS = 'N' or 'n',  and is  n  otherwise.
*           Before entry with  TRANS = 'N' or 'n',  the  leading  n by k
*           part of the array  A  must contain the matrix  A,  otherwise
*           the leading  k by n  part of the array  A  must contain  the
*           matrix A.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in  the  calling  (sub)  program.   When  TRANS = 'N' or 'n'
*           then  LDA must be at least  max( 1, n ), otherwise  LDA must
*           be at least  max( 1, k ).
*           Unchanged on exit.
*
*  B      - REAL             array of DIMENSION ( LDB, kb ), where kb is
*           k  when  TRANS = 'N' or 'n',  and is  n  otherwise.
*           Before entry with  TRANS = 'N' or 'n',  the  leading  n by k
*           part of the array  B  must contain the matrix  B,  otherwise
*           the leading  k by n  part of the array  B  must contain  the
*           matrix B.
*           Unchanged on exit.
*
*  LDB    - INTEGER.
*           On entry, LDB specifies the first dimension of B as declared
*           in  the  calling  (sub)  program.   When  TRANS = 'N' or 'n'
*           then  LDB must be at least  max( 1, n ), otherwise  LDB must
*           be at least  max( 1, k ).
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry, BETA specifies the scalar beta.
*           Unchanged on exit.
*
*  C      - REAL             array of DIMENSION ( LDC, n ).
*           Before entry  with  UPLO = 'U' or 'u',  the leading  n by n
*           upper triangular part of the array C must contain the upper
*           triangular part  of the  symmetric matrix  and the strictly
*           lower triangular part of C is not referenced.  On exit, the
*           upper triangular part of the array  C is overwritten by the
*           upper triangular part of the updated matrix.
*           Before entry  with  UPLO = 'L' or 'l',  the leading  n by n
*           lower triangular part of the array C must contain the lower
*           triangular part  of the  symmetric matrix  and the strictly
*           upper triangular part of C is not referenced.  On exit, the
*           lower triangular part of the array  C is overwritten by the
*           lower triangular part of the updated matrix.
*
*  LDC    - INTEGER.
*           On entry, LDC specifies the first dimension of C as declared
*           in  the  calling  (sub)  program.   LDC  must  be  at  least
*           max( 1, n ).
*           Unchanged on exit.
*
*
*  Level 3 Blas routine.
*
*
*  -- Written on 16-March-1988.
*     Sven Hammarling, Nag Central Office.
*
*
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     .. Local Scalars ..
      LOGICAL            UPPER
      INTEGER            I, INFO, J, L, NROWA
      REAL               TEMP1, TEMP2
*     .. Parameters ..
      REAL               ONE         , ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      IF( LSAME( TRANS, 'N' ) )THEN
         NROWA = N
      ELSE
         NROWA = K
      END IF
      UPPER = LSAME( UPLO, 'U' )
*
      INFO = 0
      IF(      ( .NOT.UPPER               ).AND.
     $         ( .NOT.LSAME( UPLO , 'L' ) )      )THEN
         INFO = 1
      ELSE IF( ( .NOT.LSAME( TRANS, 'N' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'C' ) )      )THEN
         INFO = 2
      ELSE IF( N  .LT.0               )THEN
         INFO = 3
      ELSE IF( K  .LT.0               )THEN
         INFO = 4
      ELSE IF( LDA.LT.MAX( 1, NROWA ) )THEN
         INFO = 7
      ELSE IF( LDB.LT.MAX( 1, NROWA ) )THEN
         INFO = 9
      ELSE IF( LDC.LT.MAX( 1, N     ) )THEN
         INFO = 12
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SSYR2K', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( N.EQ.0 ).OR.
     $    ( ( ( ALPHA.EQ.ZERO ).OR.( K.EQ.0 ) ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
*
*     And when  alpha.eq.zero.
*
      IF( ALPHA.EQ.ZERO )THEN
         IF( UPPER )THEN
            IF( BETA.EQ.ZERO )THEN
               DO 20, J = 1, N
                  DO 10, I = 1, J
                     C( I, J ) = ZERO
   10             CONTINUE
   20          CONTINUE
            ELSE
               DO 40, J = 1, N
                  DO 30, I = 1, J
                     C( I, J ) = BETA*C( I, J )
   30             CONTINUE
   40          CONTINUE
            END IF
         ELSE
            IF( BETA.EQ.ZERO )THEN
               DO 60, J = 1, N
                  DO 50, I = J, N
                     C( I, J ) = ZERO
   50             CONTINUE
   60          CONTINUE
            ELSE
               DO 80, J = 1, N
                  DO 70, I = J, N
                     C( I, J ) = BETA*C( I, J )
   70             CONTINUE
   80          CONTINUE
            END IF
         END IF
         RETURN
      END IF
*
*     Start the operations.
*
      IF( LSAME( TRANS, 'N' ) )THEN
*
*        Form  C := alpha*A*B' + alpha*B*A' + C.
*
         IF( UPPER )THEN
            DO 130, J = 1, N
               IF( BETA.EQ.ZERO )THEN
                  DO 90, I = 1, J
                     C( I, J ) = ZERO
   90             CONTINUE
               ELSE IF( BETA.NE.ONE )THEN
                  DO 100, I = 1, J
                     C( I, J ) = BETA*C( I, J )
  100             CONTINUE
               END IF
               DO 120, L = 1, K
                  IF( ( A( J, L ).NE.ZERO ).OR.
     $                ( B( J, L ).NE.ZERO )     )THEN
                     TEMP1 = ALPHA*B( J, L )
                     TEMP2 = ALPHA*A( J, L )
                     DO 110, I = 1, J
                        C( I, J ) = C( I, J ) +
     $                              A( I, L )*TEMP1 + B( I, L )*TEMP2
  110                CONTINUE
                  END IF
  120          CONTINUE
  130       CONTINUE
         ELSE
            DO 180, J = 1, N
               IF( BETA.EQ.ZERO )THEN
                  DO 140, I = J, N
                     C( I, J ) = ZERO
  140             CONTINUE
               ELSE IF( BETA.NE.ONE )THEN
                  DO 150, I = J, N
                     C( I, J ) = BETA*C( I, J )
  150             CONTINUE
               END IF
               DO 170, L = 1, K
                  IF( ( A( J, L ).NE.ZERO ).OR.
     $                ( B( J, L ).NE.ZERO )     )THEN
                     TEMP1 = ALPHA*B( J, L )
                     TEMP2 = ALPHA*A( J, L )
                     DO 160, I = J, N
                        C( I, J ) = C( I, J ) +
     $                              A( I, L )*TEMP1 + B( I, L )*TEMP2
  160                CONTINUE
                  END IF
  170          CONTINUE
  180       CONTINUE
         END IF
      ELSE
*
*        Form  C := alpha*A'*B + alpha*B'*A + C.
*
         IF( UPPER )THEN
            DO 210, J = 1, N
               DO 200, I = 1, J
                  TEMP1 = ZERO
                  TEMP2 = ZERO
                  DO 190, L = 1, K
                     TEMP1 = TEMP1 + A( L, I )*B( L, J )
                     TEMP2 = TEMP2 + B( L, I )*A( L, J )
  190             CONTINUE
                  IF( BETA.EQ.ZERO )THEN
                     C( I, J ) = ALPHA*TEMP1 + ALPHA*TEMP2
                  ELSE
                     C( I, J ) = BETA *C( I, J ) +
     $                           ALPHA*TEMP1 + ALPHA*TEMP2
                  END IF
  200          CONTINUE
  210       CONTINUE
         ELSE
            DO 240, J = 1, N
               DO 230, I = J, N
                  TEMP1 = ZERO
                  TEMP2 = ZERO
                  DO 220, L = 1, K
                     TEMP1 = TEMP1 + A( L, I )*B( L, J )
                     TEMP2 = TEMP2 + B( L, I )*A( L, J )
  220             CONTINUE
                  IF( BETA.EQ.ZERO )THEN
                     C( I, J ) = ALPHA*TEMP1 + ALPHA*TEMP2
                  ELSE
                     C( I, J ) = BETA *C( I, J ) +
     $                           ALPHA*TEMP1 + ALPHA*TEMP2
                  END IF
  230          CONTINUE
  240       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of SSYR2K.
*
      END
SHAR_EOF
if test -f 'mssyr2k.f'
then
	echo shar: over-writing existing file "'mssyr2k.f'"
fi
cat << \SHAR_EOF > 'mssyr2k.f'
      SUBROUTINE mSSYR2K( UPLO, TRANS, N, K, ALPHA, A, LDA, B, LDB,
     $                   BETA, C, LDC ,ida,ia,ja,idb,ib,jb,idc,ic,jc)
*     .. Scalar Arguments ..
      CHARACTER*1        UPLO, TRANS
      INTEGER            N, K, LDA, LDB, LDC
      REAL               ALPHA, BETA
*     .. Array Arguments ..
      REAL               A( LDA, * ), B( LDB, * ), C( LDC, * )
*     ..
*
*  Purpose
*  =======
*
*  SSYR2K  performs one of the symmetric rank 2k operations
*
*     C := alpha*A*B' + alpha*B*A' + beta*C,
*
*  or
*
*     C := alpha*A'*B + alpha*B'*A + beta*C,
*
*  where  alpha and beta  are scalars, C is an  n by n  symmetric matrix
*  and  A and B  are  n by k  matrices  in the  first  case  and  k by n
*  matrices in the second case.
*
*  Parameters
*  ==========
*
*  UPLO   - CHARACTER*1.
*           On  entry,   UPLO  specifies  whether  the  upper  or  lower
*           triangular  part  of the  array  C  is to be  referenced  as
*           follows:
*
*              UPLO = 'U' or 'u'   Only the  upper triangular part of  C
*                                  is to be referenced.
*
*              UPLO = 'L' or 'l'   Only the  lower triangular part of  C
*                                  is to be referenced.
*
*           Unchanged on exit.
*
*  TRANS  - CHARACTER*1.
*           On entry,  TRANS  specifies the operation to be performed as
*           follows:
*
*              TRANS = 'N' or 'n'   C := alpha*A*B' + alpha*B*A' +
*                                        beta*C.
*
*              TRANS = 'T' or 't'   C := alpha*A'*B + alpha*B'*A +
*                                        beta*C.
*
*              TRANS = 'C' or 'c'   C := alpha*A'*B + alpha*B'*A +
*                                        beta*C.
*
*           Unchanged on exit.
*
*  N      - INTEGER.
*           On entry,  N specifies the order of the matrix C.  N must be
*           at least zero.
*           Unchanged on exit.
*
*  K      - INTEGER.
*           On entry with  TRANS = 'N' or 'n',  K  specifies  the number
*           of  columns  of the  matrices  A and B,  and on  entry  with
*           TRANS = 'T' or 't' or 'C' or 'c',  K  specifies  the  number
*           of rows of the matrices  A and B.  K must be at least  zero.
*           Unchanged on exit.
*
*  ALPHA  - REAL            .
*           On entry, ALPHA specifies the scalar alpha.
*           Unchanged on exit.
*
*  A      - REAL             array of DIMENSION ( LDA, ka ), where ka is
*           k  when  TRANS = 'N' or 'n',  and is  n  otherwise.
*           Before entry with  TRANS = 'N' or 'n',  the  leading  n by k
*           part of the array  A  must contain the matrix  A,  otherwise
*           the leading  k by n  part of the array  A  must contain  the
*           matrix A.
*           Unchanged on exit.
*
*  LDA    - INTEGER.
*           On entry, LDA specifies the first dimension of A as declared
*           in  the  calling  (sub)  program.   When  TRANS = 'N' or 'n'
*           then  LDA must be at least  max( 1, n ), otherwise  LDA must
*           be at least  max( 1, k ).
*           Unchanged on exit.
*
*  B      - REAL             array of DIMENSION ( LDB, kb ), where kb is
*           k  when  TRANS = 'N' or 'n',  and is  n  otherwise.
*           Before entry with  TRANS = 'N' or 'n',  the  leading  n by k
*           part of the array  B  must contain the matrix  B,  otherwise
*           the leading  k by n  part of the array  B  must contain  the
*           matrix B.
*           Unchanged on exit.
*
*  LDB    - INTEGER.
*           On entry, LDB specifies the first dimension of B as declared
*           in  the  calling  (sub)  program.   When  TRANS = 'N' or 'n'
*           then  LDB must be at least  max( 1, n ), otherwise  LDB must
*           be at least  max( 1, k ).
*           Unchanged on exit.
*
*  BETA   - REAL            .
*           On entry, BETA specifies the scalar beta.
*           Unchanged on exit.
*
*  C      - REAL             array of DIMENSION ( LDC, n ).
*           Before entry  with  UPLO = 'U' or 'u',  the leading  n by n
*           upper triangular part of the array C must contain the upper
*           triangular part  of the  symmetric matrix  and the strictly
*           lower triangular part of C is not referenced.  On exit, the
*           upper triangular part of the array  C is overwritten by the
*           upper triangular part of the updated matrix.
*           Before entry  with  UPLO = 'L' or 'l',  the leading  n by n
*           lower triangular part of the array C must contain the lower
*           triangular part  of the  symmetric matrix  and the strictly
*           upper triangular part of C is not referenced.  On exit, the
*           lower triangular part of the array  C is overwritten by the
*           lower triangular part of the updated matrix.
*
*  LDC    - INTEGER.
*           On entry, LDC specifies the first dimension of C as declared
*           in  the  calling  (sub)  program.   LDC  must  be  at  least
*           max( 1, n ).
*           Unchanged on exit.
*
*
*  Level 3 Blas routine.
*
*
*  -- Written on 16-March-1988.
*     Sven Hammarling, Nag Central Office.
*
*
*     .. External Functions ..
      LOGICAL            LSAME
      EXTERNAL           LSAME
*     .. External Subroutines ..
      EXTERNAL           XERBLA
*     .. Intrinsic Functions ..
      INTRINSIC          MAX
*     .. Local Scalars ..
      LOGICAL            UPPER
      INTEGER            I, INFO, J, L, NROWA
      REAL               TEMP1, TEMP2
*     .. Parameters ..
      REAL               ONE         , ZERO
      PARAMETER        ( ONE = 1.0E+0, ZERO = 0.0E+0 )
*     ..
*     .. Executable Statements ..
*
*     Test the input parameters.
*
      IF( LSAME( TRANS, 'N' ) )THEN
         NROWA = N
      ELSE
         NROWA = K
      END IF
      UPPER = LSAME( UPLO, 'U' )
*
      INFO = 0
      IF(      ( .NOT.UPPER               ).AND.
     $         ( .NOT.LSAME( UPLO , 'L' ) )      )THEN
         INFO = 1
      ELSE IF( ( .NOT.LSAME( TRANS, 'N' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'T' ) ).AND.
     $         ( .NOT.LSAME( TRANS, 'C' ) )      )THEN
         INFO = 2
      ELSE IF( N  .LT.0               )THEN
         INFO = 3
      ELSE IF( K  .LT.0               )THEN
         INFO = 4
      ELSE IF( LDA.LT.MAX( 1, NROWA ) )THEN
         INFO = 7
      ELSE IF( LDB.LT.MAX( 1, NROWA ) )THEN
         INFO = 9
      ELSE IF( LDC.LT.MAX( 1, N     ) )THEN
         INFO = 12
      END IF
      IF( INFO.NE.0 )THEN
         CALL XERBLA( 'SSYR2K', INFO )
         RETURN
      END IF
*
*     Quick return if possible.
*
      IF( ( N.EQ.0 ).OR.
     $    ( ( ( ALPHA.EQ.ZERO ).OR.( K.EQ.0 ) ).AND.( BETA.EQ.ONE ) ) )
     $   RETURN
      call ops(idc,2*n*n*k,'ssyrk')
*
*     And when  alpha.eq.zero.
*
      IF( ALPHA.EQ.ZERO )THEN
         IF( UPPER )THEN
            IF( BETA.EQ.ZERO )THEN
               DO 20, J = 1, N
                  DO 10, I = 1, J
                     C( I, J ) = ZERO
   10             CONTINUE
   20          CONTINUE
            ELSE
               DO 40, J = 1, N
                  DO 30, I = 1, J
                     C( I, J ) = BETA*C( I, J )
   30             CONTINUE
   40          CONTINUE
            END IF
         ELSE
            IF( BETA.EQ.ZERO )THEN
               DO 60, J = 1, N
                  DO 50, I = J, N
                     C( I, J ) = ZERO
   50             CONTINUE
   60          CONTINUE
            ELSE
               DO 80, J = 1, N
                  DO 70, I = J, N
                     C( I, J ) = BETA*C( I, J )
   70             CONTINUE
   80          CONTINUE
            END IF
         END IF
         RETURN
      END IF
*
*     Start the operations.
*
      IF( LSAME( TRANS, 'N' ) )THEN
*
*        Form  C := alpha*A*B' + alpha*B*A' + C.
*
         IF( UPPER )THEN
            DO 130, J = 1, N
               IF( BETA.EQ.ZERO )THEN
                  DO 90, I = 1, J
                     C( I, J ) = ZERO
   90             CONTINUE
               ELSE IF( BETA.NE.ONE )THEN
                  DO 100, I = 1, J
                     C( I, J ) = BETA*C( I, J )
  100             CONTINUE
               END IF
               call r(idc,1,j,j,j)
               call r(ida,1,j,1,k)
               call r(idb,1,j,1,k)
               call w(idc,1,j,j,j)
               DO 120, L = 1, K
                  IF( ( A( J, L ).NE.ZERO ).OR.
     $                ( B( J, L ).NE.ZERO )     )THEN
                     TEMP1 = ALPHA*B( J, L )
                     TEMP2 = ALPHA*A( J, L )
                     DO 110, I = 1, J
                        C( I, J ) = C( I, J ) +
     $                              A( I, L )*TEMP1 + B( I, L )*TEMP2
  110                CONTINUE
                  END IF
  120          CONTINUE
  130       CONTINUE
         ELSE
            DO 180, J = 1, N
               IF( BETA.EQ.ZERO )THEN
                  DO 140, I = J, N
                     C( I, J ) = ZERO
  140             CONTINUE
               ELSE IF( BETA.NE.ONE )THEN
                  DO 150, I = J, N
                     C( I, J ) = BETA*C( I, J )
  150             CONTINUE
               END IF
               call r(idc,j,n,j,j)
               call r(ida,j,n,1,k)
               call r(idb,j,n,1,k)
               call w(idc,j,n,j,j)
               DO 170, L = 1, K
                  IF( ( A( J, L ).NE.ZERO ).OR.
     $                ( B( J, L ).NE.ZERO )     )THEN
                     TEMP1 = ALPHA*B( J, L )
                     TEMP2 = ALPHA*A( J, L )
                     DO 160, I = J, N
                        C( I, J ) = C( I, J ) +
     $                              A( I, L )*TEMP1 + B( I, L )*TEMP2
  160                CONTINUE
                  END IF
  170          CONTINUE
  180       CONTINUE
         END IF
      ELSE
*
*        Form  C := alpha*A'*B + alpha*B'*A + C.
*
         IF( UPPER )THEN
            DO 210, J = 1, N
               call r(idc,1,j,j,j)
               call r(ida,1,k,1,j)
               call r(idb,1,k,1,j)
               call w(idc,1,j,j,j)
               DO 200, I = 1, J
                  TEMP1 = ZERO
                  TEMP2 = ZERO
                  DO 190, L = 1, K
                     TEMP1 = TEMP1 + A( L, I )*B( L, J )
                     TEMP2 = TEMP2 + B( L, I )*A( L, J )
  190             CONTINUE
                  IF( BETA.EQ.ZERO )THEN
                     C( I, J ) = ALPHA*TEMP1 + ALPHA*TEMP2
                  ELSE
                     C( I, J ) = BETA *C( I, J ) +
     $                           ALPHA*TEMP1 + ALPHA*TEMP2
                  END IF
  200          CONTINUE
  210       CONTINUE
         ELSE
            DO 240, J = 1, N
               call r(idc,j,n,j,j)
               call r(ida,1,k,j,n)
               call r(idb,1,k,j,n)
               call w(idc,j,n,j,j)
               DO 230, I = J, N
                  TEMP1 = ZERO
                  TEMP2 = ZERO
                  DO 220, L = 1, K
                     TEMP1 = TEMP1 + A( L, I )*B( L, J )
                     TEMP2 = TEMP2 + B( L, I )*A( L, J )
  220             CONTINUE
                  IF( BETA.EQ.ZERO )THEN
                     C( I, J ) = ALPHA*TEMP1 + ALPHA*TEMP2
                  ELSE
                     C( I, J ) = BETA *C( I, J ) +
     $                           ALPHA*TEMP1 + ALPHA*TEMP2
                  END IF
  230          CONTINUE
  240       CONTINUE
         END IF
      END IF
*
      RETURN
*
*     End of SSYR2K.
*
      END

SHAR_EOF
cd ..
cd ..
if test -f 'README'
then
	echo shar: over-writing existing file "'README'"
fi
cat << \SHAR_EOF > 'README'

	This package has a preprocessor for FORTRAN programs that use
the BLAS (Basic Linear Algebra Subprograms) and/or that perform matrix
operations internally.  It produces a FORTRAN
program that,  when linked with the included library, libmapi.a, executes
the original program as well as producing a special trace file. This
trace file is used as input to MAPA, a graphics program, written in Sunview,
that displays the memory accesses on the arrays in the FORTRAN program.

	There are two subdirectories (plus one subsubdirectory) to this
package. See the README's in each subdirectory for more information.

MAPA -- Memory Access Patterns Animation program -- Contains the source code
	for mapa, the graphics part of the package.

MAPI -- Memory Access Patterns Instrumentation program -- Contains the source
	code, written in C, for mapi, the preprocessor of the FORTRAN programs.
        This directory contains a subdirectory, lib, which contains
	BLAS subroutines and other subroutines needed for producing output
	to the trace file.

	To build this package type "make -k >& make.log &". This will
build mapa, mapi, and libmapi.a, in their appropriate subdirectories,
and will leave all diagnostic messages in make.log. It takes less than
ten minutes on a Sun 3/60.

		Orlie Brewer
		Mathmatics & Computer Science Division
		Argonne National Laboratory
		9700 South Cass Avenue
		Argonne, IL 60439
		(312) 972 - 5094
		brewer@mcs.anl.gov
SHAR_EOF
if test -f 'makefile'
then
	echo shar: over-writing existing file "'makefile'"
fi
cat << \SHAR_EOF > 'makefile'
SUBDIRS = \
        MAPA \
        MAPI

all::
	@case '${MFLAGS}' in *[ik]*) set +e;; esac; \
	for i in $(SUBDIRS);\
	do \
	(cd $$i ; echo "making $$i"; \
	make  $(MFLAGS)); \
	done
	echo "done"

clean::
	rm -f make.log sharfile *~
	@case '${MFLAGS}' in *[ik]*) set +e;; esac; \
	for i in $(SUBDIRS) ;\
	do \
	(cd $$i ; echo "cleaning $$i"; \
	make $(MFLAGS) clean ); \
	done
SHAR_EOF
#	End of shell archive
exit 0

.