Initial version.
Finished, moved ..
Added label and fixed to work with gfortran.
Added label and fixed to compiler with gfortran.