Question

fortran 不同返回值类型的同名函数

如何编写一个函数，实现根据参数的不同，返回不同类型的函数值？
举个例子，编写一个字符串转换为相应数值的函数，要求，当字符串为形如‘123’的形式时，返回整数123，当字符串为形如‘23.56’的形式时，返回实数‘23.56’，当字符串为形如‘（12.3，6.0）’的形式时，返回复数‘（12.3，6.0）’

Answer 1

module sub
interface xxx
module procedure aaa
module procedure bbb
end interface
contains

Integer Function aaa(x)
integer x
aaa = 3 * x
end function aaa

real Function bbb(x)
real x
bbb = 3.0 * x
end function bbb

end module sub

program u
use sub
write(*,*) xxx(3) , xxx(3.0)
end program u

追问

这个您给的这个例子里，参数的类型是不同的。但是从例子中的题目给出的要求来看，需要输入的参数类型是相同的——字符串，需要根据字符串内容（字符串中有的有小数点有的没有）的不同，来决定返回值的类型。