read(*,*) str
LEN1=LEN(str)
str=ADJUSTL(str)
LEN2=LEN_TRIM(str) 

! LEN1 原始长度
! LEN2 实际长度
! 缺点，不能辨认字符串之间的空格，只能删除段前和断后的空格
如果不统计字符串之间的空格或其他特殊字符，可能需要扫描整个字符串。