From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id kMqLKOxAkmCWPgEAgWs5BA (envelope-from ) for ; Wed, 05 May 2021 08:53:32 +0200 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id OGgdJOxAkmB8ZwAAbx9fmQ (envelope-from ) for ; Wed, 05 May 2021 06:53:32 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id BBF2625A2E for ; Wed, 5 May 2021 08:53:31 +0200 (CEST) Received: from localhost ([::1]:60776 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1leBPW-0005jc-Vw for larch@yhetil.org; Wed, 05 May 2021 02:53:31 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:44200) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1leBOg-0005jR-T9 for emacs-orgmode@gnu.org; Wed, 05 May 2021 02:52:45 -0400 Received: from mail-vi1eur05on2116.outbound.protection.outlook.com ([40.107.21.116]:23712 helo=EUR05-VI1-obe.outbound.protection.outlook.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1leBOe-000194-MH for emacs-orgmode@gnu.org; Wed, 05 May 2021 02:52:38 -0400 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=ZNbUZWlUfakhAuoLqTrYOgT1PLbful52YZeH7fWLF1HK1rXX2S40E54wNj5uRdxwZiNfifXUaBW/CUyPRcO6Nl73EBGJEZ7wxDA9+lvEJx+0qkpSPpW51C7ZGWjj2+FX9papGyAiosREoOUHNq/9gDlswwL3n5U754e5/XipeSaV6RgAULvh3nh94cxiB+edv7psDZz2h1VZ2C+xI06hA7EIBKzvfBoXKU/dNd0qJfd5cDnjqSdwCKKoYPFhUay3D4PZduhasoxTrbDsPRw5at0UwHd/2oOAc7xW/Q2aZh/ZeHjeo7zL+xgxrIxLKSwlTZG5Po4g/ptHuzugLmV1iw== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=eDLLA77GkUMILIXfME3S/FSkDkLPqtYrk1a/qWNzy58=; b=LxYgF4OyqMUSgQtT4g1QH7DIs2wYclIOQ4gcrmMmqYwStycxrfV0V2V1dbygSvHcRLiT5pI+BJktK3HU7Gc9MZW2TIhOvFDETDtFeBX83w9U62De2OpLXfTWBdW1mbaZVedqtbRaJ0GaPlxMK1y/aIUEzPJUvPj35/IF91fuVg4liE+nBA+AaE+qVby0/Pdirm7IZlhtghfDlIdjWFSymqihWDJ8JqW8nfSLBP2eJRKNUXVJ9PEd5qEYIE1rXUG44olE1K+JMEgm3eYm/ZBhXmZJbAAGg/Lz0tkF9DZK6QbOJqC4y57TolzKSHK4kuRQZhsAfvjkJF5A23z95L2OTw== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass smtp.mailfrom=ucl.ac.uk; dmarc=pass action=none header.from=ucl.ac.uk; dkim=pass header.d=ucl.ac.uk; arc=none DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ucl.ac.uk; s=selector1; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=eDLLA77GkUMILIXfME3S/FSkDkLPqtYrk1a/qWNzy58=; b=R/KDj6+5ZyjUx7NexQsxYXa8l/ofBez83pPgEmGJo8ueUvWDRwRK7D/IovAcp4vUFO/fN3+PbSknl+uuJoq9vTKifQGgyIu0Q2XrKoVvhFYFgGbIZucYovkbf+Q6kMjSCT9po//YcpnIOstVuh77LzA5pTPGl4dbd5bPJlT7B+I= Received: from PAXPR01MB8415.eurprd01.prod.exchangelabs.com (2603:10a6:102:21e::16) by PAXPR01MB8287.eurprd01.prod.exchangelabs.com (2603:10a6:102:212::11) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4087.38; Wed, 5 May 2021 06:52:33 +0000 Received: from PAXPR01MB8415.eurprd01.prod.exchangelabs.com ([fe80::dbd:886e:5854:8cec]) by PAXPR01MB8415.eurprd01.prod.exchangelabs.com ([fe80::dbd:886e:5854:8cec%5]) with mapi id 15.20.4108.025; Wed, 5 May 2021 06:52:33 +0000 From: Eric S Fraga To: pietru@caramail.com Subject: Re: orgbabel with fortran code Organization: On the Interweb somewhere References: <875yzx7l6a.fsf@ucl.ac.uk> X-Url: http://www.ucl.ac.uk/~ucecesf/ Mail-Followup-To: Org Mode List Date: Wed, 05 May 2021 07:52:31 +0100 In-Reply-To: (pietru@caramail.com's message of "Wed, 5 May 2021 08:37:03 +0200") Message-ID: <87lf8t65ao.fsf@ucl.ac.uk> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) Content-Type: multipart/mixed; boundary="=-=-=" X-Originating-IP: [95.146.38.114] X-ClientProxiedBy: LO4P123CA0440.GBRP123.PROD.OUTLOOK.COM (2603:10a6:600:1a9::13) To PAXPR01MB8415.eurprd01.prod.exchangelabs.com (2603:10a6:102:21e::16) MIME-Version: 1.0 X-MS-Exchange-MessageSentRepresentingType: 1 Received: from t3610 (95.146.38.114) by LO4P123CA0440.GBRP123.PROD.OUTLOOK.COM (2603:10a6:600:1a9::13) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4108.25 via Frontend Transport; Wed, 5 May 2021 06:52:32 +0000 X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: 9354654f-2cc6-4eb3-3f66-08d90f925c36 X-MS-TrafficTypeDiagnostic: PAXPR01MB8287: X-Microsoft-Antispam-PRVS: X-MS-Oob-TLC-OOBClassifiers: OLM:5797; X-MS-Exchange-SenderADCheck: 1 X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: e56frQ78S845JuXVzMCOK2COP9efnqLcJKQNpH2iPszsVaScOpnpRoCr87G+eLCRfKbQMfzSvHsZc+ByO4mmRXxrH9BediN98GLU5+syRuOTfMWd4d5P1SB6PZ9DMoQHJSPdtgS8oIc/LiST/481N3Ra2QR24gn9Cw0741HGl556ncQ7jI+IpONM2m899gxf3h3Kpx905pGbkHVXWTV1xBBjwPnflR8iA3H4IaOXI7j7IA+l+zrtbZ8DsSY0jER7fmxLBzkNUJBZPxnXDoLnKJhBC5NWWjbKjLWk1JCluYNWMeWN0YcsE3+YFKBarLRNrwdrjNRoOnzDFcPoQJ40/u/GN3VQR9nez538HRMUf6HGLUokYOpo4/pta3UpG8cIEBsDI1TSuKJffE8c9hTWERaTFc8jBHpPxVZwMZLFW1KMABrgamuj+Dq4zmjVsnOyYIlbhLkQMuUdvidJS1mldB3/Y+nWswh1wCkVF2U52rE1H7lc0ddxwubRG033CL87ZERId9OcNCpJ+bng5iPmEzcj6DuGxWSUvi+my676HDZMNWAz4giktQ5cBEJYmGb51pXmp+m/ZwgG0bEsUg7N5A/Cp5XRwgqMnR7jaT8tGHUC8PJ3I8HGNjpeRfqbhSoWoPx0hpuCk+6JkSnzPnvBqhuC9j333z4U9EYknpmcH3k= X-Forefront-Antispam-Report: CIP:255.255.255.255; CTRY:; LANG:en; SCL:1; SRV:; IPV:NLI; SFV:NSPM; H:PAXPR01MB8415.eurprd01.prod.exchangelabs.com; PTR:; CAT:NONE; SFS:(4636009)(346002)(136003)(39860400002)(376002)(396003)(366004)(38100700002)(956004)(2906002)(38350700002)(66946007)(36916002)(86362001)(2616005)(52116002)(316002)(235185007)(6496006)(6486002)(3480700007)(36756003)(8936002)(786003)(66556008)(66476007)(5660300002)(16526019)(186003)(8676002)(6916009)(478600001)(26005)(66616009)(4326008); DIR:OUT; SFP:1102; X-MS-Exchange-AntiSpam-MessageData: =?us-ascii?Q?MfO5crjRDI7HtKLNnqhbGqJZz3zhw6vFaugWcClfJ6pA24f5aUll0dps2wVA?= =?us-ascii?Q?Rhm7XMcfb2Mvl3F2WYLviIc3/0EGxG3aTjeGQjDvC7MadHbTAw9wylIQniht?= =?us-ascii?Q?HKD21PzsMS506m8wr8NG1eFZ8mWE+ZOj85Tj8z7I3l+zrV8vRdhuYHOxv+x4?= =?us-ascii?Q?vYEAO20eP4Wn/kaeU1Jpy++M64qLcltCILkh8TiJ8ZPJGF1etFh12rRmuLf2?= =?us-ascii?Q?Jp8M+ZLwjeaT0EKFwdXWFBuoTWuUHJEDY9+IIWMu4/uxZJulrLS/Tn80rwhR?= =?us-ascii?Q?xAFjUV3EEiWiMNudea8+oBIyPf6R2lF/7CR9SYFYQjLG4/4ARq50yQgQzeMr?= =?us-ascii?Q?LQWyV/hx4eAuZXd0nq94kugu60CwRgmygymFI8SxeV1svGM71f+hr/JcIQKg?= =?us-ascii?Q?y18s/f/to/ovC3+uRqT9p90bH92Kn5B7Fo+EQcldtSWsbkKSHjtsnC5u9jfs?= =?us-ascii?Q?b8R/9TqbXey244MNsvgzXiPyEBw/7wJI3qfweJGumXhJTG43jOgj/Xy+6yln?= =?us-ascii?Q?baVe5KiITfpgeNyKVr7+TcrmVS0Q8AKJwL8WvWh+FaAaIIySPG34DB6uZa8L?= =?us-ascii?Q?rEAQiPbpQMCZNY+rZ6x+cZ5Dt2JPll1lfJ0gtPowCEjwj8qW2VyVcBxlD0ex?= =?us-ascii?Q?KBFSfc/PUGm8F2GQK6maHF+smjSZqDLgvbV7Gv/YlVACnCJiZP770AfBTqIF?= =?us-ascii?Q?h8RE3MACTc2O0fAkWafiGe7dmXiIOpnRZ1UpPlScvPlXg5cBsHBDSEAbD7/r?= =?us-ascii?Q?LgPQftcWV5MtVu9R/H80RE69Ci1wMCIyJXj0m9b/aPz3ZseeB0ow6CtSKLjk?= =?us-ascii?Q?mVsnYceZevrf+CovYHrEp9RJVM2KCqdBIyJ5akWrfY4psWlN67zple25rLp6?= =?us-ascii?Q?M3i2lvQIuixFeWLZ3NFEJHtrQFOiGZ/KMA4fJruW1+LEKEjDJh35WMWpgG78?= =?us-ascii?Q?6waoHxt3fqpM18JwbQVdf6yqsBzSytcSb1TyEBxfYyb7QtRq/tph+IXQc+5+?= =?us-ascii?Q?v0hNBRvSLHQhXWfl1+q98+YkEMjYzHzarCMEVoziBaCGP232eJZd9XQbyz5a?= =?us-ascii?Q?/sX+92ZoQWatAnG5en7oZy37IMikNa0DgYdv4S0qTUTYsj8Dr82Xh7IHr1RG?= =?us-ascii?Q?cfKQQonaIyEgXTfhcEoxrDdUkAD55f9JJAjgJGjKol7VEvSOWDunuOA2l2wY?= =?us-ascii?Q?fM88uWcPNIwH98hHvrEExJGa4XAuZWTOessl6VVSreLvTR2tZL1fe2IdU/lk?= =?us-ascii?Q?Xn1yKHgnnx1fi5TtGQhGpDpzAeLz/48Y8vcrI32qTWWWfDJB2cKKYGl+0qHB?= =?us-ascii?Q?zpbQv9qFkQqq+ASzcZ0zOrgI?= X-OriginatorOrg: ucl.ac.uk X-MS-Exchange-CrossTenant-Network-Message-Id: 9354654f-2cc6-4eb3-3f66-08d90f925c36 X-MS-Exchange-CrossTenant-AuthSource: PAXPR01MB8415.eurprd01.prod.exchangelabs.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 05 May 2021 06:52:33.7621 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 1faf88fe-a998-4c5b-93c9-210a11d9a5c2 X-MS-Exchange-CrossTenant-MailboxType: HOSTED X-MS-Exchange-CrossTenant-UserPrincipalName: 3Oq0GLuD82mPFWnpg0B+h8iefJ7ujxICMO6MzgC5BDo+hqPfH0ndYJDVDSsClbfmtZvrektG4BtIG6SjOiJX1Q== X-MS-Exchange-Transport-CrossTenantHeadersStamped: PAXPR01MB8287 Received-SPF: pass client-ip=40.107.21.116; envelope-from=e.fraga@ucl.ac.uk; helo=EUR05-VI1-obe.outbound.protection.outlook.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, MSGID_FROM_MTA_HEADER=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: help Emacs Orgmode Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1620197612; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=eDLLA77GkUMILIXfME3S/FSkDkLPqtYrk1a/qWNzy58=; b=XDWin/3XZyWHSKePfA/6kxhZYg8hTIkvvwMLI93KPxo/bTW8a17TQCBR2VJP9j14LdbnLo 6uNFM5H87tzjoDYCsjblbB1deQ2I78qNDMa8cHfTlwlHpl04Q+CgEgT5+//TxnO3FPhetj CRajQPiPJo3tV1vVv0Es6gQgEpmyb0Of3KM+8pCs7lnIudc7LgaY8utdFhAZBW200iWpPA No7XV4WaaOMwDOTxHq9gx8cIzSl7c2eXEKkL41tcD2JIusBLXiyCJ9lvIn96Fz6etvLmPE fxAzIKpUg8QSoiNAFUOh9WlkOK6wf/k8h+4rNas/r7sVrC7Ds/VOCr2qh1SVbg== ARC-Seal: i=2; s=key1; d=yhetil.org; t=1620197612; a=rsa-sha256; cv=pass; b=BLblBJ5bataJQKdPmlDn7ROvbh8WUOmkSxItSyePugtn4LTeyNzM3aCl6B9gIqFEEJ802U 07X0TZhKLTbLsUY2Mz0eBaQUiZ97cX1x5Z+zrI3k2g4U0bTsKI8rkwSWyjPzA1N/szOR9Q B6jkbP3j/dj3ZD/OK5+2Ra5KeQddFr0xCcbfskxRU/L4YPLAOA+NowSMHT5G2xSHzCdk/w lk4BGsK6dRen3V8KMHZ34CiEpLWJ3rOCFa9DQ7+f1njn35lo0c88rcuGZSp/9p5S0CUiZX l7VycXs2tAOY5rxTLuvvvF5gsZZXYQQ8xq8lDtP2WbFsL96jdxox4jG+t5AO8g== ARC-Authentication-Results: i=2; aspmx1.migadu.com; dkim=pass header.d=ucl.ac.uk header.s=selector1 header.b="R/KDj6+5"; arc=pass ("microsoft.com:s=arcselector9901:i=1"); spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Spam-Score: -4.16 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=ucl.ac.uk header.s=selector1 header.b="R/KDj6+5"; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=pass (policy=none) header.from=ucl.ac.uk; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Queue-Id: BBF2625A2E X-Spam-Score: -4.16 X-Migadu-Scanner: scn0.migadu.com X-TUID: AGk9m8QUF5fp --=-=-= Content-Type: text/plain On Wednesday, 5 May 2021 at 08:37, pietru@caramail.com wrote: > Make a function and then run it with different values. Have a look at the attachment. Doesn't create a /function/ in the Fortran sense but shows how you can definitely call some code with different values. That's about all I can help with as it's been years since I used Fortran (although I did cut my teeth on Fortran 66... ;-)). -- : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd --=-=-= Content-Type: text/x-org Content-Disposition: attachment; filename=f.org * testing ob fortran #+name: ftest #+begin_src fortran :var m=20 :var n=30 :results output real, dimension(m,n) :: a real, dimension(n,m) :: c real, dimension(m) :: b integer :: i print *, m, n a = reshape( (/ (real(i), i=1,m*n) /), (/ m, n /) ) b = (/ (2*i, i=1,m) /) c = reshape( a, (/ n, m /) ) print *, b #+end_src #+results: ftest : 20 30 : 2.00000000 4.00000000 6.00000000 8.00000000 10.0000000 12.0000000 14.0000000 16.0000000 18.0000000 20.0000000 22.0000000 24.0000000 26.0000000 28.0000000 30.0000000 32.0000000 34.0000000 36.0000000 38.0000000 40.0000000 #+results: : 2.00000000 4.00000000 6.00000000 8.00000000 10.0000000 12.0000000 14.0000000 16.0000000 18.0000000 20.0000000 22.0000000 24.0000000 26.0000000 28.0000000 30.0000000 32.0000000 34.0000000 36.0000000 38.0000000 40.0000000 #+call: ftest(m=10,n=40) #+results: : 10 40 : 2.00000000 4.00000000 6.00000000 8.00000000 10.0000000 12.0000000 14.0000000 16.0000000 18.0000000 20.0000000 #+call: ftest(m=20,n=10) #+results: : 20 10 : 2.00000000 4.00000000 6.00000000 8.00000000 10.0000000 12.0000000 14.0000000 16.0000000 18.0000000 20.0000000 22.0000000 24.0000000 26.0000000 28.0000000 30.0000000 32.0000000 34.0000000 36.0000000 38.0000000 40.0000000 --=-=-=--