src/manl/zdrot.l

   1 .SH NAME
   2
   3 .SH "总览 SYNOPSIS"
   4 .TP 18
   5 SUBROUTINE ZDROT(
   6 N, CX, INCX, CY, INCY, C, S )
   7 .TP 18
   8 .ti +4
   9 INTEGER
  10 INCX, INCY, N
  11 .TP 18
  12 .ti +4
  13 DOUBLE
  14 PRECISION C, S
  15 .TP 18
  16 .ti +4
  17 COMPLEX*16
  18 CX( * ), CY( * )
  19 .TP 18
  20 .ti +4
  21 INTEGER
  22 I, IX, IY
  23 .TP 18
  24 .ti +4
  25 COMPLEX*16
  26 CTEMP
  27 .TP 18
  28 .ti +4
  29 IF(
  30 N.LE.0 )
  31 RETURN
  32 .TP 18
  33 .ti +4
  34 IF(
  35 INCX.EQ.1 .AND. INCY.EQ.1 )
  36 GO TO 20
  37 .TP 18
  38 .ti +4
  39 IX
  40 = 1
  41 .TP 18
  42 .ti +4
  43 IY
  44 = 1
  45 .TP 18
  46 .ti +4
  47 IF(
  48 INCX.LT.0 )
  49 IX = ( -N+1 )*INCX + 1
  50 .TP 18
  51 .ti +4
  52 IF(
  53 INCY.LT.0 )
  54 IY = ( -N+1 )*INCY + 1
  55 .TP 18
  56 .ti +4
  57 DO
  58 10 I = 1, N
  59 .TP 18
  60 .ti +4
  61 CTEMP
  62 = C*CX( IX ) + S*CY( IY )
  63 .TP 18
  64 .ti +4
  65 CY(
  66 IY ) = C*CY( IY ) - S*CX( IX )
  67 .TP 18
  68 .ti +4
  69 CX(
  70 IX ) = CTEMP
  71 .TP 18
  72 .ti +4
  73 IX
  74 = IX + INCX
  75 .TP 18
  76 .ti +4
  77 IY
  78 = IY + INCY
  79 .TP 18
  80 .ti +4
  81 10
  82 CONTINUE
  83 .TP 18
  84 .ti +4
  85 RETURN
  86 .TP 18
  87 .ti +4
  88 20
  89 CONTINUE
  90 .TP 18
  91 .ti +4
  92 DO
  93 30 I = 1, N
  94 .TP 18
  95 .ti +4
  96 CTEMP
  97 = C*CX( I ) + S*CY( I )
  98 .TP 18
  99 .ti +4
 100 CY(
 101 I ) = C*CY( I ) - S*CX( I )
 102 .TP 18
 103 .ti +4
 104 CX(
 105 I ) = CTEMP
 106 .TP 18
 107 .ti +4
 108 30
 109 CONTINUE
 110 .TP 18
 111 .ti +4
 112 RETURN
 113 .TP 18
 114 .ti +4
 115 END
 116 .SH PURPOSE
 117
 118 .SH "[中文版维护人]"
 119 .B 姓名 <email>
 120 .SH "[中文版最新更新]"
 121 .B yyyy.mm.dd
 122 .SH "《中国linux论坛man手册页翻译计划》:"
 123 .BI http://cmpp.linuxforum.net