dvfill.c

ofdm的完整系统模型,包含信道参数,多径模型,doppler频移等都可以自由修改!是您做仿真的有力帮助.c语言运行速度快!

/*
 *	*************************************************************************
 *	*									*
 *	*	This confidential and proprietary software may be used only	*
 *	*  as authorized by a licensing agreement from the Alta Group of	*
 *	*  Cadence Design Systems, Inc.  In the event of publication, the	*
 *	*  following notice is applicable:					*
 *	*									*
 *	*    (c) COPYRIGHT 1995 ALTA GROUP OF CADENCE DESIGN SYSTEMS, INC.	*
 *	*			ALL RIGHTS RESERVED				*
 *	*									*
 *	*	The entire notice above must be reproduced on all authorized	*
 *	*  copies.								*
 *	*									*
 *	*************************************************************************
 *
 */
/*
 * FILE:  dvfill.c
 * DATE:  Nov 1, 1989
 * RELATED FILES:  
 * AUTHOR:  Mark Schrank
 * DESCRIPTION:  "c" Dvfill function
 * NOTES/WARNINGS:  
 * REVISION HISTORY:
 *	Release		Who	Date	Comments
 *      2.6    John Lundell 02/23/90  Changed Macro calls to register pointers.
 */
#include "cgs.h"
/*
 *---------------------------------------------------------------
 * FUNCTION:  Dvfill(d_scalar,sp_dst)
 * DESCRIPTION:  
 *	Fills dst Ovector with the value of scalar
 *
 * RETURN VALUE:  dst Ovector
 * NOTES/WARNINGS: 
 * REVISION HISTORY:
 *	Release		Who	Date	Comments
 *      2.6    John Lundell 02/23/90  Changed Macro calls to register pointers.
 */
Ovector Dvfill(d_scalar, sp_dst)
register double	d_scalar;
Ovector 	sp_dst;
{
	register long 	n = sp_dst->length;
	register char  	*dp = sp_dst->virtstart;
	register long	stpd = sp_dst->stepsize;

	while (n-- > 0) {
		*(double *) dp = d_scalar;
		dp += stpd;
	}
	
	return sp_dst;
}