mod_time::seconds2time Interface Reference

Public Member Functions
type(time) function	seconds2time_dbl (SECS)
type(time) function	seconds2time_flt (SECS)
type(time) function	seconds2time_int (SECS)
type(time) function	seconds2time_lint (SECS)

Detailed Description

Definition at line 149 of file mod_time.f90.

Member Function/Subroutine Documentation

seconds2time_dbl()

type(time) function mod_time::seconds2time::seconds2time_dbl

(

real(dp), intent(in)

SECS

)

Definition at line 302 of file mod_time.f90.

     implicit none
     TYPE(TIME) :: MJD
     real(DP), INTENT(IN)    :: SECS
     real(DP)                :: TEMP

     mjd%mjd   = int(secs/dble(spd),itime)
     temp = mod(secs,dble(spd))
     mjd%MuSOD = anint(temp*real(million,dp),itime)
     CALL adjust(mjd)
     seconds2time_dbl = mjd

seconds2time_flt()

type(time) function mod_time::seconds2time::seconds2time_flt

(

real(spa), intent(in)

SECS

)

Definition at line 337 of file mod_time.f90.

     implicit none
     real(SPA), INTENT(IN)    :: SECS
     
     seconds2time_flt = seconds2time_dbl(dble(secs))

seconds2time_int()

type(time) function mod_time::seconds2time::seconds2time_int

(

integer, intent(in)

SECS

)

Definition at line 315 of file mod_time.f90.

     implicit none
     TYPE(TIME) :: MJD
     INTEGER, INTENT(IN)    :: SECS

     mjd%mjd   = 0
     mjd%MuSOD = secs
     CALL adjust(mjd)
     seconds2time_int = mjd

seconds2time_lint()

type(time) function mod_time::seconds2time::seconds2time_lint

(

integer(itime), intent(in)

SECS

)

Definition at line 326 of file mod_time.f90.

     implicit none
     TYPE(TIME) :: MJD
     INTEGER(ITIME), INTENT(IN)    :: SECS

     mjd%mjd   = 0
     mjd%MuSOD = secs
     CALL adjust(mjd)
     seconds2time_lint = mjd

---

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

• FVCOMg01/mod_time.f90