［Fortran］文字列の前後の空白を取り除く

trim関数とadjustl関数を組み合わせて使う。trim関数は、文字列の末尾の空白を取り除く関数。adjustl関数は、文字列の先頭の空白を取り除く関数。

以下のプログラムを実行してみる。

program testtrim
    implicit none
    character(len=10) :: str
    str='  ABC   '
    write(*,'(a)') '>'//str//'<'
    write(*,'(a)') '>'//trim(str)//'<'
    write(*,'(a)') '>'//trim(adjustl(str))//'<'
end program testtrim

出力

>  ABC     <
>  ABC<
>ABC<