GROUND LITTLE HELP
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 |
All times are GMT -4. The time now is 06:38. |