From c56f8b3787399116eba5d248ccc5a6990108d154 Mon Sep 17 00:00:00 2001
From: User User-User <user@localhost>
Date: Fri, 22 Jan 2021 10:03:09 +0200
Subject: [PATCH] dedup

---
 kernel/riscv64/omatcopy_cn.c   | 90 ----------------------------------
 kernel/riscv64/omatcopy_ct.c   | 89 ---------------------------------
 kernel/riscv64/omatcopy_rn.c   | 90 ----------------------------------
 kernel/riscv64/omatcopy_rt.c   | 62 -----------------------
 kernel/riscv64/zomatcopy_cn.c  | 70 --------------------------
 kernel/riscv64/zomatcopy_cnc.c | 69 --------------------------
 kernel/riscv64/zomatcopy_ct.c  | 71 ---------------------------
 kernel/riscv64/zomatcopy_ctc.c | 71 ---------------------------
 kernel/riscv64/zomatcopy_rn.c  | 70 --------------------------
 kernel/riscv64/zomatcopy_rnc.c | 69 --------------------------
 kernel/riscv64/zomatcopy_rt.c  | 72 ---------------------------
 kernel/riscv64/zomatcopy_rtc.c | 72 ---------------------------
 12 files changed, 895 deletions(-)
 delete mode 100644 kernel/riscv64/omatcopy_cn.c
 delete mode 100644 kernel/riscv64/omatcopy_ct.c
 delete mode 100644 kernel/riscv64/omatcopy_rn.c
 delete mode 100644 kernel/riscv64/omatcopy_rt.c
 delete mode 100644 kernel/riscv64/zomatcopy_cn.c
 delete mode 100644 kernel/riscv64/zomatcopy_cnc.c
 delete mode 100644 kernel/riscv64/zomatcopy_ct.c
 delete mode 100644 kernel/riscv64/zomatcopy_ctc.c
 delete mode 100644 kernel/riscv64/zomatcopy_rn.c
 delete mode 100644 kernel/riscv64/zomatcopy_rnc.c
 delete mode 100644 kernel/riscv64/zomatcopy_rt.c
 delete mode 100644 kernel/riscv64/zomatcopy_rtc.c

