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.12
    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  };
    45  
    47  int_4 _p_ incy_);
    49  incy_, real_8 _p_ dcr_, real_8 _p_ dci_);
    52  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_ 
    53  incy_)
    54  { // ** body not listed **
    85  }
    86  
    87  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_, 
    88  real_8 _p_ dcr_, real_8 _p_ dci_)
    89  { // ** body not listed **
   118  }
   119  
   120  int_4 _dcopym (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
   121  { // ** body not listed **
   183  }
   184  
   185  int_4 _scopym (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
   186  { // ** body not listed **
   248  }
   249
Deze website is gearchiveerd door de KB, nationale bibliotheek.

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