dense.c (02cad45df42810d06231fac2e5def15c96ea770d) dense.c (639f9d9dbbc54d6ac4e42e98283c540b41bb2cee)
1#ifndef lint
1#ifndef lint
2static char vcid[] = "$Id: dense.c,v 1.111 1996/09/23 18:21:03 bsmith Exp bsmith $";
2static char vcid[] = "$Id: dense.c,v 1.112 1996/10/01 03:34:42 bsmith Exp bsmith $";
3#endif
4/*
5 Defines the basic matrix operations for sequential dense.
6*/
7
8#include "src/mat/impls/dense/seq/dense.h"
9#include "pinclude/plapack.h"
10#include "pinclude/pviewer.h"

--- 458 unchanged lines hidden (view full) ---

469 int ierr, i, j, format;
470 FILE *fd;
471 char *outputname;
472 Scalar *v;
473
474 ierr = ViewerASCIIGetPointer(viewer,&fd); CHKERRQ(ierr);
475 ierr = ViewerFileGetOutputname_Private(viewer,&outputname); CHKERRQ(ierr);
476 ierr = ViewerGetFormat(viewer,&format);
3#endif
4/*
5 Defines the basic matrix operations for sequential dense.
6*/
7
8#include "src/mat/impls/dense/seq/dense.h"
9#include "pinclude/plapack.h"
10#include "pinclude/pviewer.h"

--- 458 unchanged lines hidden (view full) ---

469 int ierr, i, j, format;
470 FILE *fd;
471 char *outputname;
472 Scalar *v;
473
474 ierr = ViewerASCIIGetPointer(viewer,&fd); CHKERRQ(ierr);
475 ierr = ViewerFileGetOutputname_Private(viewer,&outputname); CHKERRQ(ierr);
476 ierr = ViewerGetFormat(viewer,&format);
477 if (format == VIEWER_FORMAT_ASCII_INFO || format == VIEWER_FORMAT_ASCII_INFO_DETAILED) {
477 if (format == VIEWER_FORMAT_ASCII_INFO || format == VIEWER_FORMAT_ASCII_INFO_LONG) {
478 return 0; /* do nothing for now */
479 }
480 else if (format == VIEWER_FORMAT_ASCII_COMMON) {
481 for ( i=0; i<a->m; i++ ) {
482 v = a->v + i;
483 fprintf(fd,"row %d:",i);
484 for ( j=0; j<a->n; j++ ) {
485#if defined(PETSC_COMPLEX)

--- 558 unchanged lines hidden --- 		478 return 0; /* do nothing for now */
479 }
480 else if (format == VIEWER_FORMAT_ASCII_COMMON) {
481 for ( i=0; i<a->m; i++ ) {
482 v = a->v + i;
483 fprintf(fd,"row %d:",i);
484 for ( j=0; j<a->n; j++ ) {
485#if defined(PETSC_COMPLEX)

--- 558 unchanged lines hidden ---