fortran OOP(1) class_Date.f90_fortran里class-优快云博客

本文链接：https://blog.youkuaiyun.com/yueliang2100/article/details/82189947

本文介绍了一个使用Fortran编写的日期类模块，该模块定义了Date类型并提供了构造函数、打印和读取日期的方法。通过封装Month、Day和Year字段，并提供公共接口，确保了日期数据的一致性和正确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

module class_Date ! filename: class_Date.f90 implicit none public :: Date ! and everything not "private" ! private :: month, day, year type Date private integer :: month, day, year ; end type Date contains ! encapsulated functionality function Date_ (m, d, y) result (x) ! public constructor integer, intent(in) :: m, d, y ! month, day, year type (Date) :: x ! from intrinsic constructor x = Date (m, d, y) ; end function Date_ subroutine print_Date (x) ! check and pretty print a date type (Date), intent(in) :: x character (len=*),parameter :: month_Name(12) = & (/ "January ", "February ", "March ", "April ",& "May ", "June ", "July ", "August ",& "September", "October ", "November ", "December "/) if ( x%month < 1 .or. x%month > 12 ) print *, "Invalid month" if ( x%day < 1 .or. x%day > 31 ) print *, "Invalid day " print *, trim(month_Name(x%month)),' ', x%day, ", ", x%year; end subroutine print_Date subroutine read_Date (x) ! read month, day, and year type (Date), intent(out) :: x ! into intrinsic constructor read *, x ; end subroutine read_Date function set_Date (m, d, y) result (x) ! manual constructor integer, optional, intent(in) :: m, d, y ! month, day, year type (Date) :: x x = Date (1,1,1997) ! default, (or use current date) if ( present(m) ) x%month = m ; if ( present(d) ) x%day = d if ( present(y) ) x%year = y ; end function set_Date end module class_Date