создание метода обрезки в открытом выражении fortran-90 не работает

Question

В этой подпрограмме я пытаюсь установить динамические c имена. имя файла сохранить всю строку. Однако файл в операторе open не содержит строку; '_1809.dat'.

subroutine db_write_matrix(dim,V,name)
    implicit none
    integer :: dim
    real(8) :: V(dim,dim)
    Character(len = 40) :: name
    Character(len = 60) :: filename
    integer :: i,j,u

    filename=trim('db_data/db_'//name//'_1809.dat')
    open(newunit=u, file=filename)
        . . .
    close(u)
    return
end subroutine db_write_matrix

Answer 1

У меня есть решение, вместо прежнего кода

введите

Character(len = *) :: name
Character(len = *) :: filename

filename='db_data/db_'//trim(name)//'_'//'1809.dat'