[交流] 【求助】如何实现数字紧贴字母输入

program main
real a,b
dimension a(3,7),b(3,1)

open (17,file='data.dat',status='old')
do i=1,3
   read (17,*) (a(i,j),j=1,3)
end do
close (17)

open (18,file='fort.13',status='unknown')
do i=1,3
   b(i,1)=a(i,3)
   write(18,*)b(i,:)
end do
close(18)
end

Originally posted by uiui at 2011-01-12 09:17:49:
program align_left_output_1
  
   do i=1,200
      L=int(log10(i*1.0))+1
      write(*,100) i
   enddo
   100 format('H'I

end program


program align_left_output_2
   charact ...