Télécharger prsort.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  13.  
  14. PARAMETER (NTYPSO=10)
  15. CHARACTER*4 NOMTSO(NTYPSO)
  16. DATA NOMTSO / 'AVS ','EXCE','ABAQ','MED ','VTK ','MAT ','CHAI',
  17. & 'FER ','NAS ','STL '/
  18.  
  19. ITYPRO=0
  20. CALL LIRMOT(NOMTSO,NTYPSO,ITYPRO,0)
  21. IF (IERR .NE. 0) RETURN
  22. GOTO (1,2,3,4,5,6,7,8,9,10),ITYPRO
  23. GOTO 1000
  24.  
  25. C Sortie au format AVS :
  26. 1 CALL SORAVS
  27. GOTO 999
  28.  
  29. C Sortie au format EXCEL(TM) :
  30. 2 CALL SOREXC
  31. GOTO 999
  32.  
  33. C Sortie au format ABAQUS(TM) :
  34. 3 CALL SORABA
  35. GOTO 999
  36.  
  37. C Sortie au format MED :
  38. 4 CALL SORMED
  39. GOTO 999
  40.  
  41. C Sortie au format VTK :
  42. 5 CALL SORVTK
  43. GOTO 999
  44.  
  45. C Sortie d'objets RIGIDITE :
  46. 6 CALL SORMAT
  47. GOTO 999
  48.  
  49. C Sortie de CHAIne(s) de caracteres :
  50. 7 CALL SORCHA
  51. GOTO 999
  52.  
  53. C Sortie au Format FerView (Universite d'Evry) :
  54. 8 CALL SORFER
  55. GOTO 999
  56.  
  57. C Sortie au Format Nastran (M. BULIK) :
  58. 9 CALL SORNAS
  59. GOTO 999
  60.  
  61. C Sortie au Format STL :
  62. 10 CALL SORSTL
  63. GOTO 999
  64.  
  65. C Sortie standard de la geometrie :
  66. 1000 CALL LIROBJ('MAILLAGE',IVAL,1,IRETOU)
  67. IF (IERR.NE.0) RETURN
  68. CALL SORTIR(IVAL)
  69. CALL REFUS
  70. GOTO 999
  71.  
  72. 999 CONTINUE
  73. RETURN
  74. END
  75.  
  76.  
  77.  
  78.  

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