fortranの組み込み関数にsignという符号付け替え関数が用意されている。
def sign(a1,a2): if a2 >= 0: return abs(a1) else: return -abs(a1)