rimseal_calc.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	rimseal_calc (p1)

Function/Subroutine Documentation

rimseal_calc()

subroutine rimseal_calc

(

real*8

p1

)

!     
!     rimseal element
!
!     author: Yannick Muller
!     
      implicit none
!     
      real*8 p1
!
      write(*,*) 'p1'
      return