00001 c rtmraimcycle_.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 rtmraimcycle(
00012 & Mmrasize
00013 & ,mmax
00014 & ,mrastep
00015 & ,imcycle
00016 & )
00017
00018 c ****************************************
00019 c ***** COMMON BLOCKS AND PARAMETERS *****
00020 c ****************************************
00021
00022 c *******************************
00023 c ***** VARIABLES EXCHANGED *****
00024 c *******************************
00025
00026 integer Mmrasize
00027 integer mmax
00028 integer mrastep
00029 integer imcycle
00030
00031 c ****************************
00032 c ***** LOCAL VARIABLES ******
00033 c ****************************
00034
00035 integer itmp
00036
00037 c ******************************
00038 c ***** EXTERNAL FUNCTIONS *****
00039 c ******************************
00040
00041 itmp=ishft(1,mmax)-1
00042
00043 itmp=itmp-iand(itmp,mrastep+1) !imcycle of (mrastep+1)
00044
00045 imcycle=0
00046
00047 do while (btest(itmp,imcycle).and.(imcycle.lt.mmax))
00048 imcycle=imcycle+1
00049 enddo
00050
00051 return
00052 end
00053 c********************************************************
