source: LMDZ5/trunk/libf/bibio/cray.F @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 612 bytes
Line 
1!
2! $Header$
3!
4#ifdef CRAY
5      SUBROUTINE riencray
6      END
7#else
8      subroutine scopy(n,sx,incx,sy,incy)
9c
10      IMPLICIT NONE
11c
12      integer n,incx,incy,ix,iy,i
13      real sx((n-1)*incx+1),sy((n-1)*incy+1)
14c
15      iy=1
16      ix=1
17      do 10 i=1,n
18         sy(iy)=sx(ix)
19         ix=ix+incx
20         iy=iy+incy
2110    continue
22c
23      return
24      end
25
26      function ssum(n,sx,incx)
27c
28      IMPLICIT NONE
29c
30      integer n,incx,i,ix
31      real ssum,sx((n-1)*incx+1)
32c
33      ssum=0.
34      ix=1
35      do 10 i=1,n
36         ssum=ssum+sx(ix)
37         ix=ix+incx
3810    continue
39c
40      return
41      end
42#endif
Note: See TracBrowser for help on using the repository browser.