errex1.for

来自「This Source-Navigator, an IDE for C/C++/」· FOR 代码 · 共 18 行

FOR
18
字号
      SUBROUTINE ERREX1*-----------------------------------------------------------------------**--- error exit and stop when name buffer overflow**-----------------------------------------------------------------------      include 'param.h'      N=MXNAME      WRITE (MPUNIT,10000) N      STOP10000 FORMAT (//' ++++++++++++++++++++++++++++++++++++++++'/     +' +                                      +'/     +' +      NAME BUFFER OVERFLOW, STOP      +'/     +' +      ACTUAL SIZE =',I5,T41,'+'/     +' +                                      +'/     +' ++++++++++++++++++++++++++++++++++++++++')      END

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?