一个plotv的子程序

trueblue

在他们的主页上找到一个plotv的子程序，大家一起分享吧
专研中。。。。

Extended Description Below is a  user subroutine PLOTV that extracts the external node numbers of the element connectivity and prints them out into the *.out file

It uses a new function NODEXT that will be documented later in VOLUME D.

***********************************************************

      subroutine plotv(v,s,sp,etot,eplas,ecreep,t,m,nn,layer,ndi,
     * nshear,jpltcd)
c* * * * * *
c
c     select a variable contour plotting (user subroutine).
c
c     v            variable
c     s (idss)         stress array
c     sp           stresses in preferred direction
c     etot          total strain (generalized)
c     eplas         total plastic strain
c     ecreep        total creep strain
c     t             current temperature
c     m            element number
c     nn           integration point number
c     layer        layer number
c     ndi (3)       number of direct stress components
c     nshear (3)    number of shear stress components
c
c* * * * * *
      implicit real*8 (a-h,o-z)                                               dp
      include '../common/adapti'
      include '../common/space'
      dimension s(*),etot(*),eplas(*),ecreep(*),sp(*),m(2)
      nnode=ints(ieltab-1+3*numelmx+m(2))
      write(6,*)
      write(6,*) 'element, nnode',m(1),m(2),nnode
      la1=ieltab+4*numelmx+m(2)-1
c print element nodes
c ints(la1):         internal node number
c nodext(ints(la1)): user node number
      do i=1,nnode
        write(6,*) i,ints(la1),nodext(ints(la1))
        la1=la1+numelmx
      enddo
      return
      end

xiaochengzi

你好，如何MARC轧制过程多道次如何实现用plovt实现再结晶分数分布？？？