Télécharger la plaquette Cast3M


fr en

Télécharger prsort.eso

Retour à la liste

Numérotation des lignes : 

prsort

  1. C PRSORT    SOURCE    CB215821  16/12/12    21:15:04     9247           
  2. C***********************************************************************
  3. C NOM         : prsort.eso (opérateur SORTir)
  4. C DESCRIPTION : Routine chargée du branchement vers les différentes
  5. C               subroutines d'écriture de fichiers
  6. C***********************************************************************
  7.       SUBROUTINE PRSORT
  8.  
  9.       IMPLICIT INTEGER(I-N)
  10.       IMPLICIT REAL*8(A-H,O-Z)
  11.  
  12.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15.  
  16.       PARAMETER (NTYPSO=10)
  17.       CHARACTER*4 NOMTSO(NTYPSO)
  18.       DATA NOMTSO / 'AVS ','EXCE','ABAQ','MED ','VTK ','MAT ','CHAI',
  19.      &              'FER ','NAS ','STL '/
  20.  
  21.       ITYPRO=0
  22.       CALL LIRMOT(NOMTSO,NTYPSO,ITYPRO,0)
  23.       IF (IERR .NE. 0) RETURN
  24.       GOTO (1,2,3,4,5,6,7,8,9,10),ITYPRO
  25.       GOTO 1000
  26.  
  27. C     Sortie au format AVS :
  28.  1    CALL SORAVS
  29.       GOTO 999
  30.  
  31. C     Sortie au format EXCEL(TM) :
  32.  2    CALL SOREXC
  33.       GOTO 999
  34.  
  35. C     Sortie au format ABAQUS(TM) :
  36.  3    CALL SORABA
  37.       GOTO 999
  38.  
  39. C     Sortie au format MED :
  40.  4    CALL SORMED
  41.       GOTO 999
  42.  
  43. C     Sortie au format VTK :
  44.  5    CALL SORVTK
  45.       GOTO 999
  46.  
  47. C     Sortie d'objets RIGIDITE :
  48.  6    CALL SORMAT
  49.       GOTO 999
  50.  
  51. C     Sortie de CHAIne(s) de caracteres :
  52.  7    CALL SORCHA
  53.       GOTO 999
  54.  
  55. C     Sortie au Format FerView (Universite d'Evry) :
  56.  8    CALL SORFER
  57.       GOTO 999
  58.  
  59. C     Sortie au Format Nastran (M. BULIK) :
  60.  9    CALL SORNAS
  61.       GOTO 999
  62.  
  63. C     Sortie au Format STL :
  64.  10   CALL SORSTL
  65.       GOTO 999
  66.  
  67. C     Sortie standard de la geometrie :
  68.  1000 CALL LIROBJ('MAILLAGE',IVAL,1,IRETOU)
  69.       IF (IERR.NE.0) RETURN
  70.       CALL SORTIR(IVAL)
  71.       CALL REFUS
  72.       GOTO 999
  73.  
  74.  999  CONTINUE
  75.       RETURN
  76.       END
  77.  
  78.  
  79.  
  80.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales