C     PROGRAM
C     !!!!!!!!!!!!!!!!!! THIS DOESN'T WORK       02/26/87 !!!!!
      CALL TRAPD(#100)
      CALL TRAPO(#102)
C     ASSIGN 100 TO CCCC
C     ASSIGN 102 TO DDDD
C     CALL TRAPD(CCCC)
C     CALL TRAPO(DDDD)
C     
      X=0.0
      Y=10.0E23
      Z=1.0
      A=Z+Y
      A=Z/X
C
      STOP
 100  WRITE(0,101)
 101  FORMAT('   FORMAT 101 ')
      STOP
 102  WRITE(0,103)
 103  FORMAT('   FORMAT 103 ')
      STOP
      END