conversions_mod::conv_to_real Interface Reference

Converts data types to real. More...

Private Member Functions
real function, pointer	generic_to_real (generic, makecopy)
	Converts a generic to a real. If this is infact an integer then will do a conversion and allocate pointed to this. More...
real function	string_to_real (string)
	Converts a string to a real. More...
real function	integer_to_real (input)
	Converts an integer to a real. More...
real function	logical_to_real (input)
	Converts a logical to a real. More...

Detailed Description

Converts data types to real.

For the generic input then a flag indicating whether to make a copy of the underlying generic data or not is required. For all other data this copy is made automatically and no flag is required

Parameters

data	The data to convert into a real
copyflag	For generic data only: Whether to use a copy of the structured data or not

Returns

A real. For generic data a pointer to the real or null if generic conversion not possible

Definition at line 58 of file conversions.F90.

Member Function/Subroutine Documentation

generic_to_real()

real function, pointer conversions_mod::conv_to_real::generic_to_real ( class(*), intent(in), pointer  generic, logical, intent(in)  makecopy  )

private

Converts a generic to a real. If this is infact an integer then will do a conversion and allocate pointed to this.

Parameters

generic	The generic to convert into a real
makecopy	Whether to use a copy of the generic data or not

Returns

A pointer to the real or null if generic conversion not possible

Definition at line 423 of file conversions.F90.

    class(*), pointer, intent(in) :: generic
    logical, intent(in) :: makecopy
    real, pointer :: generic_to_real

    select type(generic)
      type is (real)
        if (makecopy) then
          allocate(generic_to_real, source=generic)
        else
          generic_to_real=>generic
        end if
        type is (integer)          
          allocate(generic_to_real)        
          generic_to_real=conv_to_real(generic)        
      class default
        generic_to_real=>null()
    end select

integer_to_real()

real function conversions_mod::conv_to_real::integer_to_real ( integer, intent(in)  input )

private

Converts an integer to a real.

Parameters

input

The integer to convert into a real

Returns

The real

Definition at line 459 of file conversions.F90.

    integer, intent(in) :: input

    integer_to_real = real(input)

logical_to_real()

real function conversions_mod::conv_to_real::logical_to_real ( logical, intent(in)  input )

private

Converts a logical to a real.

Parameters

input

The logical to convert into a real

Returns

The real

Definition at line 468 of file conversions.F90.

    logical, intent(in) :: input

    if (input) then
      logical_to_real = 1.0
    else
      logical_to_real = 0.0
    end if

string_to_real()

real function conversions_mod::conv_to_real::string_to_real ( character(len=*), intent(in)  string )

private

Converts a string to a real.

Parameters

string

The string to convert into a real

Returns

The real

Definition at line 446 of file conversions.F90.

    character(len=*), intent(in) :: string

    if (scan(string, "E") .ne. 0 .or. scan(string, "e") .ne. 0) then
      read(string, '(es30.10)' ) string_to_real
    else
      read(string, '(f10.0)' ) string_to_real
    end if

---

The documentation for this interface was generated from the following file:

• /nfs/a277/earlcd/dev/monc/svn-git/monc/model_core/src/utils/conversions.F90