Algol 68 Genie

mathlib-blas-slatec.c

     1  //! @file mathlib-blas-slatec.c
     2  //
     3  //! @section copyright
     4  //
     5  // This file is part of VIF - vintage fortran compiler.
     6  // Copyright 2020-2025 J. Marcel van der Veer <algol68g@xs4all.nl>.
     7  //
     8  //! @section license
     9  //
    10  // This program is free software; you can redistribute it and/or modify it 
    11  // under the terms of the gnu general public license as published by the 
    12  // free software foundation; either version 3 of the license, or 
    13  // (at your option) any later version.
    14  //
    15  // This program is distributed in the hope that it will be useful, but 
    16  // without any warranty; without even the implied warranty of merchantability 
    17  // or fitness for a particular purpose. See the GNU general public license for 
    18  // more details. you should have received a copy of the GNU general public 
    19  // license along with this program. If not, see <http://www.gnu.org/licenses/>.
    20  //
    21  //! @Synopsis
    22  //
    23  //! 4 subprograms from BLAS-SLATEC
    24  
    25  // Compiled from Fortran source code by VIF.
    26  // Selected subprograms are:
    27  //
    28  // CDCDOT DCDOT  DCOPYM SCOPYM
    29  
    30  /*
    31  Generated by VIF - experimental VIntage Fortran compiler.
    32  VIF release 1.2.10
    33  */
    38  static CALLS __calls[__ncalls] = {
    39    {"cdcdot", 0}, // complex*8 function
    40    {"dcdot", 0}, // subroutine
    41    {"dcopym", 0}, // subroutine
    42    {"scopym", 0}, // subroutine
    43    {NULL, 0}
    44  };
    46  int_4 _p_ incy_);
    48  incy_, real_8 _p_ dcr_, real_8 _p_ dci_);
    51  complex_8 _cdcdot (int_4 _p_ n_, complex_8 _p_ cb_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ 
    52  incy_)
    53  { // ** body not listed **
    84  }
    85  int_4 _dcdot (int_4 _p_ n_, real_8 _p_ fm_, complex_8 _p_ cx_, int_4 _p_ incx_, complex_8 _p_ cy_, int_4 _p_ incy_, 
    86  real_8 _p_ dcr_, real_8 _p_ dci_)
    87  { // ** body not listed **
   116  }
   117  int_4 _dcopym (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
   118  { // ** body not listed **
   180  }
   181  int_4 _scopym (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
   182  { // ** body not listed **
   244  }
Deze website is gearchiveerd door de KB, nationale bibliotheek.

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