/[lmdze]/trunk/Sources/dyn3d/scopy.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/scopy.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/dyn3d/scopy.f90 revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC trunk/dyn3d/scopy.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 3  subroutine scopy(n, sx, incx, sy, incy) Line 3  subroutine scopy(n, sx, incx, sy, incy)
3    ! From cray.F, version 1.1.1.1, 2004/05/19 12:53:05    ! From cray.F, version 1.1.1.1, 2004/05/19 12:53:05
4    
5    ! This subroutine should not exist in a Fortran 95 program. If the    ! This subroutine should not exist in a Fortran 95 program. If the
6    ! actual arguments are of rank 1 then replace each call to this    ! actual arguments 2 and 4 are of rank 1 then replace each call to
7    ! subroutine by the simple statement in this subroutine.    ! this subroutine by the simple statement in this subroutine.
8    
9    IMPLICIT NONE    IMPLICIT NONE
10    
Legend:
Removed from v.30  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21