File: in1.awk

package info (click to toggle)
xcrysden 1.6.2-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 8,040 kB
  • sloc: ansic: 36,624; tcl: 33,824; fortran: 6,744; sh: 2,219; makefile: 759; f90: 429; awk: 382; pascal: 30
file content (15 lines) | stat: -rw-r--r-- 244 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
BEGIN {
  if ( unit == "" ) {
    unit=5;
  }
}

/K-VECTORS FROM UNIT:*/ {
  l     = length($0)
  part1 = substr($0, 1, 20);
  part2 = substr($0, 22);
  lrest = l-22;
  printf "%20s%1d%"lrest"s\n", part1, unit, part2;
  exit;
}
/a*/ { print; }