Re: Halt execution procedure

Here is my routine that I use sometimes for debugging the hard way.

SUBROUTINE Pause(dt)
!PURPOSE
! Waits for user to press <ENTER> or if an argument is present,
! pauses for that many seconds.
REAL,OPTIONAL,INTENT(IN) :: dt
REAL :: tin,tout

IF( PRESENT(dt) )THEN
CALL CPU_TIME(tin)
DO WHILE(tout-tin<dt)
CALL CPU_TIME(tout)
ENDDO
ELSE
WRITE(*,*)'please press <ENTER> to continue...'
READ(*,*)
ENDIF

ENDSUBROUTINE

.

Relevant Pages

  • Re: Halt execution procedure
    ... NuclearWizard wrote: ... > Here is my routine that I use sometimes for debugging the hard way. ... > SUBROUTINE Pause ...
    (comp.lang.fortran)
  • Re: I finally found the wooden stake to drive through my programs still beating heart!
    ... Doesn't Raise do substantially the same thing as Resume to the statement that caused the problem, as then both simply send the same error up the same chain of error handling? ... unnecessary breaks are often catastrophic to debugging because they steal the focus from where the speech recognition output is going which has nasty ripple effects. ... Instead of saying On Error GoTo 0 before all of my subroutine calls as I now do, ... so that when running from an EXE I would rattle back through the error handling routines in every routine in the call stack as you now do, yet in the IDE I could still stop on THE statement with the problem with no re-execution of other statements. ...
    (microsoft.public.vb.enterprise)
  • Re: Fast pancake flipping
    ... excerpt of my fast flipper here. ... Recently I wrote a subroutine that seemed to qualify for the ... It is certainly true that making a routine readable is usually ...
    (comp.programming)
  • SSI experience
    ... in either LPA or the LNKLST [while debugging, ... requires LOAD-TO-GLOBAL option on the SSVTI entry which causes the routine ... If during CLOSE you'd like to reuse the working storage acquired by OPEN, ... various entry points, so I am also preserving its pointer ...
    (bit.listserv.ibm-main)
  • Re: What routine is running
    ... argumnent a dynamic array and, with the addition of 1 line of code in the ... sub, gurarantee the existing code will work. ... duplicating an entire routine is a terrible solution. ... if the subroutine is meant to modify the value ...
    (comp.databases.pick)