| 1 |
<mdicf>8 |
| 2 |
f
! р К h |
| 3 |
|
| 4 |
T l ^ P ёё Q № ёё0ё ѓё0ё ѓё0ё ѓё0ё ѓё0ё ѓё ё №С0 P № ѓ 3 L џ?1 ё0ё № 0 P №Qђ1 Х С ё ё № 0 0 №џ?L џ?1 ё0ё № 0 P№1 Х 3 џС0 0 е ё №џ31 б ё0 S№1 Х 3 џ3С ! ђ №џ3
№ 1 3 ?3е 1ѓ №џ3 Х е 1ѓ0 3 №ѓ7L 1 џ?1 е 1ѓ № 0 P №00 №ё3SM 1 џ?3
№џ 0ѕ 1ѓ № 0 P №0 0 №џ 3е 1ѓ №џ3 б 1ё0 3 №ѓ7 ё б0 1ѓ №џ01 б 1ё0 R
№3 1 @Х С0 1 ѓ №џ3
№ 1 С 1 ѓ №џ Аџџџџ \ џџџџ(џџџџ$ќџџџџ\џџ (џџџџ.\.џџџџќtџџџџ\џџ џџџџ:\:џџџџtьџџџџ\џџ џџџџ>\>џџџџьdџџџџ \џџ џџџџB\Bџџџџdмџџџџ \џџ џџџџR\RџџџџмTџџџџ$\џџ џџџџb\bџџџџTџџџџ(\џџєџџџџrЬr](џџџџ(џџџџ &ЂЂџџџџџџџџџџџџџџџџdР |
| 5 |
LџџџџЎ$Ўџџџџџџџџџџ(џџџџ$ |
| 6 |
џџџџВАВџџџџџџџџџџ.џџџџи(џџџџК |
| 7 |
@џџџџЦ$Цџџџџџџџџџџ| |
| 8 |
GETARG_DVF getarg_dvf_T &џџџџџџџџџџџџџџџџјl |
| 9 |
lџџџџЮ\Юџџџџџџџџџџ |
| 10 |
џџџџиаиџџџџџџџџџџ.џџџџиGETARGgetarg_!џџџџтт№ | №\№џџџџџџџџџџџџџџџџШ ј< < џџџџ№\џџџџџџџџџџ |
| 11 |
џџџџј јџџџџџџџџџџ.џџџџир ш LNBLNKlnblnk_№ |
| 12 |
&џџџџџџџџџџџџџџџџШ |
| 13 |
d |
| 14 |
d |
| 15 |
|
| 16 |
џџџџ\џџџџџџџџџџр |
| 17 |
ш |
| 18 |
FLUSHflush_ј ќ h џџџџџџџџџџџџџџџџд .џџџџи џџџџh џџџџџџџџџџј |
| 19 |
ь є CLOCKclock_ј |
| 20 |
$
&џџџџџџџџџџџџџџџџќ p p |
| 21 |
џџџџ д џџџџџџџџџџ.џџџџи
DATEdate_ (\(џџџџџџџџџџџџџџџџl
р
р
џџџџ(\џџџџџџџџџџ,
|
| 22 |
џџџџ2D2џџџџџџџџџџ.џџџџиHOSTNAMhostnam_,
| 8\8џџџџџџџџџџџџџџџџT џџџџ8\џџџџџџџџџџ ltIARGCiargc_ џџџџџџџџ@@\@џџџџџџџџџџџџџџџџpДД џџџџ@\џџџџџџџџџџ |
| 23 |
PџџџџPPџџџџџџџџџџ.џџџџиTTџџџџџџџџџџџџџџџџЌЌ |
| 24 |
Pџџџџd\dџџџџџџџџџџjjџџџџџџџџџџџџџџџџ DEFINITIONS NDIM INTEGER MAX_UNITS DP SP
DEFAULT_ERROR DEFAULT_OUTPUT
DEFAULT_INPUT SELECTED_REAL_KIND UNKNOWN GETARG IFLPORT |
| 25 |
GETARG_DVF N BUFFER CHARACTER STATUS ARGINDEX ARGUMENT $ANONINTBLK$ LNBLNK STRING FLUSH LUNIT CLOCK DATE DSTRING HOSTNAM NAME IARGC MACHDEP_LNBLNK A1
MACHDEP_FLUSH UNIT MACHDEP_INIT d |
