00001 c artrsmrareset_.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, 2000
00008 c* Last Modified: Aug 29, 2001
00009 c*********************************************************************
00010
00011 subroutine artrsmrareset(
00012 & Asize,Msize
00013 & ,amax,mmax
00014 & ,mrastep,mracoef
00015 & ,mracoefrs
00016 & )
00017
00018 c ****************************************
00019 c ***** COMMON BLOCKS AND PARAMETERS *****
00020 c ****************************************
00021
00022 c *******************************
00023 c ***** VARIABLES EXCHANGED *****
00024 c *******************************
00025
00026 integer Asize
00027 integer Msize
00028 integer amax
00029 integer mmax
00030 integer mrastep
00031 real mracoef(0:1,0:Asize-1,0:Msize-1)
00032 real mracoefrs(0:1,0:Asize-1,0:Msize-1)
00033
00034 c ****************************
00035 c ***** LOCAL VARIABLES ******
00036 c ****************************
00037
00038 integer a
00039 integer m
00040
00041 c ******************************
00042 c ***** EXTERNAL FUNCTIONS *****
00043 c ******************************
00044
00045 mrastep=-1
00046
00047 do a=0,amax
00048 do m=0,mmax
00049 mracoef(0,a,m)=0.0
00050 mracoef(1,a,m)=0.0
00051 mracoefrs(0,a,m)=0.0
00052 mracoefrs(1,a,m)=0.0
00053 enddo
00054 enddo
00055
00056 return
00057 end
00058 c********************************************************
