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.  
  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