My Project
 All Classes Files Functions Variables Macros
cray.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4 #ifdef CRAY
5  SUBROUTINE riencray
6  END
7 #else
8  subroutine scopy(n,sx,incx,sy,incy)
9 c
10  IMPLICIT NONE
11 c
12  integer n,incx,incy,ix,iy,i
13  real sx((n-1)*incx+1),sy((n-1)*incy+1)
14 c
15  if (incx.eq.1.and.incy.eq.1) then
16  do 10 i=1,n
17  sy(i)=sx(i)
18 10 continue
19  else
20  iy=1
21  ix=1
22  do 11 i=1,n
23  sy(iy)=sx(ix)
24  ix=ix+incx
25  iy=iy+incy
26 11 continue
27  endif
28 c
29  return
30  end
31 
32  function ssum(n,sx,incx)
33 c
34  IMPLICIT NONE
35 c
36  integer n,incx,i,ix
37  real ssum,sx((n-1)*incx+1)
38 c
39  ssum=0.
40  if (incx.eq.1) then
41  do 10 i=1,n
42  ssum=ssum+sx(i)
43 10 continue
44  else
45  ix=1
46  do 11 i=1,n
47  ssum=ssum+sx(ix)
48  ix=ix+incx
49 11 continue
50  endif
51 c
52  return
53  end
54 #endif