program rand
            implicit none
            character(len=20) :: a 
            integer                 :: i
            a = 'happy new year'
            do i = 1, 20
                        if(a(i:i)/=" ")write(*,"(1a,\)")a(i:i)
            enddo
end program rand

if(a(i:i)/=" ")write(*,"(1a,\)")a(i:i)

这句中意思是不是：如果取得位不为空格，则写出，我想知道write后面的（1a,\）什么意思，不是输出格式一般有a1么，怎么是1a，还有\是什么意思？谢谢了

rA,r是重复系数，这里可以不写的
\是取消换行,你可以把\去掉试下，就知道了

还可以这样：
program rand
            implicit none
            character(len=20) :: a 
            character(len=20) :: b
            integer                   :: i
            a = 'happy new year'
            b = ' '
            do i = 1, 20
                        if(a(i:i)/=" ") b = trim(b)//a(i:i)                        
            enddo
            write(*,*) trim(b)
end program rand