1!$Id:$
2      function padd(val)
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      implicit  none
10
11      real*8    padd, val, xval
12
13      save
14
15      data      xval /0.0d0/
16
17!     Look at parameter
18
19      if(val.eq.0.0d0) then
20        xval = 0.0d0
21      else
22        xval = xval + val
23      endif
24
25      padd = xval
26
27      end
28