Matt Knepley avatar Matt Knepley committed 2effffe

MatOrdering: Fix compiler warnings for WBM

Comments (0)

Files changed (2)

src/mat/order/hslmc64.c

 
 static PetscInt c__1 = 1;
 static PetscInt c__2 = 2;
-static PetscScalar c_b248 = 1.;
+/* static PetscScalar c_b248 = 1.; */
 typedef int ftnlen;
 typedef struct {
   int cierr;
 /* External routines and functions */
 /* Intrinsic functions */
 /* Set RINF to largest positive real number (infinity) */
-PetscErrorCode HSLmc64AD(PetscInt *job, PetscInt *m, PetscInt *n, 
-                         PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *num, 
+PetscErrorCode HSLmc64AD(const PetscInt *job, PetscInt *m, PetscInt *n, 
+                         PetscInt *ne, const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *num, 
                          PetscInt *perm, PetscInt *liw, PetscInt *iw, PetscInt *ldw, PetscScalar *dw,
                          PetscInt *icntl, PetscScalar *cntl, PetscInt *info)
 {
   PetscErrorCode ierr;
+#ifdef CHECKING
     /* Format strings */
     static char fmt_9001[] = "(\002 ****** Error in MC64A/AD. INFO(1) = \002"
 	    ",i2,\002 because \002,(a),\002 = \002,i10)";
 	    "))";
     static char fmt_9034[] = "(\002 DW(M+1:M+N)= \002,5(f11.3)/(14x,5(f11.3)"
 	    "))";
+#endif
 
     /* System generated locals */
     PetscInt i__1, i__2, i__3;
     static PetscInt warn1, warn2, warn4;
 
     /* Fortran I/O blocks */
+#ifdef CHECKING
     static cilist io___5 = { 0, 0, 0, fmt_9001, 0 };
     static cilist io___6 = { 0, 0, 0, fmt_9001, 0 };
     static cilist io___7 = { 0, 0, 0, fmt_9001, 0 };
     static cilist io___33 = { 0, 0, 0, fmt_9032, 0 };
     static cilist io___34 = { 0, 0, 0, fmt_9033, 0 };
     static cilist io___35 = { 0, 0, 0, fmt_9034, 0 };
+#endif
     extern PetscScalar huge_(PetscScalar *);
 
     PetscFunctionBegin;
     }
 #endif
 /* Return from subroutine. */
+#ifdef CHECKING
 L99:
+#endif
     PetscFunctionReturn(0);
 /* L9004: */
 /* L9005: */
 /* Local parameters */
 /* External subroutines and/or functions */
 PetscErrorCode HSLmc64BD(PetscInt *m, PetscInt *n, PetscInt *ne, 
-                         PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *
+                         const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *
                          num, PetscInt *jperm, PetscInt *pr, PetscInt *q, PetscInt *l, PetscScalar *d__,
                          PetscScalar *rinf)
 {
 /* CNT is the number of calls made to MC64U so far. */
 /* NUM is the cardinality of last matching found. */
 /* Compute a first maximum matching from scratch on whole matrix. */
-PetscErrorCode HSLmc64SD(PetscInt *m, PetscInt *n, PetscInt *ne, 
-                         PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *
-                         numx, PetscInt *w, PetscInt *len, PetscInt *lenl, PetscInt *lenh, PetscInt *fc,
+PetscErrorCode HSLmc64SD(PetscInt *m, PetscInt *n, PetscInt *ne,
+                         const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *numx,
+                         PetscInt *w, PetscInt *len, PetscInt *lenl, PetscInt *lenh, PetscInt *fc,
                          PetscInt *iw, PetscInt *iw4, PetscScalar *rlx, PetscScalar *rinf)
 {
   PetscErrorCode ierr;
 /*   not been scanned during one pass through the main loop. */
 /* NUMX is maximum possible size of matching. */
 PetscErrorCode HSLmc64UD(PetscInt *id, PetscInt *mod, PetscInt *m, 
-                         PetscInt *n, PetscInt *irn, PetscInt *lirn, PetscInt *ip, PetscInt *lenc, 
+                         PetscInt *n, const PetscInt *irn, PetscInt *lirn, const PetscInt *ip, PetscInt *lenc, 
                          PetscInt *fc, PetscInt *iperm, PetscInt *num, PetscInt *numx, PetscInt *pr,
                          PetscInt *arp, PetscInt *cv, PetscInt *out)
 {
 /* Local parameters */
 /* External subroutines and/or functions */
 /* Set RINF to largest positive real number */
-PetscErrorCode HSLmc64WD(PetscInt *m, PetscInt *n, PetscInt *ne, 
-                         PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *
-                         num, PetscInt *jperm, PetscInt *out, PetscInt *pr, PetscInt *q, PetscInt *l,
+PetscErrorCode HSLmc64WD(PetscInt *m, PetscInt *n, PetscInt *ne,
+                         const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *num,
+                         PetscInt *jperm, PetscInt *out, PetscInt *pr, PetscInt *q, PetscInt *l,
                          PetscScalar *u, PetscScalar *d__, PetscScalar *rinf)
 {
   PetscErrorCode ierr;
 /*   which have not been scanned when looking for a cheap assignment. */
 /* OUT(I) is one less than the number of non-zeros in row I */
 /*   which have not been scanned during one pass through the main loop. */
-PetscErrorCode HSLmc64ZD(PetscInt *m, PetscInt *n, PetscInt *irn, 
-                         PetscInt *lirn, PetscInt *ip, PetscInt *lenc, PetscInt *iperm, PetscInt *num,
+PetscErrorCode HSLmc64ZD(PetscInt *m, PetscInt *n, const PetscInt *irn,
+                         PetscInt *lirn, const PetscInt *ip, PetscInt *lenc, PetscInt *iperm, PetscInt *num,
                          PetscInt *pr, PetscInt *arp, PetscInt *cv, PetscInt *out)
 {
   PetscErrorCode ierr;
 {
   PetscErrorCode ierr;
     /* Format strings */
+#ifdef CHECKING
     static char fmt_9001[] = "(\002 ****** Error in MC64A/AD. INFO(1) = \002"
 	    ",i2,\002 because \002,(a),\002 = \002,i10)";
     static char fmt_9004[] = "(\002 ****** Error in MC64A/AD. INFO(1) = \002"
 	    "))";
     static char fmt_9034[] = "(\002 DW(N+1:2N) = \002,5(f11.3)/(14x,5(f11.3)"
 	    "))";
+#endif
 
     /* System generated locals */
     PetscInt i__1, i__2;
     static PetscInt i__, j, k;
     static PetscScalar fact, rinf;
 
+#ifdef CHECKING
     /* Fortran I/O blocks */
     static cilist io___16 = { 0, 0, 0, fmt_9001, 0 };
     static cilist io___17 = { 0, 0, 0, fmt_9001, 0 };
     static cilist io___35 = { 0, 0, 0, fmt_9032, 0 };
     static cilist io___36 = { 0, 0, 0, fmt_9033, 0 };
     static cilist io___37 = { 0, 0, 0, fmt_9034, 0 };
+#endif
 
     PetscFunctionBegin;
     /* Parameter adjustments */
     }
 #endif
 /* Return from subroutine. */
+#ifdef CHECKING
 L99:
+#endif
     PetscFunctionReturn(0);
 }
 
 /* Local constants */
 /* Local variables */
 /* Local arrays */
-PetscErrorCode mc64RD(PetscInt *n, PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a)
+PetscErrorCode mc64RD(PetscInt *n, PetscInt *ne, const PetscInt *ip, PetscInt *irn, PetscScalar *a)
 {
     /* System generated locals */
     PetscInt i__1, i__2, i__3;
 /* remains sorted by decreasing value. */
 /* The sorting is done by straightforward insertion; therefore the use */
 /* of this routine should be avoided for large XX (XX < 20). */
-PetscErrorCode mc64QD(PetscInt *ip, PetscInt *lenl, PetscInt *lenh, PetscInt *w, PetscInt *wlen, PetscScalar *a, PetscInt *nval, PetscScalar *val)
+PetscErrorCode mc64QD(const PetscInt *ip, PetscInt *lenl, PetscInt *lenh, PetscInt *w, PetscInt *wlen, PetscScalar *a, PetscInt *nval, PetscScalar *val)
 {
     /* System generated locals */
     PetscInt i__1, i__2, i__3;

src/mat/order/order.h

 PETSC_EXTERN PetscErrorCode SPARSEPACKdegree(const PetscInt*,const PetscInt*,const PetscInt*, PetscInt*, PetscInt*, PetscInt*, PetscInt*);
 PETSC_EXTERN PetscErrorCode SPARSEPACKrcm(const PetscInt*,const PetscInt*,const PetscInt*,PetscInt*,PetscInt*,PetscInt*,PetscInt*);
 
-PETSC_EXTERN PetscErrorCode HSLmc64AD(PetscInt *job, PetscInt *m, PetscInt *n, PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *num,
+PETSC_EXTERN PetscErrorCode HSLmc64AD(const PetscInt *job, PetscInt *m, PetscInt *n, PetscInt *ne, const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *num,
                                       PetscInt *perm, PetscInt *liw, PetscInt *iw, PetscInt *ldw, PetscScalar *dw, PetscInt *icntl, PetscScalar *cntl, PetscInt *info);
-PETSC_EXTERN PetscErrorCode HSLmc64BD(PetscInt *m, PetscInt *n, PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *num,
+PETSC_EXTERN PetscErrorCode HSLmc64BD(PetscInt *m, PetscInt *n, PetscInt *ne, const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *num,
                                       PetscInt *jperm, PetscInt *pr, PetscInt *q, PetscInt *l, PetscScalar *d__, PetscScalar *rinf);
-PETSC_EXTERN PetscErrorCode HSLmc64SD(PetscInt *m, PetscInt *n, PetscInt *ne,PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *numx,
+PETSC_EXTERN PetscErrorCode HSLmc64SD(PetscInt *m, PetscInt *n, PetscInt *ne, const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *numx,
                                       PetscInt *w, PetscInt *len, PetscInt *lenl, PetscInt *lenh, PetscInt *fc, PetscInt *iw, PetscInt *iw4, PetscScalar *rlx, PetscScalar *rinf);
-PETSC_EXTERN PetscErrorCode HSLmc64UD(PetscInt *id, PetscInt *mod, PetscInt *m, PetscInt *n, PetscInt *irn, PetscInt *lirn, PetscInt *ip, PetscInt *lenc,
+PETSC_EXTERN PetscErrorCode HSLmc64UD(PetscInt *id, PetscInt *mod, PetscInt *m, PetscInt *n, const PetscInt *irn, PetscInt *lirn, const PetscInt *ip, PetscInt *lenc,
                                       PetscInt *fc, PetscInt *iperm, PetscInt *num, PetscInt *numx, PetscInt *pr, PetscInt *arp, PetscInt *cv, PetscInt *out);
-PETSC_EXTERN PetscErrorCode HSLmc64WD(PetscInt *m, PetscInt *n, PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *num,
+PETSC_EXTERN PetscErrorCode HSLmc64WD(PetscInt *m, PetscInt *n, PetscInt *ne, const PetscInt *ip, const PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *num,
                                       PetscInt *jperm, PetscInt *out, PetscInt *pr, PetscInt *q, PetscInt *l, PetscScalar *u, PetscScalar *d__, PetscScalar *rinf);
-PETSC_EXTERN PetscErrorCode HSLmc64ZD(PetscInt *m, PetscInt *n, PetscInt *irn, PetscInt *lirn, PetscInt *ip, PetscInt *lenc, PetscInt *iperm, PetscInt *num,
+PETSC_EXTERN PetscErrorCode HSLmc64ZD(PetscInt *m, PetscInt *n, const PetscInt *irn, PetscInt *lirn, const PetscInt *ip, PetscInt *lenc, PetscInt *iperm, PetscInt *num,
                                       PetscInt *pr, PetscInt *arp, PetscInt *cv, PetscInt *out);
 PETSC_EXTERN PetscErrorCode HSLmc64XD(PetscInt *m, PetscInt *n, PetscInt *iperm, PetscInt *rw, PetscInt *cw);
 PETSC_EXTERN PetscErrorCode mc64ID(PetscInt *icntl);
 PETSC_EXTERN PetscErrorCode mc64DD(PetscInt *i__, PetscInt *n, PetscInt *q, PetscScalar *d__, PetscInt *l, PetscInt *iway);
 PETSC_EXTERN PetscErrorCode mc64ED(PetscInt *qlen, PetscInt *n, PetscInt *q, PetscScalar *d__, PetscInt *l, PetscInt *iway);
 PETSC_EXTERN PetscErrorCode mc64FD(PetscInt *pos0, PetscInt *qlen, PetscInt *n, PetscInt *q, PetscScalar *d__, PetscInt *l, PetscInt *iway);
-PETSC_EXTERN PetscErrorCode mc64RD(PetscInt *n, PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a);
+PETSC_EXTERN PetscErrorCode mc64RD(PetscInt *n, PetscInt *ne, const PetscInt *ip, PetscInt *irn, PetscScalar *a);
 PETSC_EXTERN PetscErrorCode mc64SD(PetscInt *n, PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *numx, PetscInt *w, PetscInt *len, PetscInt *lenl, PetscInt *lenh, PetscInt *fc, PetscInt *iw, PetscInt *iw4);
-PETSC_EXTERN PetscErrorCode mc64QD(PetscInt *ip, PetscInt *lenl, PetscInt *lenh, PetscInt *w, PetscInt *wlen, PetscScalar *a, PetscInt *nval, PetscScalar *val);
+PETSC_EXTERN PetscErrorCode mc64QD(const PetscInt *ip, PetscInt *lenl, PetscInt *lenh, PetscInt *w, PetscInt *wlen, PetscScalar *a, PetscInt *nval, PetscScalar *val);
 PETSC_EXTERN PetscErrorCode mc64UD(PetscInt *id, PetscInt *mod, PetscInt *n, PetscInt *irn, PetscInt *lirn, PetscInt *ip, PetscInt *lenc, PetscInt *fc, PetscInt *iperm,
                                    PetscInt *num, PetscInt *numx, PetscInt *pr, PetscInt *arp, PetscInt *cv, PetscInt *out);
 PETSC_EXTERN PetscErrorCode mc64WD(PetscInt *n, PetscInt *ne, PetscInt *ip, PetscInt *irn, PetscScalar *a, PetscInt *iperm, PetscInt *num, PetscInt *jperm, PetscInt *out, PetscInt *pr, PetscInt *q, PetscInt *l, PetscScalar *u, PetscScalar *d__);
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.