TABLE OF CONTENTS


defs_wvltypes/wvl_wfs_lr_copy [ Functions ]

[ Top ] [ defs_wvltypes ] [ Functions ]

NAME

 wvl_wfs_lr_copy

FUNCTION

 Copy the wvl%Glr datastructure geometry part to wfs%Glr.

INPUTS

 wvl <type(wvl_internal_type)> = input localisation region

OUTPUT

 wfs <type(wvl_wf_type)> = output localistaion region

PARENTS

      gstate,wvl_wfsinp_reformat

CHILDREN

SOURCE

21 #if defined HAVE_CONFIG_H
22 #include "config.h"
23 #endif
24 
25 #include "abi_common.h"
26 
27 
28 subroutine wvl_wfs_lr_copy(wfs, wvl)
29 
30  use m_profiling_abi
31  use m_errors
32 
33  use defs_wvltypes
34 
35 !This section has been created automatically by the script Abilint (TD).
36 !Do not modify the following lines by hand.
37 #undef ABI_FUNC
38 #define ABI_FUNC 'wvl_wfs_lr_copy'
39 !End of the abilint section
40 
41  implicit none
42 
43 !Arguments ------------------------------------
44 !scalars
45   type(wvl_internal_type), intent(in)  :: wvl
46   type(wvl_wf_type), intent(inout)     :: wfs
47 !arrays
48 
49 !Local variables-------------------------------
50 
51 ! *********************************************************************
52 
53 #if defined HAVE_BIGDFT
54 !Use global localization region for the moment.
55  wfs%ks%lzd%Glr%geocode    = wvl%Glr%geocode
56  wfs%ks%lzd%Glr%hybrid_on  = wvl%Glr%hybrid_on
57  wfs%ks%lzd%Glr%ns1        = wvl%Glr%ns1
58  wfs%ks%lzd%Glr%ns2        = wvl%Glr%ns2
59  wfs%ks%lzd%Glr%ns3        = wvl%Glr%ns3
60  wfs%ks%lzd%Glr%nsi1       = wvl%Glr%nsi1
61  wfs%ks%lzd%Glr%nsi2       = wvl%Glr%nsi2
62  wfs%ks%lzd%Glr%nsi3       = wvl%Glr%nsi3
63  wfs%ks%lzd%Glr%d%n1       = wvl%Glr%d%n1
64  wfs%ks%lzd%Glr%d%n2       = wvl%Glr%d%n2
65  wfs%ks%lzd%Glr%d%n3       = wvl%Glr%d%n3
66  wfs%ks%lzd%Glr%d%nfl1     = wvl%Glr%d%nfl1
67  wfs%ks%lzd%Glr%d%nfu1     = wvl%Glr%d%nfu1
68  wfs%ks%lzd%Glr%d%nfl2     = wvl%Glr%d%nfl2
69  wfs%ks%lzd%Glr%d%nfu2     = wvl%Glr%d%nfu2
70  wfs%ks%lzd%Glr%d%nfl3     = wvl%Glr%d%nfl3
71  wfs%ks%lzd%Glr%d%nfu3     = wvl%Glr%d%nfu3
72  wfs%ks%lzd%Glr%d%n1i      = wvl%Glr%d%n1i
73  wfs%ks%lzd%Glr%d%n2i      = wvl%Glr%d%n2i
74  wfs%ks%lzd%Glr%d%n3i      = wvl%Glr%d%n3i
75  wfs%ks%lzd%Glr%outofzone  = wvl%Glr%outofzone
76 
77 #else
78  BIGDFT_NOTENABLED_ERROR()
79  if (.false.) write(std_out,*) wvl%h(1),wfs%ks
80 #endif
81  
82 end subroutine wvl_wfs_lr_copy