00001 IMPLICIT REAL*8 (A-H, O-Z) 00002 IMPLICIT INTEGER(I-N) 00003 C.... COMMONBALOCKS FOR MODE 00004 COMMON/MODEXS/ICH 00005 common/bornXS/xborn 00006 REAL*8 USER_XX(1000),USER_YY(1000),XX(1000),YY(1000) 00007 CCCCCCC 00008