PARAMETER (LIF=109) COMMON /USINFN/ INFUNG(LIF),CINFUN(LIF),CTYFUN(LIF) CHARACTER*6 CINFUN CHARACTER*1 CTYFUN *----------------------------------------------------------------------- * LIF = number of intrinsic functions recognised * CINFUN = name of intrinsic function * INFUNG = "1" if generic, "0" if not * CTYFUN = set only for generic types ... gives type of function * = 'I' integer * = 'R' real * = 'D' double precision * = 'K' complex * = 'L' logical * = 'C' character * = '$' takes type of argument(s) *-----------------------------------------------------------------------