请教大家一个fortran固定格式的问题

fcode

IF (b) xx,yy,zz
等效于
if(b<0) goto xx
if(b==0) goto yy
if(b>0) goto zz
这东西叫“算术IF”语句，是一种被废止的语法，非常不好，不好，不好。