Télécharger hmc1oc.eso

Retour à la liste

Numérotation des lignes :

  1. C HMC1OC SOURCE CB215821 17/07/21 21:15:16 9513
  2.  
  3. SUBROUTINE HESSMAC1O2C (X,NDIMX,AMAT,NDIMA,NMODEL,DELTAX,TYPX)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndimx,ndima,nmodel,i,j
  6. real*8 x(ndimx),Amat(ndima,ndima),deltax,dx,typx(ndimx)
  7. complex*16 auxx(8),auxvecm(8)
  8. do i=1,8
  9. auxx(i)=cmplx(0.D0,0.D0)
  10. auxvecm(i)=cmplx(0.D0,0.D0)
  11. enddo
  12. do i=1,ndimx
  13. auxx(i)=x(i)
  14. enddo
  15. do i=1,ndimx
  16. dx=deltax*max(abs(x(i)),typx(i))
  17. auxx(i)=cmplx(x(i),dx)
  18. call c_vecflMAC(auxx,ndimx,auxvecm,nmodel)
  19. auxx(i)=x(i)
  20. do j=1,ndimx
  21. Amat(j,i)=aimag(auxvecm(j))/dx
  22. enddo
  23. enddo
  24. return
  25. end
  26.  
  27.  
  28.  
  29.  
  30.  

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