Télécharger la plaquette Cast3M


fr en

Télécharger ooouni.eso

Retour à la liste

Numérotation des lignes : 

ooouni

  1. C OOOUNI    SOURCE    PV090527  26/04/24    08:23:25     12524          
  2.       SUBROUTINE OOOUNI(imod)
  3. C  Initialisation des branchements des  unites de sortie :
  4. C  sortie listing : JLST : stdout par defaut
  5. C  sortie erreur : JERR : stderr par defaut
  6. C  sortie resultat : JOUT : esope.out par defaut
  7. C  sortie debormdement : JDEB : unite 20
  8.  
  9. %INC ILHDCOM
  10. %INC IOOUNIT
  11.       CHARACTER*500 cvarenv
  12.       integer       lcvarenv
  13.       CHARACTER*500 cficout
  14.       integer       lcficout
  15. C      CHARACTER*500 cficinp
  16. C      integer       lcficinp
  17.       CHARACTER*500 cficerr
  18.       integer       lcficerr
  19.       CHARACTER*500 cficlst
  20.       integer       lcficlst
  21.       CHARACTER*500 cmesserr
  22.       DATA JOUT/0/
  23.  
  24. C Unite du fichier de debordement
  25.       JDEB =20
  26.  
  27. C     Nom par defaut
  28.  
  29.       cvarenv='ESOPE_LST'//char(0)
  30.       lcvarenv=500
  31.       call ooozen(cvarenv,lcvarenv)
  32.       if (lcvarenv.gt.0) then
  33.          jlst = 47
  34.          cficlst=cvarenv(1:lcvarenv)
  35.          lcficlst = lcvarenv
  36.          OPEN (UNIT=JLST,FILE=cficlst(1:lcficlst),ERR=995)
  37.       else
  38.          jlst = 6
  39.          cficlst='stdout'
  40.          lcficlst = 6
  41.       endif
  42.  
  43.       cvarenv='ESOPE_ERR'//char(0)
  44.       lcvarenv=500
  45.       call ooozen(cvarenv,lcvarenv)
  46.       if (lcvarenv.gt.0) then
  47.          jerr = 44
  48.          cficerr=cvarenv(1:lcvarenv)
  49.          lcficerr = lcvarenv
  50.          open (unit=jerr,file=cficerr(1:lcficerr),err=995)
  51.       else
  52.          jerr = 0
  53.          cficerr='stderr'
  54.          lcficerr = 6
  55.       endif
  56.  
  57. C  Prevision d'ouverture directe de fichier
  58. C      cvarenv='ESOPE_IN'//char(0)
  59. C      lcvarenv=500
  60. C      call ooozen(cvarenv,lcvarenv)
  61. C      if (lcvarenv.gt.0) then
  62. C         jinp = 3
  63. C         cficinp=cvarenv(1:lcvarenv)
  64. C         lcficinp = lcvarenv
  65. C         open (unit=jinp,file=cficinp(1:lcficinp),err=995,
  66. C     &   action="read",status="old")
  67. C      else
  68. C         jinp = 5
  69. C         cficinp='stdin'
  70. C         lcficinp = 5
  71. C      endif
  72.  
  73.       if (imod.ne.0) then
  74.       cvarenv='ESOPE_OUT'//char(0)
  75.       lcvarenv=500
  76.       call ooozen(cvarenv,lcvarenv)
  77.       if (lcvarenv.gt.0) then
  78.          jout = 98
  79.          cficout=cvarenv(1:lcvarenv)
  80.          lcficout = lcvarenv
  81.          open (unit=jout,file=cficout(1:lcficout),err=995)
  82.       elseif (jout.lt.0) then
  83.          jout = 98
  84.          cficout = 'esope.out'
  85.          lcficout = 9
  86.          open (unit=jout,file=cficout(1:lcficout),err=995)
  87.       endif
  88.       endif
  89.  
  90.  
  91. **    write(jlst,*) 'Detail des sorties :'
  92. **    write(jlst,*) '   Listing : ', cficlst(1:lcficlst)
  93. **    write(jlst,*) '   Erreur  : ', cficerr(1:lcficerr)
  94. C      write(jlst,*) '   Entree  : ',cficinp(1:lcficinp)
  95. **    write(jlst,*) '   Sortie  : ',cficout(1:lcficout)
  96.       return
  97.  995  heanom = 'OOOUNI'
  98.       cmesserr = 'Impossible d''ouvrir le fichier'//cvarenv(1:lcvarenv)
  99.       write (jerr,*) cmesserr
  100.       STOP 12
  101.       end
  102.  
  103.  

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