00001 c rtrsdetectle_.F
00002
00003 c*********************************************************************
00004 c* (c) Copyright 2000-2002 Brown Deer Technology, LLC.
00005 c* All rights reserved.
00006 c*********************************************************************
00007 c* Created: Jun 19, 2001
00008 c* Last Modified: Jul 2, 2002
00009 c*********************************************************************
00010
00011 subroutine rtrsdetectle(
00012 & Msize
00013 & ,mmax
00014 & ,mrastep,mracoef
00015 & ,mracoefrs
00016 & ,thresh,hit
00017 & )
00018
00019 c ****************************************
00020 c ***** COMMON BLOCKS AND PARAMETERS *****
00021 c ****************************************
00022
00023 c *******************************
00024 c ***** VARIABLES EXCHANGED *****
00025 c *******************************
00026
00027 integer Msize
00028 integer mmax
00029 integer mrastep
00030 real mracoef(0:1,0:Msize-1)
00031 real mracoefrs(0:1,0:Msize-1)
00032 real thresh(0:Msize-1)
00033 integer hit(0:Msize-1)
00034
00035 c ****************************
00036 c ***** LOCAL VARIABLES ******
00037 c ****************************
00038
00039 integer m
00040
00041 c ******************************
00042 c ***** EXTERNAL FUNCTIONS *****
00043 c ******************************
00044
00045 do m=0,mmax
00046 if (abs(mracoef(1,m)+mracoefrs(1,m)).le.thresh(m)) then
00047 hit(m)=1
00048 else
00049 hit(m)=0
00050 endif
00051 enddo
00052
00053 return
00054 end
00055 c********************************************************
