src/manl/zdrot.l

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