Protect sqrt of negative number
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 11 May 2001 16:37:42 +0000 (16:37 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 11 May 2001 16:37:42 +0000 (16:37 +0000)
commit55c4a656c6d55a497a2a3f0c90c2d85770bbc0ab
treea39fd0a64c32a0a8940c344b113c9cbfd42fb539
parente43823857a22b557b1e12e131d8a87d09c24f6a5
Protect sqrt of negative number
HIJING/hijing1_36/attrad.F