|
求助
请问我下面的程序,build时并没有问题,但是运行时一直运行不出来(就是我按回车他没有反应)。请问我下面的程序是有什么问题吗
[Fortran] 纯文本查看 复制代码 08 | write ( * , * ) "please input two positive numbers" |
14 | write ( * , * ) "the first root:" |
17 | write ( * , * ) "the second root:" |
22 | subroutine roots 1 ( a , b , c ) |
33 | if ( abs ( f 1 ( c ) ) < 0.0000001 ) then |
37 | elseif ( f 1 ( p ) * f 1 ( c ) < 0 ) then |
56 | subroutine roots 2 ( a , b , c ) |
67 | if ( abs ( f 2 ( c ) ) < 0.0000001 ) then |
70 | elseif ( f 2 ( p ) * f 2 ( c ) < 0 ) then |
|
|