Include Statement for the DATAPOOL

The INCLUDE Statement for the DATAPOOL

SUBROUTINE WHREACT(WH,WHFORCE) C C Oleo force, wheel C C INCLUDE 'heliship5.fpi' C C C Find vehicle position in ship coordinates (X fore-aft) XSH=(X-SHIPX)*SIN(SHIPPHI) YSH=(Y-SHIPY)*COS(SHIPPHI) C Deck height, corrected for pitch (neglect roll) CDKHT=DECKHT+XSH*SIN(SHIPTH) : :