M_overload__extend Module


Uses


Interfaces

public interface dble

  • private pure elemental function anyscalar_to_double(valuein) result(d_out)

    ,input_unit,output_unit write(error_unit,)’anyscalar_to_double value too large ‘,valuein stop ‘M_anything::anyscalar_to_double: unknown type’

    Arguments

    Type IntentOptional Attributes Name
    class(*), intent(in) :: valuein

    Return Value doubleprecision