mod_clock::watch_lap Interface Reference

Public Member Functions
subroutine	watch_lap_noprint (MYWATCH)
subroutine	watch_lap_print (MYWATCH, UNIT, MSG)

Detailed Description

Definition at line 73 of file mod_clock.f90.

Member Function/Subroutine Documentation

watch_lap_noprint()

subroutine mod_clock::watch_lap::watch_lap_noprint

(

type(watch)

MYWATCH

)

Definition at line 181 of file mod_clock.f90.

     IMPLICIT NONE  
     TYPE(WATCH) :: MYWATCH

     mywatch%COUNT_LAST = mywatch%COUNT_CURRENT
     CALL system_clock(mywatch%COUNT_CURRENT)
     mywatch%LAP_Count = mywatch%LAP_Count + 1

watch_lap_print()

subroutine mod_clock::watch_lap::watch_lap_print	(	type(watch)	MYWATCH,
		integer, intent(in)	UNIT,
		character(len=*), intent(in)	MSG
	)

Definition at line 249 of file mod_clock.f90.

     IMPLICIT NONE  
     

     TYPE(WATCH) :: MYWATCH
     integer, intent(in) :: unit
     Character(len=*), intent(in) :: MSG
     INTEGER(ITIME) :: BIG_COUNT
     REAL(DP) :: LAP_TIME
     Character(len=16)  :: ltime
     

     CALL watch_lap_noprint(mywatch)
     big_count = mywatch%COUNT_CURRENT - mywatch%COUNT_LAST
     IF (big_count < 0) big_count = big_count + mywatch%COUNT_MAX

     lap_time = dble(big_count) / dble(mywatch%COUNT_RATE)

     write(ltime,'(F16.6)') lap_time

     write(unit,*) "! === "//trim(msg)//" ==="
     write(unit,*) "! Last Lap Time(seconds):"//trim(adjustl(ltime))
     write(unit,*) "! ==============================="
  

---

The documentation for this interface was generated from the following file:

• FVCOMg01/mod_clock.f90