fortran
program main
implicit none
if (-0.0 == 0.0) write(*,*) "for other manipulations they are indentical "
! don't do such thing for real variables
if (sign(2.0, -0.0) < sign(2.0, 0.0)) write (*,*)"for sign intrinsic procedure they are different"
end program main
!integer zero wil be taken an positive
相关阅读
基于JPL DE405和IAU SOFA计算太阳系行星运动状态的For
基于JPL DE405和IAU SOFA计算太阳系行星运动状态的Fortran平台搭建与测试 一些铺垫 我们为什么要得到行星运动状态 行星的运