get_rmsd_version Subroutine

  1. version.f90
  2. rmsd_version
  3. get_rmsd_version

public subroutine get_rmsd_version(major, minor, patch, string)

Getter function to retrieve mctc-rmsd version

Arguments

TypeIntentOptionalAttributesName
integer, intent(out), optional :: major

Major version number of the mctc-rmsd version
integer, intent(out), optional :: minor

Minor version number of the mctc-rmsd version
integer, intent(out), optional :: patch

Patch version number of the mctc-rmsd version
character(len=:), intent(out), optional allocatable:: string

String representation of the mctc-rmsd version

Contents

Source Code

get_rmsd_version

Source Code

subroutine get_rmsd_version(major, minor, patch, string)

   !> Major version number of the mctc-rmsd version
   integer, intent(out), optional :: major

   !> Minor version number of the mctc-rmsd version
   integer, intent(out), optional :: minor

   !> Patch version number of the mctc-rmsd version
   integer, intent(out), optional :: patch

   !> String representation of the mctc-rmsd version
   character(len=:), allocatable, intent(out), optional :: string

   if (present(major)) then
      major = rmsd_version_compact(1)
   end if
   if (present(minor)) then
      minor = rmsd_version_compact(2)
   end if
   if (present(patch)) then
      patch = rmsd_version_compact(3)
   end if
   if (present(string)) then
      string = rmsd_version_string
   end if

end subroutine get_rmsd_version