PARAMETER (MAXSTACK=200)
      COMMON / FIFE_STACK / LSTACK(MAXSTACK), NSTACK
      CHARACTER *80 LSTACK