00001 c dartrsdetectle_.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 dartrsdetectle(
00012 & Asize,Msize
00013 & ,amax,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 Asize
00028 integer Msize
00029 integer amax
00030 integer mmax
00031 integer mrastep
00032 double precision mracoef(0:1,0:Msize-1,0:Asize-1)
00033 double precision mracoefrs(0:1,0:Msize-1,0:Asize-1)
00034 double precision thresh(0:Msize-1)
00035 integer hit(0:Msize-1)
00036
00037 c ****************************
00038 c ***** LOCAL VARIABLES ******
00039 c ****************************
00040
00041 integer a,m
00042
00043 c ******************************
00044 c ***** EXTERNAL FUNCTIONS *****
00045 c ******************************
00046
00047 do m=0,mmax
00048 hit(m)=0
00049 do a=0,amax
00050 if (dabs(mracoef(1,m,a)+mracoefrs(1,m,a))
00051 & .le.thresh(m)) then
00052 hit(m)=hit(m)+1
00053 endif
00054 enddo
00055 enddo
00056
00057 return
00058 end
00059 c********************************************************
