initbd.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 19 行

        subroutine InitBD( births, deaths )

        logical births( 0:8 )
        logical deaths( 0:8 )
        integer i

        do i = 0,8
            births( i ) = .FALSE.
            deaths( i ) = .TRUE.
        end do

        births(3) = .TRUE.

        deaths(2) = .FALSE.
        deaths(3) = .FALSE.

        end