Algol 68 Genie

fortran-iv.f

     1  ! @section Synopsis
     2  !
     3  ! FORTRAN IV library functions for VIF.
     4  !
     5  ! @author J. Marcel van der Veer
     6  !
     7  ! @section copyright
     8  !
     9  ! This file is part of VIF - vintage fortran compiler.
    10  ! Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
    11  !
    12  ! @section license
    13  !
    14  ! This program is free software; you can redistribute it and/or modify it 
    15  ! under the terms of the gnu general public license as published by the 
    16  ! free software foundation; either version 3 of the license, or 
    17  ! (at your option) any later version.
    18  !
    19  ! This program is distributed in the hope that it will be useful, but 
    20  ! without any warranty; without even the implied warranty of merchantability 
    21  ! or fitness for a particular purpose. See the GNU general public license for 
    22  ! more details. You should have received a copy of the GNU general public 
    23  ! license along with this program. If not, see <http://www.gnu.org/licenses/>.
    24  !
    25        subroutine slite (i)
    26  ! SLITE (Sense LIghTEs) sets indicators.
    27        common /slites/ ilites(36)
    28        if (i .eq. 0) then
    29          do j = 1, 36
    30            ilites(j) = 2
    31          end do
    32        else if (i .le. 36) then
    33          ilites(i) = 1
    34        end if 
    35        end
    36  
    37        subroutine slitet (i, j)
    38  ! SLITET tests indicators set by SLITE.
    39        common /slites/ ilites(36)
    40        if (i .ge. 1 .and. i .le. 36) then
    41          j = ilites(i)
    42          ilites(i) = 2
    43        end if
    44        end
Deze website is gearchiveerd door de KB, nationale bibliotheek.

This website is archived by the National Library of the Netherlands.