Esope source files

   1 : C YIELDD    SOURCE    CHAT      05/01/13    04:17:47     5004           
   2 : CCC
   3 : C **********************************************************************
   4 : CCC
   5 :       SUBROUTINE YIELDD (SIG,NDIMS,VAR,NDIMV,VALOR,NMODEL)
   6 :       IMPLICIT INTEGER(I-N)
   7 :       integer ndims,ndimv,nmodel
   8 :       real*8  sig(ndims),var(ndimv),valor
   9 :       if (nmodel.eq.5) then
   9 :          call yieldpowder1 (sig,var(1),valor)
  10 :       else if (nmodel.eq.6) then
  10 :          call yieldpowder2 (sig,var(1),valor)
  11 :       else if (nmodel.eq.8) then
  11 :          call yieldmiehe (sig,var(1),valor)
  12 :       else if (nmodel.eq.2) then
  12 :          call yielddRHMC (sig,ndims,var,ndimv,valor)
  13 :       endif
  14 :       return
  15 :       end
  16 :  
  17 :