Sources Esope | Cast3M

xvar3d
C XVAR3D    SOURCE    FD218221  24/02/07    21:15:31     11834          
       subroutine xvar3d(valx,numx,var,nvari,vnvari,nstype,ndtens,
     # styp,snum)
 
c      recuperation d une vari et de son numero pour mc3d
 
c      declarations externes
       IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8(A-H,O-Z)
 
       real*8 valx
       integer numx,nvari,nstype,ndtens
       real*8 var(nvari)
       integer vnvari(nstype,2)
       integer styp,snum
 
       integer ityp
 
       numx=0
       if(styp.gt.1) then
            do ityp=1,styp-1
                numx=numx+ vnvari(ityp,1)+vnvari(ityp,2)*ndtens
            end do
       end if
       numx=numx+snum
       valx=var(numx)
       return
       end