fortran的骚操作（一句话直接循环）

WRITE(11,63)(I,(JAN(I,J),J=1,2),I=1,NL)  

//等价于（(JAN(I,J),是个二维数组）
          DO I=1,NJ
              WRITE(Doc,6164) I
              CALL Str_Doc(doc)
              CALL WRITETABLEROWTEXT(Doc,11)
              do J=1,2
                  WRITE(Doc,6361) JAN(I,J)
                  CALL Str_Doc(Doc)
                  CALL WRITETABLEROWTEXT(Doc,11)
              enddo
              CALL WRITETABLEROW(11)
          enddo

(内循环和外循环，仅供参考，不可运行)