Modelling a Coupled Thermoelectromechanical Behaviour of Contact Elements via Fractal Surfaces

Box 1

Random phase function in Fortran 90.

Real 8 function  

implicit none

real 8      :: phi

real 8, parameter :: pi = 3.141592653589793d0

    call

    call

    randomPhase =

return

end function randomPhase