source: LMDZ.3.3/branches/LF/libf/dyn3d/cray.F

Last change on this file was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 597 bytes
Line 
1#ifdef CRAY
2      SUBROUTINE riencray
3      END
4#else
5      subroutine scopy(n,sx,incx,sy,incy)
6c
7      IMPLICIT NONE
8c
9      integer n,incx,incy,ix,iy,i
10      real sx((n-1)*incx+1),sy((n-1)*incy+1)
11c
12      iy=1
13      ix=1
14      do 10 i=1,n
15         sy(iy)=sx(ix)
16         ix=ix+incx
17         iy=iy+incy
1810    continue
19c
20      return
21      end
22
23      function ssum(n,sx,incx)
24c
25      IMPLICIT NONE
26c
27      integer n,incx,i,ix
28      real ssum,sx((n-1)*incx+1)
29c
30      ssum=0.
31      ix=1
32      do 10 i=1,n
33         ssum=ssum+sx(ix)
34         ix=ix+incx
3510    continue
36c
37      return
38      end
39#endif
Note: See TracBrowser for help on using the repository browser.