Sources Esope | Cast3M

oocase
C OOCASE    SOURCE    PV090527  26/04/24    08:22:56     12524          
      SUBROUTINE OOCASE (ICASE)
C-------------------------------------------------------------------
C
C     L'INSTRUCTION ESOPE :      CASE , EXPRESSION
C
C     GENERE ENTRE AUTRE  :      ICAS = EXPRESSION
C                                GO TO ( ET1 , .. , ETN ) , ICAS
C                                CALL OOCASE (ICAS)
C                           ET1  CONTINUE
C
C-------------------------------------------------------------------
C
%INC IOOUNIT
      WRITE (JLST,*) '--- ESOPE ---   ERREUR INSTRUCTION : CASE ,',ICASE
      WRITE (JERR,*) '--- ESOPE ---   ERREUR INSTRUCTION : CASE ,',ICASE
      CALL OOOZZ5
                                                       STOP 16
      END