☰  Menu Navigation ‣ Home ‣ About Marcel ‣ Privacy and cookies Algol 68 Genie ‣ The Algol 68 Genie project ‣ Downloads and tutorials ‣ Code browser Blog ‣ Vintage Fortran compiler ‣ Snoopy calendar 1969-2025 ‣ Partial Least Squares Regression in Algol 68 ‣ The battle for Arnhem bridge ‣ Chemometrics algorithms in the original Latin ‣ Building a LAMP and git server ‣ …

fortran-iv.f

     
 ! @file fortran-iv.f
 ! From viflib
 ! Adapted for VIF beta-0.9.97
 ! Saturday 11 January 2025
 !
 ! @section Synopsis
 !
 ! FORTRAN IV intrinsic library functions for VIF.
 !
 ! @author J. Marcel van der Veer
 !
 ! @section copyright
 !
 ! This file is part of VIF - vintage fortran compiler.
 ! Copyright 2020 - 2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
 !
 ! @section license
 !
 ! This program is free software; you can redistribute it and/or modify it
 ! under the terms of the gnu general public license as published by the
 ! free software foundation; either version 3 of the license, or
 ! (at your option) any later version.
 !
 ! This program is distributed in the hope that it will be useful, but
 ! without any warranty; without even the implied warranty of merchantability
 ! or fitness for a particular purpose. See the GNU general public license for
 ! more details. you should have received a copy of the GNU general public
 ! license along with this program. If not, see <http://www.gnu.org/licenses/>.
 
 ! Intrinsic FORTRAN IV library functions applied when an intrinsic function
 ! is passed as a subprogram argument.
 
 ! real*4
 
       real*4 function sqrtf (x)
       implicit real*4 (a - z)
       sqrtf = sqrt (x)
       return
       end
 
       real*4 function expf (x)
       implicit real*4 (a - z)
       expf = exp (x)
       return
       end
 
       real*4 function logf (x)
       implicit real*4 (a - z)
       logf = log (x)
       return
       end
 
       real*4 function log10f (x)
       implicit real*4 (a - z)
       log10f = log10 (x)
       return
       end
 
       real*4 function sinf (x)
       implicit real*4 (a - z)
       sinf = sin (x)
       return
       end
 
       real*4 function asinf (x)
       implicit real*4 (a - z)
       asinf = asin (x)
       return
       end
 
       real*4 function acosf (x)
       implicit real*4 (a - z)
       acosf = acos (x)
       return
       end
 
       real*4 function cosf (x)
       implicit real*4 (a - z)
       cosf = cos (x)
       return
       end
 
       real*4 function tanf (x)
       implicit real*4 (a - z)
       tanf = tan (x)
       return
       end
 
       real*4 function atanf (x)
       implicit real*4 (a - z)
       atanf = atan (x)
       return
       end
 
       real*4 function atan2f (x, y)
       implicit real*4 (a - z)
       atan2f = atan2 (x, y)
       return
       end
 
 ! real*8
 
       real*8 function dsqrt (x)
       implicit real*8 (a - z)
       dsqrt = sqrt (x)
       return
       end
 
       real*8 function dexp (x)
       implicit real*8 (a - z)
       dexp = exp (x)
       return
       end
 
       real*8 function dlog (x)
       implicit real*8 (a - z)
       dlog = log (x)
       return
       end
 
       real*8 function dlog10 (x)
       implicit real*8 (a - z)
       dlog10 = log10 (x)
       return
       end
 
       real*8 function dsin (x)
       implicit real*8 (a - z)
       dsin = sin (x)
       return
       end
 
       real*8 function dasin (x)
       implicit real*8 (a - z)
       dasin = asin (x)
       return
       end
 
       real*8 function dacos (x)
       implicit real*8 (a - z)
       dacos = acos (x)
       return
       end
 
       real*8 function dcos (x)
       implicit real*8 (a - z)
       dcos = cos (x)
       return
       end
 
       real*8 function dtan (x)
       implicit real*8 (a - z)
       dtan = tan (x)
       return
       end
 
       real*8 function datan (x)
       implicit real*8 (a - z)
       datan = atan (x)
       return
       end
 
       real*8 function datan2 (x, y)
       implicit real*8 (a - z)
       datan2 = atan2 (x, y)
       return
       end
 
 ! real*16
 
       real*16 function qsqrt (x)
       implicit real*16 (a - z)
       qsqrt = sqrt (x)
       return
       end
 
       real*16 function qexp (x)
       implicit real*16 (a - z)
       qexp = exp (x)
       return
       end
 
       real*16 function qlog (x)
       implicit real*16 (a - z)
       qlog = log (x)
       return
       end
 
       real*16 function qlog10 (x)
       implicit real*16 (a - z)
       qlog10 = log10 (x)
       return
       end
 
       real*16 function qsin (x)
       implicit real*16 (a - z)
       qsin = sin (x)
       return
       end
 
       real*16 function qasin (x)
       implicit real*16 (a - z)
       qasin = asin (x)
       return
       end
 
       real*16 function qacos (x)
       implicit real*16 (a - z)
       qacos = acos (x)
       return
       end
 
       real*16 function qcos (x)
       implicit real*16 (a - z)
       qcos = cos (x)
       return
       end
 
       real*16 function qtan (x)
       implicit real*16 (a - z)
       qtan = tan (x)
       return
       end
 
       real*16 function qatan (x)
       implicit real*16 (a - z)
       qatan = atan (x)
       return
       end
 
       real*16 function qatan2 (x, y)
       implicit real*16 (a - z)
       qatan2 = atan2 (x, y)
       return
       end
 
 ! real*32
 
       real*32 function xsqrt (x)
       implicit real*32 (a - z)
       xsqrt = sqrt (x)
       return
       end
 
       real*32 function xexp (x)
       implicit real*32 (a - z)
       xexp = exp (x)
       return
       end
 
       real*32 function xlog (x)
       implicit real*32 (a - z)
       xlog = log (x)
       return
       end
 
       real*32 function xlog10 (x)
       implicit real*32 (a - z)
       xlog10 = log10 (x)
       return
       end
 
       real*32 function xsin (x)
       implicit real*32 (a - z)
       xsin = sin (x)
       return
       end
 
       real*32 function xasin (x)
       implicit real*32 (a - z)
       xasin = asin (x)
       return
       end
 
       real*32 function xacos (x)
       implicit real*32 (a - z)
       xacos = acos (x)
       return
       end
 
       real*32 function xcos (x)
       implicit real*32 (a - z)
       xcos = cos (x)
       return
       end
 
       real*32 function xtan (x)
       implicit real*32 (a - z)
       xtan = tan (x)
       return
       end
 
       real*32 function xatan (x)
       implicit real*32 (a - z)
       xatan = atan (x)
       return
       end
 
       real*32 function xatan2 (x, y)
       implicit real*32 (a - z)
       xatan2 = atan2 (x, y)
       return
       end
 
 ! complex*8
 
       complex*8 function csqrtf (x)
       implicit complex*8 (a - z)
       csqrtf = sqrt (x)
       return
       end
 
       complex*8 function cexpf (x)
       implicit complex*8 (a - z)
       cexpf = exp (x)
       return
       end
 
       complex*8 function clogf (x)
       implicit complex*8 (a - z)
       clogf = log (x)
       return
       end
 
       complex*8 function csinf (x)
       implicit complex*8 (a - z)
       csinf = sin (x)
       return
       end
 
       complex*8 function ccosf (x)
       implicit complex*8 (a - z)
       ccosf = cos (x)
       return
       end
 
       complex*8 function ctanf (x)
       implicit complex*8 (a - z)
       ctanf = tan (x)
       return
       end
 
 ! complex*16
 
       complex*16 function cdsqrt (x)
       implicit complex*16 (a - z)
       cdsqrt = sqrt (x)
       return
       end
 
       complex*16 function cdexp (x)
       implicit complex*16 (a - z)
       cdexp = exp (x)
       return
       end
 
       complex*16 function cdlog (x)
       implicit complex*16 (a - z)
       cdlog = log (x)
       return
       end
 
       complex*16 function cdsin (x)
       implicit complex*16 (a - z)
       cdsin = sin (x)
       return
       end
 
       complex*16 function cdcos (x)
       implicit complex*16 (a - z)
       cdcos = cos (x)
       return
       end
 
       complex*16 function cdtan (x)
       implicit complex*16 (a - z)
       cdtan = tan (x)
       return
       end
 
 ! complex*32
 
       complex*32 function cqsqrt (x)
       implicit complex*32 (a - z)
       cqsqrt = sqrt (x)
       return
       end
 
       complex*32 function cqexp (x)
       implicit complex*32 (a - z)
       cqexp = exp (x)
       return
       end
 
       complex*32 function cqlog (x)
       implicit complex*32 (a - z)
       cqlog = log (x)
       return
       end
 
       complex*32 function cqsin (x)
       implicit complex*32 (a - z)
       cqsin = sin (x)
       return
       end
 
       complex*32 function cqcos (x)
       implicit complex*32 (a - z)
       cqcos = cos (x)
       return
       end
 
       complex*32 function cqtan (x)
       implicit complex*32 (a - z)
       cqtan = tan (x)
       return
       end
 
 ! complex*64
 
       complex*64 function cxsqrt (x)
       implicit complex*64 (a - z)
       cxsqrt = sqrt (x)
       return
       end
 
       complex*64 function cxexp (x)
       implicit complex*64 (a - z)
       cxexp = exp (x)
       return
       end
 
       complex*64 function cxlog (x)
       implicit complex*64 (a - z)
       cxlog = log (x)
       return
       end
 
       complex*64 function cxsin (x)
       implicit complex*64 (a - z)
       cxsin = sin (x)
       return
       end
 
       complex*64 function cxcos (x)
       implicit complex*64 (a - z)
       cxcos = cos (x)
       return
       end
 
       complex*64 function cxtan (x)
       implicit complex*64 (a - z)
       cxtan = tan (x)
       return
       end
     

Deze website is gearchiveerd door de KB, nationale bibliotheek. This website is archived by the National Library of the Netherlands.