Esope source files

   1 : C VFLVAR    SOURCE    CHAT      05/01/13    04:06:47     5004           
   2 : 
   3 :       SUBROUTINE VFLVAR (SIG,NDIMS,VAR,NDIMV,VALOR,NMODEL)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       integer ndims,ndimv,nmodel
   6 :       real*8 sig(ndims),var(ndimv),valor
   7 :       if (nmodel.eq.8) then
   7 :            call vflmiehevar(var(1),valor)
   8 :       else
   9 :            valor = 0.D0
  10 :       endif
  11 :       return
  12 :       end
  13 :  
  14 :