mod_time::operator(-) Interface Reference

Public Member Functions
type(time) function	subtract_time (time1, time2)
type(time) function, dimension(size(time1))	subtract_time_1 (time1, time2)
type(time) function, dimension(size(time2))	subtract_time_1a (time1, time2)
type(time) function, dimension(size(time1))	subtract_time_a1 (time1, time2)
type(time) function, dimension(size(time1, 1), size(time1, 2))	subtract_time_2 (time1, time2)
type(time) function, dimension(size(time1, 1), size(time1, 2))	subtract_time_2a (time1, time2)
type(time) function, dimension(size(time2, 1), size(time2, 2))	subtract_time_a2 (time1, time2)

Detailed Description

Definition at line 107 of file mod_time.f90.

Member Function/Subroutine Documentation

subtract_time()

type(time) function mod_time::operator(-)::subtract_time	(	type(time), intent(in)	time1,
		type(time), intent(in)	time2
	)

Definition at line 999 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1, time2
     
     subtract_time%MuSOD = time1%MuSOD - time2%MuSOD
     subtract_time%mjd = time1%mjd - time2%mjd

     call adjust(subtract_time)

subtract_time_1()

type(time) function, dimension(size(time1)) mod_time::operator(-)::subtract_time_1	(	type(time), dimension(:), intent(in)	time1,
		type(time), dimension(:), intent(in)	time2
	)

Definition at line 1009 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1(:), time2(:)
     TYPE(TIME), DIMENSION(SIZE(TIME1)) :: TDIFF
     INTEGER :: I

     DO i = 1,SIZE(time1)
        tdiff(i) = time1(i) - time2(i)
     END DO

subtract_time_1a()

type(time) function, dimension(size(time2)) mod_time::operator(-)::subtract_time_1a	(	type(time), intent(in)	time1,
		type(time), dimension(:), intent(in)	time2
	)

Definition at line 1020 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1, time2(:)
     TYPE(TIME), DIMENSION(SIZE(TIME2)) :: TDIFF
     INTEGER :: I

     DO i = 1,SIZE(time2)
        tdiff(i) = time1 - time2(i)
     END DO

subtract_time_2()

type(time) function, dimension(size(time1,1),size(time1,2)) mod_time::operator(-)::subtract_time_2	(	type(time), dimension(:,:), intent(in)	time1,
		type(time), dimension(:,:), intent(in)	time2
	)

Definition at line 1042 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1(:,:), time2(:,:)
     TYPE(TIME), DIMENSION(SIZE(TIME1,1),SIZE(TIME1,2)) :: TDIFF
     INTEGER :: I,J

     DO i = 1,SIZE(time1,1)
        DO j = 1,SIZE(time1,2)
           tdiff(i,j) = time1(i,j) - time2(i,j)
        END DO
     END DO

subtract_time_2a()

type(time) function, dimension(size(time1,1),size(time1,2)) mod_time::operator(-)::subtract_time_2a	(	type(time), dimension(:,:), intent(in)	time1,
		type(time), intent(in)	time2
	)

Definition at line 1055 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1(:,:), time2
     TYPE(TIME), DIMENSION(SIZE(TIME1,1),SIZE(TIME1,2)) :: TDIFF
     INTEGER :: I,J

     DO i = 1,SIZE(time1,1)
        DO j = 1,SIZE(time1,2)
           tdiff(i,j) = time1(i,j) - time2
        END DO
     END DO

subtract_time_a1()

type(time) function, dimension(size(time1)) mod_time::operator(-)::subtract_time_a1	(	type(time), dimension(:), intent(in)	time1,
		type(time), intent(in)	time2
	)

Definition at line 1031 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1(:), time2
     TYPE(TIME), DIMENSION(SIZE(TIME1)) :: TDIFF
     INTEGER :: I

     DO i = 1,SIZE(time1)
        tdiff(i) = time1(i) - time2
     END DO

subtract_time_a2()

type(time) function, dimension(size(time2,1),size(time2,2)) mod_time::operator(-)::subtract_time_a2	(	type(time), intent(in)	time1,
		type(time), dimension(:,:), intent(in)	time2
	)

Definition at line 1068 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1, time2(:,:)
     TYPE(TIME), DIMENSION(SIZE(TIME2,1),SIZE(TIME2,2)) :: TDIFF
     INTEGER :: I,J

     DO i = 1,SIZE(time2,1)
        DO j = 1,SIZE(time2,2)
           tdiff(i,j) = time1 - time2(i,j)
        END DO
     END DO

---

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

• FVCOMg01/mod_time.f90