Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Module/def_vector

00001 module def_vector_irg
00002   use phys_constant, only : long
00003   implicit none
00004   real(long), pointer ::  vec_irg_cm_xg(:,:,:),  vec_irg_cm_phig(:,:,:)
00005   real(long), pointer :: hvec_irg_cm_xg(:,:,:), hvec_irg_cm_phig(:,:,:)
00006   real(long), pointer ::  vec_irg_cbh_xg(:,:,:), vec_irg_cbh_phig(:,:,:)
00007   real(long), pointer :: hvec_irg_cbh_xg(:,:,:),hvec_irg_cbh_phig(:,:,:)
00008 !  real(long), pointer ::  vec_irg_cbh_spin(:,:,:)
00009 !  real(long), pointer :: hvec_irg_cbh_spin(:,:,:)
00010 contains
00011 subroutine allocate_vector_irg
00012   use grid_parameter, only : ntg, npg
00013   use make_array_3d
00014   implicit none
00015   call alloc_array3d( vec_irg_cm_xg, 0, ntg, 0, npg, 1, 3)
00016   call alloc_array3d(hvec_irg_cm_xg, 1, ntg, 1, npg, 1, 3)
00017   call alloc_array3d( vec_irg_cm_phig, 0, ntg, 0, npg, 1, 3)
00018   call alloc_array3d(hvec_irg_cm_phig, 1, ntg, 1, npg, 1, 3)
00019   call alloc_array3d( vec_irg_cbh_xg, 0, ntg, 0, npg, 1, 3)
00020   call alloc_array3d(hvec_irg_cbh_xg, 1, ntg, 1, npg, 1, 3)
00021   call alloc_array3d( vec_irg_cbh_phig, 0, ntg, 0, npg, 1, 3)
00022   call alloc_array3d(hvec_irg_cbh_phig, 1, ntg, 1, npg, 1, 3)
00023 !  call alloc_array3d( vec_irg_cbh_spin, 0, ntg, 0, npg, 1, 3)
00024 !  call alloc_array3d(hvec_irg_cbh_spin, 1, ntg, 1, npg, 1, 3)
00025 end subroutine allocate_vector_irg
00026 end module def_vector_irg
/home/uryu/Cocal_svn_checkinout/Cocal/code/Module/def_vector_irg.f90
