Changeset 1601 for trunk/NEMO/OPA_SRC/lib_cray.f90
 Timestamp:
 20090811T12:09:19+02:00 (12 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/NEMO/OPA_SRC/lib_cray.f90
r1152 r1601 4 4 ! check their existence 5 5 ! 6 ! sdot7 6 ! wheneq 8 ! saxpy 9 ! isrchne 10 !! 11 !! OPA 9.0 , LOCEANIPSL (2005) 12 !! $Id$ 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 !! 15 ! 16 FUNCTION sdot( I, X, J, Y, K ) 17 DIMENSION X(1), Y(1) 18 SDOT = 0. 19 DO N = 1, I 20 SDOT = SDOT + X(1+(N1)*J) * Y(1+(N1)*K) 21 END DO 22 END FUNCTION sdot 23 ! 7 !! 8 !! OPA 9.0 , LOCEANIPSL (2005) 9 !! $Id$ 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 11 !! 24 12 SUBROUTINE wheneq ( i, x, j, t, ind, nn ) 25 13 IMPLICIT NONE … … 41 29 42 30 END SUBROUTINE wheneq 43 !44 SUBROUTINE saxpy( I, A, X, J, Y, K )45 DIMENSION X(1),Y(1)46 DO N = 1, I47 Y(1+(N1)*K)=A*X(1+(N1)*J)+Y(1+(N1)*K)48 END DO49 END SUBROUTINE saxpy50 !51 FUNCTION isrchne( K, X, I, B )52 DIMENSION X(1)53 DO N = 1, K54 IF( X(1+(N1)*I) /= B ) THEN55 ISRCHNE = N56 RETURN57 ELSE58 ISRCHNE = N + 159 ENDIF60 END DO61 END FUNCTION isrchne
Note: See TracChangeset
for help on using the changeset viewer.