!! Erzeugt eine Tabelle mit der Sinusfunktion
!! (c) 6/97 sdteffen

 program SinusTabelle
   implicit none
   
   real :: pi = 3.14159265358979323846
   real :: Wert
   integer :: Winkel
  
   write(*,*)'Berechung der Sinus-Werte'
   write(*,*)'-----------------------------------------------------------------------'
   do Winkel=0, 90, 3
     Wert=sin(2*pi*Winkel/360)
     write(*,"(' sin(', i3,') = ',f6.3)", advance='no')Winkel,Wert
     write(*,"(' sin(', i3,') = ',f6.3)", advance='no')180-Winkel,Wert
     write(*,"(' sin(', i3,') = ',f6.3)", advance='no')Winkel+180,-Wert
     write(*,"(' sin(', i3,') = ',f6.3)", advance='no')360-Winkel,-Wert
     write(*,*)
   end do
   write(*,*)'-----------------------------------------------------------------------'
   stop 'so what''ya want'
  end program SinusTabelle