Esope source files

   1 : C JIJARN    SOURCE    CHAT      05/01/13    00:49:39     5004           
   2 : CCC
   3 : C **********************************************************************
   4 : CCC
   5 :       SUBROUTINE FIJARNDIMX (NMODEL,XMAT,NDIMS,NDIMX)
   6 :       IMPLICIT INTEGER(I-N)
   7 :       integer nmodel,ndims,ndimx
   8 :       real*8  xmat(*)
   9 :       real*8            sigy0,kiso,siginf,velo
  10 :       common /j2j2data/ sigy0,kiso,siginf,velo
  11 :       if (nmodel.eq.1) then
  11 :         call carac_mate_j2(xmat)
  12 :         if ((kiso.eq.0.D0).and.(velo.eq.0.D0)) then
  13 :           ndimx=ndims
  14 :         else
  15 :           ndimx=ndims+1
  16 :         endif
  17 :       else if (nmodel.eq.2) then
  18 :         ndimx=ndims
  19 :       else if (nmodel.ge.20) then
  20 :         ndimx=ndims+2
  21 :       endif
  22 :       return
  23 :       end
  24 :  
  25 :  
  26 :