meta.F90 Source File

!
!  meta_parameters.f90
!  This file is part of ISOFT.
!  
!  Copyright 2016 Chris MacMackin <cmacmackin@gmail.com>
!  
!  This program is free software; you can redistribute it and/or modify
!  it under the terms of the GNU General Public License as published by
!  the Free Software Foundation; either version 2 of the License, or
!  (at your option) any later version.
!  
!  This program is distributed in the hope that it will be useful,
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!  GNU General Public License for more details.
!  
!  You should have received a copy of the GNU General Public License
!  along with this program; if not, write to the Free Software
!  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
!  MA 02110-1301, USA.
!  

module meta_mod
  !* Author: Chris MacMackin
  !  Date: November 2016
  !  License: GPLv3
  !
  ! Provides functions specifying the version of ISOFT, time of compilation, etc.
  !
  use iso_fortran_env, only: i8 => int64, compiler_version, compiler_options
  implicit none
  
  character(len=3), dimension(12), parameter :: months = ['Jan', &
                                                          'Feb', &
                                                          'Mar', &
                                                          'Apr', &
                                                          'May', &
                                                          'Jun', &
                                                          'Jul', &
                                                          'Aug', &
                                                          'Sep', &
                                                          'Oct', &
                                                          'Nov', &
                                                          'Dec']
  character(len=42), parameter :: time_format = '(a3,1x,i2,1x,i4,1x,i2.2,":",'// &
                                                'i2.2,":",i2.2)'

  interface
    module function version()
      !* Author: Chris MacMackin
      !  Date: December 2016
      !
      ! Returns the version number for ISOFT.
      !
      character(len=5) :: version
    end function version
    
    module function compile_time()
      !* Author: Chris MacMackin
      !  Date: December 2016
      !
      ! Returns the date and time at which ISOFT was compiled.
      !
      character(len=20) :: compile_time
    end function compile_time

    module function compile_info()
      !* Author: Chris MacMackin
      !  Date: April 2017
      !
      ! Returns compiler version and and flags.
      !
      character(len=1000) :: compile_info
    end function compile_info
  end interface

contains

  function current_time()
    !* Author: Chris MacMackin
    !  Date: November 2016
    !
    ! Returns the current date and time in the same format as the
    ! [[compile_time]] function.
    !
    character(len=20) :: current_time
    integer(i8), dimension(8) :: time_vals
    call date_and_time(values=time_vals)
    write(current_time,time_format) months(time_vals(2)), time_vals(3), &
                                    time_vals(1), time_vals(5), time_vals(6), &
                                    time_vals(7)
  end function current_time

end module meta_mod