What is intrinsic function/subroutine RR ?

I cannot find an intrinsic procedure (function or subroutine) with the name RR in the FTN95 documentation. Does it exist? If so, what is its purpose? Thanks.

Here is a small test source to show what the compiler says:

subroutine wr(tstar,tt,iflag, yy)
   implicit none
   real rr, tin, tstar, ff, yy, tt
   integer iflag
   intrinsic abs,max,sign

   iflag = 1
   tin = sign(1.0,tstar)
   tt = tin
   ff = 0.0
   if (abs(ff).le.50.0d0) then
      rr = 0.95
      yy = yy + rr*2.0*tt
   endif
   return
end subroutine wr

With either the current or some earlier versions of FTN95, I see:

S:\MATH\Sleign2\Zettl>ftn95 /64 xrr.f90
[FTN95/x64 Ver. 8.30.279 Copyright (c) Silverfrost Ltd 1993-2018]
0003)    real rr, tin, tstar, ff, yy, tt
COMMENT - This declaration of RR has caused the intrinsic of the same name to be inaccessible
    NO ERRORS, 1 COMMENT  [<WR> FTN95 v8.30.279]

RR (right rotate) and LR (left rotate) are FTN77 intrinsics that provide a bitwise circular shift like ISHFTC.

integer i,j
i = 1
j = RR(i, 1)
print*, j

Thanks. I cannot find mention of RR and RL in the FTN77 help file, either.

Hi Mecej4,

I have a copy of the 2 volume manual for FTN77/386 (Revision D). The routine RR is described on page 10-10 in volume 1, along with LS, RS, LR, (RR), SHFT, LT, RT. Section 10.8 describes the calling sequence. Would you like me to scan and send?

Eddie

Thanks, I did find them later on page 152 of https://www.silverfrost.com/manuals/77userguide.pdf . These may have been provided in FTN77 prior to the 'Military' extensions to Fortran 77 that were made in 1983.

'Military extensions'?

Possibly MIL-STD-1753, see here: http://www.fortran.com/mil_std_1753.html

Eddie

That is half of the Fortran 77 syntax I use!

Robert, That makes you part of the Military-Industrial Complex. And it's a big chunk of the Fortran 77 syntax I didn't even know existed, and hence have never used! Eddie

They were certainly useful when making changes to the internals of DBOS - most of which was written in Fortran 77.

Ah! DBOS. That was when FTNxx was the speed demon, knocking just about everything else into the dust! Fond memories.