MODULE method_Module Save CHARACTER*3 bmethod CHARACTER*3 coord END MODULE method_Module