├── src ├── .gitignore ├── Makevars └── rfi.c ├── .gitignore ├── .Rbuildignore ├── NAMESPACE ├── DESCRIPTION ├── RFI.Rproj ├── man └── dot-ModernFortran.Rd ├── R └── rfi.R ├── README.md ├── README.Rmd └── LICENSE.md /src/.gitignore: -------------------------------------------------------------------------------- 1 | *.o 2 | *.so 3 | *.dll 4 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | .Rproj.user 2 | .Rhistory 3 | .Rprofile 4 | .vscode -------------------------------------------------------------------------------- /src/Makevars: -------------------------------------------------------------------------------- 1 | PKG_FCFLAGS+=-std=f2018 2 | PKG_LIBS+=-lgfortran -lm -lquadmath 3 | -------------------------------------------------------------------------------- /.Rbuildignore: -------------------------------------------------------------------------------- 1 | ^RFI\.Rproj$ 2 | ^\.Rproj\.user$ 3 | ^README\.Rmd$ 4 | ^LICENSE\.md$ 5 | ^Makefile$ 6 | -------------------------------------------------------------------------------- /NAMESPACE: -------------------------------------------------------------------------------- 1 | # Generated by roxygen2: do not edit by hand 2 | 3 | export(.ModernFortran) 4 | useDynLib(RFI, .registration = TRUE) 5 | -------------------------------------------------------------------------------- /DESCRIPTION: -------------------------------------------------------------------------------- 1 | Package: RFI 2 | Title: Interface to Modern Fortran 3 | Version: 0.0.0.9000 4 | Authors@R: 5 | person(given = "Tomasz", 6 | family = "Kalinowski", 7 | role = c("aut", "cre"), 8 | email = "kalinowskit@gmail.com") 9 | Description: Interface with Fortran 2018 code using C descriptors. 10 | License: GPL-3 11 | Encoding: UTF-8 12 | LazyData: true 13 | Roxygen: list(markdown = TRUE) 14 | RoxygenNote: 7.1.1 15 | Suggests: 16 | testthat 17 | -------------------------------------------------------------------------------- /RFI.Rproj: -------------------------------------------------------------------------------- 1 | Version: 1.0 2 | 3 | RestoreWorkspace: No 4 | SaveWorkspace: No 5 | AlwaysSaveHistory: Default 6 | 7 | EnableCodeIndexing: Yes 8 | UseSpacesForTab: Yes 9 | NumSpacesForTab: 2 10 | Encoding: UTF-8 11 | 12 | RnwWeave: knitr 13 | LaTeX: pdfLaTeX 14 | 15 | AutoAppendNewline: Yes 16 | StripTrailingWhitespace: Yes 17 | LineEndingConversion: Posix 18 | 19 | BuildType: Package 20 | PackageUseDevtools: Yes 21 | PackageInstallArgs: --no-multiarch --with-keep.source 22 | PackageRoxygenize: rd,collate,namespace 23 | -------------------------------------------------------------------------------- /man/dot-ModernFortran.Rd: -------------------------------------------------------------------------------- 1 | % Generated by roxygen2: do not edit by hand 2 | % Please edit documentation in R/rfi.R 3 | \name{.ModernFortran} 4 | \alias{.ModernFortran} 5 | \title{Modern Fortran Interface} 6 | \usage{ 7 | .ModernFortran(.NAME, ..., PACKAGE, DUP = TRUE) 8 | } 9 | \arguments{ 10 | \item{.NAME}{an object of class \code{"NativeSymbol"}, \code{"NativeSymbolInfo"}, or a 11 | character string giving the name of the subroutine} 12 | 13 | \item{...}{Arguments passed on to the Fortran subroutine.} 14 | 15 | \item{PACKAGE}{passed on to \code{\link[=getNativeSymbolInfo]{getNativeSymbolInfo()}}} 16 | 17 | \item{DUP}{a bool or integer vector. If \code{TRUE} (the default), all objects 18 | passed to \code{...} are duplicated before being passed to the Fortran code. If 19 | \code{FALSE}, no objects are duplicated and are potentially modified in place. 20 | If an integer vector, then only the positional arguments (using 0-based 21 | counting) corresponding to the integer values provided are duplicated.} 22 | } 23 | \value{ 24 | A list of similar structure to supplied to ..., but reflecting 25 | changes made by the Fortran code 26 | } 27 | \description{ 28 | Modern Fortran Interface 29 | } 30 | \section{Duplicating}{ 31 | 32 | 33 | By default, all arguments are duplicated before being passed to the Fortran 34 | code. You may want to avoid duplicating some objects for performance 35 | reasons. If you know it is safe to skip duplicating, for example because 36 | the subroutine does not modify the object (e.g., the argument is declared 37 | in the subroutine manifest with \verb{intent(in)}), or you know for a fact that 38 | no other references to the SEXP will be used, you can avoid duplicating the 39 | object by passing a 0-based integer vector of argument index positions to 40 | \code{DUP}. 41 | } 42 | 43 | \examples{ 44 | \dontrun{ 45 | DLL <- dyn.load("my_shared_object.so") 46 | func_ptr <- getNativeSymbolInfo('my_subroutine', dll)$address 47 | .ModernFortran(func_ptr, arg1, arg2) 48 | 49 | # only duplicate arg1, arg2 is read-only (intent(in)) 50 | .ModernFortran(func_ptr, arg1, arg2, DUP=0L) 51 | } 52 | } 53 | -------------------------------------------------------------------------------- /R/rfi.R: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | #' Modern Fortran Interface 5 | #' 6 | #' @param .NAME an object of class `"NativeSymbol"`, `"NativeSymbolInfo"`, or a 7 | #' character string giving the name of the subroutine 8 | #' @param ... Arguments passed on to the Fortran subroutine. 9 | #' @param PACKAGE passed on to [`getNativeSymbolInfo()`] 10 | #' @param DUP a bool or integer vector. If `TRUE` (the default), all objects 11 | #' passed to `...` are duplicated before being passed to the Fortran code. If 12 | #' `FALSE`, no objects are duplicated and are potentially modified in place. 13 | #' If an integer vector, then only the positional arguments (using 0-based 14 | #' counting) corresponding to the integer values provided are duplicated. 15 | #' 16 | #' @section Duplicating: 17 | #' 18 | #' By default, all arguments are duplicated before being passed to the Fortran 19 | #' code. You may want to avoid duplicating some objects for performance 20 | #' reasons. If you know it is safe to skip duplicating, for example because 21 | #' the subroutine does not modify the object (e.g., the argument is declared 22 | #' in the subroutine manifest with `intent(in)`), or you know for a fact that 23 | #' no other references to the SEXP will be used, you can avoid duplicating the 24 | #' object by passing a 0-based integer vector of argument index positions to 25 | #' `DUP`. 26 | #' 27 | #' @return A list of similar structure to supplied to ..., but reflecting 28 | #' changes made by the Fortran code 29 | #' @export 30 | #' @useDynLib RFI, .registration = TRUE 31 | #' @examples 32 | #' \dontrun{ 33 | #' DLL <- dyn.load("my_shared_object.so") 34 | #' func_ptr <- getNativeSymbolInfo('my_subroutine', dll)$address 35 | #' .ModernFortran(func_ptr, arg1, arg2) 36 | #' 37 | #' # only duplicate arg1, arg2 is read-only (intent(in)) 38 | #' .ModernFortran(func_ptr, arg1, arg2, DUP=0L) 39 | #' } 40 | .ModernFortran <- function(.NAME, ..., PACKAGE, DUP=TRUE) { 41 | if (!inherits(.NAME, "NativeSymbol")) { 42 | .NAME <- if (inherits(.NAME, "NativeSymbolInfo")) 43 | .NAME[["address"]] 44 | else 45 | getNativeSymbolInfo(.NAME, PACKAGE, FALSE)[["address"]] 46 | } 47 | .Call(dot_ModernFortran, .NAME, list(...), DUP) 48 | } 49 | 50 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | RFI: R to Modern Fortran Interface 5 | ================================== 6 | 7 | 8 | 9 | 10 | This R package provides `.ModernFortran()`, an interface similar to 11 | `.Fortran()` but for Fortran 2018. 12 | 13 | The 2018 Fortran language standard expanded support for interfacing C 14 | and Fortran. One of the additions is the introduction of *C 15 | descriptors*, a data structure for passing arrays between C and Fortran. 16 | This package takes advantage of that. 17 | 18 | In contrast with `.Fortran`, R arrays are not passed as naked pointers, 19 | but as *C descriptors* that contain information about rank, shape, 20 | element size, type, and memory stride of the array that the Fortran 21 | routine can access directly. This means that additional arguments for 22 | passing the size or rank of arrays are no longer needed, which should 23 | lead to cleaner, simpler Fortran code. Additionally, logical and raw 24 | types are now supported directly. 25 | 26 | Currently supported type conversions are: 27 | 28 | | R type | Fortran type | 29 | |:----------|:----------------------------| 30 | | `logical` | `logical(c_bool)` | 31 | | `integer` | `integer(c_int)` | 32 | | `double` | `real(c_double)` | 33 | | `complex` | `complex(c_double_complex)` | 34 | | `raw` | `integer(c_int8_t)` | 35 | 36 | Installation 37 | ------------ 38 | 39 | You can install RFI from github: 40 | 41 | if(!requireNamespace("remotes")) install.packages("remote") 42 | remotes::install_github("t-kalinowski/RFI") 43 | 44 | Example 45 | ------- 46 | 47 | Say you have a Fortran 2018 module with a subroutine like so: 48 | 49 | module mod_cshift 50 | 51 | use iso_c_binding, only: c_int, c_double, c_double_complex, c_bool 52 | implicit none 53 | 54 | contains 55 | 56 | subroutine my_subroutine(array, shift) bind(c) 57 | integer(c_int), intent(in out) :: array(:) 58 | integer(c_int), intent(in) :: shift 59 | 60 | array = cshift(array, shift) 61 | end subroutine my_subroutine 62 | 63 | end module mod_cshift 64 | 65 | (`cshift` by the way is Fortran intrinsic for **circular shift**) 66 | 67 | From R you can compile it like so: 68 | 69 | f_module_file <- "mod_my_fortran_module.f90" 70 | so_file <- sub("f90$", "so", f_module_file) 71 | 72 | compile_cmd <- sprintf( 73 | "gfortran -std=f2018 -shared -lgfortran -lm -lquadmath %s -o %s", 74 | f_module_file, so_file) 75 | 76 | system(compile_cmd) 77 | 78 | (you could also use the official R pathway to creating shared objects), 79 | with something like: 80 | 81 | compile_cmd <- sprintf( 82 | "PKG_FFLAGS=-std=f2018 R CMD SHLIB %s -o %s", 83 | f_module_file, so_file) 84 | system(compile_cmd) 85 | 86 | Once the shared object is made, use it from R like so: 87 | 88 | # load the fortran module 89 | dll <- dyn.load(so_file) 90 | 91 | # get C pointer to the Fortran subroutine 92 | func_ptr <- getNativeSymbolInfo('my_subroutine', dll)$address 93 | 94 | # call the subroutine with R arrays 95 | RFI::.ModernFortran(func_ptr, array=1:5, shift=2L) 96 | #> $array 97 | #> [1] 3 4 5 1 2 98 | #> 99 | #> $shift 100 | #> [1] 2 101 | 102 | Just like the other interfaces to compiled code (`.Fortran`,`.Call`, 103 | etc), you’ll probably want to wrap this in an R function for convince 104 | and input type coercion. 105 | 106 | 107 | cshift <- function(array, shift) { 108 | RFI::.ModernFortran(func_ptr, 109 | array = as.integer(array), 110 | shift = as.integer(shift))$array 111 | } 112 | 113 | cshift(1:10, -3) 114 | #> [1] 8 9 10 1 2 3 4 5 6 7 115 | 116 | For the most part, the interface to `.ModernFortran` tries to match that 117 | of `.Fortran`. One area where `.ModernFortran` deviates a little is in 118 | regards to duplicating objects. A mechanism is provided for selectively 119 | duplicating only some of the SEXP objects by passing an (0-based) 120 | integer vector of argument index positions to the `DUP` argument. For 121 | example, we know the subroutine above only modifies the first argument, 122 | `array`, and does not modify the second argument, `shift`. Accordingly, 123 | we can tell the R interface that only the first argument needs to be 124 | duplicated by passing `0L`. (We include the `typeof` check to avoid 125 | duplicating if `as.integer` already duplicated) 126 | 127 | cshift <- function(array, shift) { 128 | RFI::.ModernFortran( 129 | func_ptr, 130 | array = as.integer(array), 131 | shift = as.integer(shift), 132 | DUP = if(typeof(array) == "integer") 0L else FALSE 133 | )$array 134 | } 135 | cshift(1:10, 3) 136 | #> [1] 4 5 6 7 8 9 10 1 2 3 137 | 138 | Tested with gfortran 9.2 and 9.3, R 3.6.3 and R 4.0. 139 | -------------------------------------------------------------------------------- /README.Rmd: -------------------------------------------------------------------------------- 1 | --- 2 | output: github_document 3 | --- 4 | 5 | 6 | 7 | ```{r, include = FALSE} 8 | knitr::opts_knit$set(root.dir = tempdir()) 9 | knitr::opts_chunk$set( 10 | collapse = TRUE, 11 | comment = "#>", 12 | fig.path = "man/figures/README-", 13 | out.width = "100%" 14 | ) 15 | 16 | ``` 17 | 18 | # RFI: R to Modern Fortran Interface 19 | 20 | 21 | 22 | 23 | 24 | This R package provides `.ModernFortran()`, an interface similar to `.Fortran()` 25 | but for Fortran 2018. 26 | 27 | The 2018 Fortran language standard expanded support for interfacing C and Fortran. 28 | One of the additions is the introduction of *C descriptors*, a data structure 29 | for passing arrays between C and Fortran. This package takes advantage of that. 30 | 31 | In contrast with `.Fortran`, R arrays are not passed as naked pointers, but as 32 | *C descriptors* that contain information about rank, shape, element size, type, 33 | and memory stride of the array that the Fortran routine can access directly. 34 | This means that additional arguments for passing the size or rank of arrays are 35 | no longer needed, which should lead to cleaner, simpler Fortran code. 36 | Additionally, logical and raw types are now supported directly. 37 | 38 | Currently supported type conversions are: 39 | 40 | |R type |Fortran type | 41 | |:---------|:---------------------------| 42 | |`logical` |`logical(c_bool)` | 43 | |`integer` |`integer(c_int)` | 44 | |`double` |`real(c_double)` | 45 | |`complex` |`complex(c_double_complex)` | 46 | |`raw` |`integer(c_int8_t)` | 47 | 48 | 49 | 50 | ```{r, echo=FALSE, eval = FALSE, results='asis'} 51 | knitr::kable(matrix(ncol = 2, byrow = TRUE, 52 | dimnames = list(NULL, c("R type", "Fortran type")), 53 | sprintf("`%s`", 54 | c( 55 | "logical", "logical(c_bool)", 56 | "integer", "integer(c_int)", 57 | "double", "real(c_double)", 58 | "complex", "complex(c_double_complex)" 59 | ) 60 | ))) 61 | ``` 62 | 63 | ## Installation 64 | 65 | You can install RFI from github: 66 | ```r 67 | if(!requireNamespace("remotes")) install.packages("remote") 68 | remotes::install_github("t-kalinowski/RFI") 69 | ``` 70 | 71 | ## Example 72 | 73 | Say you have a Fortran 2018 module with a subroutine like so: 74 | 75 | ```{r include=FALSE} 76 | fmodule <- 77 | "module mod_cshift 78 | 79 | use iso_c_binding, only: c_int, c_double, c_double_complex, c_bool 80 | implicit none 81 | 82 | contains 83 | 84 | subroutine my_subroutine(array, shift) bind(c) 85 | integer(c_int), intent(in out) :: array(:) 86 | integer(c_int), intent(in) :: shift 87 | 88 | array = cshift(array, shift) 89 | end subroutine my_subroutine 90 | 91 | end module mod_cshift 92 | " 93 | ``` 94 | 95 | ```{r, results='asis', echo = FALSE} 96 | writeLines(paste("```f90\n", fmodule, "```")) 97 | ``` 98 | (`cshift` by the way is Fortran intrinsic for **circular shift**) 99 | 100 | 101 | ```{r include=FALSE} 102 | f_module_file <- "mod_my_fortran_module.f90" 103 | tmpdir <- writeLines(fmodule, f_module_file) 104 | ``` 105 | 106 | 107 | From R you can compile it like so: 108 | ```{r} 109 | f_module_file <- "mod_my_fortran_module.f90" 110 | so_file <- sub("f90$", "so", f_module_file) 111 | 112 | compile_cmd <- sprintf( 113 | "gfortran -std=f2018 -shared -lgfortran -lm -lquadmath %s -o %s", 114 | f_module_file, so_file) 115 | 116 | system(compile_cmd) 117 | ``` 118 | 119 | (you could also use the official R pathway to creating shared objects), with something like: 120 | 121 | ```{r, eval = FALSE} 122 | compile_cmd <- sprintf( 123 | "PKG_FFLAGS=-std=f2018 R CMD SHLIB %s -o %s", 124 | f_module_file, so_file) 125 | system(compile_cmd) 126 | ``` 127 | 128 | Once the shared object is made, use it from R like so: 129 | ```{r} 130 | # load the fortran module 131 | dll <- dyn.load(so_file) 132 | 133 | # get C pointer to the Fortran subroutine 134 | func_ptr <- getNativeSymbolInfo('my_subroutine', dll)$address 135 | 136 | # call the subroutine with R arrays 137 | RFI::.ModernFortran(func_ptr, array=1:5, shift=2L) 138 | ``` 139 | 140 | Just like the other interfaces to compiled code (`.Fortran`,`.Call`, etc), 141 | you'll probably want to wrap this in an R function for convince and input type 142 | coercion. 143 | ```{r} 144 | 145 | cshift <- function(array, shift) { 146 | RFI::.ModernFortran(func_ptr, 147 | array = as.integer(array), 148 | shift = as.integer(shift))$array 149 | } 150 | 151 | cshift(1:10, -3) 152 | ``` 153 | 154 | For the most part, the interface to `.ModernFortran` tries to match that of 155 | `.Fortran`. One area where `.ModernFortran` deviates a little is in regards to 156 | duplicating objects. A mechanism is provided for selectively duplicating only 157 | some of the SEXP objects by passing an (0-based) integer vector of argument index 158 | positions to the `DUP` argument. 159 | For example, we know the subroutine above only modifies the first argument, 160 | `array`, and does not modify the second argument, `shift`. Accordingly, we can 161 | tell the R interface that only the first argument needs to be duplicated by passing `0L`. 162 | (We include the `typeof` check to avoid duplicating if `as.integer` already duplicated) 163 | ```{r} 164 | cshift <- function(array, shift) { 165 | RFI::.ModernFortran( 166 | func_ptr, 167 | array = as.integer(array), 168 | shift = as.integer(shift), 169 | DUP = if(typeof(array) == "integer") 0L else FALSE 170 | )$array 171 | } 172 | cshift(1:10, 3) 173 | ``` 174 | 175 | 176 | Tested with gfortran 9.2 and 9.3, R 3.6.3 and R 4.0. 177 | 178 | -------------------------------------------------------------------------------- /LICENSE.md: -------------------------------------------------------------------------------- 1 | GNU General Public License 2 | ========================== 3 | 4 | _Version 3, 29 June 2007_ 5 | _Copyright © 2007 Free Software Foundation, Inc. <>_ 6 | 7 | Everyone is permitted to copy and distribute verbatim copies of this license 8 | document, but changing it is not allowed. 9 | 10 | ## Preamble 11 | 12 | The GNU General Public License is a free, copyleft license for software and other 13 | kinds of works. 14 | 15 | The licenses for most software and other practical works are designed to take away 16 | your freedom to share and change the works. By contrast, the GNU General Public 17 | License is intended to guarantee your freedom to share and change all versions of a 18 | program--to make sure it remains free software for all its users. We, the Free 19 | Software Foundation, use the GNU General Public License for most of our software; it 20 | applies also to any other work released this way by its authors. You can apply it to 21 | your programs, too. 22 | 23 | When we speak of free software, we are referring to freedom, not price. Our General 24 | Public Licenses are designed to make sure that you have the freedom to distribute 25 | copies of free software (and charge for them if you wish), that you receive source 26 | code or can get it if you want it, that you can change the software or use pieces of 27 | it in new free programs, and that you know you can do these things. 28 | 29 | To protect your rights, we need to prevent others from denying you these rights or 30 | asking you to surrender the rights. Therefore, you have certain responsibilities if 31 | you distribute copies of the software, or if you modify it: responsibilities to 32 | respect the freedom of others. 33 | 34 | For example, if you distribute copies of such a program, whether gratis or for a fee, 35 | you must pass on to the recipients the same freedoms that you received. You must make 36 | sure that they, too, receive or can get the source code. And you must show them these 37 | terms so they know their rights. 38 | 39 | Developers that use the GNU GPL protect your rights with two steps: **(1)** assert 40 | copyright on the software, and **(2)** offer you this License giving you legal permission 41 | to copy, distribute and/or modify it. 42 | 43 | For the developers' and authors' protection, the GPL clearly explains that there is 44 | no warranty for this free software. For both users' and authors' sake, the GPL 45 | requires that modified versions be marked as changed, so that their problems will not 46 | be attributed erroneously to authors of previous versions. 47 | 48 | Some devices are designed to deny users access to install or run modified versions of 49 | the software inside them, although the manufacturer can do so. This is fundamentally 50 | incompatible with the aim of protecting users' freedom to change the software. The 51 | systematic pattern of such abuse occurs in the area of products for individuals to 52 | use, which is precisely where it is most unacceptable. Therefore, we have designed 53 | this version of the GPL to prohibit the practice for those products. If such problems 54 | arise substantially in other domains, we stand ready to extend this provision to 55 | those domains in future versions of the GPL, as needed to protect the freedom of 56 | users. 57 | 58 | Finally, every program is threatened constantly by software patents. States should 59 | not allow patents to restrict development and use of software on general-purpose 60 | computers, but in those that do, we wish to avoid the special danger that patents 61 | applied to a free program could make it effectively proprietary. To prevent this, the 62 | GPL assures that patents cannot be used to render the program non-free. 63 | 64 | The precise terms and conditions for copying, distribution and modification follow. 65 | 66 | ## TERMS AND CONDITIONS 67 | 68 | ### 0. Definitions 69 | 70 | “This License” refers to version 3 of the GNU General Public License. 71 | 72 | “Copyright” also means copyright-like laws that apply to other kinds of 73 | works, such as semiconductor masks. 74 | 75 | “The Program” refers to any copyrightable work licensed under this 76 | License. Each licensee is addressed as “you”. “Licensees” and 77 | “recipients” may be individuals or organizations. 78 | 79 | To “modify” a work means to copy from or adapt all or part of the work in 80 | a fashion requiring copyright permission, other than the making of an exact copy. The 81 | resulting work is called a “modified version” of the earlier work or a 82 | work “based on” the earlier work. 83 | 84 | A “covered work” means either the unmodified Program or a work based on 85 | the Program. 86 | 87 | To “propagate” a work means to do anything with it that, without 88 | permission, would make you directly or secondarily liable for infringement under 89 | applicable copyright law, except executing it on a computer or modifying a private 90 | copy. Propagation includes copying, distribution (with or without modification), 91 | making available to the public, and in some countries other activities as well. 92 | 93 | To “convey” a work means any kind of propagation that enables other 94 | parties to make or receive copies. Mere interaction with a user through a computer 95 | network, with no transfer of a copy, is not conveying. 96 | 97 | An interactive user interface displays “Appropriate Legal Notices” to the 98 | extent that it includes a convenient and prominently visible feature that **(1)** 99 | displays an appropriate copyright notice, and **(2)** tells the user that there is no 100 | warranty for the work (except to the extent that warranties are provided), that 101 | licensees may convey the work under this License, and how to view a copy of this 102 | License. If the interface presents a list of user commands or options, such as a 103 | menu, a prominent item in the list meets this criterion. 104 | 105 | ### 1. Source Code 106 | 107 | The “source code” for a work means the preferred form of the work for 108 | making modifications to it. “Object code” means any non-source form of a 109 | work. 110 | 111 | A “Standard Interface” means an interface that either is an official 112 | standard defined by a recognized standards body, or, in the case of interfaces 113 | specified for a particular programming language, one that is widely used among 114 | developers working in that language. 115 | 116 | The “System Libraries” of an executable work include anything, other than 117 | the work as a whole, that **(a)** is included in the normal form of packaging a Major 118 | Component, but which is not part of that Major Component, and **(b)** serves only to 119 | enable use of the work with that Major Component, or to implement a Standard 120 | Interface for which an implementation is available to the public in source code form. 121 | A “Major Component”, in this context, means a major essential component 122 | (kernel, window system, and so on) of the specific operating system (if any) on which 123 | the executable work runs, or a compiler used to produce the work, or an object code 124 | interpreter used to run it. 125 | 126 | The “Corresponding Source” for a work in object code form means all the 127 | source code needed to generate, install, and (for an executable work) run the object 128 | code and to modify the work, including scripts to control those activities. However, 129 | it does not include the work's System Libraries, or general-purpose tools or 130 | generally available free programs which are used unmodified in performing those 131 | activities but which are not part of the work. For example, Corresponding Source 132 | includes interface definition files associated with source files for the work, and 133 | the source code for shared libraries and dynamically linked subprograms that the work 134 | is specifically designed to require, such as by intimate data communication or 135 | control flow between those subprograms and other parts of the work. 136 | 137 | The Corresponding Source need not include anything that users can regenerate 138 | automatically from other parts of the Corresponding Source. 139 | 140 | The Corresponding Source for a work in source code form is that same work. 141 | 142 | ### 2. Basic Permissions 143 | 144 | All rights granted under this License are granted for the term of copyright on the 145 | Program, and are irrevocable provided the stated conditions are met. This License 146 | explicitly affirms your unlimited permission to run the unmodified Program. The 147 | output from running a covered work is covered by this License only if the output, 148 | given its content, constitutes a covered work. This License acknowledges your rights 149 | of fair use or other equivalent, as provided by copyright law. 150 | 151 | You may make, run and propagate covered works that you do not convey, without 152 | conditions so long as your license otherwise remains in force. You may convey covered 153 | works to others for the sole purpose of having them make modifications exclusively 154 | for you, or provide you with facilities for running those works, provided that you 155 | comply with the terms of this License in conveying all material for which you do not 156 | control copyright. Those thus making or running the covered works for you must do so 157 | exclusively on your behalf, under your direction and control, on terms that prohibit 158 | them from making any copies of your copyrighted material outside their relationship 159 | with you. 160 | 161 | Conveying under any other circumstances is permitted solely under the conditions 162 | stated below. Sublicensing is not allowed; section 10 makes it unnecessary. 163 | 164 | ### 3. Protecting Users' Legal Rights From Anti-Circumvention Law 165 | 166 | No covered work shall be deemed part of an effective technological measure under any 167 | applicable law fulfilling obligations under article 11 of the WIPO copyright treaty 168 | adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention 169 | of such measures. 170 | 171 | When you convey a covered work, you waive any legal power to forbid circumvention of 172 | technological measures to the extent such circumvention is effected by exercising 173 | rights under this License with respect to the covered work, and you disclaim any 174 | intention to limit operation or modification of the work as a means of enforcing, 175 | against the work's users, your or third parties' legal rights to forbid circumvention 176 | of technological measures. 177 | 178 | ### 4. Conveying Verbatim Copies 179 | 180 | You may convey verbatim copies of the Program's source code as you receive it, in any 181 | medium, provided that you conspicuously and appropriately publish on each copy an 182 | appropriate copyright notice; keep intact all notices stating that this License and 183 | any non-permissive terms added in accord with section 7 apply to the code; keep 184 | intact all notices of the absence of any warranty; and give all recipients a copy of 185 | this License along with the Program. 186 | 187 | You may charge any price or no price for each copy that you convey, and you may offer 188 | support or warranty protection for a fee. 189 | 190 | ### 5. Conveying Modified Source Versions 191 | 192 | You may convey a work based on the Program, or the modifications to produce it from 193 | the Program, in the form of source code under the terms of section 4, provided that 194 | you also meet all of these conditions: 195 | 196 | * **a)** The work must carry prominent notices stating that you modified it, and giving a 197 | relevant date. 198 | * **b)** The work must carry prominent notices stating that it is released under this 199 | License and any conditions added under section 7. This requirement modifies the 200 | requirement in section 4 to “keep intact all notices”. 201 | * **c)** You must license the entire work, as a whole, under this License to anyone who 202 | comes into possession of a copy. This License will therefore apply, along with any 203 | applicable section 7 additional terms, to the whole of the work, and all its parts, 204 | regardless of how they are packaged. This License gives no permission to license the 205 | work in any other way, but it does not invalidate such permission if you have 206 | separately received it. 207 | * **d)** If the work has interactive user interfaces, each must display Appropriate Legal 208 | Notices; however, if the Program has interactive interfaces that do not display 209 | Appropriate Legal Notices, your work need not make them do so. 210 | 211 | A compilation of a covered work with other separate and independent works, which are 212 | not by their nature extensions of the covered work, and which are not combined with 213 | it such as to form a larger program, in or on a volume of a storage or distribution 214 | medium, is called an “aggregate” if the compilation and its resulting 215 | copyright are not used to limit the access or legal rights of the compilation's users 216 | beyond what the individual works permit. Inclusion of a covered work in an aggregate 217 | does not cause this License to apply to the other parts of the aggregate. 218 | 219 | ### 6. Conveying Non-Source Forms 220 | 221 | You may convey a covered work in object code form under the terms of sections 4 and 222 | 5, provided that you also convey the machine-readable Corresponding Source under the 223 | terms of this License, in one of these ways: 224 | 225 | * **a)** Convey the object code in, or embodied in, a physical product (including a 226 | physical distribution medium), accompanied by the Corresponding Source fixed on a 227 | durable physical medium customarily used for software interchange. 228 | * **b)** Convey the object code in, or embodied in, a physical product (including a 229 | physical distribution medium), accompanied by a written offer, valid for at least 230 | three years and valid for as long as you offer spare parts or customer support for 231 | that product model, to give anyone who possesses the object code either **(1)** a copy of 232 | the Corresponding Source for all the software in the product that is covered by this 233 | License, on a durable physical medium customarily used for software interchange, for 234 | a price no more than your reasonable cost of physically performing this conveying of 235 | source, or **(2)** access to copy the Corresponding Source from a network server at no 236 | charge. 237 | * **c)** Convey individual copies of the object code with a copy of the written offer to 238 | provide the Corresponding Source. This alternative is allowed only occasionally and 239 | noncommercially, and only if you received the object code with such an offer, in 240 | accord with subsection 6b. 241 | * **d)** Convey the object code by offering access from a designated place (gratis or for 242 | a charge), and offer equivalent access to the Corresponding Source in the same way 243 | through the same place at no further charge. You need not require recipients to copy 244 | the Corresponding Source along with the object code. If the place to copy the object 245 | code is a network server, the Corresponding Source may be on a different server 246 | (operated by you or a third party) that supports equivalent copying facilities, 247 | provided you maintain clear directions next to the object code saying where to find 248 | the Corresponding Source. Regardless of what server hosts the Corresponding Source, 249 | you remain obligated to ensure that it is available for as long as needed to satisfy 250 | these requirements. 251 | * **e)** Convey the object code using peer-to-peer transmission, provided you inform 252 | other peers where the object code and Corresponding Source of the work are being 253 | offered to the general public at no charge under subsection 6d. 254 | 255 | A separable portion of the object code, whose source code is excluded from the 256 | Corresponding Source as a System Library, need not be included in conveying the 257 | object code work. 258 | 259 | A “User Product” is either **(1)** a “consumer product”, which 260 | means any tangible personal property which is normally used for personal, family, or 261 | household purposes, or **(2)** anything designed or sold for incorporation into a 262 | dwelling. In determining whether a product is a consumer product, doubtful cases 263 | shall be resolved in favor of coverage. For a particular product received by a 264 | particular user, “normally used” refers to a typical or common use of 265 | that class of product, regardless of the status of the particular user or of the way 266 | in which the particular user actually uses, or expects or is expected to use, the 267 | product. A product is a consumer product regardless of whether the product has 268 | substantial commercial, industrial or non-consumer uses, unless such uses represent 269 | the only significant mode of use of the product. 270 | 271 | “Installation Information” for a User Product means any methods, 272 | procedures, authorization keys, or other information required to install and execute 273 | modified versions of a covered work in that User Product from a modified version of 274 | its Corresponding Source. The information must suffice to ensure that the continued 275 | functioning of the modified object code is in no case prevented or interfered with 276 | solely because modification has been made. 277 | 278 | If you convey an object code work under this section in, or with, or specifically for 279 | use in, a User Product, and the conveying occurs as part of a transaction in which 280 | the right of possession and use of the User Product is transferred to the recipient 281 | in perpetuity or for a fixed term (regardless of how the transaction is 282 | characterized), the Corresponding Source conveyed under this section must be 283 | accompanied by the Installation Information. But this requirement does not apply if 284 | neither you nor any third party retains the ability to install modified object code 285 | on the User Product (for example, the work has been installed in ROM). 286 | 287 | The requirement to provide Installation Information does not include a requirement to 288 | continue to provide support service, warranty, or updates for a work that has been 289 | modified or installed by the recipient, or for the User Product in which it has been 290 | modified or installed. Access to a network may be denied when the modification itself 291 | materially and adversely affects the operation of the network or violates the rules 292 | and protocols for communication across the network. 293 | 294 | Corresponding Source conveyed, and Installation Information provided, in accord with 295 | this section must be in a format that is publicly documented (and with an 296 | implementation available to the public in source code form), and must require no 297 | special password or key for unpacking, reading or copying. 298 | 299 | ### 7. Additional Terms 300 | 301 | “Additional permissions” are terms that supplement the terms of this 302 | License by making exceptions from one or more of its conditions. Additional 303 | permissions that are applicable to the entire Program shall be treated as though they 304 | were included in this License, to the extent that they are valid under applicable 305 | law. If additional permissions apply only to part of the Program, that part may be 306 | used separately under those permissions, but the entire Program remains governed by 307 | this License without regard to the additional permissions. 308 | 309 | When you convey a copy of a covered work, you may at your option remove any 310 | additional permissions from that copy, or from any part of it. (Additional 311 | permissions may be written to require their own removal in certain cases when you 312 | modify the work.) You may place additional permissions on material, added by you to a 313 | covered work, for which you have or can give appropriate copyright permission. 314 | 315 | Notwithstanding any other provision of this License, for material you add to a 316 | covered work, you may (if authorized by the copyright holders of that material) 317 | supplement the terms of this License with terms: 318 | 319 | * **a)** Disclaiming warranty or limiting liability differently from the terms of 320 | sections 15 and 16 of this License; or 321 | * **b)** Requiring preservation of specified reasonable legal notices or author 322 | attributions in that material or in the Appropriate Legal Notices displayed by works 323 | containing it; or 324 | * **c)** Prohibiting misrepresentation of the origin of that material, or requiring that 325 | modified versions of such material be marked in reasonable ways as different from the 326 | original version; or 327 | * **d)** Limiting the use for publicity purposes of names of licensors or authors of the 328 | material; or 329 | * **e)** Declining to grant rights under trademark law for use of some trade names, 330 | trademarks, or service marks; or 331 | * **f)** Requiring indemnification of licensors and authors of that material by anyone 332 | who conveys the material (or modified versions of it) with contractual assumptions of 333 | liability to the recipient, for any liability that these contractual assumptions 334 | directly impose on those licensors and authors. 335 | 336 | All other non-permissive additional terms are considered “further 337 | restrictions” within the meaning of section 10. If the Program as you received 338 | it, or any part of it, contains a notice stating that it is governed by this License 339 | along with a term that is a further restriction, you may remove that term. If a 340 | license document contains a further restriction but permits relicensing or conveying 341 | under this License, you may add to a covered work material governed by the terms of 342 | that license document, provided that the further restriction does not survive such 343 | relicensing or conveying. 344 | 345 | If you add terms to a covered work in accord with this section, you must place, in 346 | the relevant source files, a statement of the additional terms that apply to those 347 | files, or a notice indicating where to find the applicable terms. 348 | 349 | Additional terms, permissive or non-permissive, may be stated in the form of a 350 | separately written license, or stated as exceptions; the above requirements apply 351 | either way. 352 | 353 | ### 8. Termination 354 | 355 | You may not propagate or modify a covered work except as expressly provided under 356 | this License. Any attempt otherwise to propagate or modify it is void, and will 357 | automatically terminate your rights under this License (including any patent licenses 358 | granted under the third paragraph of section 11). 359 | 360 | However, if you cease all violation of this License, then your license from a 361 | particular copyright holder is reinstated **(a)** provisionally, unless and until the 362 | copyright holder explicitly and finally terminates your license, and **(b)** permanently, 363 | if the copyright holder fails to notify you of the violation by some reasonable means 364 | prior to 60 days after the cessation. 365 | 366 | Moreover, your license from a particular copyright holder is reinstated permanently 367 | if the copyright holder notifies you of the violation by some reasonable means, this 368 | is the first time you have received notice of violation of this License (for any 369 | work) from that copyright holder, and you cure the violation prior to 30 days after 370 | your receipt of the notice. 371 | 372 | Termination of your rights under this section does not terminate the licenses of 373 | parties who have received copies or rights from you under this License. If your 374 | rights have been terminated and not permanently reinstated, you do not qualify to 375 | receive new licenses for the same material under section 10. 376 | 377 | ### 9. Acceptance Not Required for Having Copies 378 | 379 | You are not required to accept this License in order to receive or run a copy of the 380 | Program. Ancillary propagation of a covered work occurring solely as a consequence of 381 | using peer-to-peer transmission to receive a copy likewise does not require 382 | acceptance. However, nothing other than this License grants you permission to 383 | propagate or modify any covered work. These actions infringe copyright if you do not 384 | accept this License. Therefore, by modifying or propagating a covered work, you 385 | indicate your acceptance of this License to do so. 386 | 387 | ### 10. Automatic Licensing of Downstream Recipients 388 | 389 | Each time you convey a covered work, the recipient automatically receives a license 390 | from the original licensors, to run, modify and propagate that work, subject to this 391 | License. You are not responsible for enforcing compliance by third parties with this 392 | License. 393 | 394 | An “entity transaction” is a transaction transferring control of an 395 | organization, or substantially all assets of one, or subdividing an organization, or 396 | merging organizations. If propagation of a covered work results from an entity 397 | transaction, each party to that transaction who receives a copy of the work also 398 | receives whatever licenses to the work the party's predecessor in interest had or 399 | could give under the previous paragraph, plus a right to possession of the 400 | Corresponding Source of the work from the predecessor in interest, if the predecessor 401 | has it or can get it with reasonable efforts. 402 | 403 | You may not impose any further restrictions on the exercise of the rights granted or 404 | affirmed under this License. For example, you may not impose a license fee, royalty, 405 | or other charge for exercise of rights granted under this License, and you may not 406 | initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging 407 | that any patent claim is infringed by making, using, selling, offering for sale, or 408 | importing the Program or any portion of it. 409 | 410 | ### 11. Patents 411 | 412 | A “contributor” is a copyright holder who authorizes use under this 413 | License of the Program or a work on which the Program is based. The work thus 414 | licensed is called the contributor's “contributor version”. 415 | 416 | A contributor's “essential patent claims” are all patent claims owned or 417 | controlled by the contributor, whether already acquired or hereafter acquired, that 418 | would be infringed by some manner, permitted by this License, of making, using, or 419 | selling its contributor version, but do not include claims that would be infringed 420 | only as a consequence of further modification of the contributor version. For 421 | purposes of this definition, “control” includes the right to grant patent 422 | sublicenses in a manner consistent with the requirements of this License. 423 | 424 | Each contributor grants you a non-exclusive, worldwide, royalty-free patent license 425 | under the contributor's essential patent claims, to make, use, sell, offer for sale, 426 | import and otherwise run, modify and propagate the contents of its contributor 427 | version. 428 | 429 | In the following three paragraphs, a “patent license” is any express 430 | agreement or commitment, however denominated, not to enforce a patent (such as an 431 | express permission to practice a patent or covenant not to sue for patent 432 | infringement). To “grant” such a patent license to a party means to make 433 | such an agreement or commitment not to enforce a patent against the party. 434 | 435 | If you convey a covered work, knowingly relying on a patent license, and the 436 | Corresponding Source of the work is not available for anyone to copy, free of charge 437 | and under the terms of this License, through a publicly available network server or 438 | other readily accessible means, then you must either **(1)** cause the Corresponding 439 | Source to be so available, or **(2)** arrange to deprive yourself of the benefit of the 440 | patent license for this particular work, or **(3)** arrange, in a manner consistent with 441 | the requirements of this License, to extend the patent license to downstream 442 | recipients. “Knowingly relying” means you have actual knowledge that, but 443 | for the patent license, your conveying the covered work in a country, or your 444 | recipient's use of the covered work in a country, would infringe one or more 445 | identifiable patents in that country that you have reason to believe are valid. 446 | 447 | If, pursuant to or in connection with a single transaction or arrangement, you 448 | convey, or propagate by procuring conveyance of, a covered work, and grant a patent 449 | license to some of the parties receiving the covered work authorizing them to use, 450 | propagate, modify or convey a specific copy of the covered work, then the patent 451 | license you grant is automatically extended to all recipients of the covered work and 452 | works based on it. 453 | 454 | A patent license is “discriminatory” if it does not include within the 455 | scope of its coverage, prohibits the exercise of, or is conditioned on the 456 | non-exercise of one or more of the rights that are specifically granted under this 457 | License. You may not convey a covered work if you are a party to an arrangement with 458 | a third party that is in the business of distributing software, under which you make 459 | payment to the third party based on the extent of your activity of conveying the 460 | work, and under which the third party grants, to any of the parties who would receive 461 | the covered work from you, a discriminatory patent license **(a)** in connection with 462 | copies of the covered work conveyed by you (or copies made from those copies), or **(b)** 463 | primarily for and in connection with specific products or compilations that contain 464 | the covered work, unless you entered into that arrangement, or that patent license 465 | was granted, prior to 28 March 2007. 466 | 467 | Nothing in this License shall be construed as excluding or limiting any implied 468 | license or other defenses to infringement that may otherwise be available to you 469 | under applicable patent law. 470 | 471 | ### 12. No Surrender of Others' Freedom 472 | 473 | If conditions are imposed on you (whether by court order, agreement or otherwise) 474 | that contradict the conditions of this License, they do not excuse you from the 475 | conditions of this License. If you cannot convey a covered work so as to satisfy 476 | simultaneously your obligations under this License and any other pertinent 477 | obligations, then as a consequence you may not convey it at all. For example, if you 478 | agree to terms that obligate you to collect a royalty for further conveying from 479 | those to whom you convey the Program, the only way you could satisfy both those terms 480 | and this License would be to refrain entirely from conveying the Program. 481 | 482 | ### 13. Use with the GNU Affero General Public License 483 | 484 | Notwithstanding any other provision of this License, you have permission to link or 485 | combine any covered work with a work licensed under version 3 of the GNU Affero 486 | General Public License into a single combined work, and to convey the resulting work. 487 | The terms of this License will continue to apply to the part which is the covered 488 | work, but the special requirements of the GNU Affero General Public License, section 489 | 13, concerning interaction through a network will apply to the combination as such. 490 | 491 | ### 14. Revised Versions of this License 492 | 493 | The Free Software Foundation may publish revised and/or new versions of the GNU 494 | General Public License from time to time. Such new versions will be similar in spirit 495 | to the present version, but may differ in detail to address new problems or concerns. 496 | 497 | Each version is given a distinguishing version number. If the Program specifies that 498 | a certain numbered version of the GNU General Public License “or any later 499 | version” applies to it, you have the option of following the terms and 500 | conditions either of that numbered version or of any later version published by the 501 | Free Software Foundation. If the Program does not specify a version number of the GNU 502 | General Public License, you may choose any version ever published by the Free 503 | Software Foundation. 504 | 505 | If the Program specifies that a proxy can decide which future versions of the GNU 506 | General Public License can be used, that proxy's public statement of acceptance of a 507 | version permanently authorizes you to choose that version for the Program. 508 | 509 | Later license versions may give you additional or different permissions. However, no 510 | additional obligations are imposed on any author or copyright holder as a result of 511 | your choosing to follow a later version. 512 | 513 | ### 15. Disclaimer of Warranty 514 | 515 | THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. 516 | EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES 517 | PROVIDE THE PROGRAM “AS IS” WITHOUT WARRANTY OF ANY KIND, EITHER 518 | EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF 519 | MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE 520 | QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE 521 | DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 522 | 523 | ### 16. Limitation of Liability 524 | 525 | IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY 526 | COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS 527 | PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, 528 | INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE 529 | PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE 530 | OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE 531 | WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE 532 | POSSIBILITY OF SUCH DAMAGES. 533 | 534 | ### 17. Interpretation of Sections 15 and 16 535 | 536 | If the disclaimer of warranty and limitation of liability provided above cannot be 537 | given local legal effect according to their terms, reviewing courts shall apply local 538 | law that most closely approximates an absolute waiver of all civil liability in 539 | connection with the Program, unless a warranty or assumption of liability accompanies 540 | a copy of the Program in return for a fee. 541 | 542 | _END OF TERMS AND CONDITIONS_ 543 | 544 | ## How to Apply These Terms to Your New Programs 545 | 546 | If you develop a new program, and you want it to be of the greatest possible use to 547 | the public, the best way to achieve this is to make it free software which everyone 548 | can redistribute and change under these terms. 549 | 550 | To do so, attach the following notices to the program. It is safest to attach them 551 | to the start of each source file to most effectively state the exclusion of warranty; 552 | and each file should have at least the “copyright” line and a pointer to 553 | where the full notice is found. 554 | 555 | 556 | Copyright (C) 2020 Tomasz Kalinowski 557 | 558 | This program is free software: you can redistribute it and/or modify 559 | it under the terms of the GNU General Public License as published by 560 | the Free Software Foundation, either version 3 of the License, or 561 | (at your option) any later version. 562 | 563 | This program is distributed in the hope that it will be useful, 564 | but WITHOUT ANY WARRANTY; without even the implied warranty of 565 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 566 | GNU General Public License for more details. 567 | 568 | You should have received a copy of the GNU General Public License 569 | along with this program. If not, see . 570 | 571 | Also add information on how to contact you by electronic and paper mail. 572 | 573 | If the program does terminal interaction, make it output a short notice like this 574 | when it starts in an interactive mode: 575 | 576 | RFI Copyright (C) 2020 Tomasz Kalinowski 577 | This program comes with ABSOLUTELY NO WARRANTY; for details type 'show w'. 578 | This is free software, and you are welcome to redistribute it 579 | under certain conditions; type 'show c' for details. 580 | 581 | The hypothetical commands `show w` and `show c` should show the appropriate parts of 582 | the General Public License. Of course, your program's commands might be different; 583 | for a GUI interface, you would use an “about box”. 584 | 585 | You should also get your employer (if you work as a programmer) or school, if any, to 586 | sign a “copyright disclaimer” for the program, if necessary. For more 587 | information on this, and how to apply and follow the GNU GPL, see 588 | <>. 589 | 590 | The GNU General Public License does not permit incorporating your program into 591 | proprietary programs. If your program is a subroutine library, you may consider it 592 | more useful to permit linking proprietary applications with the library. If this is 593 | what you want to do, use the GNU Lesser General Public License instead of this 594 | License. But first, please read 595 | <>. 596 | -------------------------------------------------------------------------------- /src/rfi.c: -------------------------------------------------------------------------------- 1 | #define R_NO_REMAP 2 | #include 3 | #include 4 | #include 5 | #include 6 | #include 7 | #include 8 | #include 9 | 10 | typedef CFI_CDESC_T(CFI_MAX_RANK) CFI_cdesc_anyrank_t; 11 | 12 | 13 | CFI_cdesc_anyrank_t as_c_descriptor(SEXP x) { 14 | CFI_rank_t rank = 0; 15 | 16 | SEXP x_dim = Rf_getAttrib(x, R_DimSymbol); // GET_DIM(x) 17 | int *dims; 18 | int x_len = LENGTH(x); 19 | if (x_dim != R_NilValue) { 20 | rank = (CFI_rank_t)LENGTH(x_dim); 21 | dims = INTEGER(x_dim); 22 | } else { 23 | rank = x_len > 1; 24 | dims = &x_len; 25 | } 26 | 27 | // extent is ignored for rank == 0 28 | CFI_index_t extent[rank]; 29 | 30 | for (CFI_rank_t r = 0; r < rank; r++) 31 | extent[r] = (CFI_index_t)dims[r]; 32 | 33 | CFI_cdesc_anyrank_t desc = {0}; 34 | if (rank == 0) { 35 | /* 36 | Technically, initializing the c descriptor to 0 above is not compliant with 37 | the fortran language standard, since descriptors should only be modified 38 | and created through the CFI_* macros + functions. However, in gfortran 9.2 39 | and 9.3, passing of scalars (rank 0) c descriptors appears to be broken; 40 | this is a hack around that where we use the allocated memory for the struct 41 | to instead store a pointer to the R scalar value. Later in the call we take 42 | a pointer to the struct and cast it as a pointer to CFI_cdesc_t, but that 43 | doesn't seem to impact how the value is read on the fortran side, since the 44 | fortran subroutine manifest is what's consulted to get the pointer type. 45 | */ 46 | desc = *((CFI_cdesc_anyrank_t *)DATAPTR(x)); 47 | return desc; 48 | } 49 | 50 | CFI_type_t type; 51 | switch (TYPEOF(x)) { 52 | case LGLSXP: { 53 | type = CFI_type_Bool; 54 | /* 55 | make a cdescripter that is strided view of the underlying R (int)logical array, 56 | looking only at the first byte of each int. the only cdescriptor that can be a fortran logical 57 | is for a C Bool array, so this is the best way short of doing a full copy. Many fortran 58 | routines will likely do a copy-in copy-out anyway since the cdescriptor describes an array that 59 | is not contiguous. 60 | TODO: FIXME: don't assume endiannes 61 | */ 62 | 63 | CFI_index_t lower[rank + 1], upper[rank + 1], stride[rank + 1], new_extent[rank + 1]; 64 | new_extent[0] = 4; 65 | stride[0] = lower[0] = upper[0] = 0; 66 | 67 | for (CFI_rank_t r = 1; r <= rank; r++) { 68 | lower[r] = 0; 69 | new_extent[r] = extent[r - 1]; 70 | upper[r] = extent[r - 1] - 1; 71 | stride[r] = 1; 72 | } 73 | 74 | CFI_CDESC_T(rank + 1) tmp_cdesc; 75 | CFI_establish((CFI_cdesc_t *)&tmp_cdesc, DATAPTR(x), CFI_attribute_other, type, 0, rank + 1, 76 | new_extent); 77 | CFI_establish((CFI_cdesc_t *)&desc, 0, CFI_attribute_other, type, 0, rank, extent); 78 | CFI_section((CFI_cdesc_t *)&desc, (CFI_cdesc_t *)&tmp_cdesc, lower, upper, stride); 79 | 80 | return (desc); 81 | } 82 | // case STRSXP: { 83 | // type = CFI_type_char; 84 | // if (x_len != 1) 85 | // Rf_error("Only character vectors of length 1 supported"); 86 | 87 | // // CHAR() is meant to be read-only. 88 | // // How to enforce the fortran routine does not modify? 89 | // void *data = CHAR(STRING_ELT(x, 0)); 90 | 91 | // } 92 | case INTSXP: { 93 | type = CFI_type_int; 94 | break; 95 | } 96 | case REALSXP: { 97 | type = CFI_type_double; 98 | break; 99 | } 100 | case CPLXSXP: { 101 | type = CFI_type_double_Complex; 102 | break; 103 | } 104 | case RAWSXP: { 105 | // TODO: assert that int8_t is same size as Rbyte 106 | // TODO: should we use c_char here instead? 107 | type = CFI_type_int8_t; 108 | break; 109 | } 110 | default: 111 | Rf_error("Unsupported type"); 112 | } 113 | 114 | CFI_establish((CFI_cdesc_t *)&desc, DATAPTR(x), CFI_attribute_other, type, 0, rank, extent); 115 | return desc; 116 | } 117 | 118 | void call_fortran_subroutine(const DL_FUNC fsub, const unsigned nargs, CFI_cdesc_anyrank_t args[]); 119 | 120 | SEXP dot_ModernFortran(SEXP fsub_sexp, SEXP args, SEXP dup_s) { 121 | DL_FUNC fsub = R_ExternalPtrAddrFn(fsub_sexp); 122 | unsigned nargs = LENGTH(args); 123 | 124 | SEXP retval = args; 125 | unsigned n_protected = 0; 126 | switch (TYPEOF(dup_s)) { 127 | case LGLSXP: { 128 | if (Rf_asLogical(dup_s)) { 129 | retval = PROTECT(Rf_duplicate(retval)); 130 | n_protected++; 131 | } 132 | break; 133 | } 134 | case INTSXP: { 135 | unsigned n_dups = LENGTH(dup_s); 136 | int *di = INTEGER(dup_s); 137 | for (unsigned n = n_dups; n; n--) { 138 | // no need to PROTECT since we're assigning right away to a protected list 139 | SET_VECTOR_ELT(args, *di, Rf_duplicate(VECTOR_ELT(args, *di))); 140 | di++; 141 | } 142 | break; 143 | } 144 | default: 145 | Rf_error("Argument passed to dup must be a scalar logical or an integer vector"); 146 | } 147 | 148 | CFI_cdesc_anyrank_t *fargs = (CFI_cdesc_anyrank_t *)R_alloc(nargs, sizeof(CFI_cdesc_anyrank_t)); 149 | for (unsigned i = 0; i < nargs; i++) 150 | fargs[i] = as_c_descriptor(VECTOR_ELT(retval, i)); 151 | 152 | call_fortran_subroutine(fsub, nargs, fargs); 153 | 154 | if (n_protected) 155 | UNPROTECT(n_protected); 156 | return (retval); 157 | } 158 | 159 | #define CALLDEF(name, n) {#name, (DL_FUNC) &name, n} 160 | 161 | static const R_CallMethodDef CallEntries[] = { 162 | CALLDEF(dot_ModernFortran, 2), 163 | {NULL, NULL, 0}}; 164 | 165 | void R_init_RFI(DllInfo *dll) { 166 | R_registerRoutines(dll, NULL, CallEntries, NULL, NULL); 167 | R_useDynamicSymbols(dll, FALSE); 168 | R_forceSymbols(dll, TRUE); 169 | } 170 | 171 | void call_fortran_subroutine(const DL_FUNC fsub, const unsigned nargs, CFI_cdesc_anyrank_t args[]) { 172 | switch (nargs) { 173 | case 0: 174 | fsub(); 175 | break; 176 | case 1: 177 | fsub((CFI_cdesc_t *)&(args[0])); 178 | break; 179 | case 2: 180 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1])); 181 | break; 182 | case 3: 183 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2])); 184 | break; 185 | case 4: 186 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 187 | (CFI_cdesc_t *)&(args[3])); 188 | break; 189 | case 5: 190 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 191 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4])); 192 | break; 193 | case 6: 194 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 195 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5])); 196 | break; 197 | case 7: 198 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 199 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 200 | (CFI_cdesc_t *)&(args[6])); 201 | break; 202 | case 8: 203 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 204 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 205 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7])); 206 | break; 207 | case 9: 208 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 209 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 210 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8])); 211 | break; 212 | case 10: 213 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 214 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 215 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 216 | (CFI_cdesc_t *)&(args[9])); 217 | break; 218 | case 11: 219 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 220 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 221 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 222 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10])); 223 | break; 224 | case 12: 225 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 226 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 227 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 228 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11])); 229 | break; 230 | case 13: 231 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 232 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 233 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 234 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 235 | (CFI_cdesc_t *)&(args[12])); 236 | break; 237 | case 14: 238 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 239 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 240 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 241 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 242 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13])); 243 | break; 244 | case 15: 245 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 246 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 247 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 248 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 249 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14])); 250 | break; 251 | case 16: 252 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 253 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 254 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 255 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 256 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 257 | (CFI_cdesc_t *)&(args[15])); 258 | break; 259 | case 17: 260 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 261 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 262 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 263 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 264 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 265 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16])); 266 | break; 267 | case 18: 268 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 269 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 270 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 271 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 272 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 273 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17])); 274 | break; 275 | case 19: 276 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 277 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 278 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 279 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 280 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 281 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 282 | (CFI_cdesc_t *)&(args[18])); 283 | break; 284 | case 20: 285 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 286 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 287 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 288 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 289 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 290 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 291 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19])); 292 | break; 293 | case 21: 294 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 295 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 296 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 297 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 298 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 299 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 300 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20])); 301 | break; 302 | case 22: 303 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 304 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 305 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 306 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 307 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 308 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 309 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 310 | (CFI_cdesc_t *)&(args[21])); 311 | break; 312 | case 23: 313 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 314 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 315 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 316 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 317 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 318 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 319 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 320 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22])); 321 | break; 322 | case 24: 323 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 324 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 325 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 326 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 327 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 328 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 329 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 330 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23])); 331 | break; 332 | case 25: 333 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 334 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 335 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 336 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 337 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 338 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 339 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 340 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 341 | (CFI_cdesc_t *)&(args[24])); 342 | break; 343 | case 26: 344 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 345 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 346 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 347 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 348 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 349 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 350 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 351 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 352 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25])); 353 | break; 354 | case 27: 355 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 356 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 357 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 358 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 359 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 360 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 361 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 362 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 363 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26])); 364 | break; 365 | case 28: 366 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 367 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 368 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 369 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 370 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 371 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 372 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 373 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 374 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 375 | (CFI_cdesc_t *)&(args[27])); 376 | break; 377 | case 29: 378 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 379 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 380 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 381 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 382 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 383 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 384 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 385 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 386 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 387 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28])); 388 | break; 389 | case 30: 390 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 391 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 392 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 393 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 394 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 395 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 396 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 397 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 398 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 399 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29])); 400 | break; 401 | case 31: 402 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 403 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 404 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 405 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 406 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 407 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 408 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 409 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 410 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 411 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 412 | (CFI_cdesc_t *)&(args[30])); 413 | break; 414 | case 32: 415 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 416 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 417 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 418 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 419 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 420 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 421 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 422 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 423 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 424 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 425 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31])); 426 | break; 427 | case 33: 428 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 429 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 430 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 431 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 432 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 433 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 434 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 435 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 436 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 437 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 438 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32])); 439 | break; 440 | case 34: 441 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 442 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 443 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 444 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 445 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 446 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 447 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 448 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 449 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 450 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 451 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 452 | (CFI_cdesc_t *)&(args[33])); 453 | break; 454 | case 35: 455 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 456 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 457 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 458 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 459 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 460 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 461 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 462 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 463 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 464 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 465 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 466 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34])); 467 | break; 468 | case 36: 469 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 470 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 471 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 472 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 473 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 474 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 475 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 476 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 477 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 478 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 479 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 480 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35])); 481 | break; 482 | case 37: 483 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 484 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 485 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 486 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 487 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 488 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 489 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 490 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 491 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 492 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 493 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 494 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 495 | (CFI_cdesc_t *)&(args[36])); 496 | break; 497 | case 38: 498 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 499 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 500 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 501 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 502 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 503 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 504 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 505 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 506 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 507 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 508 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 509 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 510 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37])); 511 | break; 512 | case 39: 513 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 514 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 515 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 516 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 517 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 518 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 519 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 520 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 521 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 522 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 523 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 524 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 525 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38])); 526 | break; 527 | case 40: 528 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 529 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 530 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 531 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 532 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 533 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 534 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 535 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 536 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 537 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 538 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 539 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 540 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 541 | (CFI_cdesc_t *)&(args[39])); 542 | break; 543 | case 41: 544 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 545 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 546 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 547 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 548 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 549 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 550 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 551 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 552 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 553 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 554 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 555 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 556 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 557 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40])); 558 | break; 559 | case 42: 560 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 561 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 562 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 563 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 564 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 565 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 566 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 567 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 568 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 569 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 570 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 571 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 572 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 573 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41])); 574 | break; 575 | case 43: 576 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 577 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 578 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 579 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 580 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 581 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 582 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 583 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 584 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 585 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 586 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 587 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 588 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 589 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 590 | (CFI_cdesc_t *)&(args[42])); 591 | break; 592 | case 44: 593 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 594 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 595 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 596 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 597 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 598 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 599 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 600 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 601 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 602 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 603 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 604 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 605 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 606 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 607 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43])); 608 | break; 609 | case 45: 610 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 611 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 612 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 613 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 614 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 615 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 616 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 617 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 618 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 619 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 620 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 621 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 622 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 623 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 624 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44])); 625 | break; 626 | case 46: 627 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 628 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 629 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 630 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 631 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 632 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 633 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 634 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 635 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 636 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 637 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 638 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 639 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 640 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 641 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 642 | (CFI_cdesc_t *)&(args[45])); 643 | break; 644 | case 47: 645 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 646 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 647 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 648 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 649 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 650 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 651 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 652 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 653 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 654 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 655 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 656 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 657 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 658 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 659 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 660 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46])); 661 | break; 662 | case 48: 663 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 664 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 665 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 666 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 667 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 668 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 669 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 670 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 671 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 672 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 673 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 674 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 675 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 676 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 677 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 678 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47])); 679 | break; 680 | case 49: 681 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 682 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 683 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 684 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 685 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 686 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 687 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 688 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 689 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 690 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 691 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 692 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 693 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 694 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 695 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 696 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 697 | (CFI_cdesc_t *)&(args[48])); 698 | break; 699 | case 50: 700 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 701 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 702 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 703 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 704 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 705 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 706 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 707 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 708 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 709 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 710 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 711 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 712 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 713 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 714 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 715 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 716 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49])); 717 | break; 718 | case 51: 719 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 720 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 721 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 722 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 723 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 724 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 725 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 726 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 727 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 728 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 729 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 730 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 731 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 732 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 733 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 734 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 735 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50])); 736 | break; 737 | case 52: 738 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 739 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 740 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 741 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 742 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 743 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 744 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 745 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 746 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 747 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 748 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 749 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 750 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 751 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 752 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 753 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 754 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 755 | (CFI_cdesc_t *)&(args[51])); 756 | break; 757 | case 53: 758 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 759 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 760 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 761 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 762 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 763 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 764 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 765 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 766 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 767 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 768 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 769 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 770 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 771 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 772 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 773 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 774 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 775 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52])); 776 | break; 777 | case 54: 778 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 779 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 780 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 781 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 782 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 783 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 784 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 785 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 786 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 787 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 788 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 789 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 790 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 791 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 792 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 793 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 794 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 795 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53])); 796 | break; 797 | case 55: 798 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 799 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 800 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 801 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 802 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 803 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 804 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 805 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 806 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 807 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 808 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 809 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 810 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 811 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 812 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 813 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 814 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 815 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 816 | (CFI_cdesc_t *)&(args[54])); 817 | break; 818 | case 56: 819 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 820 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 821 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 822 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 823 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 824 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 825 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 826 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 827 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 828 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 829 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 830 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 831 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 832 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 833 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 834 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 835 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 836 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 837 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55])); 838 | break; 839 | case 57: 840 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 841 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 842 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 843 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 844 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 845 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 846 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 847 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 848 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 849 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 850 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 851 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 852 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 853 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 854 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 855 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 856 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 857 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 858 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56])); 859 | break; 860 | case 58: 861 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 862 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 863 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 864 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 865 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 866 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 867 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 868 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 869 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 870 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 871 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 872 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 873 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 874 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 875 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 876 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 877 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 878 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 879 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56]), 880 | (CFI_cdesc_t *)&(args[57])); 881 | break; 882 | case 59: 883 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 884 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 885 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 886 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 887 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 888 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 889 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 890 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 891 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 892 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 893 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 894 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 895 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 896 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 897 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 898 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 899 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 900 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 901 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56]), 902 | (CFI_cdesc_t *)&(args[57]), (CFI_cdesc_t *)&(args[58])); 903 | break; 904 | case 60: 905 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 906 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 907 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 908 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 909 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 910 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 911 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 912 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 913 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 914 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 915 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 916 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 917 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 918 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 919 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 920 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 921 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 922 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 923 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56]), 924 | (CFI_cdesc_t *)&(args[57]), (CFI_cdesc_t *)&(args[58]), (CFI_cdesc_t *)&(args[59])); 925 | break; 926 | case 61: 927 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 928 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 929 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 930 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 931 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 932 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 933 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 934 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 935 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 936 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 937 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 938 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 939 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 940 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 941 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 942 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 943 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 944 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 945 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56]), 946 | (CFI_cdesc_t *)&(args[57]), (CFI_cdesc_t *)&(args[58]), (CFI_cdesc_t *)&(args[59]), 947 | (CFI_cdesc_t *)&(args[60])); 948 | break; 949 | case 62: 950 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 951 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 952 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 953 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 954 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 955 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 956 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 957 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 958 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 959 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 960 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 961 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 962 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 963 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 964 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 965 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 966 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 967 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 968 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56]), 969 | (CFI_cdesc_t *)&(args[57]), (CFI_cdesc_t *)&(args[58]), (CFI_cdesc_t *)&(args[59]), 970 | (CFI_cdesc_t *)&(args[60]), (CFI_cdesc_t *)&(args[61])); 971 | break; 972 | case 63: 973 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 974 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 975 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 976 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 977 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 978 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 979 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 980 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 981 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 982 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 983 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 984 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 985 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 986 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 987 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 988 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 989 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 990 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 991 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56]), 992 | (CFI_cdesc_t *)&(args[57]), (CFI_cdesc_t *)&(args[58]), (CFI_cdesc_t *)&(args[59]), 993 | (CFI_cdesc_t *)&(args[60]), (CFI_cdesc_t *)&(args[61]), (CFI_cdesc_t *)&(args[62])); 994 | break; 995 | case 64: 996 | fsub((CFI_cdesc_t *)&(args[0]), (CFI_cdesc_t *)&(args[1]), (CFI_cdesc_t *)&(args[2]), 997 | (CFI_cdesc_t *)&(args[3]), (CFI_cdesc_t *)&(args[4]), (CFI_cdesc_t *)&(args[5]), 998 | (CFI_cdesc_t *)&(args[6]), (CFI_cdesc_t *)&(args[7]), (CFI_cdesc_t *)&(args[8]), 999 | (CFI_cdesc_t *)&(args[9]), (CFI_cdesc_t *)&(args[10]), (CFI_cdesc_t *)&(args[11]), 1000 | (CFI_cdesc_t *)&(args[12]), (CFI_cdesc_t *)&(args[13]), (CFI_cdesc_t *)&(args[14]), 1001 | (CFI_cdesc_t *)&(args[15]), (CFI_cdesc_t *)&(args[16]), (CFI_cdesc_t *)&(args[17]), 1002 | (CFI_cdesc_t *)&(args[18]), (CFI_cdesc_t *)&(args[19]), (CFI_cdesc_t *)&(args[20]), 1003 | (CFI_cdesc_t *)&(args[21]), (CFI_cdesc_t *)&(args[22]), (CFI_cdesc_t *)&(args[23]), 1004 | (CFI_cdesc_t *)&(args[24]), (CFI_cdesc_t *)&(args[25]), (CFI_cdesc_t *)&(args[26]), 1005 | (CFI_cdesc_t *)&(args[27]), (CFI_cdesc_t *)&(args[28]), (CFI_cdesc_t *)&(args[29]), 1006 | (CFI_cdesc_t *)&(args[30]), (CFI_cdesc_t *)&(args[31]), (CFI_cdesc_t *)&(args[32]), 1007 | (CFI_cdesc_t *)&(args[33]), (CFI_cdesc_t *)&(args[34]), (CFI_cdesc_t *)&(args[35]), 1008 | (CFI_cdesc_t *)&(args[36]), (CFI_cdesc_t *)&(args[37]), (CFI_cdesc_t *)&(args[38]), 1009 | (CFI_cdesc_t *)&(args[39]), (CFI_cdesc_t *)&(args[40]), (CFI_cdesc_t *)&(args[41]), 1010 | (CFI_cdesc_t *)&(args[42]), (CFI_cdesc_t *)&(args[43]), (CFI_cdesc_t *)&(args[44]), 1011 | (CFI_cdesc_t *)&(args[45]), (CFI_cdesc_t *)&(args[46]), (CFI_cdesc_t *)&(args[47]), 1012 | (CFI_cdesc_t *)&(args[48]), (CFI_cdesc_t *)&(args[49]), (CFI_cdesc_t *)&(args[50]), 1013 | (CFI_cdesc_t *)&(args[51]), (CFI_cdesc_t *)&(args[52]), (CFI_cdesc_t *)&(args[53]), 1014 | (CFI_cdesc_t *)&(args[54]), (CFI_cdesc_t *)&(args[55]), (CFI_cdesc_t *)&(args[56]), 1015 | (CFI_cdesc_t *)&(args[57]), (CFI_cdesc_t *)&(args[58]), (CFI_cdesc_t *)&(args[59]), 1016 | (CFI_cdesc_t *)&(args[60]), (CFI_cdesc_t *)&(args[61]), (CFI_cdesc_t *)&(args[62]), 1017 | (CFI_cdesc_t *)&(args[63])); 1018 | break; 1019 | default: 1020 | Rf_error("too many arguments"); 1021 | } 1022 | } 1023 | 1024 | /* 1025 | # build body of call_fortran_subroutine 1026 | library(glue);library(magrittr) 1027 | seq_len0 <- function(i) seq.int(0, i-1) 1028 | build_args <- function(i) { 1029 | paste0( 1030 | sprintf("(CFI_cdesc_t *)&(args[%i])", seq_len0(i)), 1031 | collapse = ",") 1032 | } 1033 | 1034 | build_case_branch <- function(i) { 1035 | glue(" 1036 | case {i}: 1037 | fsub({build_args(i)}); 1038 | break; 1039 | ") 1040 | } 1041 | 1042 | lapply(seq_len0(65), build_case_branch) %>% 1043 | unlist() %>% paste0(collapse = '\n') %>% 1044 | clipr::write_clip() 1045 | */ 1046 | --------------------------------------------------------------------------------