mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-11-09 07:33:43 +01:00
Bug in function declaration
Version:1.1.21
This commit is contained in:
parent
b4273ba620
commit
22ae374fc6
27
LICENSE
Normal file
27
LICENSE
Normal 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
30
README
Normal 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
|
||||||
|
|
@ -258,6 +258,10 @@ def remove_comments(text,form):
|
|||||||
result.append(line)
|
result.append(line)
|
||||||
elif isinstance(line,Empty_line):
|
elif isinstance(line,Empty_line):
|
||||||
pass
|
pass
|
||||||
|
else:
|
||||||
|
newline = line.text.lstrip()
|
||||||
|
if newline == "" or newline[0] == "!":
|
||||||
|
pass
|
||||||
else:
|
else:
|
||||||
line.text = remove_after_bang(line.text)
|
line.text = remove_after_bang(line.text)
|
||||||
if line.text[0] in "#123456789 ":
|
if line.text[0] in "#123456789 ":
|
||||||
|
@ -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:
|
||||||
|
Loading…
Reference in New Issue
Block a user