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
Results:
> 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
Results:
> 100 20
> nint still works 20
> elemental 10 20 21 21
John S. Urban
Public Domain
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | chars |