|
subroutine scopy(n, sx, incx, sy, incy) |
|
|
|
|
|
! From cray.F, v 1.1.1.1 2004/05/19 12:53:05 |
|
|
|
|
|
! This subroutine should not exist in a Fortran 95 program. If the |
|
|
! actual arguments are of rank 1 then replace each call to this |
|
|
! subroutine by the simple statement in this subroutine. |
|
|
|
|
|
IMPLICIT NONE |
|
|
|
|
|
integer, intent(in):: n, incx, incy |
|
|
real, intent(in):: sx((n-1)*incx+1) |
|
|
real, intent(inout):: sy((n-1)*incy+1) |
|
|
|
|
|
!------------------------- |
|
|
|
|
|
sy(::incy) = sx(::incx) |
|
|
|
|
|
end subroutine scopy |
|
|
|
|
|
!*********************************** |
|
|
|
|
| 1 |
real function ssum(n,sx,incx) |
real function ssum(n,sx,incx) |
| 2 |
|
|
| 3 |
! From cray.F, v 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 |
IMPLICIT NONE |
IMPLICIT NONE |
| 6 |
|
|
| 7 |
integer, intent(in):: n, incx |
integer, intent(in):: n, incx |
| 8 |
real, intent(in):: sx((n-1)*incx+1) |
real, intent(in):: sx((n - 1) * incx + 1) |
| 9 |
|
|
| 10 |
!----------------------- |
!----------------------- |
| 11 |
|
|
| 12 |
ssum=sum(sx(::incx)) |
ssum = sum(sx(::incx)) |
| 13 |
|
|
| 14 |
end function ssum |
end function ssum |
Parent Directory
| 
Revision Log
| 
Patch