Added implicit none in the subroutine and definition

of nl_init.

MCB


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11692 c92efa57-630b-4861-b058-cf58834340f0

XSpectra/src/stdout_routines.f90

@@ -225,7 +225,9 @@ end subroutine calculate_and_write_homo_lumo_to_stdout
 subroutine write_calculation_type(xang_mom, nl_init)
   USE io_global,       ONLY : stdout
   !internal
+  implicit none
   integer, intent(in) :: xang_mom
+  integer, intent(in), dimension(2) :: nl_init
   
   WRITE(stdout, 1000) ! line 
   WRITE(stdout,'(5x,a)')&