Sources Esope | Cast3M

vdlvaj
C VDLVAJ    SOURCE    CHAT      05/01/13    04:04:35     5004
 
      SUBROUTINE VFLVARJ2 (SIG,NDIMS,VAR,NDIMV,VALOR)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv
      real*8 sig(ndims),var(ndimv),valor
      call vflj2var(valor)
      return
      end