*==============================================================
*  MAINROUTINE 4.2 MONDAN2
*==============================================================
      PROGRAM MAIN
      REAL DEG1,DEG2,RAD1,RAD2,PI
      REAL Z1,Z2,Z3,Z4

      PI=3.141592

      READ(5,*)DEG1,DEG2

      RAD1=DEG1*PI/180.0
      RAD2=DEG2*PI/180.0

      CALL KEISAN(RAD1,RAD2,Z1,Z2,Z3,Z4)
      
      WRITE(6,*)DEG1,DEG2,Z1,Z2,Z3,Z4

      STOP
      END

*==============================================================
*  SUBROUTINE
*==============================================================
      SUBROUTINE KEISAN(R1,R2,Z1,Z2,Z3,Z4)
      REAL R1,R2,Z1,Z2,Z3,Z4

      Z1=SIN(R1)+SIN(R2)
      Z2=SIN(R1)-SIN(R2)
      Z3=SIN(R1)*SIN(R2)
      Z4=SIN(R1)/SIN(R2)      

      RETURN
      END