编辑代码

program main
    implicit none
    integer :: i
    real(8) :: test = 10.5

    do i = 10, 8,-1
        write(*,*) "---------------------------------------"
        write(*,"(A,2x,F12.6)") "Power of the precooler:",test
        write(*,*) "---------------------------------------"
    end do
    
	print *, "Hello  JSRUN    - from gfrotran"
    
end