Télécharger la plaquette Cast3M


fr en

Télécharger kinbu2.eso

Retour à la liste

Numérotation des lignes : 

kinbu2

  1. C KINBU2    SOURCE    CHAT      05/01/13    00:56:30     5004
  2.       SUBROUTINE KINBU2 (SKBUF2,SKRESO)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C     INITIALISATION DU BUFFER
  7. C     ------------------------
  8. C
  9. C-----------------------------------------------------------------------
  10.       SEGMENT SKRESO
  11.       INTEGER KFC,NRES,KES,KIMP
  12.       ENDSEGMENT
  13. C     KFC : NOMBRE DE FACES H.C
  14. C     NRES: RESOLUTION
  15. C     KES : DIM ESPACE
  16. C     KIMP: IMPRESSION
  17. C-----------------------------------------------------------------------
  18. C-----------------------------------------------------------------------
  19.       SEGMENT SKBUF2
  20.       INTEGER  NUMF(NFC,NOC,NR),NTYP(NFC,NR)
  21.       REAL*8   ZB(NFC,NR),PSC(NFC,NR)
  22.       ENDSEGMENT
  23. C
  24. C     BUFFER ASSOCIE AU H.C
  25. C     ---------------------
  26. C     NUMF : INDICE DE LE DERNIERE FACE RENCONTREE
  27. C     NTYP :  TYPES ASSOCIES
  28. C     ZB  : PROFONDEUR
  29. C     PSC  :  PRODUIT SCALAIRE (NORMALE.DIRECTION CELLULE)
  30. C-----------------------------------------------------------------------
  31. C
  32.       DO 1 NF = 1,KFC
  33.       DO 2  I =  1,NRES
  34.           ZB(NF,I) = 1000.
  35.           NUMF(NF,1,I) = 0
  36.           NTYP(NF,I) = 0
  37.  2    CONTINUE
  38.  1    CONTINUE
  39.       RETURN
  40.       END
  41.  
  42.  

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