in input.f90

use constants, only : pi git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@42 c92efa57-630b-4861-b058-cf58834340f0
2003-01-29 14:49:14 +00:00 · 2003-01-29 14:49:14 +00:00 · 39e2beeb78
parent 5bd297d8ea
commit 39e2beeb78
1 changed files with 1 additions and 0 deletions
--- a/PW/input.f90
+++ b/PW/input.f90
@ -28,6 +28,7 @@ subroutine iosys
       force, at_old, omega_old, starting_scf_threshold, title, crystal,  &
       atm, nk1, nk2, nk3, k1, k2, k3
  use io, only : tmp_dir, prefix, pseudo_dir, pseudop
+  use constants, only: pi
 #ifdef PARA
  use para, only: me
  use mp