\begin{verbatim}
;
; Constants used by the Safire system
;

CONST:  nr   = 65536;
CONST:  nr2  = 32768;
CONST:  nnk  = 300000;
CONST:  nz   = 10;
CONST:  nc   = 10;
CONST:  ns   = 20;

;
; Definition of the datasets used by the Safire system
;

DREAL:  rad      : nr2 = {nr2*0.0}         ; REAL*8        rad(nr2)
DCOMP:  crad     : nr2                     ; COMPLEX*16    crad(nr2)
DREAL:  radd     : nr                      ; REAL*8        radd(nr)
DREAL:  rad0     : nr2                     ; REAL*8        rad0(nr)
INT:    iwk      : 20                      ; INTEGER       iwk(20)
INT:    nptspsm                            ; INTEGER       nptspsm
INT:    k3                                 ; INTEGER       k3
INT:    npsf                               ; INTEGER       npsf
INT:    j1                                 ; INTEGER       j1
INT:    j2                                 ; INTEGER       j2
INT:    np                                 ; INTEGER       np
DREAL:  res                                ; REAL*8        res
DREAL:  r0                                 ; REAL*8        r0
DREAL:  bwn                                ; REAL*8        bwn
DREAL:  resmin                             ; REAL*8        resmin
DREAL:  pwrad    : nr2                     ; REAL*8        pwrad(nr2)
DREAL:  zt       : nz                      ; REAL*8        zt(nx)
DREAL:  rad1     : nr2                     ; REAL*8        rad1(nr2)
DREAL:  a        : 2000                    ; REAL*8        a(2000)
DREAL:  radfull  : 262144                  ; REAL*8        radfull(262144)
DREAL:  r        : nnk                     ; REAL*8        r(nnk)
STRING: sfile    : ns                      ; CHARACTER*ns  sfile
STRING: rfile    : ns                      ; CHARACTER*ns  rfile
STRING: ray      : ns                      ; CHARACTER*ns  ray
STRING: cname    : nc, 10                  ; CHARACTER     cname(nc)*10
INT:    lout0    := {99}                   ; DATA          lout0 /99/
INT:    lm       := {130}                  ; DATA          lm /130/
INT:    il       := {1}                    ; DATA          il /1/
INT:    isi      := {1}                    ; DATA          isi /1/
INT:    isign    := {1}                    ; DATA          isign /1/
DREAL:  flaser   := {6.33e-05}             ; DATA          flaser /6.33d-5/
DREAL:  ssp      := {20.0}                 ; DATA          ssp /20./

\end{verbatim}