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.17
    33  */
    34  #if defined (__GNUC__)
    35  #pragma GCC diagnostic ignored "-Wimplicit-function-declaration"
    36  #pragma GCC diagnostic ignored "-Wincompatible-pointer-types"
    37  #if (__GNUC__ >= 14)
    38  #pragma GCC diagnostic ignored "-Wdeclaration-missing-parameter-type"
    39  #pragma GCC diagnostic ignored "-Wimplicit-int"
    40  #pragma GCC diagnostic ignored "-Wint-conversion"
    41  #pragma GCC diagnostic ignored "-Wreturn-mismatch"
    42  #endif
    43  #else
    44  #error VIF requires GCC
    45  #endif
    50  static CALLS __calls[__ncalls] = {
    51    {"cdcdot", 0}, // complex*8 function
    52    {"dcdot", 0}, // subroutine
    53    {"dcopym", 0}, // subroutine
    54    {"scopym", 0}, // subroutine
    55    {NULL, 0}
    56  };
    57  
    59  int_4 _p_ incy_);
    61  incy_, real_8 _p_ dcr_, real_8 _p_ dci_);
    64  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_ 
    65  incy_)
    66  { // ** body not listed **
    97  }
    98  
    99  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_, 
   100  real_8 _p_ dcr_, real_8 _p_ dci_)
   101  { // ** body not listed **
   130  }
   131  
   132  int_4 _dcopym (int_4 _p_ n_, real_8 _p_ dx_, int_4 _p_ incx_, real_8 _p_ dy_, int_4 _p_ incy_)
   133  { // ** body not listed **
   195  }
   196  
   197  int_4 _scopym (int_4 _p_ n_, real_4 _p_ sx_, int_4 _p_ incx_, real_4 _p_ sy_, int_4 _p_ incy_)
   198  { // ** body not listed **
   260  }
   261
Deze website is gearchiveerd door de KB, nationale bibliotheek.

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