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 |