Algol 68 Genie

fortran-ii.f

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

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