It is now declared in the main program from the USE double.