Télécharger cinvpq.eso

Retour à la liste

Numérotation des lignes :

  1. C CINVPQ SOURCE KK2000 14/04/09 21:15:10 8027
  2.  
  3. SUBROUTINE CINVPQ (SIG,NDIMS,SIGINV)
  4. IMPLICIT INTEGER(I-N)
  5. integer ndims
  6. complex*16 sig(ndims),siginv(3)
  7. call CINVAP(sig,ndims,siginv(1))
  8. call CINVAQ(sig,ndims,siginv(2))
  9. call CINVAT(sig,ndims,siginv(3))
  10. return
  11. end
  12.  
  13.  
  14.  
  15.  
  16.  

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