diff --git a/kernel/riscv64/omatcopy_cn.c b/kernel/riscv64/omatcopy_cn.c
deleted file mode 100644
index 4d11b9125..000000000
--- a/kernel/riscv64/omatcopy_cn.c
+++ /dev/null
@@ -1,90 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order ColMajor
- * No Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-	bptr = b;
-
-	if ( alpha == 0.0 )
-	{
-		for ( i=0; i<cols ; i++ )
-		{
-			for(j=0; j<rows; j++)
-			{
-				bptr[j] = 0.0;
-			}
-			bptr += ldb;
-		}
-		return(0);
-	}
-
-	if ( alpha == 1.0 )
-	{
-		for ( i=0; i<cols ; i++ )
-		{
-			for(j=0; j<rows; j++)
-			{
-				bptr[j] = aptr[j];
-			}
-			aptr += lda;
-			bptr += ldb;
-		}
-		return(0);
-	}
-
-	for ( i=0; i<cols ; i++ )
-	{
-		for(j=0; j<rows; j++)
-		{
-			bptr[j] = alpha * aptr[j];
-		}
-		aptr += lda;
-		bptr += ldb;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/omatcopy_ct.c b/kernel/riscv64/omatcopy_ct.c
deleted file mode 100644
index b2587813f..000000000
--- a/kernel/riscv64/omatcopy_ct.c
+++ /dev/null
@@ -1,89 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order ColMajor
- * Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-
-	if ( alpha == 0.0 )
-	{
-		for ( i=0; i<cols ; i++ )
-		{
-			bptr = &b[i];
-			for(j=0; j<rows; j++)
-			{
-				bptr[j*ldb] = 0.0;
-			}
-		}
-		return(0);
-	}
-
-	if ( alpha == 1.0 )
-	{
-		for ( i=0; i<cols ; i++ )
-		{
-			bptr = &b[i];
-			for(j=0; j<rows; j++)
-			{
-				bptr[j*ldb] = aptr[j];
-			}
-			aptr += lda;
-		}
-		return(0);
-	}
-
-	for ( i=0; i<cols ; i++ )
-	{
-		bptr = &b[i];
-		for(j=0; j<rows; j++)
-		{
-			bptr[j*ldb] = alpha * aptr[j];
-		}
-		aptr += lda;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/omatcopy_rn.c b/kernel/riscv64/omatcopy_rn.c
deleted file mode 100644
index 57515e729..000000000
--- a/kernel/riscv64/omatcopy_rn.c
+++ /dev/null
@@ -1,90 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order rowMajor
- * No Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-	bptr = b;
-
-	if ( alpha == 0.0 )
-	{
-		for ( i=0; i<rows ; i++ )
-		{
-			for(j=0; j<cols; j++)
-			{
-				bptr[j] = 0.0;
-			}
-			bptr += ldb;
-		}
-		return(0);
-	}
-
-	if ( alpha == 1.0 )
-	{
-		for ( i=0; i<rows ; i++ )
-		{
-			for(j=0; j<cols; j++)
-			{
-				bptr[j] = aptr[j];
-			}
-			aptr += lda;
-			bptr += ldb;
-		}
-		return(0);
-	}
-
-	for ( i=0; i<rows ; i++ )
-	{
-		for(j=0; j<cols; j++)
-		{
-			bptr[j] = alpha * aptr[j];
-		}
-		aptr += lda;
-		bptr += ldb;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/omatcopy_rt.c b/kernel/riscv64/omatcopy_rt.c
deleted file mode 100644
index 9d58350d5..000000000
--- a/kernel/riscv64/omatcopy_rt.c
+++ /dev/null
@@ -1,62 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order rowMajor
- * Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-
-	for ( i=0; i<rows ; i++ )
-	{
-		bptr = &b[i];
-		for(j=0; j<cols; j++)
-		{
-			bptr[j*ldb] = alpha * aptr[j];
-		}
-		aptr += lda;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_cn.c b/kernel/riscv64/zomatcopy_cn.c
deleted file mode 100644
index f5a7a6284..000000000
--- a/kernel/riscv64/zomatcopy_cn.c
+++ /dev/null
@@ -1,70 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order ColMajor
- * No Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-	bptr = b;
-
-	lda *= 2;
-	ldb *= 2;
-
-	for ( i=0; i<cols ; i++ )
-	{
-		ia = 0;
-
-		for(j=0; j<rows; j++)
-		{
-			bptr[ia]   = alpha_r * aptr[ia]   - alpha_i * aptr[ia+1];
-			bptr[ia+1] = alpha_r * aptr[ia+1] + alpha_i * aptr[ia];
-			ia+=2;
-		}
-		aptr += lda;
-		bptr += ldb;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_cnc.c b/kernel/riscv64/zomatcopy_cnc.c
deleted file mode 100644
index 210c3f716..000000000
--- a/kernel/riscv64/zomatcopy_cnc.c
+++ /dev/null
@@ -1,69 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order ColMajor
- * No Trans, conjugate
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-	bptr = b;
-	lda *= 2;
-	ldb *= 2;
-
-	for ( i=0; i<cols ; i++ )
-	{
-		ia = 0;
-
-		for(j=0; j<rows; j++)
-		{
-			bptr[ia]   =   alpha_r * aptr[ia]   + alpha_i * aptr[ia+1];
-			bptr[ia+1] = - alpha_r * aptr[ia+1] + alpha_i * aptr[ia];
-			ia += 2;
-		}
-		aptr += lda;
-		bptr += ldb;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_ct.c b/kernel/riscv64/zomatcopy_ct.c
deleted file mode 100644
index 38bc9b9f7..000000000
--- a/kernel/riscv64/zomatcopy_ct.c
+++ /dev/null
@@ -1,71 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order ColMajor
- * Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia,ib;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-
-	lda *= 2;
-	ldb *= 2;
-	ib = 0;
-	for ( i=0; i<cols ; i++ )
-	{
-		bptr = &b[ib];
-		ia = 0;
-
-		for(j=0; j<rows; j++)
-		{
-			bptr[0]   = alpha_r * aptr[ia]   - alpha_i * aptr[ia+1];
-			bptr[1]   = alpha_r * aptr[ia+1] + alpha_i * aptr[ia];
-			ia += 2;
-			bptr += ldb;
-		}
-		aptr += lda;
-		ib += 2;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_ctc.c b/kernel/riscv64/zomatcopy_ctc.c
deleted file mode 100644
index 34e7e919a..000000000
--- a/kernel/riscv64/zomatcopy_ctc.c
+++ /dev/null
@@ -1,71 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order ColMajor
- * Trans, conjugate
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia,ib;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-
-	lda *= 2;
-	ldb *= 2;
-	ib = 0;
-	for ( i=0; i<cols ; i++ )
-	{
-		bptr = &b[ib];
-		ia = 0;
-
-		for(j=0; j<rows; j++)
-		{
-			bptr[0]   =   alpha_r * aptr[ia]   + alpha_i * aptr[ia+1];
-			bptr[1]   = - alpha_r * aptr[ia+1] + alpha_i * aptr[ia];
-			ia += 2;
-			bptr += ldb;
-		}
-		aptr += lda;
-		ib += 2;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_rn.c b/kernel/riscv64/zomatcopy_rn.c
deleted file mode 100644
index ded381e15..000000000
--- a/kernel/riscv64/zomatcopy_rn.c
+++ /dev/null
@@ -1,70 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order rowMajor
- * No Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-	bptr = b;
-
-	lda *=2;
-	ldb *=2;
-
-	for ( i=0; i<rows ; i++ )
-	{
-		ia = 0;
-
-		for(j=0; j<cols; j++)
-		{
-			bptr[ia]   = alpha_r * aptr[ia]    - alpha_i * aptr[ia+1];
-			bptr[ia+1] = alpha_r * aptr[ia+1]  + alpha_i * aptr[ia];
-			ia += 2;
-		}
-		aptr += lda;
-		bptr += ldb;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_rnc.c b/kernel/riscv64/zomatcopy_rnc.c
deleted file mode 100644
index fc27f17ec..000000000
--- a/kernel/riscv64/zomatcopy_rnc.c
+++ /dev/null
@@ -1,69 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order rowMajor
- * No Trans , conjugate
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-	bptr = b;
-
-	lda *=2;
-	ldb *=2;
-
-	for ( i=0; i<rows ; i++ )
-	{
-		ia = 0;
-		for(j=0; j<cols; j++)
-		{
-			bptr[ia]   =   alpha_r * aptr[ia]    + alpha_i * aptr[ia+1];
-			bptr[ia+1] = - alpha_r * aptr[ia+1]  + alpha_i * aptr[ia];
-			ia += 2;
-		}
-		aptr += lda;
-		bptr += ldb;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_rt.c b/kernel/riscv64/zomatcopy_rt.c
deleted file mode 100644
index d34db24e0..000000000
--- a/kernel/riscv64/zomatcopy_rt.c
+++ /dev/null
@@ -1,72 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order rowMajor
- * Trans
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia,ib;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-
-	lda *= 2;
-	ldb *= 2;
-	ib = 0;
-
-	for ( i=0; i<rows ; i++ )
-	{
-		bptr = &b[ib];
-		ia = 0;
-
-		for(j=0; j<cols; j++)
-		{
-			bptr[0]   = alpha_r * aptr[ia]   - alpha_i * aptr[ia+1];
-			bptr[1]   = alpha_r * aptr[ia+1] + alpha_i * aptr[ia];
-			ia += 2;
-			bptr += ldb;
-		}
-		aptr += lda;
-		ib += 2;
-	}
-
-	return(0);
-
-}
-
-
diff --git a/kernel/riscv64/zomatcopy_rtc.c b/kernel/riscv64/zomatcopy_rtc.c
deleted file mode 100644
index a80ee6dfe..000000000
--- a/kernel/riscv64/zomatcopy_rtc.c
+++ /dev/null
@@ -1,72 +0,0 @@
-/***************************************************************************
-Copyright (c) 2013, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include "common.h"
-
-/*****************************************************
- * 2014/06/09 Saar
- *
- * Order rowMajor
- * Trans, conjugate
- *
-******************************************************/
-
-int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha_r, FLOAT alpha_i, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb)
-{
-	BLASLONG i,j,ia,ib;
-	FLOAT *aptr,*bptr;
-
-	if ( rows <= 0     )  return(0);
-	if ( cols <= 0     )  return(0);
-
-	aptr = a;
-
-	lda *= 2;
-	ldb *= 2;
-	ib = 0;
-
-	for ( i=0; i<rows ; i++ )
-	{
-		bptr = &b[ib];
-		ia = 0;
-
-		for(j=0; j<cols; j++)
-		{
-			bptr[0]   =   alpha_r * aptr[ia]   + alpha_i * aptr[ia+1];
-			bptr[1]   = - alpha_r * aptr[ia+1] + alpha_i * aptr[ia];
-			ia += 2;
-			bptr += ldb;
-		}
-		aptr += lda;
-		ib += 2;
-	}
-
-	return(0);
-
-}
-
-