1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#!/bin/bash
## Clean up all
rm -f *.c *~
rm -f ../netlib/*.f ../netlib/*~
## xerbla.f and any .f using f90 intrinsic (maxloc) are not imported
(cd ../netlib; tar -xvf 3.5.0.tar; rm -f ._*.f; cat support.list | xargs rm -f; cat install.list | xargs rm -f)
##(cd ../netlib; tar -xvf 3.5.0.tar; rm -f ._*.f; cat install.list | xargs rm -f)
## Polish fortran files.
## Syntax error: CHARACTER(1) --> CHARACTER
## F90 Support : CYCLE --> CALL F90_CYCLE (temporary)
## F90 Support : EXIT --> CALL F90_EXIT (temporary)
## etc.
./preprosess.sh
## Run f2c
f2c -A -R -a ../netlib/*.f .
rm -f ._* ../netlib/*.f
## Change temporary tweaks
## f90_cycle__() --> continue
## f90_exit__() --> break
## etc.
./postprocess.sh
## Remove ftnlen
## ftnlen arguments should be carefully removed to preserve correct fortran-level interfaces
## most f2c'ed LAPACK routines do not need ftnlen arguments e.g., CHARACTER(1) do not need.
## the script will replace the arguments and function definitions.
./remove_ftnlen.sh
## Remove comma expressions
## f2c generates comma expressions for max and min macros. Such an expression should be properly removed.
./remove_comma_expr.sh
# ./remove_comma_abs.sh
## Generate a prototypes header
## ./headergen.sh
## Apply artistic style
./astyle.sh
## Disable xblas-related code so shared libraries link properly.
./disable_xblas.sh
echo " "
echo " Note that string-related f2c functions should not be used here (e.g., s_copy, s_cmp)."
echo " It is a total mess when an actual string is mixed in C and FORTRAN. "
echo " s_cat is an exception and it is modified from the original definition in f2clib. "
echo " "
echo " Do not link against -lf2c. "
|
