nint Interface

  int(3f) - [M_strings:TYPE] overloads INT(3f) so it can handle character arguments
  (LICENSE:PD)

impure elemental function int(string)

 character(len=*) :: string
 integer(kind=int32) :: int

int(3f) returns an integer when given a numeric representation of a
numeric value. This overloads the INT(3f) intrinsic so that CHARACTER
arguments assumed to represent a numeric value may be input.

   STRING  input string to be converted to an INT32 integer

   INT  integer represented by input string

Sample program:

  program demo_int
  use M_strings, only: int
  implicit none
  write(*,*)int('100'),int('20.4')
  write(*,*)'int still works',int(20.4)
  write(*,*)'elemental',&
  & int([character(len=23) :: '10','20.3','20.5','20.6'])
  end program demo_int

  >          100          20
  >  int still works          20
  >  elemental          10          20          20          20

John S. Urban

Public Domain

  nint(3f) - [M_strings:TYPE] overloads NINT(3f) so it can handle character arguments
  (LICENSE:PD)

impure elemental function nint(string)

 character(len=*) :: string
 integer          :: nint

nint(3f) returns an integer when given a numeric representation of a
numeric value. This overloads the NINT(3f) intrinsic so that CHARACTER
arguments assumed to represent a numeric value may be input.

   STRING  input string to be converted to an integer

   NINT  integer represented by input string

Sample program:

  program demo_nint
  use M_strings, only: nint
  implicit none
  write(*,*)nint('100'),nint('20.4')
  write(*,*)'nint still works',nint(20.4)
  write(*,*)'elemental',&
  & nint([character(len=23) :: '10','20.3','20.5','20.6'])
  end program demo_nint

  >          100          20
  >  nint still works          20
  >  elemental          10          20          21          21

John S. Urban

Public Domain