00001 c drtmrareset_.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 drtmrareset(
00012 & Msize
00013 & ,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 Msize
00026 integer mmax
00027 integer mrastep
00028 double precision mracoef(0:1,0:Msize-1)
00029
00030 c ****************************
00031 c ***** LOCAL VARIABLES ******
00032 c ****************************
00033
00034 integer m
00035
00036 c ******************************
00037 c ***** EXTERNAL FUNCTIONS *****
00038 c ******************************
00039
00040 mrastep=-1
00041
00042 do m=0,mmax
00043 mracoef(0,m)=0.0d0
00044 mracoef(1,m)=0.0d0
00045 enddo
00046
00047 return
00048 end
00049 c********************************************************
