Changeset 88 for trunk/NEMO/OPA_SRC/lib_cray.f90

Timestamp:

2004-04-22T15:50:27+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:

• trunk/NEMO/OPA_SRC/lib_cray.f90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/lib_cray.f90

@@ -9 +9 @@
 !  isrchne
 !---------------------------------------------------------
-        FUNCTION sdot( I, X, J, Y, K )
+     FUNCTION sdot( I, X, J, Y, K )
         DIMENSION X(1), Y(1)
         SDOT = 0.
@@ -15 +15 @@
         SDOT = SDOT + X(1+(N-1)*J) * Y(1+(N-1)*K)
         END DO
-        END FUNCTION sdot
+     END FUNCTION sdot
 !---------------------------------------------------------
-        SUBROUTINE wheneq ( i, x, j, t, ind, nn )
+     SUBROUTINE wheneq ( i, x, j, t, ind, nn )
         IMPLICIT NONE
 
@@ -35 +35 @@
         END DO 
 
-        END SUBROUTINE wheneq
+     END SUBROUTINE wheneq
 !---------------------------------------------------------
-        SUBROUTINE SAXPY(I,A,X,J,Y,K)
+     SUBROUTINE saxpy( I, A, X, J, Y, K )
         DIMENSION X(1),Y(1)
-        DO 1 N=1,I
-        Y(1+(N-1)*K)=A*X(1+(N-1)*J)+Y(1+(N-1)*K)
-  1     CONTINUE
-        RETURN
-        END
+        DO N = 1, I
+           Y(1+(N-1)*K)=A*X(1+(N-1)*J)+Y(1+(N-1)*K)
+        END DO
+     END SUBROUTINE saxpy
 !---------------------------------------------------------
-        FUNCTION ISRCHNE(K,X,I,B)
+     FUNCTION isrchne( K, X, I, B )
         DIMENSION X(1)
-        DO 1 N=1,K
-        IF(X(1+(N-1)*I) /= B)THEN
-         ISRCHNE=N
-        RETURN
-        ELSE
-          ISRCHNE=N+1
-        ENDIF
- 1      CONTINUE
-        RETURN
-        END
+        DO N = 1, K
+           IF( X(1+(N-1)*I) /= B ) THEN
+              ISRCHNE = N
+              RETURN
+           ELSE
+              ISRCHNE = N + 1
+           ENDIF
+        END DO
+     END FUNCTION isrchne