Esope source files

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