GROUND LITTLE HELP

STK

I DEFINED BY STORE A VARIABLE CALLED 'MASS' IN Q1. FOLLOWING A TUTORIAL I CONSTRUCTED THIS CODE(SEE BELOW) IN GROUND WHERE I WANT THE VALUES OF MASS TO BE THE PRODUCT:P1*U1 OF THE FINAL SOLUTION AND I WANT TO SEE THESE VALUES IN ALL SLABS VIA RESULT.

WHERE IS THE ERROR???? I ALWAYS TAKING MASS=1E-10 FOR ALL SLABS.

C * ------------------- SECTION 6 ---- Finish of iz slab.

IF(ISWEEP.EQ.LSWEEP) THEN

L0U1 = L0F(U1)

L0P1 = L0F(P1)

L0C1 =L0F(LBNAME('MASS'))

DO IX=1, NX

DO IY=1, NY

I=IY+NY*(IX-1)

F(L0C1+I)=F(L0U1+I)*F(L0P1+I)

END DO

END DO

END IF

RETURN

THANKS BEST REGARDS