CIPRIME CNNBLD                                                          CNNBLD      1
                                                                        CNNBLD      2
      INTEGER*4 NBLD(12*JLOAD)                                          CNNBLD      3
*IF -MI2                                                                CNNBLD      4
      INTEGER*2 JBLD,JAREA,JZONE                                        CNNBLD      5
*ENDIF                                                                  CNNBLD      6
      EQUIVALENCE (BLD(1),NBLD(1))                                      CNNBLD      7
      COMMON /CNBLD/ ILOAD,BLD(12*JLOAD),LASTLB,JBLD(NB),JAREA(JAR),    CNNBLD      8
     & JZONE(JZN),PAREA(JAR*2),PZONE(JZN*2),IXAREA,IXZONE,ISUM(JLOAD)   CNNBLD      9
