Algol 68 Genie

fortran-ii.f

     
   1  ! @section Synopsis
   2  !
   3  ! FORTRAN II 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-2022 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  ! FORTRAN II library functions.
  26  !
  27        subroutine slite (i)
  28        common /slites/ ilites(36)
  29        if (i .eq. 0) then
  30          do j = 1, 36
  31            ilites(j) = 2
  32          end do
  33        else if (i .le. 36) then
  34          ilites(i) = 1
  35        endif 
  36        end
  37  
  38        subroutine slitet (i, j)
  39        common /slites/ ilites(36)
  40        if (i .ge. 1 .and. i .le. 36) then
  41          j = ilites(i)
  42          ilites(i) = 2
  43        endif
  44        end
Deze website is gearchiveerd door de KB, nationale bibliotheek.

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