Fortran 95で任意の浮動小数点文字列を実数に変換

Question

任意の浮動小数点文字列をfortranの実数に変換する簡単な方法はありますか？ strtodのようなものを考えますか？ READステートメントの問題は、すべての浮動小数点フォーマットの編集記述子に明示的な幅が必要であることです。これまで私が作った最高の回避策のようなものです：

pure function strtod(s) 
    real(kind=8) :: strtod 
    character(len=*), intent(in) :: s 
    character(len=32) :: fmt 
    integer :: dot 
    dot = index(s, ".") 
    if(dot < 1) then 
    write(fmt, '("(F",I0,".0)")'), len_trim(s) 
    else 
    write(fmt, '("(F",I0,".",I0,")")'), len_trim(s), len_trim(s)-dot 
    end if 
    read(s,fmt), strtod 
end function strtod 

しかし、私は何かが欠けていることだし、可能性がある場合、私は思ったんだけどそれを行うには良い方法はありますか？

Answer 1

私は何かが欠けているはずです。リストの指示でそれをすることで何が問題になったのですか？

[luser@cromer stackoverflow]$ cat char2.f90 
Program char2 

    Implicit None 

    Integer, Parameter :: wp = Selected_real_kind(12, 70) 

    Real(wp) :: a 

    Character(Len = 32) :: s 

    s = '0.' 
    Read(s, *) a 
    Write(*, *) a 

    s = '1e10' 
    Read(s, *) a 
    Write(*, *) a 

End Program char2 
[luser@cromer stackoverflow]$ nagfor -C=all -C=undefined char2.f90 
NAG Fortran Compiler Release 5.3.1 pre-release(904) 
[NAG Fortran Compiler normal termination] 
[luser@cromer stackoverflow]$ ./a.out 
    0.0000000000000000 
    1.0000000000000000E+10