00001 c artmrareset_.F
00002
00003 c*********************************************************************
00004 c* (c) Copyright 1994-2002 Brown Deer Technology, LLC.
00005 c* All rights reserved.
00006 c*********************************************************************
00007 c* Created: Jun 19, 2000
00008 c* Last Modified: Aug 19, 2001
00009 c*********************************************************************
00010
00011 subroutine artmrareset(
00012 & Asize, Msize
00013 & ,amax,mmax
00014 & ,mrastep,mracoef
00015 & )
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
00032 c ****************************
00033 c ***** LOCAL VARIABLES ******
00034 c ****************************
00035
00036 integer a
00037 integer m
00038
00039 c ******************************
00040 c ***** EXTERNAL FUNCTIONS *****
00041 c ******************************
00042
00043 mrastep=-1
00044
00045 do a=0,amax
00046 do m=0,mmax
00047 mracoef(0,m,a)=0.0
00048 mracoef(1,m,a)=0.0
00049 enddo
00050 enddo
00051
00052 return
00053 end
00054 c********************************************************
