2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
|
! Copyright (C) 2001 PWSCF group
|
|
|
|
|
! This file is distributed under the terms of the
|
|
|
|
|
! GNU General Public License. See the file `License'
|
|
|
|
|
! in the root directory of the present distribution,
|
|
|
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
|
|
|
!
|
2003-02-27 21:59:04 +08:00
|
|
|
#ifdef __BENCHLIB
|
2003-01-20 05:58:50 +08:00
|
|
|
!================================================================
|
2003-02-08 00:04:36 +08:00
|
|
|
subroutine scopy_t3e (n, a, ia, b, ib)
|
2003-02-27 21:59:04 +08:00
|
|
|
!----------------------------------------------------------------
|
|
|
|
|
! optimized scopy for t3e system (SC 2/99)
|
|
|
|
|
!
|
2004-01-23 23:08:03 +08:00
|
|
|
USE kinds
|
2003-02-27 21:59:04 +08:00
|
|
|
implicit none
|
|
|
|
|
integer :: i, ni
|
|
|
|
|
integer, intent (in) ::n
|
|
|
|
|
integer, intent (in) ::ia
|
|
|
|
|
integer, intent (in) ::ib
|
|
|
|
|
real(kind=DP) :: b (n)
|
|
|
|
|
real(kind=DP) :: a (n)
|
|
|
|
|
|
|
|
|
|
integer :: lputp
|
|
|
|
|
include "mpp/shmem.fh"
|
|
|
|
|
intrinsic my_pe
|
|
|
|
|
|
|
|
|
|
external lputp
|
|
|
|
|
|
|
|
|
|
if ( (ia.eq.1) .and. (ib.eq.1) ) then
|
|
|
|
|
! benchlib ...
|
|
|
|
|
do i = 1, n, 480
|
|
|
|
|
ni = min (480, n - i + 1)
|
|
|
|
|
call lgetv (a (i), 1, ni)
|
|
|
|
|
call lputv (b (i), 1, ni)
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
123 if (lputp () .ne.0) goto 123
|
|
|
|
|
|
|
|
|
|
else
|
|
|
|
|
call scopy (n, a, ia, b, ib)
|
|
|
|
|
|
|
|
|
|
endif
|
|
|
|
|
return
|
2003-01-20 05:58:50 +08:00
|
|
|
|
|
|
|
|
end subroutine scopy_t3e
|
|
|
|
|
#else
|
2003-02-08 00:04:36 +08:00
|
|
|
subroutine dummy
|
2003-02-27 21:59:04 +08:00
|
|
|
return
|
2003-01-20 05:58:50 +08:00
|
|
|
|
|
|
|
|
end subroutine dummy
|
|
|
|
|
|
|
|
|
|
#endif
|
