File: ReadMe-sgiShit

package info (click to toggle)
profnet 1.0.22-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 1,688 kB
  • ctags: 925
  • sloc: fortran: 12,103; makefile: 201; perl: 124; csh: 6
file content (14 lines) | stat: -rw-r--r-- 297 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
SGI has the following problem

if (logical) then

DOES NOT work

rather you want to use

if (logical .eq. .true.) then

...


perl -ne '++$ct; if ($_=~/^[cC\*]/ || $_!~/[\s\t]+if\s+\(\s*[a-z\-\_]*\s*\)/i) {print; } else { $_=~s/IF (\(\S+*)\)/$1 \.EQ\. \.TRUE\./)/; print "$_"; ' phd.f >> new-phd.f