*
      REAL*8 TTT,PRS,QQQ,EEE,TVI,QST
      REAL*8 FOEW8,FODLE8,FOQST8,FODQS8,FOEFQ8,FOQFE8,FOTVT8,FOTTV8,
     &       FOHR8
      REAL*8 FOEWA8,FODLA8,FOQSA8,FODQA8,FOHRA8
C
      REAL*8 FOEW8_CMAM,FOEI8_CMAM,FOERAT8_CMAM,FOQST8_CMAM,
     &       FODLE8_CMAM,FOEWI8_CMAM
C
      REAL*8 FOTW8,FOTI8,FODTW8,FODTI8,FOTWI8,FODTWI8
      REAL*8 FOTW8_CMAM,FOTI8_CMAM,FODTW8_CMAM,FODTI8_CMAM,
     &       FOTWI8_CMAM,FODTWI8_CMAM
*
      INTRINSIC SIGN