COMMON /MPPCOM/ 
     & MYPE,NPES,MY_IS_GLB,MY_IE_GLB,MY_JS_GLB,MY_JE_GLB
     &,MY_IS_LOC,MY_IE_LOC,MY_JS_LOC,MY_JE_LOC
     &,MYIS,MYIS1,MYIS2,MYIE,MYIE1,MYIE2
     &,MYIS_P1,MYIS_P2,MYIS_P3,MYIS_P4,MYIS_P5
     &,MYIS1_P1,MYIS1_P2,MYIS1_P3,MYIS1_P4
     &,MYIE_P1,MYIE_P2,MYIE_P3,MYIE_P4,MYIE_P5
     &,MYIE1_P1,MYIE1_P2,MYIE1_P3,MYIE1_P4
     &,MYIE2_P1
     &,MYJS,MYJS1,MYJS2,MYJS3,MYJS4,MYJS5
     &,MYJS_P1,MYJS_P2,MYJS_P3,MYJS_P4,MYJS_P5
     &,MYJS1_P1,MYJS1_P2,MYJS1_P3,MYJS1_P4
     &,MYJS2_P1,MYJS2_P2,MYJS2_P3,MYJS2_P4,MYJS3_P4
     &,MYJS4_P1,MYJS4_P4,MYJS5_P1,MYJS5_P2
     &,MYJE,MYJE1,MYJE2,MYJE3,MYJE4,MYJE5
     &,MYJE_P1,MYJE_P2,MYJE_P3,MYJE_P4,MYJE_P5
     &,MYJE1_P1,MYJE1_P2,MYJE1_P3,MYJE1_P4
     &,MYJE2_P1,MYJE2_P2,MYJE2_P3,MYJE2_P4,MYJE3_P4
     &,MYJE4_P1,MYJE4_P4,MYJE5_P1,MYJE5_P2
     &,MY_N,MY_E,MY_S,MY_W
     &,MY_NE,MY_SE,MY_SW,MY_NW,MY_NEB(8)
     &,ILCOL,IRCOL,IBROW,ITROW
     &,ILPAD1,ILPAD2,ILPAD3,ILPAD4,ILPAD5
     &,IRPAD1,IRPAD2,IRPAD3,IRPAD4,IRPAD5
     &,JBPAD1,JBPAD2,JBPAD3,JBPAD4,JBPAD5
     &,JTPAD1,JTPAD2,JTPAD3,JTPAD4,JTPAD5
     &,IS_LOC_TABLE(0:INPES*JNPES),JS_LOC_TABLE(0:INPES*JNPES)
     &,IE_LOC_TABLE(0:INPES*JNPES),JE_LOC_TABLE(0:INPES*JNPES)
     &,ICHUNKTAB(0:INPES*JNPES)
     &,MPI_COMM_COMP
     &,MPI_COMM_INTER
     &,MPI_COMM_INTER_ARRAY(100)
     &,IQUILT_GROUP
     &,INUMQ(100)
                          save /MPPCOM/ 
C
                          COMMON /GLB_TABLE/
     & IS_GLB_TABLE(0:INPES*JNPES),IE_GLB_TABLE(0:INPES*JNPES)
     &,JS_GLB_TABLE(0:INPES*JNPES),JE_GLB_TABLE(0:INPES*JNPES)
                          save /GLB_TABLE/
C
                          COMMON /TEMPCOM/
     & TEMP1(IM,JM),TEMP2(IM,JM),TEMP3(IM,JM),TEMP4(IM,JM)
     &,TEMP5(IM,JM),TEMP6(IM,JM),TEMP7(IM,JM),TEMP8(IM,JM)
     &,TEMP9(IM,JM),TEMP10(IM,JM),TEMP11(IM,JM),TEMP12(IM,JM)
     &,TEMP13(IM,JM),TEMP14(IM,JM),TEMP15(IM,JM),TEMP16(IM,JM)
     &,ITEMP(IM,JM),ITEMP2(IM,JM)
                          save /TEMPCOM/
C
                          COMMON /TOPO/
     & TEMP2X(0:IM+1,0:JM+1),TTVG(0:IM+1,0:JM+1)
     &,HTMG(0:IM+1,0:JM+1,LM)
                          save /TOPO/
C
      INTEGER G2LI,G2LJ
                          COMMON /MAPPINGS/
     & G2LI(0:IM+1),L2GI(0:IM+1),G2LJ(0:JM+1),L2GJ(0:JM+1)
                          save /MAPPINGS/