Sources Esope | Cast3M

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