mod_time::operator(+) Interface Reference

Public Member Functions
type(time) function	add_time (time1, time2)
type(time) function, dimension(size(time1))	add_time_1 (time1, time2)
type(time) function, dimension(size(time1))	add_time_1a (time1, time2)
type(time) function, dimension(size(time2))	add_time_a1 (time1, time2)
type(time) function, dimension(size(time1, 1), size(time1, 2))	add_time_2 (time1, time2)
type(time) function, dimension(size(time1, 1), size(time1, 2))	add_time_2a (time1, time2)
type(time) function, dimension(size(time2, 1), size(time2, 2))	add_time_a2 (time1, time2)

Detailed Description

Definition at line 96 of file mod_time.f90.

Member Function/Subroutine Documentation

add_time()

type(time) function mod_time::operator(+)::add_time	(	type(time), intent(in)	time1,
		type(time), intent(in)	time2
	)

Definition at line 916 of file mod_time.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN)  :: time1, time2
     integer(itime) :: musec
     
     add_time%MuSOD = time1%MuSOD + time2%MuSOD
     add_time%mjd = time1%mjd + time2%mjd

     call adjust(add_time)

add_time_1()

type(time) function, dimension(size(time1)) mod_time::operator(+)::add_time_1	(	type(time), dimension(:), intent(in)	time1,
		type(time), dimension(:), intent(in)	time2
	)

Definition at line 927 of file mod_time.f90.

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

     DO i = 1,SIZE(time1)
        tsum(i) = time1(i) + time2(i)
     END DO

add_time_1a()

type(time) function, dimension(size(time1)) mod_time::operator(+)::add_time_1a	(	type(time), dimension(:), intent(in)	time1,
		type(time), intent(in)	time2
	)

Definition at line 938 of file mod_time.f90.

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

     DO i = 1,SIZE(time1)
        tsum(i) = time1(i) + time2
     END DO

add_time_2()

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

Definition at line 960 of file mod_time.f90.

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

     DO i = 1,SIZE(time1,1)
        DO j = 1,SIZE(time1,2)
           tsum(i,j) = time1(i,j) + time2(i,j)
        END DO
     END DO

add_time_2a()

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

Definition at line 973 of file mod_time.f90.

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

     DO i = 1,SIZE(time1,1)
        DO j = 1,SIZE(time1,2)
           tsum(i,j) = time1(i,j) + time2
        END DO
     END DO

add_time_a1()

type(time) function, dimension(size(time2)) mod_time::operator(+)::add_time_a1	(	type(time), intent(in)	time1,
		type(time), dimension(:), intent(in)	time2
	)

Definition at line 949 of file mod_time.f90.

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

     DO i = 1,SIZE(time2)
        tsum(i) = time1 + time2(i)
     END DO

add_time_a2()

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

Definition at line 986 of file mod_time.f90.

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

     DO i = 1,SIZE(time2,1)
        DO j = 1,SIZE(time2,2)
           tsum(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