syawal.f

real function syawal(tarikh,tahun)

include '1syawal.inc'

real tarikh,tahun
real syahdu
real sepi
real takbir,tahmid,tasbih
integer i
real solat,khutbah,salam,simulasi data,meeting Ingrid

common/pagi/ solat,khutbah,salam
common/lewat pagi/ kerja,meeting CAL
common/petang/ solat,simulasi data,meeting Ingrid


*--------------------------------------*
if(.not.(1syawal.eq.takbir) return
if(.not.(1syawal.eq.tahmid) return
if(.not.(1syawal.eq.tasbih) return
*--------------------------------------*

do i=1,kerja
if(kerja(i).eq.8pagi) then
kerja(i)=solat+khutbah+salam
endif
if(kerja(i).ge.11pagi) then
kerja(i)=meeting CAL+kerja(i)
endif
if(kerja(i).le.7malam)then
kerja(i)=solat+simulasi data+meeting Ingrid
enddo

*----------------------------------------------------------*
write(*,*) '1sywal', kerja
write(*,*) sepi,syahdu


return
end