Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by stephd, Mon Dec 19 19:13:43 2005 UTC | revision 1.2 by stephd, Tue Sep 26 19:29:37 2006 UTC | |
---|---|---|
# | Line 77 CEOP | Line 77 CEOP |
77 | #ifdef ALLOW_PTRACERS | #ifdef ALLOW_PTRACERS |
78 | if (tracernum.gt.2) then | if (tracernum.gt.2) then |
79 | iTracer=tracernum-2 | iTracer=tracernum-2 |
80 | irbc=max(maskLEN,tracernum) | irbc=min(maskLEN,tracernum) |
81 | if (useRBCptracers) then | if (useRBCptracers) then |
82 | if (useRBCptrnum(iTracer)) then | if (useRBCptrnum(iTracer)) then |
83 | DO j=1,sNy | DO j=1,sNy |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |