PROGRAM MAIN
C     该程序用于求空间四点组成的四面体的外接圆圆心坐标及其半径

      DIMENSION COORDINATE(4,3) 
    DIMENSION SPHERE(3) 
    DIMENSION RADIUS(1)
      OPEN(10,FILE='INPUT.TXT',STATUS='OLD')
    OPEN(11,FILE='OUTPUT.TXT',STATUS='UNKNOWN')
    WRITE(*,*)"--------求四面体外接圆圆心坐标及其半径----------"
    WRITE(11,*)"--------求四面体外接圆圆心坐标及其半径----------"
    READ(10,*)((COORDINATE(I,J),I=1,4),J=1,3)
    [color=808080]FORMAT(     )[/color]    CALL SUB
    WRITE(*,*)"四面体外接圆圆心坐标为："
    WRITE(*,*)(SPHERE(I),I=1,3)
      WRITE(11,*)"四面体外接圆圆心坐标为："
    WRITE(11,*)(SPHERE(I),I=1,3)
    WRITE(*,*)"四面体外接圆半径为："
      WRITE(*,*)(RADIUS(1))
      WRITE(11,*)"四面体外接圆半径为："
      WRITE(11,*)(RADIUS(1))
      END PROGRAM