00001 c rtmrag1scalcoef_.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 rtmrag1scalcoef(
00011 & Msize
00012 & ,mmax
00013 & ,mrastep,mracoef
00014 & ,m,k,scalcoef
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 real mracoef(0:1,0:1,0:Msize-1)
00029 integer m
00030 integer k
00031 real scalcoef
00032
00033 c *** mracoef(k,eta,m)
00034
00035 c ****************************
00036 c ***** LOCAL VARIABLES ******
00037 c ****************************
00038
00039 c ******************************
00040 c ***** EXTERNAL FUNCTIONS *****
00041 c ******************************
00042
00043 if ((m.ge.0).and.(m.le.mmax).and.(k.ge.0).and.(k.le.1)) then
00044 scalcoef=mracoef(k,0,m)
00045 else
00046 scalcoef=1.0/0.0
00047 endif
00048
00049 return
00050 end
00051 c********************************************************
