Télécharger jijarn.eso

Retour à la liste

Numérotation des lignes :

  1. C JIJARN SOURCE CHAT 05/01/13 00:49:39 5004
  2. CCC
  3. C **********************************************************************
  4. CCC
  5. SUBROUTINE FIJARNDIMX (NMODEL,XMAT,NDIMS,NDIMX)
  6. IMPLICIT INTEGER(I-N)
  7. integer nmodel,ndims,ndimx
  8. real*8 xmat(*)
  9. real*8 sigy0,kiso,siginf,velo
  10. common /j2j2data/ sigy0,kiso,siginf,velo
  11. if (nmodel.eq.1) then
  12. call carac_mate_j2(xmat)
  13. if ((kiso.eq.0.D0).and.(velo.eq.0.D0)) then
  14. ndimx=ndims
  15. else
  16. ndimx=ndims+1
  17. endif
  18. else if (nmodel.eq.2) then
  19. ndimx=ndims
  20. else if (nmodel.ge.20) then
  21. ndimx=ndims+2
  22. endif
  23. return
  24. end
  25.  
  26.  
  27.  
  28.  

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