00001 c artrsdetectge_.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 artrsdetectge(
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 real mracoef(0:1,0:Msize-1,0:Asize-1)
00033 real mracoefrs(0:1,0:Msize-1,0:Asize-1)
00034 real thresh(0:Msize-1)
00035 integer hit(0:Msize-1)
00036
00037 c ****************************
00038 c ***** LOCAL VARIABLES ******
00039 c ****************************
00040
00041 c integer a,m,mcycle,mcyclers
00042 integer a,m
00043
00044 c ******************************
00045 c ***** EXTERNAL FUNCTIONS *****
00046 c ******************************
00047
00048 do m=0,mmax
00049 hit(m)=0
00050 do a=0,amax
00051 if (abs(mracoef(1,m,a)+mracoefrs(1,m,a))
00052 & .ge.thresh(m)) then
00053 hit(m)=hit(m)+1
00054 endif
00055 enddo
00056 enddo
00057
00058 return
00059 end
00060 c********************************************************
