dble(3f) - [M_strings:TYPE] overloads DBLE(3f) so it can handle character arguments (LICENSE:PD)
Synopsis
Description
Options
Returns
Examples
Author
License
impure elemental function dble(string)
character(len=*) :: string integer :: dble
dble(3f) returns a DOUBLE value when given a numeric representation of a numeric value. This overloads the DBLE(3f) intrinsic so that CHARACTER arguments assumed to represent a numeric value may be input.
STRING input string to be converted to a dble value
DBLE double precision value represented by input string
Sample program:
program demo_dble use M_strings, only: dble implicit none write(*,*)dble(100),dble(20.4) write(*,*)dble still works,dble(20),dble(20.4) write(*,*)elemental,& & dble([character(len=23) :: 10,20.3,20.5,20.6]) end program demo_dbleResults:
> 100.00000000000000 20.399999999999999 > dble still works 20.000000000000000 20.399999618530273 > elemental 10.00000000000000 20.30000000000000 > 20.50000000000000 20.60000000000000
John S. Urban
Public Domain
Nemo Release 3.1 | dble (3m_strings) | January 10, 2025 |