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