Fortran中这句if语句如何理解?if(a) 120,100,100请解释一些这句话
问题描述：
Fortran中这句if语句如何理解?
if(a) 120,100,100请解释一些这句话
答
当 a >=0时,goto 100
if (a) 120, 100, 100
120 print *, "< 0"
print *, "---"
goto 200
100 print *, ">= 0"
200 continue
< 0
---
>= 0
这是Fortran中Arithmetic IF Statement即算术if语句,它的含义就是：当if中的值,分别是<,=,> 0时,按相应顺序goto到后面的语句.具体到你的例子,就是：
当a < 0时, goto 120当 a >=0时,goto 100
比如：
read(*,*) aif (a) 120, 100, 100
120 print *, "< 0"
print *, "---"
goto 200
100 print *, ">= 0"
200 continue
运行结果：
-1< 0
---
而
1>= 0