Searched defs:writeunk (Results 1 – 1 of 1) sorted by relevance
379 subroutine writeunk( ispin ) subroutine512 integer, intent(in) :: ispin ! Spin component518 integer :: unk_nx, unk_nx_default ! Number of points along x521 integer :: unk_ny, unk_ny_default ! Number of points along y524 integer :: unk_nz, unk_nz_default ! Number of points along z527 logical :: unk_format, unk_format_default ! Are the UNK files written in 534 real(dp) :: kvector(3) ! k-point vector for which the 543 integer :: MPIerror576 call timer('writeunk',1) argument776 1992 call die('swan: Error creating UNK files')[all …]