!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  this was an attempt to fix line-lengths in FORTRAN files, after
!  those files have been modified by FPRETTY.  I don't like the
!  results -- it will attempt to "continue" comments that extend
!  beyond line 72, and the choice of place to continue lines is
!  entirely arbitrary, often rather silly.  Better to fix the files
!  by hand afterward.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROCEDURE     fix_length

LOCAL	now_direction ,
        end_line  ;

    now_direction  :=  current_direction ;
    set ( REVERSE , current_buffer ) ;
    position ( beginning_of ( current_buffer ) ) ;

    loop
        end_line  :=  search ( LINE_END , FORWARD ) ;
        exitif ( end_line = 0 ) ;

        loop
            position ( end_line ) ;
            exitif ( get_info ( current_buffer , "offset_column" ) < 72 ) ;

            loop
                exitif ( get_info ( current_buffer , "offset_column" ) < 72 ) ;
                eve_move_by_word ;
            endloop ;

            cjc_fortran_cont ;

        endloop ;

        exitif ( end_line = end_of ( current_buffer ) ) ;
        move_vertical ( 1 ) ;

    endloop ;

    set ( now_direction , current_buffer ) ;

ENDPROCEDURE ;