Esope source files

   1 : C PRSORT    SOURCE    JC220346  12/06/18    21:15:13     7403           
   2 : ************************************************************************
   3 : * NOM         : prsort.eso (opérateur SORTir)
   4 : * DESCRIPTION : Routine chargée du branchement vers les différentes
   5 : *               subroutines d'écriture de fichiers
   6 : ************************************************************************
   7 :       SUBROUTINE PRSORT
   8 : 
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)
  11 : 
  12 : -INC CCOPTIO
  13 : 
  14 :       PARAMETER (NTYPSO=6)
  15 :       CHARACTER*4 NOMTSO(NTYPSO)
  16 :       DATA NOMTSO / 'AVS ','EXCE','ABAQ','MED ','VTK ','MAT ' /
  17 : 
  17 :       CALL LIRMOT(NOMTSO,NTYPSO,ITYPRO,0)
  18 : 
  19 : *     Sortie au format AVS :
  20 :       IF (ITYPRO.EQ.1) THEN
  20 :           CALL SORAVS
  21 : 
  22 : *     Sortie au format EXCEL(TM) :
  23 :       ELSE IF (ITYPRO.EQ.2) THEN
  23 :           CALL SOREXC
  24 : 
  25 : *     Sortie au format ABAQUS(TM) :
  26 :       ELSE IF (ITYPRO.EQ.3) THEN
  26 :           CALL SORABA
  27 : 
  28 : *     Sortie au format MED :
  29 :       ELSE IF (ITYPRO.EQ.4) THEN
  29 : *           CALL ERREUR(19)
  30 : *           close ( unit = ioper)
  30 :           CALL MEDS
  31 : 
  32 : *     Sortie au format VTK :
  33 :       ELSE IF (ITYPRO.EQ.5) THEN
  33 :           CALL SORVTK
  34 : 
  35 : *     Sortie d'objets RIGIDITE :
  36 :       ELSE IF (ITYPRO.EQ.6) THEN
  36 :           CALL SORMAT
  37 : 
  38 : 
  39 : *     Sortie standard de la geometrie :
  40 :       ELSE
  40 :           CALL LIROBJ('MAILLAGE',IVAL,1,IRETOU)
  41 :           IF (IERR.NE.0) RETURN
  41 :           CALL SORTIR(IVAL)
  41 :           CALL REFUS
  42 :       ENDIF
  43 : 
  44 :       RETURN
  45 :       END
  46 : 
  47 : 
  48 :  
  49 :