Subroutine Bound_condition include 'icomm_1.f90' open(54, file='ioutlet_prof.txt') DO 5 I=1,NXmaxP If ( Xp(i,1)>0.) then F(i,1,5) = F(i,2,5) write(54,*) Xp(i,1),F(i,1,5) end if 5 continue close(54) Return End