1*10167291SKenneth E. Jansen module blowingDuct 2*10167291SKenneth E. Jansen integer njetinlet 3*10167291SKenneth E. Jansen integer, allocatable, dimension(:) :: jetinletf 4*10167291SKenneth E. Jansen end module 5*10167291SKenneth E. Jansen 6