00001 c rtmrag1reset_.F
00002
00003 c*********************************************************************
00004 c* (c) Copyright 1994-2002 David A. Richie. All rights reserved.
00005 c*********************************************************************
00006 c* Created: Jun 19, 2000
00007 c* Last Modified: Aug 19, 2001
00008 c*********************************************************************
00009
00010 subroutine rtmrag1reset(
00011 & Msize
00012 & ,mmax
00013 & ,mrastep,mracoef
00014 & )
00015
00016 c ****************************************
00017 c ***** COMMON BLOCKS AND PARAMETERS *****
00018 c ****************************************
00019
00020 c *******************************
00021 c ***** VARIABLES EXCHANGED *****
00022 c *******************************
00023
00024 integer Msize
00025 integer mmax
00026 integer mrastep
00027 real mracoef(0:1,0:1,0:Msize-1)
00028
00029 c *** mracoef(k,eta,m)
00030
00031 c ****************************
00032 c ***** LOCAL VARIABLES ******
00033 c ****************************
00034
00035 integer m
00036
00037 c ******************************
00038 c ***** EXTERNAL FUNCTIONS *****
00039 c ******************************
00040
00041 mrastep=-1
00042
00043 do m=0,mmax
00044 mracoef(0,0,m)=0.0
00045 mracoef(1,0,m)=0.0
00046 mracoef(0,1,m)=0.0
00047 mracoef(1,1,m)=0.0
00048 enddo
00049
00050 return
00051 end
00052 c********************************************************
