- adding clocks

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

CPV/src/cplib.f90

@@ -912,6 +912,8 @@ SUBROUTINE newnlinit()
   ! 
   ! ... initialization for vanderbilt species
   !
+  CALL start_clock( 'newnlinit' )
+
   IF( tpstab ) THEN
 
      recompute_table = tpre .AND. check_tables( gmax )
@@ -953,6 +955,8 @@ SUBROUTINE newnlinit()
   ! ... non-linear core-correction   ( rhocb(ig,is) )
   !
   CALL core_charge_ftr( tpre )
+
+  CALL stop_clock( 'newnlinit' )
   !
   RETURN
   !
@@ -1166,6 +1170,7 @@ subroutine nlinit
      &              dfint(:)
       real(dp) xg, xrg, fac
 
+      CALL start_clock( 'nlinit' )
 
       IF( ionode ) THEN
         WRITE( stdout, 100 )
@@ -1245,6 +1250,8 @@ subroutine nlinit
       !
       call newnlinit()
 
+      CALL stop_clock( 'nlinit' )
+
       return
 end subroutine nlinit
 

CPV/src/cpr.f90

@@ -977,6 +977,12 @@ SUBROUTINE terminate_run()
   CALL print_clock( 'tmp_clk1' )
   CALL print_clock( 'tmp_clk2' )
   CALL print_clock( 'tmp_clk3' )
+  CALL print_clock( 'gram' )
+  CALL print_clock( 'nlinit' )
+  CALL print_clock( 'init_dim' )
+  CALL print_clock( 'newnlinit' )
+  CALL print_clock( 'from_scratch' )
+  CALL print_clock( 'from_restart' )
 !==============================================================
 ! Lingzhu Kong
   CALL print_clock( 'wf' )