7dbd17a5aa
Former-commit-id:133dc97f67[formerlya02aeb236c] [formerly9f19e3f712] [formerly133dc97f67[formerlya02aeb236c] [formerly9f19e3f712] [formerly06a8b51d6d[formerly9f19e3f712[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]]] Former-commit-id:06a8b51d6dFormer-commit-id:9bb8decbcf[formerly8e80217e59] [formerly377dcd10b9[formerly3360eb6c5f]] Former-commit-id:377dcd10b9Former-commit-id:e2ecdcfe33
16 lines
502 B
Text
16 lines
502 B
Text
C
|
|
C Common block to be used with the version of the ESP function implemented
|
|
C by RTi.
|
|
C
|
|
C Make sure that "maxets", as initialized in "eeblockx", agrees with the
|
|
C dimension on "ieunit".
|
|
|
|
cew add indir and outdir parameters for the espotdir and espindir techniques
|
|
character*104 esp_in_dir, esp_out_dir
|
|
integer preadj
|
|
|
|
cew added preadj
|
|
C
|
|
common / etsunt / maxets, nepts, ieunit(100),
|
|
+ esp_in_dir, esp_out_dir, indirlen, ioutdirlen,
|
|
+ preadj
|