PARAMETER (MCOMN=1000,MCOMT=50) COMMON /USCOMN/ NCOMN,NCOMT, SCNAME(MCOMN),SCTITL(MCOMT), ICNAME +(MCOMN),ICTITL(MCOMT) CHARACTER SCNAME*(MXNMCH),SCTITL*(MXNMCH) *----------------------------------------------------------------------- * NCOMN = number of variables in all COMMON blocks this routine * NCOMT = number of COMMON block titles this routine * SCNAME = name of variable I * SCTITL = name of COMMON block J * ICNAME = pointer to J for name I * ICTITL = -(pointer to start of names in SCNAME for COMMON block J) *-----------------------------------------------------------------------