fortran, pregress bar