Sources Esope | Cast3M

cinvpq
C CINVPQ    SOURCE    KK2000    14/04/09    21:15:10     8027
 
      SUBROUTINE CINVPQ (SIG,NDIMS,SIGINV)
      IMPLICIT INTEGER(I-N)
      integer  ndims
      complex*16 sig(ndims),siginv(3)
      call CINVAP(sig,ndims,siginv(1))
      call CINVAQ(sig,ndims,siginv(2))
      call CINVAT(sig,ndims,siginv(3))
      return
      end