mod_time::operator(*) Interface Reference

Public Member Functions
type(time) function	time_x_int (MJD, int)
type(time) function	time_x_long (MJD, long)
type(time) function	time_x_flt (MJD, flt)
type(time) recursive function	time_x_dbl (MJD, dbl)
type(time) function	int_x_time (int, MJD)
type(time) function	long_x_time (long, MJD)
type(time) function	flt_x_time (flt, MJD)
type(time) function	dbl_x_time (dbl, MJD)

Detailed Description

Definition at line 77 of file mod_time.f90.

Member Function/Subroutine Documentation

dbl_x_time()

type(time) function mod_time::operator(*)::dbl_x_time	(	real(dp), intent(in)	dbl,
		type(time), intent(in)	MJD
	)

Definition at line 853 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     real(DP), INTENT(in) :: dbl

     dbl_x_time = mjd * dbl

flt_x_time()

type(time) function mod_time::operator(*)::flt_x_time	(	real(spa), intent(in)	flt,
		type(time), intent(in)	MJD
	)

Definition at line 841 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     real(SPA), INTENT(in) :: flt
     real(DP) :: dbl

     dbl = dble(flt)
!   if(DBG_SET(dbg_log))  print*,'dbl=',dbl
     flt_x_time = mjd * dbl

int_x_time()

type(time) function mod_time::operator(*)::int_x_time	(	integer, intent(in)	int,
		type(time), intent(in)	MJD
	)

Definition at line 758 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     integer, INTENT(IN) :: int
     
     int_x_time%MuSOD=mjd%MuSOD * int
     int_x_time%mjd=mjd%mjd * int


     call adjust(int_x_time)

long_x_time()

type(time) function mod_time::operator(*)::long_x_time	(	integer(itime), intent(in)	long,
		type(time), intent(in)	MJD
	)

Definition at line 770 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     integer(itime), INTENT(IN) :: long
     
     long_x_time%MuSOD=mjd%MuSOD * long
     long_x_time%mjd=mjd%mjd * long


     call adjust(long_x_time)

time_x_dbl()

type(time) recursive function mod_time::operator(*)::time_x_dbl	(	type(time), intent(in)	MJD,
		real(dp), intent(in)	dbl
	)

Definition at line 816 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     real(DP), INTENT(in) :: dbl
     integer(itime) :: int
     real(DP) :: remainder
     real(DP) :: temp

     if (abs(dbl) .gt. 1.0_dp) THEN
        int = anint(dbl,itime)
        remainder = dbl - int
        time_x_dbl = (mjd * int) + (mjd * remainder)
     else
        temp = real(mjd%MuSOD,dp) * real(dbl,dp)
        time_x_dbl%MuSOD= anint(temp,itime)

        temp = real(mjd%mjd,dp) * real(dbl,dp)
        int = anint(temp,itime)
        time_x_dbl%mjd=int
        time_x_dbl%MuSOD = time_x_dbl%MuSOD + (temp-int)*muspd 
     end if
     call adjust(time_x_dbl)

time_x_flt()

type(time) function mod_time::operator(*)::time_x_flt	(	type(time), intent(in)	MJD,
		real(spa), intent(in)	flt
	)

Definition at line 805 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     real(SPA), INTENT(in) :: flt
     real(DP) :: DBL

     dbl = flt
     time_x_flt = mjd * dbl

time_x_int()

type(time) function mod_time::operator(*)::time_x_int	(	type(time), intent(in)	MJD,
		integer, intent(in)	int
	)

Definition at line 782 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     integer, INTENT(IN) :: int
     
     time_x_int%MuSOD=mjd%MuSOD * int
     time_x_int%mjd=mjd%mjd * int


     call adjust(time_x_int)

time_x_long()

type(time) function mod_time::operator(*)::time_x_long	(	type(time), intent(in)	MJD,
		integer(itime), intent(in)	long
	)

Definition at line 794 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: MJD
     integer(itime), INTENT(IN) :: long
     
     time_x_long%MuSOD=mjd%MuSOD * long
     time_x_long%mjd=mjd%mjd * long

     call adjust(time_x_long)

---

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

• FVCOMg01/mod_time.f90