CHARACTER(LEN=10) :: a,b,c a=' 12345 ' b=ADJUSTL(a); WRITE(*,*) b ! 左に揃える c=ADJUSTR(a); WRITE(*,*) c ! 右に揃える