The DATAPOOL Include file generated by FPT

The DATAPOOL Include File Generated by fpt

!H!**************************************************************************** !H! File: HELISHIP5.FPI !H! Output by FPT 3.2-p DEC-VF On 10-APR-00 At 11:42:06 Input files: !H! Main: E:\Projects\FPT\FPTTEST\WHREACT.FOR !H! Licensee: Software Validation Ltd. Development licence. !H!**************************************************************************** BYTE DP_BYTE(0:4095) REAL*4 X ! X Pos, World, ft REAL*4 Y ! Y Pos, World, ft REAL*4 H ! Height absolute ft REAL*4 THETA ! Degrees REAL*4 PHI ! Degrees REAL*4 PSI ! Degrees +- 180 REAL*4 P ! Degrees/sec REAL*4 Q ! Degrees/sec REAL*4 R ! Degrees/sec REAL*4 HDOT ! FT/SEC : : REAL*8 LAT ! Latitude, degrees REAL*8 LONG ! Longitude, degrees : : REAL*4 WHEELX(3) ! FT REAL*4 WHEELY(3) ! FT REAL*4 WHEELH(3) ! FT REAL*4 DECKHT ! FT REAL*4 GHMAX ! FT REAL*4 SHIPPSI ! Degrees/sec REAL*4 SHIPX ! FT REAL*4 SHIPY ! FT REAL*4 SHIPTH ! Degrees/sec REAL*4 SHIPPHI ! Degrees/sec REAL*4 SHIPP ! Degrees/sec REAL*4 SHIPQ ! Degrees/sec REAL*4 SHIPR ! Degrees/sec C COMMON /DATAPOOL/DP_BYTE C EQUIVALENCE (X,DP_BYTE(40)) EQUIVALENCE (Y,DP_BYTE(44)) EQUIVALENCE (H,DP_BYTE(48)) EQUIVALENCE (THETA,DP_BYTE(60)) EQUIVALENCE (PHI,DP_BYTE(64)) EQUIVALENCE (PSI,DP_BYTE(68)) EQUIVALENCE (P,DP_BYTE(72)) EQUIVALENCE (Q,DP_BYTE(76)) EQUIVALENCE (R,DP_BYTE(80)) EQUIVALENCE (HDOT,DP_BYTE(84)) : : EQUIVALENCE (LAT,DP_BYTE(520)) EQUIVALENCE (LONG,DP_BYTE(528)) : : EQUIVALENCE (WHEELX,DP_BYTE(960)) EQUIVALENCE (WHEELY,DP_BYTE(972)) EQUIVALENCE (WHEELH,DP_BYTE(984)) EQUIVALENCE (DECKHT,DP_BYTE(996)) EQUIVALENCE (GHMAX,DP_BYTE(1020)) EQUIVALENCE (SHIPPSI,DP_BYTE(1024)) EQUIVALENCE (SHIPX,DP_BYTE(1088)) EQUIVALENCE (SHIPY,DP_BYTE(1092)) EQUIVALENCE (SHIPTH,DP_BYTE(1096)) EQUIVALENCE (SHIPPHI,DP_BYTE(1100)) EQUIVALENCE (SHIPP,DP_BYTE(1104)) EQUIVALENCE (SHIPQ,DP_BYTE(1108)) EQUIVALENCE (SHIPR,DP_BYTE(1112))

The DATAPOOL is converted to a standard Fortran 77 COMMON block. Note that a Fortran 90 MODULE is not used because we need to preserve possible EQUIVALENCE relationships between variables.