changes in wham
[unres.git] / source / unres / src_MD-M / isnan.f
1       logical function isnan(a)
2       real a
3       if (a.ne.a) then
4        isnan = .true.
5       else
6        isnan = .false.
7       end if
8       return
9       end 
10