2005-03-21 21:43:38 +08:00
|
|
|
!
|
|
|
|
! Copyright (C) 2004 Tone Kokalj
|
|
|
|
! 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-01-29 02:47:19 +08:00
|
|
|
subroutine plot_whole_cell (alat, at, nat, tau, atm, ityp, &
|
|
|
|
nr1, nr2, nr3, nrx1, nrx2, nrx3, rho, output_format, ounit)
|
2004-01-23 23:08:03 +08:00
|
|
|
USE kinds, only : DP
|
2003-02-08 00:04:36 +08:00
|
|
|
implicit none
|
|
|
|
integer :: nat, ityp (nat), output_format, ounit
|
2003-01-29 02:47:19 +08:00
|
|
|
integer :: nrx1, nrx2, nrx3, nr1, nr2, nr3
|
|
|
|
character(len=3) :: atm(*)
|
2005-08-28 22:09:42 +08:00
|
|
|
real(DP) :: alat, tau (3, nat), at (3, 3), rho(2, nrx1,nrx2,nrx3)
|
2003-02-08 00:04:36 +08:00
|
|
|
|
|
|
|
if ( output_format .eq. 3 ) then
|
2003-01-29 02:47:19 +08:00
|
|
|
!
|
|
|
|
! XCRYSDEN FORMAT
|
|
|
|
!
|
|
|
|
call xsf_struct (alat, at, nat, tau, atm, ityp, ounit)
|
|
|
|
call xsf_fast_datagrid_3d &
|
|
|
|
(rho, nr1, nr2, nr3, nrx1, nrx2, nrx3, at, alat, ounit)
|
|
|
|
|
|
|
|
elseif ( output_format .eq. 4 ) then
|
|
|
|
!
|
|
|
|
! gOpenMol format
|
|
|
|
!
|
|
|
|
|
|
|
|
! not yet implemented
|
|
|
|
! add code here ...
|
|
|
|
else
|
2003-02-21 22:57:00 +08:00
|
|
|
call errore('plot_whole_cell', 'wrong output_format', 1)
|
2003-01-29 02:47:19 +08:00
|
|
|
endif
|
|
|
|
end subroutine plot_whole_cell
|