00001 c artrsmrascalcoef_.F
00002 c*********************************************************************
00003 c* (c) Copyright 2000-2002 Brown Deer Technology, LLC.
00004 c* All rights reserved.
00005 c*********************************************************************
00006
00007 subroutine artrsmrascalcoef(
00008 & Asize,Msize
00009 & ,amax,mmax
00010 & ,mrastep,mracoef
00011 & ,mracoefrs
00012 & ,m,scalcoef
00013 & )
00014
00015 implicit none
00016
00017 c ****************************************
00018 c ***** COMMON BLOCKS AND PARAMETERS *****
00019 c ****************************************
00020
00021 c *******************************
00022 c ***** VARIABLES EXCHANGED *****
00023 c *******************************
00024
00025 integer Asize
00026 integer Msize
00027 integer amax
00028 integer mmax
00029 integer mrastep
00030 real mracoef(0:1,0:Msize-1,0:Asize-1)
00031 real mracoefrs(0:1,0:Msize-1,0:Asize-1)
00032 integer m
00033 real scalcoef(0:Asize-1)
00034
00035 c ****************************
00036 c ***** LOCAL VARIABLES ******
00037 c ****************************
00038
00039 integer a
00040
00041 c ******************************
00042 c ***** EXTERNAL FUNCTIONS *****
00043 c ******************************
00044
00045 c if ((m.ge.0).and.(m.le.mmax)) then
00046 do a=0,amax
00047 scalcoef(a)=mracoef(0,m,a)
00048 enddo
00049 c else
00050 c do a=0,amax
00051 c scalcoef(a)=1.0/0.0
00052 c enddo
00053 c endif
00054
00055 return
00056 end
00057 c********************************************************
