Sources Esope | Cast3M

invpqt
C INVPQT    SOURCE    CHAT      05/01/13    00:43:20     5004
 
      SUBROUTINE INVARIANTESPQT (SIG,NDIMS,SIGINV)
      IMPLICIT INTEGER(I-N)
      integer ndims
      real*8    sig(ndims),siginv(3)
      call Invari_p(sig,ndims,siginv(1))
      call Invari_q(sig,ndims,siginv(2))
      call Invari_t(sig,ndims,siginv(3))
      return
      end