Télécharger la plaquette Cast3M


fr en

Télécharger ooozz7.eso

Retour à la liste

Numérotation des lignes : 

ooozz7

  1. C OOOZZ7    SOURCE    PV090527  26/04/24    08:23:42     12524          
  2.       SUBROUTINE OOOZZ7 (LPARM,HPARM)
  3. C----------------------------------------------------------------------
  4. C                                                   GEMAT TRANSPORTABLE
  5. C               ACQUISITION DES PARAMETRES D'EXECUTION
  6. C
  7. C   ->LPARM   NOMBRE DE CARACTERES DU PARAMETRE
  8. C             ZERO SI PAS DE PARAMETRES
  9. C   ->HPARM   CHAINE DE CARACTERES CONTENANT LES PARAMETRES
  10. C             PAR EXEMPLE : DUMP,FORT=IBM,BUF=5000
  11. C
  12. C PROGRAMMEUR : MOUGIN
  13. C       MODIF : 18/11/86  INTRODUIRE FILE='PARAM' A L'OPEN
  14. C       MODIF : 19/03/87  INTRODUIRE => NOSVE
  15. C       MODIF : 26/10/88  INTRODUIRE => CONVEX
  16. C       MODIF : 15/02/89  LE PARAMETRE SUR PLUSIEURS LIGNES
  17. C       MODIF : 19/1/90   H_MULLEMAN:(INTEGRATION DE LA PROCEDURE
  18. C       OOOZZZ7 SOUCRAY ETSOURCE DANS UNE MEME PROCEDURE AVEC MODIF
  19. C       DE FACON A CE QUE OPTION CRAY ACCEPTE PLUSIEURS LIGNES DE CDE)
  20. C       MODIF : 22/03/2016  WIN64  =>  INTRODUCTION
  21. C----------------------------------------------------------------------
  22. C
  23. C%IF WIN32
  24. C      Include fait pour l'interfaçage FORTRAN - C avec Microsoft Visual C
  25. C      INCLUDE 'esope.fi'
  26. C%ENDIF
  27. -INC IOOUNIT
  28. C
  29.       CHARACTER *(*) HPARM
  30.       CHARACTER *500 HHHH
  31.       LOGICAL        ENCORE
  32.       EQUIVALENCE (IHHHH,HHHH)
  33. C
  34.       LPARM=0
  35.       NOLO =99
  36. %IF FPS
  37.       NOLO =98
  38. %ENDIF
  39. C
  40. %IF CRAY,CFT77
  41.       NOLO=5
  42. %ENDIF
  43. C
  44. %IF IBM,VAX,FPS,PRIME,UNIVAC
  45.       OPEN  (UNIT=NOLO,ERR=901,STATUS='OLD')
  46. %ENDIF
  47. C
  48. %IF XXX,SEL,CDC,APOLLO,UNIX32,NOSVE,CONVEX,UNIX64,WIN32,WIN64
  49.       HHHH='ESOPE_PARAM'//CHAR(0)
  50.       lparm=500
  51.       CALL OOOZEN(IHHHH,LPARM)
  52.       HPARM=HHHH(1:LPARM)
  53. C     WRITE(JLST,*)
  54. C    *'VALEURS DEMANDEES DANS FICHIER DES PARAMETRES DE PRECOMPILATION:'
  55. C     WRITE(JLST,FMT='(1X,A80)') HPARM
  56. C     WRITE(JLST,*) '______________________________'
  57.       RETURN
  58. %ELSE
  59. C
  60.       ENCORE = .TRUE.
  61.       WRITE(JLST,*)
  62.      *'VALEURS DEMANDEES DANS FICHIER DES PARAMETRES DE PRECOMPILATION:'
  63.       DO WHILE (ENCORE)
  64.         READ  (UNIT=NOLO,END=902,FMT='(A)') HHHH
  65.         IF (HHHH.NE.' ')    THEN
  66.           LH = LEN(HHHH)
  67.           DO WHILE  (HHHH(LH:LH).EQ.' ')
  68.             LH = LH-1
  69.           ENDDO
  70.           WRITE(JLST,110) HHHH(1:LH)
  71.           ENCORE = HHHH(LH:LH).EQ.','
  72.           HPARM(LPARM+1:LPARM+LH) = HHHH(1:LH)
  73.           LPARM =LPARM+LH
  74.         ENDIF
  75.       ENDDO
  76.       IF (HPARM(LPARM:LPARM).EQ.';') THEN
  77.         LPARM=LPARM-1
  78.       ENDIF
  79.       WRITE(JLST,*) '______________________________'
  80.       IF (NOLO.GE.98) CLOSE (UNIT=NOLO)
  81.                                                        RETURN
  82. %ENDIF
  83. C
  84. 110   FORMAT(A)
  85.  901  WRITE(JLST,*) 'PARAMETRES D''EXECUTION : FICHIER ABSENT'
  86.       WRITE(JERR,*) 'PARAMETRES D''EXECUTION : FICHIER ABSENT'
  87.                                                        RETURN
  88. 902   CALL OOOERR(0,0,'PARAMS D''EXECUTION INCOMPLETS')
  89.                                                        RETURN
  90. C
  91.       END
  92.  
  93.  

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