くだすれFORTRAN（超初心者用）その3at TECHくだすれFORTRAN（超初心者用）その3 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト2:デフォルトの名無しさん 07/11/30 09:58:45 2 3:デフォルトの名無しさん 07/12/01 00:21:42 >>1 乙！ 4:デフォルトの名無しさん 07/12/01 22:19:53 Ｑ 任意の文字列C、整数Nを入力して、これらを連結してファイル名に使いたい。 Ａ 内部ファイルを使う。 PROGRAM F90test IMPLICIT NONE CHARACTER(20) :: str1 = "test", str2 INTEGER :: i DO i=1,3 WRITE(str2,'(A,I3.3,".dat")') trim(str1), i WRITE(*,'(A)') trim(str2) END DO END PROGRAM F90test PROGRAM F77TEST CHARACTER*10 C CHARACTER*20 STR INTEGER N, I READ(*,*) C READ(*,*) N I = INDEX(C,' ') - 1 IF (I .LE. 0) I = LEN(C) WRITE(STR, '(A, I3.3, ''.dat'')') C(1:I), N WRITE(*,*) STR END 出力例 test001.dat test002.dat test003.dat 5:デフォルトの名無しさん 07/12/02 23:07:06 前スレ>>994 はどうなったの？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch