\begin{figure}[htbp]
{\small
\begin{verbatim}
;
; Constants used by the Safire system
;
CONST:  nl     =    9000;
CONST:  mir    =      10;
CONST:  ml     =      32;
CONST:  mr     =      64;
CONST:  mgg    =      20;
CONST:  mgs    =       4;
CONST:  mpts   =  200000;
CONST:  msiz   = 6000000;
CONST:  mqmix  =     128;   (ml * mgs)
CONST:  mpmass =    8192;   (ml * ml * mgs * 2)
CONST:  mtbs   =    2048;   (ml * ml * 2)
CONST:  natmos =       8;
;
; Definition of the datasets used by the Safire system
;
;
; Datasets of type STRING
;
STRING: control  : 64 = "consaf.dat" ;
STRING: atmos    : natmos ;
STRING: nam      : mgg,8;
STRING: name     : mgs,8;
STRING: filen    : ml,32;
;
; Datasets of type DOUBLE (DREAL)
;
DREAL:  vs1      ;
DREAL:  vs2      ;
\end{verbatim}
}
\caption{Constant, String, and Double segment of PDT for \scubed Example - safire.pdt}
\end{figure}

\begin{figure}[htbp]
{\small
\begin{verbatim}

;
; Datasets of type REAL
;
REAL:   dvel     := {0.0};
REAL:   hires    : mpts;
REAL:   temp     := {0.0};
REAL:   za       : ml ;
REAL:   re       ;
REAL:   xlat     ;
REAL:   qg       : 2,mqmix;
REAL:   zt       : ml;
REAL:   pt       : ml;
REAL:   tt       : ml;
REAL:   qmix     : mqmix;
REAL:   wnmax    := {20.0};
REAL:   zr       : mr;
REAL:   pr       : mr;
REAL:   tr       : mr;
REAL:   tgr      : 2,mr;
REAL:   gr       : 2,mr;
REAL:   q        : mr,mgg;
REAL:   qgr      : 2,mr,mgg;
REAL:   odmin    := {0.1E-09};
REAL:   resmax   := {0.0};
REAL:   resfc    := {0.3};
REAL:   pmw      : ml;
REAL:   tmw      : ml;
REAL:   tbs      : mtbs;
REAL:   pb       : ml;
REAL:   gasb     : mqmix;
REAL:   pmass    : mpmass;
REAL:   fact     :1 = {0.0};
\end{verbatim}
}
\caption{Real segment of PDT for \scubed Example - safire.pdt}
\end{figure}

\begin{figure}[htbp]
{\small
\begin{verbatim}
;
; Datasets of type INTEGER
;
INT:    iblk     ;
INT:    iblko    :={0};
INT:    icnt     :={1};
INT:    icwrt    :={0};
INT:    iwrt     ;
INT:    ifrst    ;
INT:    iunit    : ml;
INT:    istatus  ;
INT:    idg      : mgs;
INT:    isc      := {1};
INT:    isco     := {0};
INT:    iopt     := {1};
INT:    icalc    := {2};
INT:    ioptt    := {1};
INT:    ir       : mir ;
INT:    iri      ;
INT:    irf      := {1};
INT:    imr      := {2};
INT:    iflag    := {2};
INT:    iopto    : ml;
INT:    igas     : mgs;
INT:    igs      : mgs;
INT:    igm      : mgs;
INT:    jtype    := {1};
INT:    nir      := mir;
INT:    ncel     ;
INT:    ngas     ;
INT:    npts     :=mpts;
INT:    nr       ;
INT:    nrun     ;
INT:    nsr      :={1};
INT:    nmr      :={60};
INT:    ngg      ;

\end{verbatim}}
\caption{\label{fig:sadaspdt} Integer segment of PDT for \scubed Example - safire.pdt}
\end{figure}
