1 MODULE progress_bar 2 3 INTEGER :: BAR_WIDTH 4 CHARACTER (LEN=1) :: BAR_CHAR 5 DOUBLE PRECISION :: BAR_RESOLUTION 6 LOGICAL :: PRINT_PROGRESS_BAR 7 8 END MODULE progress_bar 9