WRITE(tmpName,'(A7,I1,A3)') 'layers',iLa,layers_name(iLa)
CALL WRITE_GLVEC_RL( tmpName, ' ',layers_bounds(1,iLa),1+Nlayers,
CHARACTER*11 tmpName
CHARACTER*(maxString) tmpName
tmpName = name(ISTART:IEND)
CALL UCASE( tmpName )
tmpName = ' '
iTimer=TIMER_INDEX(tmpName,timerNames(1,myThreadId),
timerNames(iTimer,myThreadId) = tmpName
& ILNBLNK(tmpName)-IFNBLNK(tmpName)+1
CALL F_HPMSTART((myThreadId-1)*100+iTimer,tmpName)
CALL F_HPMTSTART((myThreadId-1)*100+iTimer,tmpName)