share/hompack/lisp/hfunp.lisp

   1 ;;; Compiled by f2cl version:
   2 ;;; ("f2cl1.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
   3 ;;;  "f2cl2.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
   4 ;;;  "f2cl3.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
   5 ;;;  "f2cl4.l,v 96616d88fb7e 2008/02/22 22:19:34 rtoy $"
   6 ;;;  "f2cl5.l,v 95098eb54f13 2013/04/01 00:45:16 toy $"
   7 ;;;  "f2cl6.l,v 1d5cbacbb977 2008/08/24 00:56:27 rtoy $"
   8 ;;;  "macros.l,v 1409c1352feb 2013/03/24 20:44:50 toy $")
   9
  10 ;;; Using Lisp CMU Common Lisp snapshot-2020-04 (21D Unicode)
  11 ;;;
  12 ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
  13 ;;;           (:coerce-assigns :as-needed) (:array-type ':array)
  14 ;;;           (:array-slicing t) (:declare-common nil)
  15 ;;;           (:float-format double-float))
  16
  17 (in-package "HOMPACK")
  18
  19
  20 (defun hfunp (qdg lambda$ x par ipar)
  21   (declare (type (array f2cl-lib:integer4 (*)) ipar)
  22            (type (array double-float (*)) par)
  23            (type (double-float) lambda$)
  24            (type (array double-float (*)) x qdg))
  25   (f2cl-lib:with-multi-array-data
  26       ((qdg double-float qdg-%data% qdg-%offset%)
  27        (x double-float x-%data% x-%offset%)
  28        (par double-float par-%data% par-%offset%)
  29        (ipar f2cl-lib:integer4 ipar-%data% ipar-%offset%))
  30     (prog ()
  31       (declare)
  32       (hfun1p qdg lambda$ x
  33        (f2cl-lib:array-slice par-%data%
  34                              double-float
  35                              ((f2cl-lib:fref ipar
  36                                              ((+ 3
  37                                                  (f2cl-lib:int-add 1
  38                                                                    (f2cl-lib:int-sub
  39                                                                     1))))
  40                                              ((1 *))))
  41                              ((1 *))
  42                              par-%offset%)
  43        (f2cl-lib:array-slice par-%data%
  44                              double-float
  45                              ((f2cl-lib:fref ipar
  46                                              ((+ 3
  47                                                  (f2cl-lib:int-add 2
  48                                                                    (f2cl-lib:int-sub
  49                                                                     1))))
  50                                              ((1 *))))
  51                              ((1 *))
  52                              par-%offset%)
  53        (f2cl-lib:array-slice par-%data%
  54                              double-float
  55                              ((f2cl-lib:fref ipar
  56                                              ((+ 3
  57                                                  (f2cl-lib:int-add 3
  58                                                                    (f2cl-lib:int-sub
  59                                                                     1))))
  60                                              ((1 *))))
  61                              ((1 *))
  62                              par-%offset%)
  63        (f2cl-lib:array-slice par-%data%
  64                              double-float
  65                              ((f2cl-lib:fref ipar
  66                                              ((+ 3
  67                                                  (f2cl-lib:int-add 4
  68                                                                    (f2cl-lib:int-sub
  69                                                                     1))))
  70                                              ((1 *))))
  71                              ((1 *))
  72                              par-%offset%)
  73        (f2cl-lib:array-slice par-%data%
  74                              double-float
  75                              ((f2cl-lib:fref ipar
  76                                              ((+ 3
  77                                                  (f2cl-lib:int-add 5
  78                                                                    (f2cl-lib:int-sub
  79                                                                     1))))
  80                                              ((1 *))))
  81                              ((1 *))
  82                              par-%offset%)
  83        (f2cl-lib:array-slice par-%data%
  84                              double-float
  85                              ((f2cl-lib:fref ipar
  86                                              ((+ 3
  87                                                  (f2cl-lib:int-add 6
  88                                                                    (f2cl-lib:int-sub
  89                                                                     1))))
  90                                              ((1 *))))
  91                              ((1 *))
  92                              par-%offset%)
  93        (f2cl-lib:array-slice par-%data%
  94                              double-float
  95                              ((f2cl-lib:fref ipar
  96                                              ((+ 3
  97                                                  (f2cl-lib:int-add 7
  98                                                                    (f2cl-lib:int-sub
  99                                                                     1))))
 100                                              ((1 *))))
 101                              ((1 *))
 102                              par-%offset%)
 103        (f2cl-lib:array-slice par-%data%
 104                              double-float
 105                              ((f2cl-lib:fref ipar
 106                                              ((+ 3
 107                                                  (f2cl-lib:int-add 8
 108                                                                    (f2cl-lib:int-sub
 109                                                                     1))))
 110                                              ((1 *))))
 111                              ((1 *))
 112                              par-%offset%)
 113        (f2cl-lib:array-slice par-%data%
 114                              double-float
 115                              ((f2cl-lib:fref ipar
 116                                              ((+ 3
 117                                                  (f2cl-lib:int-add 9
 118                                                                    (f2cl-lib:int-sub
 119                                                                     1))))
 120                                              ((1 *))))
 121                              ((1 *))
 122                              par-%offset%)
 123        (f2cl-lib:array-slice par-%data%
 124                              double-float
 125                              ((f2cl-lib:fref ipar
 126                                              ((+ 3
 127                                                  (f2cl-lib:int-add 10
 128                                                                    (f2cl-lib:int-sub
 129                                                                     1))))
 130                                              ((1 *))))
 131                              ((1 *))
 132                              par-%offset%)
 133        (f2cl-lib:array-slice par-%data%
 134                              double-float
 135                              ((f2cl-lib:fref ipar
 136                                              ((+ 3
 137                                                  (f2cl-lib:int-add 11
 138                                                                    (f2cl-lib:int-sub
 139                                                                     1))))
 140                                              ((1 *))))
 141                              ((1 *))
 142                              par-%offset%)
 143        (f2cl-lib:array-slice par-%data%
 144                              double-float
 145                              ((f2cl-lib:fref ipar
 146                                              ((+ 3
 147                                                  (f2cl-lib:int-add 12
 148                                                                    (f2cl-lib:int-sub
 149                                                                     1))))
 150                                              ((1 *))))
 151                              ((1 *))
 152                              par-%offset%)
 153        (f2cl-lib:array-slice par-%data%
 154                              double-float
 155                              ((f2cl-lib:fref ipar
 156                                              ((+ 3
 157                                                  (f2cl-lib:int-add 13
 158                                                                    (f2cl-lib:int-sub
 159                                                                     1))))
 160                                              ((1 *))))
 161                              ((1 *))
 162                              par-%offset%)
 163        (f2cl-lib:array-slice par-%data%
 164                              double-float
 165                              ((f2cl-lib:fref ipar
 166                                              ((+ 3
 167                                                  (f2cl-lib:int-add 14
 168                                                                    (f2cl-lib:int-sub
 169                                                                     1))))
 170                                              ((1 *))))
 171                              ((1 *))
 172                              par-%offset%)
 173        (f2cl-lib:array-slice par-%data%
 174                              double-float
 175                              ((f2cl-lib:fref ipar
 176                                              ((+ 3
 177                                                  (f2cl-lib:int-add 15
 178                                                                    (f2cl-lib:int-sub
 179                                                                     1))))
 180                                              ((1 *))))
 181                              ((1 *))
 182                              par-%offset%)
 183        (f2cl-lib:array-slice par-%data%
 184                              double-float
 185                              ((f2cl-lib:fref ipar
 186                                              ((+ 3
 187                                                  (f2cl-lib:int-add 16
 188                                                                    (f2cl-lib:int-sub
 189                                                                     1))))
 190                                              ((1 *))))
 191                              ((1 *))
 192                              par-%offset%)
 193        (f2cl-lib:array-slice par-%data%
 194                              double-float
 195                              ((f2cl-lib:fref ipar
 196                                              ((+ 3
 197                                                  (f2cl-lib:int-add 17
 198                                                                    (f2cl-lib:int-sub
 199                                                                     1))))
 200                                              ((1 *))))
 201                              ((1 *))
 202                              par-%offset%)
 203        (f2cl-lib:array-slice par-%data%
 204                              double-float
 205                              ((f2cl-lib:fref ipar
 206                                              ((+ 3
 207                                                  (f2cl-lib:int-add 18
 208                                                                    (f2cl-lib:int-sub
 209                                                                     1))))
 210                                              ((1 *))))
 211                              ((1 *))
 212                              par-%offset%)
 213        (f2cl-lib:array-slice par-%data%
 214                              double-float
 215                              ((f2cl-lib:fref ipar
 216                                              ((+ 3
 217                                                  (f2cl-lib:int-add 19
 218                                                                    (f2cl-lib:int-sub
 219                                                                     1))))
 220                                              ((1 *))))
 221                              ((1 *))
 222                              par-%offset%)
 223        (f2cl-lib:fref ipar-%data%
 224                       ((f2cl-lib:fref ipar
 225                                       ((f2cl-lib:int-add 28
 226                                                          (f2cl-lib:int-sub 1
 227                                                                            1)))
 228                                       ((1 *))))
 229                       ((1 *))
 230                       ipar-%offset%)
 231        (f2cl-lib:fref ipar-%data%
 232                       ((f2cl-lib:fref ipar
 233                                       ((f2cl-lib:int-add 28
 234                                                          (f2cl-lib:int-sub 2
 235                                                                            1)))
 236                                       ((1 *))))
 237                       ((1 *))
 238                       ipar-%offset%)
 239        (f2cl-lib:array-slice ipar-%data%
 240                              f2cl-lib:integer4
 241                              ((f2cl-lib:fref ipar
 242                                              ((+ 28
 243                                                  (f2cl-lib:int-add 5
 244                                                                    (f2cl-lib:int-sub
 245                                                                     1))))
 246                                              ((1 *))))
 247                              ((1 *))
 248                              ipar-%offset%)
 249        (f2cl-lib:array-slice ipar-%data%
 250                              f2cl-lib:integer4
 251                              ((f2cl-lib:fref ipar
 252                                              ((+ 28
 253                                                  (f2cl-lib:int-add 6
 254                                                                    (f2cl-lib:int-sub
 255                                                                     1))))
 256                                              ((1 *))))
 257                              ((1 *))
 258                              ipar-%offset%)
 259        (f2cl-lib:array-slice ipar-%data%
 260                              f2cl-lib:integer4
 261                              ((f2cl-lib:fref ipar
 262                                              ((+ 28
 263                                                  (f2cl-lib:int-add 7
 264                                                                    (f2cl-lib:int-sub
 265                                                                     1))))
 266                                              ((1 *))))
 267                              ((1 *))
 268                              ipar-%offset%))
 269       (go end_label)
 270      end_label
 271       (return (values nil nil nil nil nil)))))
 272
 273 (in-package #:cl-user)
 274 #+#.(cl:if (cl:find-package '#:f2cl) '(and) '(or))
 275 (eval-when (:load-toplevel :compile-toplevel :execute)
 276   (setf (gethash 'fortran-to-lisp::hfunp fortran-to-lisp::*f2cl-function-info*)
 277           (fortran-to-lisp::make-f2cl-finfo
 278            :arg-types '((array double-float (*)) (double-float)
 279                         (array double-float (*)) (array double-float (*))
 280                         (array fortran-to-lisp::integer4 (*)))
 281            :return-values '(nil nil nil nil nil)
 282            :calls '(fortran-to-lisp::hfun1p))))
 283