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