FORTRAN程序中的IF语句和GOTO语句的逻辑

最近在看一本比较旧的文献，里面用的Fortran程序有一些if逻辑我看不太懂，请教下精通Fortran的朋友：

图中标红的部分我不太懂。
那个IF里面算是个逻辑表达式吗，后面的40，10，40，是依次运行的意思吗？
还有GOTO语句里的K是什么意思呢？
谢谢！

很老的语法，算术goto和算术if语句。