10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-12-22 04:13:33 +01:00

Bug in function declaration

Version:1.1.21
This commit is contained in:
Anthony Scemama 2009-09-17 22:34:06 +02:00
parent b4273ba620
commit 22ae374fc6
4 changed files with 69 additions and 5 deletions

27
LICENSE Normal file
View File

@ -0,0 +1,27 @@
All IRPF90 requestors MUST agree to the following license agreement which
covers all versions of IRPF90 (source code and binaries).
With regard to the IRP Fortran90 preprocessor IRPF90, together with its
associated utility programs, with which you have supplied me a
copy, I agree to the following conditions:
1. I will not supply a copy of the code to anyone outside my institution or
corporation for any reason whatsoever. Instead, I will refer any requests for
copies of the program to Anthony Scemama at CNRS. This in no way limits my making of
copies of the code for backup purposes, or for running on more than one
computer system at my institution or home.
2. I understand that copyright or ownership rights to IRPF90 are retained by
Anthony Scemama and CNRS to the IRPF90 package. I will not incorporate any part
of IRPF90 into any other program system, either for sale or for non-profit
distribution, without written permission from Anthony Scemama and CNRS,
3. I understand that no large program such as IRPF90 can be considered to be
bug free, and accordingly Anthony Scemama and the CNRS supplies the IRPF90 software on an "as is"
basis, with no additional responsibility or liability,
4. This license is considered a "Research Group" license. Thus anyone
directly associated with your research group is covered by the license and may
share your copy of IRPF90 on all of your group's computer resources.

30
README Normal file
View File

@ -0,0 +1,30 @@
+==============================================================================+
| IRPF90 |
+==============================================================================+
Dependencies:
-------------
- GNU make (3.81 recommended)
- Python > 2.3
- Any Fortran 90 compiler (gfortran, for example)
Installing IRPF90:
------------------
- As the super-user, run
./irpf90.install
Using IRPF90:
-------------
In an empty directory, run:
irpf90 -init
This command creates a new Makefile suitable for most irpf90 projects.
Now you can start to program using irpf90.
Author:
A. Scemama, LCPQ-IRSAMC, CNRS-Universite Paul Sabatier
scemama@irsamc.ups-tlse.fr

View File

@ -259,9 +259,13 @@ def remove_comments(text,form):
elif isinstance(line,Empty_line): elif isinstance(line,Empty_line):
pass pass
else: else:
line.text = remove_after_bang(line.text) newline = line.text.lstrip()
if line.text[0] in "#123456789 ": if newline == "" or newline[0] == "!":
result.append(line) pass
else:
line.text = remove_after_bang(line.text)
if line.text[0] in "#123456789 ":
result.append(line)
return result return result
###################################################################### ######################################################################

View File

@ -29,9 +29,12 @@ def build_dim(dim):
else: else:
return "(%s)"%( ",".join(dim) ) return "(%s)"%( ",".join(dim) )
import error
def find_subname(line): def find_subname(line):
buffer = line.text.split('(') buffer = line.text
if not buffer.endswith(')'):
buffer += "()"
buffer = buffer.split('(')
if len(buffer) > 1: if len(buffer) > 1:
buffer = " ".join(buffer[:-1]) buffer = " ".join(buffer[:-1])
else: else: