[CPMD-list] code problem with TISTACK(NTIMX)

[Salomon Billeter]

Hi Christian,

you can insert the following lines before line 33 of file timer.F (TISET;
they are already contained in the newest version):

      IF(ITSTACK.GT.NTIMX) THEN
        DO I=1,ITSTACK-1
          WRITE(*,'(A,I6,A)') ' NAME STACK ',I,TISTACK(I)
        ENDDO
        CALL STOPGM('TISET','ROUTINE STACK OVERFLOW')
      ENDIF

This dumps the stack if there is an overflow, and you'll see where there is
a TISET not matched by TIHALT

Best regards,
Salomon