Télécharger heflsi.eso

Retour à la liste

Numérotation des lignes :

  1. C HEFLSI SOURCE CHAT 05/01/13 00:23:57 5004
  2.  
  3. SUBROUTINE HESSFLSIG (SIG,NDIMS,VAR,NDIMV,AMAT,NDIMX,NMODEL)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndims,ndimv,ndimx,nmodel
  6. real*8 sig(ndims),Amat(ndimx,ndimx),var(ndimv)
  7. if (nmodel.eq.5) then
  8. call HessFlpowder1 (sig,var(1),amat,ndimx)
  9. else if (nmodel.eq.6) then
  10. call HessFlpowder2 (sig,var(1),amat,ndimx)
  11. else if (nmodel.eq.8) then
  12. call HessFlmiehe (sig,var(1),amat,ndimx)
  13. else if (nmodel.eq.2) then
  14. call HessFlsigRHMC (sig,ndims,var,ndimv,amat,ndimx)
  15. endif
  16. return
  17. end
  18.  
  19.  
  20.  
  21.  

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