TABLE OF CONTENTS


m_abi_linalg/abi_d2zcopy_2d [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_d2zcopy_2d

FUNCTION

INPUTS

PARENTS

SOURCE

308   subroutine abi_d2zcopy_2d(size,tsrc,incsrc,tdest,incdest,x_cplx)
309 
310 !This section has been created automatically by the script Abilint (TD).
311 !Do not modify the following lines by hand.
312 #undef ABI_FUNC
313 #define ABI_FUNC 'abi_d2zcopy_2d'
314 !End of the abilint section
315 
316  implicit none
317 
318  !Arguments-------------------------------------
319  integer, intent(in) :: size
320  integer, intent(in) :: incsrc
321  integer, intent(in) :: incdest
322  real(dp),     DEV_CONTARRD intent(in) :: tsrc(:,:)
323  complex(dpc), DEV_CONTARRD intent(inout) :: tdest(:,:)
324  !only in lobpcgwf
325  integer, intent(in),optional :: x_cplx
326 
327 !Local variables-------------------------------
328  integer  :: cplx_
329 
330 #ifdef DEV_LINALG_TIMING
331  real(dp) :: tsec(2)
332  call timab(TIMAB_XCOPY,1,tsec)
333 #endif
334 
335  cplx_=1 ; if(PRESENT(x_cplx)) cplx_ = x_cplx
336  if(cplx_ == 2) then
337     call zcopy(size,tsrc,incsrc,tdest,incdest)
338  else
339     call dcopy(size,tsrc,incsrc,tdest,incdest)
340  end if
341 
342 #ifdef DEV_LINALG_TIMING
343  call timab(TIMAB_XCOPY,2,tsec)
344 #endif
345 
346 end subroutine abi_d2zcopy_2d

m_abi_linalg/abi_dcopy [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_dcopy

FUNCTION

INPUTS

PARENTS

SOURCE

111   subroutine abi_dcopy(size,tsrc,incsrc,tdest,incdest,x_cplx)
112 
113 !This section has been created automatically by the script Abilint (TD).
114 !Do not modify the following lines by hand.
115 #undef ABI_FUNC
116 #define ABI_FUNC 'abi_dcopy'
117 !End of the abilint section
118 
119  implicit none
120 
121 !Arguments-------------------------------------
122  integer, intent(in) :: size
123  integer, intent(in) :: incsrc
124  integer, intent(in) :: incdest
125  real(dp),intent(in) :: tsrc
126  real(dp),intent(inout) :: tdest
127  integer, intent(in), optional :: x_cplx
128 
129 !Local variables-------------------------------
130  integer  :: cplx_
131 
132 #ifdef DEV_LINALG_TIMING
133  real(dp) :: tsec(2)
134  call timab(TIMAB_XCOPY,1,tsec)
135 #endif
136 
137  cplx_=1 ; if(PRESENT(x_cplx)) cplx_ = x_cplx
138  if(cplx_ == 2) then
139     call zcopy(size,tsrc,incsrc,tdest,incdest)
140  else
141     call dcopy(size,tsrc,incsrc,tdest,incdest)
142  end if
143 
144 #ifdef DEV_LINALG_TIMING
145  call timab(TIMAB_XCOPY,2,tsec)
146 #endif
147 
148 end subroutine abi_dcopy

m_abi_linalg/abi_dcopy_0d_1d [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_dcopy_0d_1d

FUNCTION

INPUTS

PARENTS

SOURCE

238 subroutine abi_dcopy_0d_1d(size,tsrc,incsrc,tdest,incdest,x_cplx)
239 
240 !This section has been created automatically by the script Abilint (TD).
241 !Do not modify the following lines by hand.
242 #undef ABI_FUNC
243 #define ABI_FUNC 'abi_dcopy_0d_1d'
244 
245 !End of the abilint section
246 
247  implicit none
248 !Arguments-------------------------------------
249  integer, intent(in) :: size
250  integer, intent(in) :: incsrc
251  integer, intent(in) :: incdest
252  real(dp),intent(in) :: tsrc
253  real(dp), intent(inout) :: tdest(*)
254  integer,intent(in), optional :: x_cplx !only lobpcgwf
255 
256  call abi_dcopy(size,tsrc,incsrc,tdest(1),incdest,x_cplx)
257 
258 end subroutine abi_dcopy_0d_1d

m_abi_linalg/abi_dcopy_1d [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_dcopy_1d

FUNCTION

INPUTS

PARENTS

SOURCE

163 subroutine abi_dcopy_1d(size,tsrc,incsrc,tdest,incdest,x_cplx)
164 
165 !This section has been created automatically by the script Abilint (TD).
166 !Do not modify the following lines by hand.
167 #undef ABI_FUNC
168 #define ABI_FUNC 'abi_dcopy_1d'
169 
170 !End of the abilint section
171 
172  implicit none
173 
174 !Arguments-------------------------------------
175  integer, intent(in) :: size
176  integer, intent(in) :: incsrc
177  integer, intent(in) :: incdest
178  real(dp), intent(in)  :: tsrc(*)
179  real(dp), intent(inout) :: tdest(*)
180 !Only for lobpcgwf
181  integer, intent(in), optional :: x_cplx
182 
183  call abi_dcopy(size,tsrc(1),incsrc,tdest(1),incdest,x_cplx)
184 
185 end subroutine abi_dcopy_1d

m_abi_linalg/abi_dcopy_1d_0d [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_dcopy_1d_0d

FUNCTION

INPUTS

PARENTS

SOURCE

273 subroutine abi_dcopy_1d_0d(size,tsrc,incsrc,tdest,incdest,x_cplx)
274 
275 !This section has been created automatically by the script Abilint (TD).
276 !Do not modify the following lines by hand.
277 #undef ABI_FUNC
278 #define ABI_FUNC 'abi_dcopy_1d_0d'
279 
280 !End of the abilint section
281 
282  implicit none
283  !Arguments-------------------------------------
284  integer, intent(in) :: size
285  integer, intent(in) :: incsrc
286  integer, intent(in) :: incdest
287  real(dp),intent(in) :: tsrc(*)
288  real(dp),intent(inout) :: tdest
289  integer,intent(in), optional :: x_cplx !only lobpcgwf
290 
291  call abi_dcopy(size,tsrc(1),incsrc,tdest,incdest,x_cplx)
292 
293 end subroutine abi_dcopy_1d_0d

m_abi_linalg/abi_dcopy_2d [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_dcopy_2d

FUNCTION

INPUTS

PARENTS

SOURCE

200 subroutine abi_dcopy_2d(size,tsrc,incsrc,tdest,incdest,x_cplx)
201 
202 !This section has been created automatically by the script Abilint (TD).
203 !Do not modify the following lines by hand.
204 #undef ABI_FUNC
205 #define ABI_FUNC 'abi_dcopy_2d'
206 
207 !End of the abilint section
208 
209  implicit none
210 
211 !Arguments-------------------------------------
212  integer, intent(in) :: size
213  integer, intent(in) :: incsrc
214  integer, intent(in) :: incdest
215  real(dp), DEV_CONTARRD intent(in) :: tsrc(:,:)
216  real(dp), DEV_CONTARRD intent(inout) :: tdest(:,:)
217 !Only for lobpcgwf
218  integer, intent(in), optional :: x_cplx
219 
220  ! write(*,*) "dcopy2D size=",size
221  call abi_dcopy(size,tsrc(1,1),incsrc,tdest(1,1),incdest,x_cplx)
222 
223 end subroutine abi_dcopy_2d

m_abi_linalg/abi_xcopy [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

  abi_xcopy

FUNCTION

 abi_xcopy is the generic function for vector copy
 It performs the data copy: dst(1:n:incdst) = src(1:n:incsrc)

COPYRIGHT

  Copyright (C) 2001-2018 ABINIT group (LNguyen,FDahm (CS))
  This file is distributed under the terms of the
  GNU General Public License, see ~ABINIT/Infos/copyright
  or http://www.gnu.org/copyleft/gpl.txt .

SOURCE


m_abi_linalg/abi_z2dcopy_2d [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_z2dcopy_2d

FUNCTION

INPUTS

PARENTS

SOURCE

361 subroutine abi_z2dcopy_2d(size,tsrc,incsrc,tdest,incdest,x_cplx)
362 
363 !This section has been created automatically by the script Abilint (TD).
364 !Do not modify the following lines by hand.
365 #undef ABI_FUNC
366 #define ABI_FUNC 'abi_z2dcopy_2d'
367 !End of the abilint section
368 
369  implicit none
370 
371 !Arguments-------------------------------------
372  integer, intent(in) :: size
373  integer, intent(in) :: incsrc
374  integer, intent(in) :: incdest
375  complex(dpc), DEV_CONTARRD intent(in) :: tsrc(:,:)
376  real(dp),     DEV_CONTARRD intent(inout) :: tdest(:,:)
377  !only in lobpcgwf
378  integer,intent(in), optional :: x_cplx
379 
380 !Local variables-------------------------------
381  integer  :: cplx_
382 #ifdef DEV_LINALG_TIMING
383  real(dp) :: tsec(2)
384  call timab(TIMAB_XCOPY,1,tsec)
385 #endif
386 
387  cplx_=1 ; if(PRESENT(x_cplx)) cplx_ = x_cplx
388  if(cplx_ == 2) then
389     call zcopy(size,tsrc,incsrc,tdest,incdest)
390  else
391     call dcopy(size,tsrc,incsrc,tdest,incdest)
392  end if
393 
394 #ifdef DEV_LINALG_TIMING
395  call timab(TIMAB_XCOPY,2,tsec)
396 #endif
397 
398 end subroutine abi_z2dcopy_2d

m_abi_linalg/abi_zcopy [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_zcopy

FUNCTION

INPUTS

PARENTS

SOURCE

32   subroutine abi_zcopy(size,tsrc,incsrc,tdest,incdest)
33 
34 !This section has been created automatically by the script Abilint (TD).
35 !Do not modify the following lines by hand.
36 #undef ABI_FUNC
37 #define ABI_FUNC 'abi_zcopy'
38 !End of the abilint section
39 
40  implicit none
41 
42 !Arguments-------------------------------------
43  integer, intent(in) :: size
44  integer, intent(in) :: incsrc
45  integer, intent(in) :: incdest
46  complex(dpc),intent(in) :: tsrc
47  complex(dpc),intent(inout) :: tdest
48 
49  !Local variables-------------------------------
50 #ifdef DEV_LINALG_TIMING
51  real(dp) :: tsec(2)
52  call timab(TIMAB_XCOPY,1,tsec)
53 #endif
54 
55  call zcopy(size,tsrc,incsrc,tdest,incdest)
56 
57 #ifdef DEV_LINALG_TIMING
58  call timab(TIMAB_XCOPY,2,tsec)
59 #endif
60 
61 end subroutine abi_zcopy

m_abi_linalg/abi_zcopy_1d [ Functions ]

[ Top ] [ m_abi_linalg ] [ Functions ]

NAME

 abi_zcopy_1d

FUNCTION

INPUTS

PARENTS

SOURCE

76 subroutine abi_zcopy_1d(size,tsrc,incsrc,tdest,incdest)
77 
78 !This section has been created automatically by the script Abilint (TD).
79 !Do not modify the following lines by hand.
80 #undef ABI_FUNC
81 #define ABI_FUNC 'abi_zcopy_1d'
82 
83 !End of the abilint section
84 
85  implicit none
86 
87 !Arguments-------------------------------------
88  integer, intent(in) :: size
89  integer, intent(in) :: incsrc
90  integer, intent(in) :: incdest
91  complex(dpc), intent(in) :: tsrc(*)
92  complex(dpc), intent(inout) :: tdest(*)
93 
94  call abi_zcopy(size,tsrc(1),incsrc,tdest(1),incdest)
95 
96 end subroutine abi_zcopy_1d