Commit db4c0242 authored by Barry Smith's avatar Barry Smith
Browse files

Add appropriate const to user called adblaslapack routines

Reason: some compilers warn about casting string to literal to non-const char*
parent e55b6ad4
CXX = clang++
CFLAGS = -g -O0
CODI_DIR = $(HOME)/git/CoDiPack
CFLAGS += -I../include -std=c++11 -I$(CODI_DIR)/include
# set Fortran default underscore mangling of subroutines
#CFLAGS += -DNO_UNDERSCORE
AR = ar
AROPT = rcs
CODI_DIR = /Users/barrysmith/Src/petsc/arch-uni/include
AROPT = rcs
AR = /usr/bin/ar
CXX = mpicxx
CFLAGS = -I$(CODI_DIR) -I../include -fstack-protector -g -O3 -std=c++11
......@@ -18,23 +18,23 @@ typedef codi::RealReverseGen<double> a1s;
#define XERBLA xerbla_
#define LSAME lsame_
#endif
void DGEMM(char *transa, char *transb, integer *m, integer *
n, integer *k, t1s *alpha, t1s *a, integer *lda,
t1s *b, integer *ldb, t1s *beta, t1s *c__,
integer *ldc);
void DGEMM(const char *transa, const char *transb, const integer *m, const integer *
n, const integer *k, const t1s *alpha, const t1s *a, const integer *lda,
const t1s *b, const integer *ldb, const t1s *beta, t1s *c__,
const integer *ldc);
void DGEMM(char *transa, char *transb, integer *m, integer *
n, integer *k, a1s *alpha, a1s *a, integer *lda,
a1s *b, integer *ldb, a1s *beta, a1s *c__,
integer *ldc);
void DGEMM(const char *transa, const char *transb, const integer *m, const integer *
n, const integer *k, const a1s *alpha, const a1s *a, const integer *lda,
const a1s *b, const integer *ldb, const a1s *beta, a1s *c__,
const integer *ldc);
void DAXPY(integer *n, t1s *da, t1s *dx,
integer *incx, t1s *dy, integer *incy);
void DAXPY(const integer *n, const t1s *da, const t1s *dx,
const integer *incx, t1s *dy, const integer *incy);
void DAXPY(integer *n, a1s *da, a1s *dx,
integer *incx, a1s *dy, integer *incy);
void DAXPY(const integer *n, const a1s *da, const a1s *dx,
const integer *incx, a1s *dy, const integer *incy);
logical LSAME(char *, const char *);
logical LSAME(const char *, const char *);
int XERBLA(const char *, integer *);
#endif
......@@ -12,8 +12,8 @@
#include "f2c.hpp"
/* Subroutine */ void DAXPY(integer *n, doublereal *da, doublereal *dx,
integer *incx, doublereal *dy, integer *incy)
/* Subroutine */ void DAXPY(const integer *n, const doublereal *da, const doublereal *dx,
const integer *incx, doublereal *dy, const integer *incy)
{
/* System generated locals */
integer i__1;
......
......@@ -12,10 +12,10 @@
#include "f2c.hpp"
/* Subroutine */ void DGEMM(char *transa, char *transb, integer *m, integer *
n, integer *k, doublereal *alpha, doublereal *a, integer *lda,
doublereal *b, integer *ldb, doublereal *beta, doublereal *c__,
integer *ldc)
/* Subroutine */ void DGEMM(const char *transa, const char *transb, const integer *m, const integer *
n, const integer *k, const doublereal *alpha, const doublereal *a, const integer *lda,
const doublereal *b, const integer *ldb, const doublereal *beta, doublereal *c__,
const integer *ldc)
{
/* System generated locals */
integer a_dim1, a_offset, b_dim1, b_offset, c_dim1, c_offset, i__1, i__2,
......
......@@ -12,7 +12,7 @@
#include "f2c.hpp"
logical LSAME(char *ca, const char *cb)
logical LSAME(const char *ca, const char *cb)
{
/* System generated locals */
logical ret_val;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment