菜鸟求助：程序看不懂

zqf_101

本人由于工作需要，找到相关的源程序是用fortran编写的，但是小弟我以前从没有接触过
fortran语言，所以感觉很无助，从头开始学又觉得很没必要，因为我的工作要求是用matlab
，现求助各位大哥大姐们帮助，下面的程序段到底是什么意思？？？谢谢！！！

   subroutine time_print
    implicit none
    integer, parameter :: output = 6
   ! . local scalars.
   character ( len =  8 ) :: datstr
   character ( len = 10 ) :: timstr

   ! . Get the current date and time.
   call date_and_time ( datstr, timstr )

   ! . Write out the date and time.
   write ( output, "(/A)"  ) "                  Date = " // datstr(7:8) // "/" // &
                                          datstr(5:6) // "/" // &
                                          datstr(1:4)
   write ( output, "(A)"   ) "                  Time = " // timstr(1:2) // ":" // &
                                          timstr(3:4) // ":" // &
                                          timstr(5:10)
   write ( output, *)

   end subroutine time_print

whatinrain

我把解释插入在语句中，以c（comment）开头，希望能够解释清楚。


c  这是一个子程序，由subroutine开始
subroutine time_print
    implicit none
c 声明一个常量，这里只能是6，表示输出到屏幕，
    integer, parameter :: output = 6
   ! . local scalars.
c 声明两个字符串变量分别长度分别是8个字节和10个字节
   character ( len =  8 ) :: datstr
   character ( len = 10 ) :: timstr

   ! . Get the current date and time.
c 调用内部函数获得当前计算机时间
   call date_and_time ( datstr, timstr )

   ! . Write out the date and time.
c  输出到屏幕，"(/A)"中的/表示换一新行
c  // 用于字符串连接，datstr(7:8)表示取出字符串datstr中的第7，8位，基数是1
c 整句的意思是分别取出日，月，年，然后插入'/'并连接起来
   write ( output, "(/A)"  ) "                  Date = " // datstr(7:8) // "/" // &
                                          datstr(5:6) // "/" // &
                                          datstr(1:4)
c 相同道理，分别取出时，分，秒和毫秒，插入':'并连接
   write ( output, "(A)"   ) "                  Time = " // timstr(1:2) // ":" // &
                                          timstr(3:4) // ":" // &
                                          timstr(5:10)
c 输出空行
   write ( output, *)
c 结束子程序
   end subroutine time_print