Télécharger jhcrhm.eso

Retour à la liste

Numérotation des lignes :

  1. C JHCRHM SOURCE CHAT 05/01/13 00:49:33 5004
  2. CCC
  3. C **********************************************************************
  4. CCC
  5. SUBROUTINE JAC_RHMC (KMAT,NDIMK,SIG,NDIMS,LAM,XMAT,
  6. . nescri,ues,kerre)
  7. IMPLICIT INTEGER(I-N)
  8. integer ndims,kerre,nescri,ues,ndimk,ndimv,i,j
  9. real*8 sig(ndims),Kmat(*),xmat(*),lam
  10. kerre=0
  11. c it is not necessary: call carac_mate_rhmc(xmat)
  12. if (lam.le.0.D0) then
  13. do i=1,ndims
  14. do j=1,ndims
  15. Kmat(ndimk*(i-1)+j)=0.D0
  16. enddo
  17. Kmat(ndimk*(i-1)+i)=1.D0
  18. enddo
  19. return
  20. endif
  21. ndimv=0
  22. call jac0RHMC(Kmat,ndimk,sig,ndims,ndimv,lam,
  23. . nescri,ues,kerre)
  24. return
  25. end
  26.  
  27.  
  28.  
  29.  

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