/[lmdze]/trunk/libf/dyn3d/scopy.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/scopy.f90

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

revision 56 by guez, Thu Apr 1 09:07:28 2010 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 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.56  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21