Hi,
Thanks PN for the file. I've modified it in the following way:
DO J=1,NPOIN
!PN
NCOUCHES(J)=1
IF((PRIVE%ADR(1)%P%R(J)-0.D0).LT.1.D-6) THEN
AVAIL(J,1,1)=1.D0
AVAIL(J,1,2)=0.D0
ELSEIF((PRIVE%ADR(1)%P%R(J)-1.D0).LT.1.D-6) THEN
AVAIL(J,1,1)=0.D0
AVAIL(J,1,2)=1.D0
ENDIF
!PN
ENDDO
I'm trying to simulate a spatial distribution of two simple fractions: 100% of 0.1m and 100% of 0.005m. Are the modifications right?
How can I print the private variable? (for watch it in BK, for example). I tried with VARIABLES FOR GRAPHIC PRINTOUTS but don't work.
Thank you all
Regards
Luciano