[go: up one dir, main page]
Menu ▾ ▴

[r34]: / common / dierckx / fprota.f  Maximize  Restore  History

Download this file

15 lines (14 with data), 313 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
      subroutine fprota(cos,sin,a,b)

c  subroutine fprota applies a givens rotation to a and b.

c  ..

c  ..scalar arguments..

      real cos,sin,a,b

c ..local scalars..

      real stor1,stor2

c  ..

      stor1 = a

      stor2 = b

      b = cos*stor2+sin*stor1

      a = cos*stor1-sin*stor2

      return

      end