fortranプログラムで処理した連番ファイルを別のフォルダに保存したい。

Question

fortranプログラムで処理した連番ファイルを別のフォルダに保存したい。

作業フォルダ内の、行列が書かれた連番のテキストファイルの要素の値を、
閾値以上は255、それ以下は0に変え、作業フォルダ内の新しいフォルダに同名の出力ファイルを作成して書きこむシステムをfortranで作っています。

作業フォルダには'abcde_xxx.bw.txt'という名前の入力ファイルが複数入っており、
xxxのところに001～の連番が入ります。それ以外の部分は全て共通です。

そのファイルを読み込みIF文で処理したうえで、
同名のファイルを新しいフォルダに作成し、内容を保存したいと思っております。

出力ファイルの保存先パスを、別のフォルダに指定する機能を実装中に以下のエラーメッセージが発生しました。

 write (filename, "(a,'_',i3.3,'bw.txt')")trim(dataname),i !連番ファイル名の生成
   open(11, file='./新しいフォルダー/' trim(filename), status='new')
 

ソースコードの後半部分ででこのようにして出力ファイルを開き、
その保存先のパスを、作業フォルダ内の”新しいフォルダー”に設定したいのですが、
すると下のようなエラーが出てしまいます。

C:\Users\Downloads\2 3500fps\binarization_for_txt.f90:68:38:

   68 |    open(11, file='./新しいフォルダー/' trim(filename), status='new')
      |                                      1
Error: Syntax error in OPEN statement at (1)

file='./新しいフォルダー/trim(filename)'

のようにするとエラーは出ませんが、trim(filename)がただの文字列と認識されてしまうので,trim(filename).txtというファイルが作成され、プログラムが終了してしまいます。
解決方法など、分かる方がいたらよろしくお願いいたします。

該当のソースコード

program main

implicit none

character*30 filename	!txtファイルの名前
character*30 dataname	!txtファイルの名前の拡張子，連番を除いた部分
character*30 fname
character*1 dummy 

integer :: i,j,k                          !繰り返し変数
integer, dimension(1,800):: pix1          !txtファイルの1行目
integer, dimension(800,800):: pix         !txtファイルの2行目以降
integer :: thr                            !2値化の際の閾値
integer :: Nmax                           !txtファイルの数



	
    

    print*,"input condition name. ex)1o10C334000_1"
	read*, dataname
    
   
    print*,"input the number of txt_file"
    read*, Nmax

    print*,"What is the threshold?"
    read*, thr
     
        
    
     do i=0, Nmax
        
       write (filename, "(a,'_',i3.3,'bw.txt')")trim(dataname),i
      
       
        open(10, file=trim(filename), status='old')
        print*, trim(filename)

          
     
     
      do j=1,1
         read(10,*) (pix1(j,k), k=1,768)   !入力ファイルの1行目を配列に格納
       end do
   
      do j=1,768
         read(10,*) (pix(j,k), k=1,769) 　　!同2行目以降を配列に格納
       end do
    
    
      do j=1,768
        do k=2,769
                     
          if (pix(j,k)<thr) then     !2値化の処理
             pix(j,k)=0
          else
            pix(j,k)=255
          end if
         
        end do
      end do
    
 
   !write (fname, "(i3.3,'bw.txt')")i
   write (filename, "(a,'_',i3.3,'bw.txt')")trim(dataname),i
   open(11, file='./新しいフォルダー/' trim(filename), status='new')
   

   do j=1,1
     write(11, '(*(i3,1x))') (pix1(j,k), k=1,768)
   end do

   do j=1,768
     write(11, '(*(i3,1x))') (pix(j,k), k=1,769)
   end do
   
   close(11)
    
   close(10)
    
    
  end do  !'i'

  end
    

    
    
    
    


    

Answer 1

文字列連結をしてもいいですし、ファイル名を生成する所で、ディレクトリ名もくっつておく手もあります。

 write (filename, "(2a,'_',i3.3,'bw.txt')")'./新しいフォルダー/',trim(dataname), i 

Answer 2

Fortranで、文字列を連結するのは、//という二項演算子です。