File: get-fortran-params.pl

package info (click to toggle)
giza 1.5.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 4,360 kB
  • sloc: ansic: 13,252; sh: 4,205; f90: 3,003; lex: 437; perl: 330; makefile: 98
file content (15 lines) | stat: -rwxr-xr-x 445 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
#
# @(#) Perl script to convert defs in giza-shared.h to Fortran parameters
# @(#) Written by Daniel Price, daniel.price@monash.edu
#
my $var;
my $val;
open(FILE,"<../src/giza-shared.h");
while(<FILE>) {
  if (m/define\s\S*\s*([0-9]*)/ && !m/GIZA_LEFT_CLICK/) {
    ($var, $val) = m/define\s(\S*)\s*([0-9]*)/;
    my $lvar = lc($var); #sprintf("%-27s",lc($var));
    print "  integer, parameter, public :: $lvar = $var\n";
  }
}