Sources Esope | Cast3M

jijarn
C JIJARN    SOURCE    CHAT      05/01/13    00:49:39     5004
CCC
C **********************************************************************
CCC
      SUBROUTINE FIJARNDIMX (NMODEL,XMAT,NDIMS,NDIMX)
      IMPLICIT INTEGER(I-N)
      integer nmodel,ndims,ndimx
      real*8  xmat(*)
      real*8            sigy0,kiso,siginf,velo
      common /j2j2data/ sigy0,kiso,siginf,velo
      if (nmodel.eq.1) then
        call carac_mate_j2(xmat)
        if ((kiso.eq.0.D0).and.(velo.eq.0.D0)) then
          ndimx=ndims
        else
          ndimx=ndims+1
        endif
      else if (nmodel.eq.2) then
        ndimx=ndims
      else if (nmodel.ge.20) then
        ndimx=ndims+2
      endif
      return
      end