0

double 型の配列を char 型に変更 (またはコピー) することは可能ですか?

私の目的は、正確なデータと文字列を組み合わせて、.txt ファイルに書き込むことです。


あなたのヒントで、私はこのコードにたどり着きました:

Program logArray

Implicit None

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

Real( wp ), Dimension( 1:5 ) :: vals
Character( Len = 40 ), Dimension( 1:5 ) :: stuff

character (40) :: fileName
Integer :: i,stat


Call Random_number( vals )

write(*,*) 'Printing Values from Real array'
do i = 1, 5
    write(*,*) 'vals', i, vals(i)
end do


Write( stuff, '( "Value ", i1, " is ", f20.16 )' ) &
   ( i, vals( i ), i = 1, Size( vals ) )

fileName='log.txt'

open(2, file=fileName, status='replace', iostat=stat)
    if (stat /= 0) then
        write(*,*) fileName, ' The file  cannot be opened !'
        go to 20
    end if

    !Write( *, '( 99999( a, :, / ) )' ) stuff  
    Write( 2, '( 99999( a, :, / ) )' ) stuff 

    close(2)


    20 write(*,*) 'File Closed' 

End Program logArray

ただし、log.txtに次のように書きたい場合は、まだわかりません

「-----値 1 のタイトル---------」

値 1 は 0.9975595900926172 です
値 2 は 0.5668247076112733 です

「-----値 3 は愛を意味します-------」
値 3 は 0.9659153754961249
値 4 は 0.7479276854714322
値 5 は 0.3673908973747557

私はFortranの初心者です。私は以前はサイクルでファイルに書き込んでいましたが、あなたの「魔法の」命令は別の方法で物事を行い、主に有利に操作する方法がわかりません。

ご助力ありがとうございます

4

1 に答える 1