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