program TEST ! your code goes herereal,dimension(1:3) :: aa(1)=0.3a(2)=0.01a(3)=1.0e-3write(*,*)minval(a,dim=1,mask=a>0.0)stopend
Standard input is empty
1.00000005E-03
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!