diff --git a/cns/src/cns.f b/cns/src/cns.f
index a3c2cbe..51a34f8 100644
--- a/cns/src/cns.f
+++ b/cns/src/cns.f
@@ -470,6 +470,7 @@ C local
       INTEGER      HNLEN, TMP, PTRSZ, STLEN
       CHARACTER*(1) CNSPTMP
       CHARACTER*(4) ST
+!$    integer omp_get_max_threads
 C
 C write header
       WRITE(6,'(10X,A)')
@@ -526,6 +527,9 @@ C
       WRITE(6,'(10X,7A)')
      & ' Running on machine: ',HOSTNM(1:HNLEN),
      & ' (',SYSNM(1:TMP),',',ST(1:STLEN),'-bit)'
+!$    write(6,'(31x,a,i3,a)') 'with',omp_get_max_threads(),
+!$   &  ' threads'
+!$C (to change use setenv OMP_NUM_THREADS x)
 C
       CALL GETNAM(USERNM,12,TMP)
       WRITE(6,'(10X,2A)')