Lines Matching defs:pwgen

489 subroutine pwgen(fsym,fout,ffastsp,fshift,nk,ns,nbinp, &  subroutine
493   logical, intent(in) :: fsym,fout,ffastsp,fshift
494   integer, intent(in) :: nk,ns,nbinp,nbpw,nbmax,nsyml, &
495     b2g,npwdeg,ngk_l,ng
496   integer, intent(in) :: rotl(3,3,48)
497   integer, intent(in) :: gvec(:,:) !< (3,ng)
498   integer, intent(inout) :: pw_num(:,:,:) !< (nbmax,ns,nk)
499   integer, intent(inout) :: pw_ind(:,:,:,:,:) !< (2,npwdeg,nbmax,ns,nk)
500   integer, intent(in) :: isort_d(:,:) !< (ngk_l,nk)
501   real(DP), intent(in) :: eshift
502   real(DP), intent(in) :: a(3,3)
503   real(DP), intent(in) :: b(3,3)
504   real(DP), intent(in) :: bdot(3,3)
505   real(DP), intent(in) :: kpt(:,:) !< (3,nk)
506   real(DP), intent(inout) :: en(:,:,:) !< (nbmax,nk,ns)
748 101 format(i16)
750 201 format('ik =',1x,a,1x,'ib =',1x,a,1x,'ig =',1x,a)
751 202 format('ik =',1x,a,1x,'ib =',1x,a,1x,'...',1x,a,1x,'ig =', &
754 701 format(1x,a)
755 702 format(4x,12a5)
756 703 format(12i5)
757 704 format(4x,'Basis-function matrix')
758 705 format(7x,f6.3,sp,f6.3,ss,'*i',2x,f6.3,sp,f6.3,ss,'*i',2x,f6.3, &
790 end subroutine pwgen  argument