       endif
         exit
      endif
      icount=icount+1
      call do_a_problem()
   enddo
contains
subroutine do_a_problem()
   write(*,'(*(g0,1x))')'did a problem: count=',icount,' title=',trim(title),' uuid=',trim(uuid)
   write(*,*)'TP=',cmplx(temperature,pressure)
end subroutine do_a_problem
end program simple
</pre>
<h3>Sample program output:</h3>
<pre>
did a problem: count= 1  title= Thermal Analysis  uuid= 90e29ff3-0124-454b-bcaa-cdb5b37ae6c3
 TP=             (350.000000,200.000