[Q-e-commits] espresso/CPV environment.f90,1.22,1.23

[ccavazzoni at qe-forge.org]

Update of /cvsroot/q-e/espresso/CPV
In directory qeforge.qe-forge.org:/tmp/cvs-serv1853

Modified Files:
	environment.f90 
Log Message:
- print out the number of threads, when QE is compiled with OpenMP


Index: environment.f90
===================================================================
RCS file: /cvsroot/q-e/espresso/CPV/environment.f90,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- environment.f90	29 Jul 2008 02:04:51 -0000	1.22
+++ environment.f90	31 May 2009 07:57:17 -0000	1.23
@@ -44,6 +44,9 @@
           REAL(DP),         EXTERNAL :: cclock
           CHARACTER(LEN=6), EXTERNAL :: int_to_char
 
+#if defined __OPENMP
+          INTEGER, EXTERNAL :: omp_get_max_threads
+#endif
 
           CALL init_clocks( .TRUE. )
           CALL start_clock( 'CP' )
@@ -98,6 +101,11 @@
 
 #endif
 
+#if defined __OPENMP
+          WRITE( stdout,110) omp_get_max_threads()
+110       FORMAT(3X,'Using OpenMP with',I5,' threads')
+#endif
+
           RETURN
         END SUBROUTINE environment_start