PARAMETER (MARGS=50,MARGD=10,MKALL=50,LARC=50) COMMON /USARGS/ NARGS,CARGNM(MARGS),CARGTY(MARGS), NARGDI(MARGS), +CARGDI(MARGD,2,MARGS) COMMON /USCOMM/ CMMNT COMMON /USCALL/ NKALL,CKALLN(MKALL),KALLIF(MKALL),KALLDO(MKALL) CHARACTER*(MXNMCH) CARGNM,CKALLN CHARACTER*(LARC) CARGTY,CARGDI,CMMNT *----------------------------------------------------------------------- * NARGS = number of arguments passed to current module * CARGNMi = name of argument i * CARGTYi = type of argument i (EG CHAR80, INTE2) * NARGDIi = number of dimensions of argument i * CARGDIji= 1) lower bound for jth. dimension of argument i * 2) upper bound for jth. dimension of argument i * NKALL = number of CALL statements in module * CKALLNi = name of subroutine ith. CALLed * KALLIFi = IF level of ith. subroutine CALLed * KALLDOi = DO level of ith. subroutine CALLed *-----------------------------------------------------------------------