質問: "WRITE") の部分をどう修正したらいいのか・・・ 理想としては "nucsig12[step].txt"(stepには数字をいれたい) というようにstepと同じ数のテキストファイルを作りたいです こういうことはできるのでしょうか?? もしできるなら教えてください お願いしますm(__)m
回答: CHARACTER*80 fname INTEGER step こんな感じではどうでしょうか? DIMENSION nucsig12(10) do step=1,10 WRITE(fname,'(a,i3.3,a)') 'nucsig12',step,'.txt' OPEN(3, FILE=fname, ACTION = "WRITE") DO i=1,nucnum WRITE(3,*) i,nucsig12(i) END DO CLOSE(3) END DO END