Расположить латинские буквы в начале строки, отсортированные по алфавиту, а русские буквы в конце

program integral
real integr, i, b,a,n
print*,'vvedite interval'
read *,a,b
print, vedite kol vo razbienii
read*,n
h=(b-a)/n
i1=0,0001
i2=0,00001
print1
print2,,n,integr
1format(70('_'))
2format('|',x,i4,x,f9.2,x,'|')
end
real function integr(b,c,k)
f(x)=x**2+8*x+1
sum=0
do i=1,k
sum=sum+(f(b)+f(b+c))/2*c
b=b+c
enddo
integr=sum
return
end.

    program integral
 
        implicit none
        integer i, n    
 
        real integr, a, b, f
 
        print *,'vvedite interval'
        read  *, a, b
        print *,'vedite kol vo razbienii'
        read  *, n
            
        print 9000
        print 9100, n,integr (a, b, n)
9000        format ( 70('_'))
9100        format ( '|',x,i4, x,f9.2,x,'|')
        
 
    end program integral
 
! --------------------------------------------
! integr вычиление кватратуру методом трапеций
!    в равноотстоящих точках
! --------------------------------------------
!
! Входные параметры:
! ==================
! c . . начальная точка интервала
! d . . конечная точка интервала
! k . . число узлов квадратурной формулы
!
! Рабочие переменные
! ===================
! h . . постоянный шаг между узлами
! 
! Возвращаемое значение --- аппрокисимация интеграла методом трапеций
!
!
    real function integr(c,d,k)
        integer k
        real c, d, h, f, sum, x
        f(x) = x**2 + 8*x + 1 ! определяем оператор функию
        
        h = ( d - c ) / k
    
        sum = 0.0
        do i=1, k
            sum = sum + ( f(c) + f(c + h) ) /2 * h
            c = c + h
        enddo
 
        integr = sum
        return
 
    end function integr