attend.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\attend.f
00002 !
00052                      SUBROUTINE ATTEND(ISEC)
00053 !                    ***********************
00054 !
00055 !
00056 !***********************************************************************
00057 ! BIEF   V6P1                                   21/08/2010
00058 !***********************************************************************
00059 !
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00066 !| ISEC           |-->| THE LAPSE OF TIME TO WAIT
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !
00069       IMPLICIT NONE
00070 !-----------------------------------------------------------------------
00071 !     VERSION F90 STANDARD
00072 !-----------------------------------------------------------------------
00073 !
00074       INTEGER, INTENT(IN) :: ISEC
00075       INTEGER T1,T2
00076       INTEGER  TIME_IN_SECONDS
00077       EXTERNAL TIME_IN_SECONDS
00078       T1 = TIME_IN_SECONDS()
00079       T2 = T1
00080 !                            .AND. : WHEN CLOCK RESET TO ZERO
00081       DO WHILE (T2.LT.T1+ISEC.AND.T2.GE.T1)
00082         T2 = TIME_IN_SECONDS()
00083       END DO
00084 !
00085 !-----------------------------------------------------------------------
00086 !     VERSION F95 NAG
00087 !-----------------------------------------------------------------------
00088 !
00089 !     USE F90_UNIX_PROC
00090 !     INTEGER, INTENT(IN) :: ISEC
00091 !     CALL SLEEP(ISEC)
00092 !
00093 !-----------------------------------------------------------------------
00094 !
00095       RETURN
00096       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0