Sources Esope | Cast3M

vysgj2
C VYSGJ2    SOURCE    CHAT      05/01/13    04:11:08     5004
 
      SUBROUTINE VYISIGJ2 (SIG,NDIMS,VAR,NDIMV,VECM)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv
      real*8  sig(ndims),var(ndimv),vecm(ndims)
        call vflsigJ2 (sig,ndims,var,ndimv,vecm)
      return
      end