diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2015-11-27 17:40:16 +0100 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2015-11-27 17:40:16 +0100 |
commit | 09600666ecbbebe86830a937658465d046e13d06 (patch) | |
tree | f8140dfdec0fdfc11323d6c491f7680673bcc0de /lisp/ob-fortran.el | |
parent | 1be13d57dc8357576a8285c6dadc03db9e3ed7b0 (diff) |
Imported Upstream version 8.3.2
Diffstat (limited to 'lisp/ob-fortran.el')
-rw-r--r-- | lisp/ob-fortran.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/ob-fortran.el b/lisp/ob-fortran.el index baeb4ba..6390536 100644 --- a/lisp/ob-fortran.el +++ b/lisp/ob-fortran.el @@ -1,6 +1,6 @@ ;;; ob-fortran.el --- org-babel functions for fortran -;; Copyright (C) 2011-2014 Free Software Foundation, Inc. +;; Copyright (C) 2011-2015 Free Software Foundation, Inc. ;; Authors: Sergey Litvinov ;; Eric Schulte @@ -110,7 +110,7 @@ it's header arguments." "Wrap body in a \"program ... end program\" block if none exists." (if (string-match "^[ \t]*program[ \t]*.*" (capitalize body)) (let ((vars (mapcar #'cdr (org-babel-get-header params :var)))) - (if vars (error "Cannot use :vars if 'program' statement is present")) + (if vars (error "Cannot use :vars if `program' statement is present")) body) (format "program main\n%s\nend program main\n" body))) @@ -149,15 +149,14 @@ of the same value." ;; val is a matrix ((and (listp val) (org-every #'listp val)) (format "real, parameter :: %S(%d,%d) = transpose( reshape( %s , (/ %d, %d /) ) )\n" - var (length val) (length (car val)) + var (length val) (length (car val)) (org-babel-fortran-transform-list val) (length (car val)) (length val))) ((listp val) (format "real, parameter :: %S(%d) = %s\n" var (length val) (org-babel-fortran-transform-list val))) (t - (error (format "the type of parameter %s is not supported by ob-fortran" - var)))))) + (error "the type of parameter %s is not supported by ob-fortran" var))))) (defun org-babel-fortran-transform-list (val) "Return a fortran representation of enclose syntactic lists." |