source: lmdz_wrf/trunk/WRFV3/lmdz/cray.F90 @ 1554

Last change on this file since 1554 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 651 bytes
Line 
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      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
22!c
23      return
24      end subroutine scopy
25
26      function ssum(n,sx,incx)
27!c
28      IMPLICIT NONE
29!c
30      integer n,incx,i,ix
31      real ssum,sx((n-1)*incx+1)
32!c
33      ssum=0.
34      ix=1
35      do 10 i=1,n
36         ssum=ssum+sx(ix)
37         ix=ix+incx
3810    continue
39!c
40      return
41      end function ssum
42#endif
Note: See TracBrowser for help on using the repository browser.