00001 c rtmraputwavcoef_1.F
00002
00003 c*********************************************************************
00004 c* (c) Copyright 1994-2002 Brown Deer Technology, LLC.
00005 c* All rights reserved.
00006 c*********************************************************************
00007 c* Created: Jun 19, 2000
00008 c* Last Modified: Aug 20, 2001
00009 c*********************************************************************
00010
00011 subroutine rtmraputwavcoef(
00012 & Msize
00013 & ,mmax
00014 & ,mrastep,mracoef
00015 & ,m,wavcoef
00016 & )
00017
00018 c ****************************************
00019 c ***** COMMON BLOCKS AND PARAMETERS *****
00020 c ****************************************
00021
00022 c *******************************
00023 c ***** VARIABLES EXCHANGED *****
00024 c *******************************
00025
00026 integer Msize
00027 integer mmax
00028 integer mrastep
00029 real mracoef(0:1,0:Msize-1)
00030 integer m
00031 real wavcoef
00032
00033 c ****************************
00034 c ***** LOCAL VARIABLES ******
00035 c ****************************
00036
00037 c ******************************
00038 c ***** EXTERNAL FUNCTIONS *****
00039 c ******************************
00040
00041 if ((m.ge.0).and.(m.le.mmax)) then
00042 mracoef(1,m)=wavcoef
00043 endif
00044
00045 return
00046 end
00047 c********************************************************
