Sources Esope | Cast3M

vyivj2
C VYIVJ2    SOURCE    CHAT      05/01/13    04:10:57     5004
 
      SUBROUTINE VYIVARJ2 (SIG,NDIMS,VAR,NDIMV,VALOR)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv
      real*8 sig(ndims),var(ndimv),valor
      call vyij2var(var(1),valor)
      return
      end