File: trmout.f

package info (click to toggle)
iraf 2.17-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 95,288 kB
  • sloc: ansic: 228,894; fortran: 75,606; lisp: 18,369; xml: 8,401; sh: 6,111; yacc: 5,648; lex: 596; makefile: 575; asm: 153; csh: 95; sed: 4
file content (8 lines) | stat: -rw-r--r-- 280 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
 
      subroutine trmout (name)
      integer name (100)
      integer tname(9)
      data tname(1)/47/,tname(2)/100/,tname(3)/101/,tname(4)/118/,tname(
     *5)/47/,tname(6)/116/,tname(7)/116/,tname(8)/121/,tname(9)/-2/
      call scopy (tname, 1, name, 1)
      return
      end