Download heflsi.eso

Back to the list

   1 : C HEFLSI    SOURCE    CHAT      05/01/13    00:23:57     5004           
   2 : 
   3 :       SUBROUTINE HESSFLSIG (SIG,NDIMS,VAR,NDIMV,AMAT,NDIMX,NMODEL)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       integer ndims,ndimv,ndimx,nmodel
   6 :       real*8 sig(ndims),Amat(ndimx,ndimx),var(ndimv)
   7 :       if (nmodel.eq.5) then
   7 :          call HessFlpowder1 (sig,var(1),amat,ndimx)
   8 :       else if (nmodel.eq.6) then
   8 :          call HessFlpowder2 (sig,var(1),amat,ndimx)
   9 :       else if (nmodel.eq.8) then
   9 :          call HessFlmiehe (sig,var(1),amat,ndimx)
  10 :       else if (nmodel.eq.2) then
  10 :          call HessFlsigRHMC (sig,ndims,var,ndimv,amat,ndimx)
  11 :       endif
  12 :       return
  13 :       end
  14 :  
  15 :  
  16 :  

© Cast3M 2003 - All rights reserved.
Disclaimer