ex1107.f90

Fortran 95程序设计【彭国伦】第11章

module time_util
  implicit none
  type :: time
    integer :: hour,minute
  end type time
  interface operator(+) ! 让type(time)类型变量能够相加
    module procedure add
  end interface

contains
  function add( a, b )
    implicit none
    type(time), intent(in) :: a,b
    type(time) :: add
    integer :: minutes,carry
    minutes=a%minute+b%minute
    carry=minutes/60
    add%minute=mod(minutes,60)   ! 取余数
    add%hour=a%hour+b%hour+carry 
    return
  end function add

  subroutine output(t)
    type(time), intent(in) :: t
	write(*,"(I2,':',I2.2)") t%hour, t%minute
	return
  end subroutine

end module

program ex1107
  use time_util
  implicit none
  type(time) :: a,b,c
  
  a=time(1,45)
  b=time(2,18)
  c=a+b ! 实际会调用函数add
  call output(c)

  stop
end program