Sources Esope | Cast3M

vysgrh
C VYSGRH    SOURCE    CHAT      05/01/13    04:11:17     5004
 
      SUBROUTINE VYISIGRHMC (SIG,NDIMS,VAR,NDIMV,VECM)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv
      real*8  sig(ndims),var(ndimv),vecm(ndims)
        call vflsigRHMC (sig,ndims,var,ndimv,vecm)
      return
      end