program testmods
   print *, "Mod ",mod(725.,360.),"Modulo ",modulo(725.,360.)
   print *, "Mod ",mod(-725.,360.),"Modulo ",modulo(-725.,360.)
end

