00001 c drtrsdetectge_.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 drtrsdetectge(
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 double precision mracoef(0:1,0:Msize-1)
00031 double precision mracoefrs(0:1,0:Msize-1)
00032 double precision thresh(0:Msize-1)
00033 integer hit(0:Msize-1)
00034
00035 c ****************************
00036 c ***** LOCAL VARIABLES ******
00037 c ****************************
00038
00039 c integer m,mcycle,mcyclers
00040 integer m
00041
00042 c ******************************
00043 c ***** EXTERNAL FUNCTIONS *****
00044 c ******************************
00045
00046 do m=0,mmax
00047 if (dabs(mracoef(1,m)+mracoefrs(1,m)).ge.thresh(m)) then
00048 hit(m)=1
00049 else
00050 hit(m)=0
00051 endif
00052 enddo
00053
00054 return
00055 end
00056 c********************************************************
