00001 c dartmraputwavcoef1_.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 19, 2001
00009 c*********************************************************************
00010
00011 subroutine dartmraputwavcoef1(
00012 & Asize,Msize
00013 & ,amax,mmax
00014 & ,mrastep,mracoef
00015 & ,a,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 Asize
00027 integer Msize
00028 integer amax
00029 integer mmax
00030 integer mrastep
00031 double precision mracoef(0:1,0:Msize-1,0:Asize-1)
00032 integer a
00033 integer m
00034 double precision wavcoef
00035
00036 c ****************************
00037 c ***** LOCAL VARIABLES ******
00038 c ****************************
00039
00040 c ******************************
00041 c ***** EXTERNAL FUNCTIONS *****
00042 c ******************************
00043
00044 if ((a.ge.0).and.(a.le.amax).and.(m.ge.0).and.(m.le.mmax)) then
00045 mracoef(1,m,a)=wavcoef
00046 endif
00047
00048 return
00049 end
00050 c********************************************************
