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