CIPRIME CNISOC                                                          CNISOC      1
      CHARACTER*3 ITYP,ISOC(53)                                         CNISOC      2
      DATA ISOC/'ALI','ATR','APL','ABT','RLI','RTR','RPL','RBT','ASL'   CNISOC      3
     1,'RSL','DLI','DTR','DPL','DLR','DBT','DSL','MLI','MTR','MPL'      CNISOC      4
     2,'MSL','RCG','FCG','ZA ','ZR ','YK ','LGF','LLF','LGR','LLR'      CNISOC      5
     3,'SLD','RLD','TH ','TO ','DN ','AUD','RUD','GR ','GM ','GFD'      CNISOC      6
     4,'PR ','PM ','VR ','OF ','FV ','SR ','TEB','DIM','RIM','DF '      CNISOC      7
     5,'DR ','DI ','DP ','ESC'/                                         CNISOC      8
      DATA KTYP/53/                                                     CNISOC      9
