Esope source files

   1 : C SUPER     SOURCE    CHAT      05/01/13    03:27:08     5004           
   2 :       SUBROUTINE SUPER
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 :       CHARACTER*4 MOLIS(4)
   6 : -INC CCOPTIO
   7 :       DATA MOLIS/'RIGI','CHAR','MASS','DEPL'/
   8 :       NMOT=4
   8 :       CALL LIRMOT(MOLIS,NMOT,IRET,1)
   9 :       IF(IERR.NE.0) RETURN
  10 :       GO TO (1,2,3,4),IRET
  10 :    1  CALL SUPRI
  11 :       RETURN
  11 :    2  CALL SUPCHA
  12 :       RETURN
  12 :    3  CALL SUPMAS
  13 :       RETURN
  13 :    4  CALL SUPDEP
  14 :       RETURN
  15 :       END
  16 : 
  17 :  
  18 :  
  19 :