program main
    integer :: i_atsup_ws=21200
	print *, "Hello  JSRUN- from gfrotran", abs(i_atsup_ws), ( (i_atsup_ws/10000) )
    print *, mod(-500,10) !if mod(i_ae_vloc_ws,10)

end