1!$Id:$
2      subroutine reshis(ix,nen1,numel,n1, n2)
3
4!      * * F E A P * * A Finite Element Analysis Program
5
6!....  Copyright (c) 1984-2017: Regents of the University of California
7!                               All rights reserved
8
9!-----[--.----+----.----+----.-----------------------------------------]
10!      Purpose: Initialize t_n+1 history variables from final value
11!               of variables at t_n
12
13!      Inputs:
14!         ix(nen1,*)  - Element connection/history pointer array
15!         nen1        - Dimension of ix array
16!         numel       - Number of elements in mesh
17!         n1          - Pointer in ix to t_n   data
18!         n2          - Pointer in ix to t_n+1 data
19
20!      Outputs:
21!         none        - Output is retained in blank common
22!-----[--.----+----.----+----.-----------------------------------------]
23
24      implicit  none
25
26      include  'hdata.h'
27      include  'pointer.h'
28      include  'comblk.h'
29
30      integer   nen1,numel,n1,n2, n,nh, ix(nen1,numel)
31
32      save
33
34!     Move history variables from location 'n1' to 'n2'
35
36      do n = 1,numel
37        nh1 = np(49) + ix(n1,n) - 1
38        nh2 = np(49) + ix(n2,n) - 1
39        if(nh2.ne.nh1) then
40          do nh = 1,abs(ix(n2,n) - ix(n1,n))
41            hr(nh+nh2) = hr(nh+nh1)
42          end do ! nh
43        endif
44      end do ! n
45
46      end
47