7469 			    integer *gdimen,   in mmresol_()  argument
7644     if (*gdimen > 0) {  in mmresol_()
7651 	anAdvApp2Var_SysBase.macrar8_(gdimen, &c__100, v2, &iofv2, &ier);  in mmresol_()
7659 	anAdvApp2Var_SysBase.macrar8_(gdimen, &c__100, v4, &iofv4, &ier);  in mmresol_()
7669 	mmatvec_(gdimen, hdimen, &gposit[4], gnstoc, &matsyg[1], &v1[iofv1], &  in mmresol_()
7674 	i__1 = *gdimen;  in mmresol_()
7688 	i__1 = *gdimen;  in mmresol_()
7692 	    AdvApp2Var_SysBase::mvriraz_(gdimen, &v4[iofv4]);  in mmresol_()
7708 	    mmatvec_(gdimen, hdimen, &gposit[4], gnstoc, &matsyg[1], &v3[  in mmresol_()
7728 	AdvApp2Var_SysBase::mvriraz_(gdimen, &v4[iofv4]);  in mmresol_()
7733 	mmchole_(mnstoc, gdimen, &matsym[iofmam], &mposit[3], &mmposui[1], &  in mmresol_()
7738 	mmrslss_(mnstoc, gdimen, &mcho[iofmch], &mposit[3], &mmposui[1], &v2[  in mmresol_()
7750 	mmtmave_(gdimen, hdimen, &gposit[4], gnstoc, &matsyg[1], &v4[iofv4], &  in mmresol_()
7809     anAdvApp2Var_SysBase.macrdr8_(gdimen, &c__100, v2, &iofv2, &ier);  in mmresol_()
7817     anAdvApp2Var_SysBase.macrdr8_(gdimen, &c__100, v4, &iofv4, &ier);  in mmresol_()