Browsing the code, I've never seen this form of goto:

   GOTO(1100,1004,1013,1020,1004,1004)(IKIND+1)

If the integer value is 1 (not zero), control flow transfers to label_1, if the value is 2, it transfers to the second label, etc.

Interesting! It's like a simplified switch statement.

I think it's called a computed goto in FORTRAN: https://docs.oracle.com/cd/E19957-01/805-4939/6j4m0vn9l/inde...

Indeed! It’s a form of a branch table: https://en.m.wikipedia.org/wiki/Branch_table

A number of BASICs had ON GOTO to accomplish this, IIRC. It's been a few decades since I've used it, though. :)