PARAMETER (MGCON=2000,MGCOT=200) COMMON /USGCOM/ NGCON,NGCOT, SGCNAM(MGCON),SGCTIT(MGCOT), IGCNAM +(MGCON),IGCTIT(MGCOT) CHARACTER SGCNAM*(MXNMCH),SGCTIT*(MXNMCH) *----------------------------------------------------------------------- * NGCON = number of variables in all COMMON blocks all ROUTINES * NGCOT = number of COMMON block titles all ROUTINES * SGCNAM = name of variable I * SGCTIT = name of COMMON block J * IGCNAM = pointer to J for name I * IGCTIT = -(pointer to start of names in SGCNAM for COMMON block J) *-----------------------------------------------------------------------