Télécharger la plaquette Cast3M


fr en

Télécharger ooobbw.eso

Retour à la liste

Numérotation des lignes : 

ooobbw

  1. C OOOBBW    SOURCE    PV090527  26/04/24    08:23:01     12524          
  2. CMODE 92/04/06 15:41:27     ESOPV10
  3. C-----------------------------------------------------------------------
  4.       SUBROUTINE OOOBBW (PSEG,HTYPE,HPOINT,PARCH)
  5. C     H_MULLEMAN 1/8/91
  6. C-------------------------------------------------------------------
  7. %INC IOOARC
  8. %INC IOOADR
  9. %INC IOOADZ
  10. %INC IOODES
  11. %INC IOOSGM
  12. C
  13.       POINTEUR PSEG.PSEG , PARCH.KARCHIV
  14.  
  15.       CHARACTER *(*)  HPOINT , HTYPE
  16. %IF CRAY,CFT77,UNIX64,WIN64
  17.       CHARACTER *16 CHSTOR
  18. %ELSE
  19.       CHARACTER *8 CHSTOR
  20. %ENDIF
  21.       CHARACTER *16 VALEUR
  22.       INTEGER KSUM
  23.       DATA  VALEUR/'0123456789ABCDEF'/
  24. C
  25. %IF CRAY,CRAY1,CRAY2
  26.       IBOUC=16
  27.       INCRE=16
  28. %ELSE
  29.       IBOUC=8
  30.       INCRE=8
  31. %ENDIF
  32.       ISG =MDISG(PSEG)
  33.       LSG =MSLS1(ISG)
  34.       NZER=0
  35.       LSMM=MSLSM
  36.       DO 500 J=1,LSG,1
  37.          CHSTOR=PARCH.CHARIV(INDICE:INDICE+INCRE-1)
  38.          INDICE=INDICE+INCRE
  39.         KSUM=0
  40.         DO II=1,IBOUC
  41.           IRANG=INDEX(VALEUR,CHSTOR(II:II))
  42.           KSUM=KSUM+(IRANG-1)*16**(INCRE-II)
  43.         ENDDO
  44.         JSG(ISG+J)=KSUM
  45. 500   CONTINUE
  46.         RETURN
  47.       END
  48.  
  49.  

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