dedup

kernel/riscv64/omatcopy_cn.c

@@ -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);
-
-}
-
-

kernel/riscv64/omatcopy_ct.c

@@ -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);
-
-}
-
-

kernel/riscv64/omatcopy_rn.c

@@ -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);
-
-}
-
-

kernel/riscv64/omatcopy_rt.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_cn.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_cnc.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_ct.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_ctc.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_rn.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_rnc.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_rt.c

@@ -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);
-
-}
-
-

kernel/riscv64/zomatcopy_rtc.c

@@ -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);
-
-}
-
-